xcircuit-3.9.73/0000775000175000001440000000000013267552763012201 5ustar timusersxcircuit-3.9.73/configure.in0000664000175000001440000007702213267470350014511 0ustar timusersdnl Process this file with autoconf to produce a configure script. AC_INIT(xcircuit.c,, xcircuit-dev@lists.sourceforge.net) AC_PREREQ(2.52) AC_CONFIG_SRCDIR(xcircuit.c) AC_CANONICAL_SYSTEM dnl this call will define PACKAGE and VERSION dnl please use this as the primary reference for the version number PACKAGE=xcircuit VERSION=`cat ./VERSION | cut -d. -f1-2` AM_INIT_AUTOMAKE(${PACKAGE}, ${VERSION}) dnl Initialize some variables SUBDIRS= SUBLIB= STDLIBS= XCIRCUIT_TARGET= ALL_TARGET="undefined-target" INSTALL_TARGET="undefined-install-target" REVISION=`cat ./VERSION | cut -d. -f3` INTERPRETER=NOINTERP HAVE_LGF=NOFORMATS LIB_SPECS="" WISH_EXE="" SHLIB_CFLAGS="" dnl Default is to use Tcl; if it can't be found, then flag a warning dnl and revert to the non-Tcl version. dnl pass the version string on the the makefiles AC_SUBST(PACKAGE) AC_SUBST(VERSION) AC_SUBST(REVISION) dnl Setup for automake in subdirectories AC_PROG_MAKE_SET dnl Checks for programs. AC_PROG_CC AC_ISC_POSIX dnl AM_C_PROTOTYPES if test "x$U" != "x"; then AC_MSG_ERROR(Compiler not ANSI compliant) fi AC_PROG_INSTALL AC_PROG_RANLIB dnl GNU M4 is preferred due to some of the option switches. AC_PATH_PROGS([M4], [gm4 gnum4 m4],) case "$target_os" in *cygwin*) ;; *) AC_CHECK_LIB(m, sin) ;; esac dnl check size of pointer for correct behavior on 64-bit systems AC_CHECK_SIZEOF([void *], 4) AC_CHECK_SIZEOF([unsigned int], 4) AC_CHECK_SIZEOF([unsigned long], 8) AC_CHECK_SIZEOF([unsigned long long], 16) dnl check for X libraries and include files AC_PATH_XTRA CPPFLAGS="${CPPFLAGS} ${X_CFLAGS}" LDFLAGS="${LDFLAGS} ${X_LIBS}" LIBS="${X_PRE_LIBS} ${LIBS} -lX11" AC_CHECK_LIB(Xt, XtToolkitInitialize,,[ AC_CHECK_LIB(Xt, XtDisplayInitialize,,,-lSM -lICE -lXpm -lX11)]) dnl Check for required header files AC_HEADER_STDC dnl Need either setenv or putenv AC_CHECK_FUNCS(setenv putenv) dnl Check for vfork AC_CHECK_FUNC(vfork) dnl Check for AC_CHECK_HEADERS(dirent.h) dnl Check for lib64. This is a quick hack for Fedora Core on the dnl AMD Opteron; don't know if it works with others. case $target in x86_64-*) AC_MSG_CHECKING([for 64-bit X11 libraries]) AC_CHECK_FILE([/usr/X11R6/lib64], [ LDFLAGS="-L/usr/X11R6/lib64 ${LDFLAGS}" ], ) ;; esac dnl Check for valid cflag "-Wno-pointer-sign" AC_MSG_CHECKING(if -Wno-pointer-sign accepted in CFLAGS) ac_save_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -Wno-pointer-sign" AC_TRY_COMPILE(,[ int foo; foo = 0],[ AC_MSG_RESULT(yes)],[ CFLAGS="$ac_save_CFLAGS" AC_MSG_RESULT(no)]) dnl Check for Flate compression routines AC_CHECK_LIB(z, deflate,,,-lz) dnl Check for va_copy AC_CACHE_CHECK([for va_copy], ac_cv_c_va_copy, AC_TRY_LINK( [#include ], [va_list ap1, ap2; va_copy(ap1,ap2); ], [ac_cv_c_va_copy="yes"], [ac_cv_c_va_copy="no"]) ) if test "$ac_cv_c_va_copy" = "yes" then AC_DEFINE(HAVE_VA_COPY, 1, [Define if we have va_copy]) fi AC_CACHE_CHECK([for __va_copy], ac_cv_c___va_copy, AC_TRY_LINK( [#include ], [va_list ap1, ap2; __va_copy(ap1,ap2); ], [ac_cv_c___va_copy="yes"], [ac_cv_c___va_copy="no"]) ) if test "$ac_cv_c___va_copy" = "yes" then AC_DEFINE(HAVE___VA_COPY, 1, [Define if we have __va_copy]) fi AC_MSG_CHECKING(if u_char defined) AC_TRY_COMPILE([#include ],[ u_char foo; foo = 0],[ AC_DEFINE(HAVE_U_CHAR) AC_MSG_RESULT(yes)], AC_MSG_RESULT(no)) dnl Enable compile-time Optimization? Disable by default for debugging AC_ARG_ENABLE(optimize, [ --enable-optimize enable compile-time optimizer flag -O2], , [ CFLAGS=`echo $CFLAGS | sed -e "s/ -O2//"` ]) dnl check for Xpm library AC_ARG_WITH(xpm, [ --with-xpm=DIR use Xpm include/library files in DIR], [ if test "$withval" != "no" -a "$withval" != "yes"; then CPPFLAGS="${CPPFLAGS} -I$withval/include" LDFLAGS="${LDFLAGS} -L$withval/lib" fi ]) AC_CHECK_HEADERS(X11/xpm.h, AC_CHECK_LIB(Xpm, XpmCreateImageFromData, [ LIBS="${LIBS} -lXpm" AC_DEFINE(HAVE_XPM)], [ AC_MSG_WARN(Xpm library not found)], -lX11), AC_MSG_WARN(Xpm header not found)) dnl Check for GNU ld. This needs to be qualified for Solaris, which dnl may use gcc for the C compiler but not for the linker. dnl check if the linker is a GNU linker #------------------------------------------------------------ # AC_PROG_LD - find the path to the GNU or non-GNU linker # (This stuff ripped from libtool) #------------------------------------------------------------ AC_DEFUN([AC_PROG_LD], [AC_ARG_WITH(gnu-ld, [ --with-gnu-ld assume the C compiler uses GNU ld [[default=no]]], test "$withval" = no || xc_with_gnu_ld=yes, xc_with_gnu_ld=no) AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_CANONICAL_HOST])dnl dnl ###not for PostgreSQL### AC_REQUIRE([AC_CANONICAL_BUILD])dnl ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. AC_MSG_CHECKING([for ld used by GCC]) case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case "$ac_prog" in # Accept absolute paths. changequote(,)dnl [\\/]* | [A-Za-z]:[\\/]*) re_direlt='/[^/][^/]*/\.\./' changequote([,])dnl # Canonicalize the path of ld ac_prog=`echo $ac_prog| sed 's%\\\\%/%g'` while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. xc_with_gnu_ld=unknown ;; esac elif test "$xc_with_gnu_ld" = yes; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi AC_CACHE_VAL(ac_cv_path_LD, [if test -z "$LD"; then IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}${PATH_SEPARATOR-:}" for ac_dir in $PATH; do test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then ac_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some GNU ld's only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. if "$ac_cv_path_LD" -v 2>&1 < /dev/null | egrep '(GNU|with BFD)' > /dev/null; then test "$xc_with_gnu_ld" != no && break else test "$xc_with_gnu_ld" != yes && break fi fi done IFS="$ac_save_ifs" else ac_cv_path_LD="$LD" # Let the user override the test with a path. fi]) LD="$ac_cv_path_LD" if test -n "$LD"; then AC_MSG_RESULT($LD) else AC_MSG_RESULT(no) fi test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH]) AC_PROG_LD_GNU ]) AC_DEFUN([AC_PROG_LD_GNU], [AC_CACHE_CHECK([if the linker ($LD) is GNU ld], ac_cv_prog_gnu_ld, [# I'd rather use --version here, but apparently some GNU ld's only accept -v. if $LD -v 2>&1 &5; then ac_cv_prog_gnu_ld=yes else ac_cv_prog_gnu_ld=no fi]) xc_with_gnu_ld=$ac_cv_prog_gnu_ld ]) AC_PROG_LD dnl --- Enable TCL by default xc_with_tcl="yes" xc_with_tk="yes" xc_with_tcl_includes="" xc_with_tk_includes="" xc_with_tcl_libraries="" xc_with_tk_libraries="" xc_with_cairo="yes" dnl ----------------------------------------------------------------------- dnl --- Cairo library dnl ----------------------------------------------------------------------- AC_ARG_WITH([cairo], [AS_HELP_STRING([--with-cairo], [Use cairo graphics library @<:@default=yes@:>@])], [ xc_with_cairo=$withval if test "$withval" == "no" -o "$withval" == "NO"; then xc_with_cairo="" fi ], ) if test "x$xc_with_cairo" != "x" ; then AC_DEFINE([HAVE_CAIRO]) PKG_CHECK_MODULES([cairo], [cairo]) PKG_CHECK_MODULES([fontconfig], [fontconfig]) AC_CHECK_HEADERS([ghostscript/gdevdsp.h], [ GS_LIBS=-lgs AC_DEFINE([HAVE_GS]) ], [ AC_MSG_WARN([Building xcircuit without ghostscript rendering]) AC_MSG_WARN([Install the ghostscript-devel package to solve this]) ] ) fi dnl ----------------------------------------------------------------------- dnl --- Tcl/Tk support dnl ----------------------------------------------------------------------- AC_ARG_WITH(tcl, [ --with-tcl=DIR Find tclConfig.sh in DIR], [ xc_with_tcl=$withval if test "$withval" == "no" -o "$withval" == "NO"; then xc_with_tcl="" fi ], ) dnl ----------------------------------------------------------------------- dnl If TCL is not disabled, do our best to find it dnl ----------------------------------------------------------------------- AC_ARG_WITH(tk, [ --with-tk=DIR Find tkConfig.sh in DIR], xc_with_tk=$withval) AC_ARG_WITH(tclincls, [ --with-tclincls=DIR Find tcl.h in DIR], xc_with_tcl_includes=$withval) AC_ARG_WITH(tkincls, [ --with-tkincls=DIR Find tk.h in DIR], xc_with_tk_includes=$withval) AC_ARG_WITH(tcllibs, [ --with-tcllibs=DIR Find Tcl library in DIR], xc_with_tcl_libraries=$withval) AC_ARG_WITH(tklibs, [ --with-tklibs=DIR Find Tk library in DIR], xc_with_tk_libraries=$withval) # ----------------------------------------------------------------------- # # Find the Tcl build configuration file "tclConfig.sh" # # ----------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then TCL_INC_DIR="." TK_INC_DIR="." AC_MSG_CHECKING([for tclConfig.sh]) tcl_config_sh="" if test "$xc_with_tcl" = "no" ; then xc_with_tcl="" elif test "$xc_with_tcl" != "yes" ; then # # Verify that a tclConfig.sh file exists in the directory specified # by --with-tcl. # for dir in \ $xc_with_tcl do if test -r "$dir/tclConfig.sh" ; then tcl_config_sh="$dir/tclConfig.sh" break elif test -r "$dir/lib/tclConfig.sh" ; then tcl_config_sh="$dir/lib/tclConfig.sh" break fi done else # # Otherwise, search for Tcl configuration file. # # 1. Search previously named locations. for dir in \ $prefix \ $exec_prefix do if test -r "$dir/tclConfig.sh" ; then tcl_config_sh="$dir/tclConfig.sh" break elif test -r "$dir/lib/tclConfig.sh" ; then tcl_config_sh="$dir/lib/tclConfig.sh" break fi done # 2. Search standard locations. if test "x$tcl_config_sh" = "x" ; then for dir in \ `ls -dr /usr/local/tcl/tcl[[7-9]].[[0-9]]* 2>/dev/null` \ /usr/local/tcl \ /usr/local/lib \ /usr/local \ `ls -dr /usr/share/tcltk/tcl[[7-9]].[[0-9]]* 2>/dev/null` \ /sw/lib \ /usr/lib \ /usr/lib64 \ /usr do if test -r "$dir/tclConfig.sh" ; then tcl_config_sh="$dir/tclConfig.sh" break elif test -r "$dir/lib/tclConfig.sh" ; then tcl_config_sh="$dir/lib/tclConfig.sh" break fi done fi fi AC_MSG_RESULT([${tcl_config_sh}]) if test "x$tcl_config_sh" = "x" ; then echo "can't find Tcl configuration script \"tclConfig.sh\"" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi fi # ----------------------------------------------------------------------- # # Find the Tk build configuration file "tkConfig.sh" # # ----------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then AC_MSG_CHECKING([for tkConfig.sh]) tk_config_sh="" if test "$xc_with_tk" != "yes"; then # # Verify that a tkConfig.sh file exists in the directory specified # by --with-tcl or --with-tk. # for dir in \ $xc_with_tk \ $xc_with_tcl do if test -r "$dir/tkConfig.sh" ; then tk_config_sh="$dir/tkConfig.sh" break elif test -r "$dir/lib/tkConfig.sh" ; then tk_config_sh="$dir/lib/tkConfig.sh" break fi done else # # Search for Tk configuration file. # # # 1. Search previously named locations. # for dir in \ $prefix \ $exec_prefix do if test -r "$dir/tkConfig.sh" ; then tk_config_sh="$dir/tkConfig.sh" break elif test -r "$dir/lib/tkConfig.sh" ; then tk_config_sh="$dir/lib/tkConfig.sh" break fi done # # 2. Search standard locations. # if test "x$tk_config_sh" = "x" ; then for dir in \ /usr/local \ /usr \ `ls -dr /usr/local/lib/tk[[7-9]].[[0-9]]* 2>/dev/null` \ `ls -dr /usr/lib/tk[[7-9]].[[0-9]]* 2>/dev/null` \ `ls -dr /usr/local/tk/tk[[7-9]].[[0-9]]* 2>/dev/null` \ `ls -dr /usr/local/tk[[7-9]].[[0-9]]* 2>/dev/null` \ /usr/local/tk \ `ls -dr /usr/local/lib/tcl[[7-9]].[[0-9]]* 2>/dev/null` \ `ls -dr /usr/lib/tcl/tk[[7-9]].[[0-9]]* 2>/dev/null` \ `ls -dr /usr/local/tcl/tcl[[7-9]].[[0-9]]* 2>/dev/null` \ `ls -dr /usr/share/tcltk/tk[[7-9]].[[0-9]]* 2>/dev/null` \ /sw/lib \ /usr/lib \ /usr/lib64 \ ${x_libraries} do if test -r "$dir/tkConfig.sh" ; then tk_config_sh="$dir/tkConfig.sh" break elif test -r "$dir/lib/tkConfig.sh" ; then tk_config_sh="$dir/lib/tkConfig.sh" break fi done fi fi AC_MSG_RESULT([${tk_config_sh}]) if test "x$tk_config_sh" = "x" ; then echo "can't find Tk configuration script \"tkConfig.sh\"" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi fi # ----------------------------------------------------------------------- # # Source in the Tcl/Tk configuration scripts. # # This didn't work so well in the pre-8.5 days, but # seems to be okay now. # # ----------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then . $tcl_config_sh . $tk_config_sh # Should probably trust the config file contents, but this configure # file checks the Tcl and Tk include and lib directories. Since # the config file doesn't separate out the libraries from the strings # passed to the compiler/linker, do it manually here. # # Extract TCL_LIB_DIR from TCL_LIB_SPEC # Extract TK_LIB_DIR from TK_LIB_SPEC # Extract TCL_INC_DIR from TCL_INCLUDE_SPEC # Extract TK_INC_DIR from TK_INCLUDE_SPEC # # These will be the defaults unless overridden by configure command line tmpstr=${TCL_LIB_SPEC#*-L} TCL_LIB_DIR=${tmpstr% -l*} tmpstr=${TK_LIB_SPEC#*-L} TK_LIB_DIR=${tmpstr% -l*} TCL_INC_DIR=${TCL_INCLUDE_SPEC#*-I} TK_INC_DIR=${TK_INCLUDE_SPEC#*-I} LIBS="${TCL_LIBS} ${LIBS}" if test "$TCL_VERSION" = "$TK_VERSION" ; then : else echo "Mismatched Tcl/Tk versions ($TCL_VERSION != $TK_VERSION)" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi fi # ----------------------------------------------------------------------- # Rely on TCL_INCLUDE_SPEC from tclConfig.sh unless "--with-tclincls" # overrides. With TCL_INCLUDE_SPEC, pull out TCL_INC_DIR # ----------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then if test "x${xc_with_tcl_includes}" != "x" ; then if test -r "${xc_with_tcl_includes}/tcl.h" ; then TCL_INC_DIR=${xc_with_tcl_includes} elif test "x${TCL_INCLUDE_SPEC}" == "x" ; then echo "Can't find tcl.h in \"${xc_with_tcl_includes}\"" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi elif test "x${TCL_INCLUDE_SPEC}" == "x" ; then for dir in \ ${TCL_PREFIX}/include/tcl${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION} \ ${TCL_PREFIX}/include \ ${TCL_SRC_DIR}/generic \ ${TCL_INC_DIR} do if test -r "$dir/tcl.h" ; then TCL_INC_DIR=$dir TCL_INCLUDE_SPEC="-I${TCL_INC_DIR}" break fi done if test "x${TCL_INC_DIR}" = "x" ; then echo "Can't find tcl.h header file" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi else TCL_INC_DIR=`echo ${TCL_INCLUDE_SPEC} | sed -e '/-I/s/-I//'` fi fi # ----------------------------------------------------------------------- # Rely on TK_INCLUDE_SPEC from tkConfig.sh unless "--with-tkincls" # overrides. With TK_INCLUDE_SPEC, pull out TK_INC_DIR # ----------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then if test "x${xc_with_tk_includes}" != "x" ; then if test -r "${xc_with_tk_includes}/tk.h" ; then TK_INC_DIR=${xc_with_tk_includes} elif test "x${TK_INCLUDE_SPEC}" == "x" ; then echo "Can't find tk.h in \"${xc_with_tk_includes}\"" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi elif test "x${TK_INCLUDE_SPEC}" == "x" ; then for dir in \ ${TK_PREFIX}/include/tcl${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION} \ ${TK_PREFIX}/include/tk${TK_MAJOR_VERSION}.${TK_MINOR_VERSION} \ ${TK_PREFIX}/include \ ${TK_SRC_DIR}/generic \ ${TK_INC_DIR} do if test -r "$dir/tk.h" ; then TK_INC_DIR=$dir TK_INCLUDE_SPEC="-I${TK_INC_DIR}" break fi done if test "x${TK_INC_DIR}" = "x" ; then echo "Can't find tk.h header file" echo "Reverting to non-Tcl compilation" xc_with_tcl="" fi else TK_INC_DIR=`echo ${TK_INCLUDE_SPEC} | sed -e '/-I/s/-I//'` fi fi # -------------------------------------------------------------- # Rely on TCL_LIB_SPEC from tclConfig.sh unless "--with-tcllibs" # overrides. With TCL_LIB_SPEC, pull out TCL_LIB_DIR # -------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then if test "x${xc_with_tcl_libraries}" != "x" ; then TCL_LIB_SPEC="" for libname in \ "${xc_with_tcl_libraries}/${TCL_LIB_FILE}" \ "${xc_with_tcl_libraries}/lib${TCL_LIB_NAME}${SHDLIB_EXT}" do if test -r "$libname" ; then TCL_LIB_DIR="${xc_with_tcl_libraries}" break fi done if test "x${TCL_LIB_DIR}" == "x" ; then echo "Can't find tcl library in \"${xc_with_tcl_libraries}\"" echo "Reverting to non-Tcl compile" xc_with_tcl="" fi elif test "x${TCL_LIB_SPEC}" == "x" ; then for libpfix in "lib64" "lib" do libname="${TCL_EXEC_PREFIX}/${libpfix}/lib${TCL_LIB_NAME}${SHDLIB_EXT}" if test -r "$libname" ; then TCL_LIB_DIR="${TCL_EXEC_PREFIX}/${libpfix}" break fi done if test "x${TCL_LIB_DIR}" = "x" ; then echo "Can't find tcl library" echo "Reverting to non-Tcl compile" xc_with_tcl="" fi else TCL_LIB_DIR=`echo ${TCL_LIB_SPEC} | sed -e '/-L/s/-L//' -e '/-l/s/-l.*//'` fi fi # -------------------------------------------------------------- # Rely on TK_LIB_SPEC from tkConfig.sh unless "--with-tklibs" # overrides. With TK_LIB_SPEC, pull out TK_LIB_DIR # -------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then if test "x${xc_with_tk_libraries}" != "x" ; then TK_LIB_SPEC="" for libname in \ "${xc_with_tk_libraries}/${TK_LIB_FILE}" \ "${xc_with_tk_libraries}/lib${TK_LIB_NAME}${SHDLIB_EXT}" do if test -r "$libname" ; then TK_LIB_DIR="${xc_with_tk_libraries}" break fi done if test "x${TK_LIB_DIR}" == "x" ; then echo "Can't find tk library in \"${xc_with_tk_libraries}\"" echo "Reverting to non-Tcl compile" xc_with_tcl="" fi elif test "x${TK_LIB_SPEC}" == "x" ; then for libpfix in "lib64" "lib" do libname="${TK_EXEC_PREFIX}/${libpfix}/lib${TK_LIB_NAME}${SHDLIB_EXT}" if test -r "$libname" ; then TK_LIB_DIR="${TK_EXEC_PREFIX}/${libpfix}" break fi done if test "x${TK_LIB_DIR}" = "x" ; then echo "Can't find tk library" echo "Reverting to non-Tcl compile" xc_with_tcl="" fi else TK_LIB_DIR=`echo ${TCL_LIB_SPEC} | sed -e '/-L/s/-L//' -e '/-l/s/-l.*//'` fi fi #-------------------------------------------------------------------- # If TCL_LIB_SPEC and/or TK_LIB_SPEC do not exist, construct them #-------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then if test "x${TCL_LIB_SPEC}" == "x" ; then case $target in *-sunos4*|*-*-netbsd|NetBSD-*|FreeBSD-*|*-*-openbsd*|OpenBSD-*) TCL_LIB_NAME="tcl${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}" ;; *) TCL_LIB_NAME="tcl${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION}" ;; esac TCL_LIB_SPEC="-L${TCL_LIB_DIR} -l${TCL_LIB_NAME}" fi if test "x${TK_LIB_SPEC}" == "x" ; then case $target in *-sunos4*|*-*-netbsd|NetBSD-*|FreeBSD-*|*-*-openbsd*|OpenBSD-*) TK_LIB_NAME="tk${TK_MAJOR_VERSION}${TK_MINOR_VERSION}" ;; *) TK_LIB_NAME="tk${TK_MAJOR_VERSION}.${TK_MINOR_VERSION}" ;; esac TK_LIB_SPEC="-L${TK_LIB_DIR} -l${TK_LIB_NAME}" fi # Find the version of "wish" that corresponds to TCL_EXEC_PREFIX # We really ought to run "ldd" to confirm that the linked libraries match. AC_MSG_CHECKING([for wish executable]) for dir in \ ${TK_EXEC_PREFIX}/bin \ ${TK_EXEC_PREFIX} do for wishexe in \ wish \ wish${TK_VERSION} \ wish.exe \ wish${TK_VERSION}.exe do if test -r "$dir/$wishexe" ; then WISH_EXE=$dir/$wishexe break fi done if test "x${WISH_EXE}" != "x" ; then break fi done if test "x${WISH_EXE}" = "x" ; then echo "Warning: Can't find executable for \"wish\". You may have to" echo "manually set the value for WISH_EXE in the xcircuit startup script." AC_MSG_RESULT(no) else AC_MSG_RESULT([${WISH_EXE}]) fi # Have to define SHDLIB_EXT here even though we have to do it below, too. case $target in *-hpux*) SHDLIB_EXT=".sl" ;; *cygwin*) SHDLIB_EXT=".dll.a" ;; *-darwin*) SHDLIB_EXT=".dylib" ;; *-openbsd*) SHDLIB_EXT=".so.${TCL_LIB_FILE##*.so.}" ;; *) SHDLIB_EXT=".so" ;; esac fi dnl End of Tcl/Tk search dnl -------------------------------- # ----------------------------------------------------------------------- # # Tk libraries and header files # # ----------------------------------------------------------------------- if test "x$xc_with_tcl" != "x" ; then INC_SPECS="${INC_SPECS} ${TCL_INCLUDE_SPEC} ${TK_INCLUDE_SPEC}" LIB_SPECS="${LIB_SPECS} ${TCL_LIB_SPEC} ${TK_LIB_SPEC}" if test "x${loader_run_path}" = "x" ; then loader_run_path="${TCL_LIB_DIR}" else loader_run_path="${TCL_LIB_DIR}:${loader_run_path}" fi #-------------------------------------------------------------------- # # Check if we can generate shared libraries on this system. Set flags # to generate shared libraries for systems that we know about. Start # with the values found in tclConfig.sh, make changes as we know about # the different systems. # #-------------------------------------------------------------------- # Initialize shared library build variables if test "x${TCL_SHLIB_SUFFIX}" == "x" ; then SHDLIB_EXT=".so" else SHDLIB_EXT="${TCL_SHLIB_SUFFIX}" fi if test "x${TCL_SHLIB_LD}" == "x" ; then # Construct shared library build arguments the painful way # This is not expected to be necessary, so the number of # supported systems has been pared down to a minimum. LDDL_FLAGS="-shared" LD_RUN_PATH="" SHLIB_LD="${CC}" EXTRA_LIB_SPECS="" case $target in *-darwin*) SHDLIB_EXT=".dylib" SHLIB_LIB_SPECS="${LIB_SPECS}" if test "${xc_with_gnu_ld}" = "yes" ; then LDDL_FLAGS="-dynamiclib -bind_at_load" else LDDL_FLAGS="-single_module -dynamiclib -flat_namespace" LDDL_FLAGS="${LDDL_FLAGS} -undefined suppress -noprebind" SHLIB_CFLAGS="-I/sw/include -fno-common" fi ;; *cygwin*) AC_DEFINE(CYGWIN) SHDLIB_EXT=".dll.a" LDDL_FLAGS="-shared -Wl,--enable-auto-image-base -Wl,-rpath,${loader_run_path}" SHLIB_LIB_SPECS="${LIB_SPECS}" ;; *-linux*) SHLIB_CFLAGS="-fPIC" LDDL_FLAGS='-shared -Wl,-soname,$@' LD_RUN_PATH="-Wl,-rpath,${loader_run_path}" EXTRA_LIB_SPECS="-ldl" case $target in x86_64-*) # AMD 64-bit archictecture # Add -fPIC to standard compile switch CFLAGS="${CFLAGS} -fPIC" ;; esac ;; *-netbsd*|*-freebsd*|*-openbsd*) # Not available on all versions: check for include file. AC_CHECK_HEADER(dlfcn.h, test_ok=yes, test_ok=no) if test "$test_ok" = yes; then SHLIB_CFLAGS="-fpic" SHLIB_LD="ld" LDDL_FLAGS="-shared" fi ;; esac if test "$GCC" = "yes" ; then CFLAGS="-fPIC ${CFLAGS}" fi else # Rely on shared lib arguments in tclConfig.sh SHLIB_LD="${TCL_SHLIB_LD}" EXTRA_LIB_FLAGS="" LDDL_FLAGS="${TCL_LD_FLAGS}" LD_RUN_PATH="" case $target in *-linux*) LD_RUN_PATH="-Wl,-rpath,${loader_run_path}" ;; esac fi # If we're running gcc, then set SHLIB_CFLAGS flags for compiling # shared libraries for gcc, instead of those of the vendor's # compiler. if test "$GCC" = "yes" ; then if test "x${TCL_SHLIB_CFLAGS}" = "x" ; then SHLIB_CFLAGS="-fPIC ${SHLIB_CFLAGS}" else SHLIB_CFLAGS="${TCL_SHLIB_CFLAGS} ${SHLIB_CFLAGS}" fi fi CFLAGS="${CFLAGS} ${SHLIB_CFLAGS}" if test "${xc_with_gnu_ld}" = "yes" ; then LDDL_FLAGS="${LDDL_FLAGS} -Wl,--version-script=symbol.map" fi AC_SUBST(SHDLIB_EXT) AC_SUBST(SHLIB_LD) AC_SUBST(LDDL_FLAGS) AC_SUBST(SHLIB_LIB_SPECS) AC_SUBST(EXTRA_LIB_SPECS) AC_SUBST(LD_RUN_PATH) AC_SUBST(LDFLAGS) AC_SUBST(INC_SPECS) AC_SUBST(LIB_SPECS) AC_SUBST(TCL_LIB_DIR) AC_SUBST(WISH_EXE) fi dnl Disable the ASG (automatic schematic generation) package. Disabled by default. AC_ARG_ENABLE(asg, [ --enable-asg enable support for Automatic Schematic Generation], [ AC_DEFINE(ASG) AC_DEFINE(CONFIGURED) SUBDIRS="asg spiceparser" dnl Object files to link into the final executable or shared object dnl These must be in the correct order! SUBLIB="asg/libasg.a spiceparser/libspiceparser.a" ],) dnl Disable LGF (analog/diglog) file support. Enabled by default. AC_ARG_ENABLE(lgf, [ --disable-lgf disable support for reading Caltech tools analog simulator .lgf files], , [ HAVE_LGF=LGF AC_DEFINE(LGF) ]) dnl Disable fix for input focus on some window managers. Enabled by default. AC_ARG_ENABLE(focus-fix, [ --disable-focus-fix disable focus fix for some window managers], , [ AC_DEFINE(INPUT_FOCUS) ]) dnl Path to Ghostscript AC_ARG_WITH(gs, [ --with-gs=DIR path to ghostscript], [ if test -f "$withval"; then GS_EXEC=$withval else GS_EXEC=gs fi ], [ AC_CHECK_PROG(GS_EXEC, gs, , gs)]) AC_DEFINE_UNQUOTED(GS_EXEC, "$GS_EXEC") dnl Path to ngspice AC_ARG_WITH(ngspice, [ --with-ngspice=DIR path to ngspice], [ if test -f "$withval"; then SPICE_EXEC=$withval else SPICE_EXEC=ngspice fi ], [ AC_CHECK_PROG(SPICE_EXEC, ngspice, , ngspice)]) AC_DEFINE_UNQUOTED(SPICE_EXEC, "$SPICE_EXEC") dnl Path to Python xc_with_python="" PYTHON= AC_ARG_WITH(python, [ --with-python=DIR path to python interpreter], xc_with_python=$withval) if test "x$xc_with_tcl" != "x" ; then xc_with_python="" elif test "$xc_with_python" = "no" ; then xc_with_python="" elif test "$xc_with_python" = "yes" ; then AC_PATH_PROG(PYTHON,python) elif test "x$xc_with_python" != x; then test -f "$xc_with_python" && PYTHON=$xc_with_python fi if test "x$PYTHON" != x; then _py_version=`$PYTHON -c 'import sys; print sys.version[[0:3]]'` _py_prefix=`$PYTHON -c 'import sys; print sys.prefix'` _py_exec_prefix=`$PYTHON -c 'import sys; print sys.exec_prefix'` _py_include="$_py_prefix/include/python$_py_version" _py_lib="$_py_exec_prefix/lib/python$_py_version/config" _py_makefile="$_py_lib/Makefile" if test $_py_version = 1.5; then echo echo "*** WARNING:" echo "*** Python version 1.5 detected: This version of Python has a known fatal" echo "*** bug. Disabling Python interface. If you want the embedded Python" echo "*** interface, you will need to get an updated version of Python." echo PYTHON="" fi fi if test "x$PYTHON" != x; then if test -f $_py_makefile; then _py_libs=`sed -n -e 's/^LIBS=\(.*\)/\1/p' $_py_makefile` _py_libm=`sed -n -e 's/^LIBM=\(.*\)/\1/p' $_py_makefile` else _py_libs='-lpthread -ldl -lutil -ldb' _py_libm='-lm' fi # Now that we think we know where the python include and # library files are, make sure we can build a small # program against them. _save_CPPFLAGS=${CPPFLAGS} _save_LDFLAGS=${LDFLAGS} _save_LIBS=${LIBS} CPPFLAGS="$CPPFLAGS -I$_py_include" LDFLAGS="$LDFLAGS -L$_py_lib" case "$target_os" in *cygwin*) PYLIB="-lpython$_py_version" LIBS="$PYLIB.dll $LIBS $X_PRE_LIBS $_py_libs" ;; *) LIBS="$LIBS -lpython$_py_version $_py_libs $_py_libm" ;; esac HAVE_PYTHON=0 AC_CHECK_HEADER(Python.h,[ AC_MSG_CHECKING([for Py_Initialize in -lpython$_py_version]) AC_TRY_LINK([#include "Python.h"],[Py_Initialize();],[ HAVE_PYTHON=1 INTERPRETER=PYTHON AC_MSG_RESULT(yes) AC_DEFINE(HAVE_PYTHON)], AC_MSG_RESULT(no))]) if test "x$HAVE_PYTHON" = x0; then CPPFLAGS=$_save_CPPFLAGS LDFLAGS=$_save_LDFLAGS LIBS=$_save_LIBS PYTHON="" fi fi if test "x$PYTHON" != x; then STARTUP_FILE="xcstartup.py" INTERP_PATH="python" WRAPPER_SCRIPT="" SUBDIRS="${SUBDIRS} Xw" SUBLIB="${SUBLIB} Xw/libxcXw.a" XCIRCUIT_TARGET="xcircuit" elif test "x$xc_with_tcl" != "x" ; then INTERPRETER=TCL STARTUP_FILE="xcstartup.tcl" INTERP_PATH="tcl" WRAPPER_SCRIPT="wrapper.tcl" AC_DEFINE(TCL_WRAPPER) XCIRCUIT_TARGET="tcl" ALL_TARGET="all-recursive" INSTALL_TARGET="install-recursive" else STARTUP_FILE="startup.script" INTERP_PATH="." WRAPPER_SCRIPT="" SUBDIRS="${SUBDIRS} Xw" SUBLIB="${SUBLIB} Xw/libxcXw.a" XCIRCUIT_TARGET="xcircuit" fi # Add -lm last to LDFLAGS, or Tcl/Tk's addition of -lieee can cause # an error. EXTRA_LIB_SPECS="$EXTRA_LIB_SPECS -lm" dnl Memory debugging: dnl The non-Tcl version uses (links to) ElectricFence. dnl Tcl must use the Tcl memory debugger. dnl Caveats: dnl We should try to ensure that ElectricFence is available, or that dnl the Tcl version used has memory debugging compiled in AC_ARG_ENABLE(memdebug, [ --enable-memdebug enable memory debugging], [ if test "x$xc_with_tcl" = "x" ; then LIBS="${LIBS} -lefence" else AC_DEFINE(TCL_MEM_DEBUG) fi ],) AC_SUBST(SUBDIRS) AC_SUBST(SUBLIB) AC_SUBST(STDLIBS) AC_SUBST(GS_LIBS) AC_SUBST(STARTUP_FILE) AC_SUBST(INTERP_PATH) AC_SUBST(WRAPPER_SCRIPT) AC_SUBST(XCIRCUIT_TARGET) AC_SUBST(CFLAGS) AC_SUBST(LD) AC_SUBST(LDFLAGS) AC_SUBST(INTERPRETER) AC_SUBST(HAVE_LGF) AC_SUBST(ALL_TARGET) AC_SUBST(INSTALL_TARGET) dnl Automake requires these AC_SUBST(ACLOCAL) AC_SUBST(AUTOCONF) AC_SUBST(AUTOMAKE) AC_SUBST(AUTOHEADER) AC_OUTPUT(Makefile Xw/Makefile asg/Makefile spiceparser/Makefile) echo "" echo "Configuration results:" echo "----------------------------------------------------" echo "" if test "x$xc_with_tcl" == "x" ; then if test "x$PYTHON" != x; then echo "Using Python interface (not recommended)" else echo "No Tcl/Tk, using standard Xlib/Xt interface." echo "If that is not what you wanted, then make sure" echo "you have Tcl/Tk development packages installed?" fi else echo "Using Tcl/Tk interface" fi echo "" if test "x$xc_with_cairo" == "x" ; then echo "No Cairo graphics." echo "If that is not what you wanted, then make sure" echo "you have libcairo and fontconfig installed." echo "Try installing package cairo-devel." else echo "Using Cairo graphics" fi echo "" echo "CFLAGS=${CFLAGS}" xcircuit-3.9.73/symbol.map0000664000175000001440000000007112335667423014176 0ustar timusersXCIRCUIT_3.8 { global: Xcircuit_Init; local: *; }; xcircuit-3.9.73/schema.c0000664000175000001440000010643712707035113013577 0ustar timusers/*-------------------------------------------------------------------------*/ /* schema.c --- xcircuit routines specific to the schematic capture system */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* written by Tim Edwards, 10/13/97 */ /*-------------------------------------------------------------------------*/ #include #include #include #ifndef XC_WIN32 #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #include "Xw/MenuBtn.h" #endif #endif /*-------------------------------------------------------------------------*/ /* Local includes */ /*-------------------------------------------------------------------------*/ #include "xcircuit.h" #include "colordefs.h" #include "menudep.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*------------------------------------------------------------------------*/ /* External Variable definitions */ /*------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #endif extern Globaldata xobjs; extern XCWindowData *areawin; extern xcWidget menuwidgets[]; extern xcWidget netbutton; extern char _STR[150]; extern char _STR2[250]; extern colorindex *colorlist; /*-------------------------------------------------------------------------*/ extern xcWidget wsymb, wschema; /*--------------------------------------------------------*/ /* Menu calls (procedure wrappers) */ /*--------------------------------------------------------*/ void callwritenet(xcWidget w, pointertype mode, caddr_t calldata) { switch(mode) { case 0: writenet(topobject, "spice", "spc"); break; case 1: writenet(topobject, "flatsim", "sim"); break; case 2: writenet(topobject, "pcb", "pcbnet"); break; case 3: writenet(topobject, "flatspice", "fspc"); break; case 4: /* Auto-numbering: no output generated */ writenet(topobject, "indexpcb", ""); break; } } /*----------------------------------------------------------------------*/ /* Find the page object and instance with the indicated name. */ /*----------------------------------------------------------------------*/ objectptr NameToPageObject(char *objname, objinstptr *ret_inst, int *ret_page) { int i; for (i = 0; i < xobjs.pages; i++) { if (xobjs.pagelist[i]->pageinst == NULL) continue; if (!strcmp(objname, xobjs.pagelist[i]->pageinst->thisobject->name)) { if (ret_inst) *ret_inst = xobjs.pagelist[i]->pageinst; if (ret_page) *ret_page = i; return xobjs.pagelist[i]->pageinst->thisobject; } } return NULL; } /*--------------------------------------------------------------*/ /* Get the canonical name of an object (the part without the */ /* technology prefix, if any). */ /*--------------------------------------------------------------*/ char *GetCanonicalName(char *fullname) { char *canonname = strstr(fullname, "::"); if (canonname == NULL) return fullname; return canonname + 2; } /*----------------------------------------------------------------------*/ /* Find the object with the indicated name. */ /* */ /* WARNING: If no library technology is given, XCircuit will return */ /* the first object with the name "objname". If there are multiple */ /* objects of the same name in different technologies, then the one */ /* returned may not be the one expected! */ /*----------------------------------------------------------------------*/ objectptr NameToObject(char *objname, objinstptr *ret_inst, Boolean dopages) { int i; liblistptr spec; Boolean notech = FALSE; char *techptr; if (strstr(objname, "::") == NULL) notech = TRUE; for (i = 0; i < xobjs.numlibs; i++) { for (spec = xobjs.userlibs[i].instlist; spec != NULL; spec = spec->next) { techptr = spec->thisinst->thisobject->name; if (notech) techptr = GetCanonicalName(spec->thisinst->thisobject->name); if (!strcmp(objname, techptr)) { if (ret_inst) *ret_inst = spec->thisinst; return spec->thisinst->thisobject; } } } if (dopages) return NameToPageObject(objname, ret_inst, NULL); else return NULL; } /*------------------------------------------------------------------------*/ /* Ensure that a page name is unique (required for schematic association) */ /*------------------------------------------------------------------------*/ int checkpagename(objectptr thispageobj) { int p, thispage; /* char *objname = thispageobj->name; (jdk) */ Boolean changed; Boolean update = False; char *clnptr = NULL; int n; /* Check for ":n" suffix and prepare for possible update */ clnptr = strrchr(thispageobj->name, ':'); if (clnptr != NULL) if (sscanf(clnptr + 1, "%d", &n) != 1) clnptr = NULL; /* Find the page number of this page object */ for (p = 0; p < xobjs.pages; p++) { if (xobjs.pagelist[p]->pageinst != NULL) { if (xobjs.pagelist[p]->pageinst->thisobject == thispageobj) { thispage = p; break; } } } if (p == xobjs.pages) { Fprintf(stderr, "Error: Object is not a page object!\n"); return 0; } /* Look for any other pages with the same name */ do { changed = False; for (p = 0; p < xobjs.pages; p++) { if (p == thispage) continue; if (xobjs.pagelist[p]->pageinst != NULL) { if (!filecmp(xobjs.pagelist[p]->pageinst->thisobject->name, thispageobj->name)) { /* append ":2" to name or update suffix to ensure uniqueness */ if (clnptr == NULL) sprintf(thispageobj->name, "%s:2", thispageobj->name); else sprintf(clnptr + 1, "%d", n + 1); changed = True; update = True; break; } } } } while (changed); if (update) { renamepage(thispage); return -1; } return 0; } /*--------------------------------------*/ /* Find connectivity of a selection */ /*--------------------------------------*/ void startconnect(xcWidget button, caddr_t clientdata, caddr_t calldata) { if (areawin->selects > 0) connectivity(button, clientdata, calldata); } /*----------------------------------------------------------------------*/ /* connectivity(): Find electrical connections into a node. */ /* (does recursive search on object heirarchy) */ /*----------------------------------------------------------------------*/ void connectivity(xcWidget button, caddr_t clientdata, caddr_t calldata) { short *gsel = NULL; selection *rselect = NULL, *nextselect; genericptr ggen = NULL; Genericlist *netlist = NULL; int depth, lbus, netid, subnetid; buslist *sbus; pushlistptr seltop, nextptr; objectptr nettop, pschem; /* thisobj, (jdk) */ char *snew; stringpart *ppin; /* erase any existing highlighted network */ highlightnetlist(topobject, areawin->topinstance, 0); seltop = (pushlistptr)malloc(sizeof(pushlist)); seltop->thisinst = areawin->topinstance; seltop->next = NULL; /* pick the first selection that looks like a valid network part */ if (areawin->selects > 0) { for (gsel = areawin->selectlist; gsel < areawin->selectlist + areawin->selects; gsel++) { ggen = *(topobject->plist + *gsel); if (SELECTTYPE(gsel) == LABEL) { labelptr glab = SELTOLABEL(gsel); if (glab->pin == LOCAL || glab->pin == GLOBAL) break; } else if (SELECTTYPE(gsel) == POLYGON) { polyptr gpoly = SELTOPOLY(gsel); if (!nonnetwork(gpoly)) break; } } } if ((areawin->selects == 0) || (gsel == areawin->selectlist + areawin->selects)) { rselect = recurselect(POLYGON | LABEL | OBJINST, MODE_CONNECT, &seltop); /* Should look at the top scorer, when scoring has been implemented */ if (rselect && (rselect->selects > 0)) { for (nextselect = rselect; (nextselect->next != NULL) && (nextselect->selects > 0); nextselect = nextselect->next); ggen = *(nextselect->thisinst->thisobject->plist + *(nextselect->selectlist)); while (rselect != NULL) { nextselect = rselect->next; free(rselect->selectlist); free(rselect); rselect = nextselect; } } } /* Determine the net and the topmost object in which that */ /* net appears. Then build the transformation matrix down */ /* to that object. highlightnet() should end by popping the */ /* entire matrix stack. */ if (ggen != NULL) { if (checkvalid(topobject) == -1) { destroynets(topobject); createnets(areawin->topinstance, FALSE); } if ((netlist = is_resolved(&ggen, seltop, &nettop)) != NULL) { depth = pushnetwork(seltop, nettop); /* Fprintf(stdout, ">> Pushed network %d levels deep\n", depth); */ nextptr = seltop; while (nextptr->thisinst->thisobject != nettop) nextptr = nextptr->next; nextptr->thisinst->thisobject->highlight.netlist = netlist; nextptr->thisinst->thisobject->highlight.thisinst = nextptr->thisinst; highlightnetlist(nettop, nextptr->thisinst, 1); /* pop the matrix stack */ while (depth-- > 0) UPopCTM(); /* get the primary schematic */ pschem = (nettop->schemtype == SECONDARY) ? nettop->symschem : nettop; /* print the net name to the message window */ if (netlist->subnets == 0) { ppin = nettopin(netlist->net.id, pschem, NULL); snew = textprint(ppin, areawin->topinstance); sprintf(_STR2, "Network is \"%s\" in %s", snew, nettop->name); free(snew); } else { char *sptr; sprintf(_STR2, "Network(s): "); sptr = _STR2 + strlen(_STR2); for (lbus = 0; lbus < netlist->subnets; lbus++) { sbus = netlist->net.list + lbus; netid = sbus->netid; subnetid = sbus->subnetid; ppin = nettopin(netid, pschem, NULL); snew = textprintsubnet(ppin, areawin->topinstance, subnetid); sprintf(sptr, "%s ", snew); sptr += strlen(snew) + 1; free(snew); } sprintf(sptr, "in %s", nettop->name); } Wprintf("%s", _STR2); #ifdef TCL_WRAPPER Tcl_SetObjResult(xcinterp, Tcl_NewStringObj(snew, strlen(snew))); #endif } else Wprintf("Selected element is not part of a valid network."); } else { Wprintf("No networks found near the cursor position"); netid = 0; } /* free up linked list */ while (seltop != NULL) { nextptr = seltop->next; free(seltop); seltop = nextptr; } } /*--------------------------------------------------------------*/ /* Set object type to FUNDAMENTAL if it contains one or more */ /* info labels and is not associated with a schematic/symbol. */ /* */ /* Return TRUE if the object has electrically relevant */ /* networks, FALSE if not. */ /*--------------------------------------------------------------*/ Boolean setobjecttype(objectptr cschem) { genericptr *cgen; labelptr clab; /* If networks are specifically prohibited. . . */ if (cschem->schemtype == NONETWORK) return False; /* Apply only to schematic objects */ if ((cschem->schemtype != PRIMARY) && (cschem->schemtype != SECONDARY)) { if (cschem->schemtype == FUNDAMENTAL) cschem->schemtype = SYMBOL; if (cschem->symschem == NULL) { for (cgen = cschem->plist; cgen < cschem->plist + cschem->parts; cgen++) { if (IS_LABEL(*cgen)) { clab = TOLABEL(cgen); if (clab->pin == INFO) { cschem->schemtype = FUNDAMENTAL; break; } } } } } if ((cschem->symschem != NULL) && (cschem->schemtype == SYMBOL)) return False; else if ((cschem->schemtype == TRIVIAL) || (cschem->schemtype == FUNDAMENTAL)) return False; return True; } /*------------------------------------------------------*/ /* Pin conversion subroutine for dopintype() */ /*------------------------------------------------------*/ void pinconvert(labelptr thislab, pointertype mode) { thislab->pin = mode; switch (mode) { case NORMAL: thislab->color = DEFAULTCOLOR; /* nominally black */ break; case GLOBAL: thislab->color = GLOBALPINCOLOR; /* orange */ break; case LOCAL: thislab->color = LOCALPINCOLOR; /* red */ break; case INFO: thislab->color = INFOLABELCOLOR; /* green */ break; } } /*---------------------------------------------------------*/ /* Change a label's type to NORMAL, GLOBAL, INFO, or LOCAL */ /*---------------------------------------------------------*/ void dopintype(xcWidget w, pointertype mode, caddr_t calldata) { short *gsel; char typestr[40]; short savetype = -1; if (areawin->selects == 0) { Wprintf("Must first select a label to change type"); return; } strcpy(typestr, "Changed label to "); switch(mode) { case NORMAL: strcat(typestr, "normal label"); break; case GLOBAL: strcat(typestr, "global pin"); break; case LOCAL: strcat(typestr, "local pin"); break; case INFO: strcat(typestr, "info-label"); break; } for (gsel = areawin->selectlist; gsel < areawin->selectlist + areawin->selects; gsel++) if (SELECTTYPE(gsel) == LABEL) { labelptr glab = SELTOLABEL(gsel); savetype = glab->pin; pinconvert(glab, mode); setobjecttype(topobject); } if (savetype >= 0) { unselect_all(); drawarea(NULL, NULL, NULL); Wprintf("%s", typestr); } else { Wprintf("No labels selected."); } } /*----------------------------------------------------------*/ /* Set colors on the symbol/schematic buttons appropriately */ /*----------------------------------------------------------*/ #ifdef TCL_WRAPPER void setsymschem() { XcInternalTagCall(xcinterp, 1, "schematic"); } #else void setsymschem() { Arg aargs[2], bargs[2]; /* Set menu items appropriately for this object */ if (topobject->symschem != NULL) { if (topobject->schemtype == PRIMARY || topobject->schemtype == SECONDARY) { XtSetArg(aargs[0], XtNlabel, "Go To Symbol"); XtSetArg(bargs[0], XtNlabel, "Disassociate Symbol"); } else { XtSetArg(aargs[0], XtNlabel, "Go To Schematic"); XtSetArg(bargs[0], XtNlabel, "Disassociate Schematic"); } } else { if (topobject->schemtype == PRIMARY || topobject->schemtype == SECONDARY) { XtSetArg(aargs[0], XtNlabel, "Make Matching Symbol"); XtSetArg(bargs[0], XtNlabel, "Associate with Symbol"); } else { XtSetArg(aargs[0], XtNlabel, "Make Matching Schematic"); XtSetArg(bargs[0], XtNlabel, "Associate with Schematic"); } } XtSetValues(NetlistMakeMatchingSymbolButton, aargs, 1); XtSetValues(NetlistAssociatewithSymbolButton, bargs, 1); /* Set colors on the symbol and schematic buttons */ if (topobject->schemtype == PRIMARY || topobject->schemtype == SECONDARY) { if (topobject->symschem == NULL) { XtSetArg(aargs[0], XtNbackground, colorlist[OFFBUTTONCOLOR].color.pixel); XtSetArg(aargs[1], XtNforeground, colorlist[OFFBUTTONCOLOR].color.pixel); } else { XtSetArg(aargs[0], XtNbackground, colorlist[BACKGROUND].color.pixel); XtSetArg(aargs[1], XtNforeground, colorlist[FOREGROUND].color.pixel); } XtSetArg(bargs[1], XtNforeground, colorlist[FOREGROUND].color.pixel); XtSetArg(bargs[0], XtNbackground, colorlist[SNAPCOLOR].color.pixel); } else { if (topobject->symschem != NULL) { XtSetArg(bargs[0], XtNbackground, colorlist[BACKGROUND].color.pixel); XtSetArg(bargs[1], XtNforeground, colorlist[FOREGROUND].color.pixel); } else { XtSetArg(bargs[0], XtNbackground, colorlist[OFFBUTTONCOLOR].color.pixel); XtSetArg(bargs[1], XtNforeground, colorlist[OFFBUTTONCOLOR].color.pixel); } XtSetArg(aargs[1], XtNforeground, colorlist[FOREGROUND].color.pixel); if (topobject->schemtype == FUNDAMENTAL) XtSetArg(aargs[0], XtNbackground, colorlist[AUXCOLOR].color.pixel); else if (topobject->schemtype == TRIVIAL || topobject->symschem != NULL) XtSetArg(aargs[0], XtNbackground, colorlist[SNAPCOLOR].color.pixel); else { XtSetArg(aargs[0], XtNbackground, colorlist[OFFBUTTONCOLOR].color.pixel); XtSetArg(aargs[1], XtNforeground, colorlist[OFFBUTTONCOLOR].color.pixel); XtSetArg(bargs[0], XtNbackground, colorlist[BBOXCOLOR].color.pixel); XtSetArg(bargs[1], XtNforeground, colorlist[FOREGROUND].color.pixel); } } XtSetValues(wsymb, aargs, 2); XtSetValues(wschema, bargs, 2); } #endif /*--------------------------------------------------------*/ /* Find the page number for an object */ /*--------------------------------------------------------*/ int findpageobj(objectptr pobj) { int tpage; for (tpage = 0; tpage < xobjs.pages; tpage++) if (xobjs.pagelist[tpage]->pageinst != NULL) if (xobjs.pagelist[tpage]->pageinst->thisobject == pobj) return tpage; return -1; } /*------------------------------------------------------*/ /* Enumerate all of the pages which are subschematics */ /* of "toppage" and return the result in the list */ /* passed as a pointer. The list is assumed to be */ /* already allocated, and equal to the total number of */ /* pages (xobjs.pages). */ /* */ /* Avoid possible recursion problems by limiting the */ /* number of recursion levels. Presumably no circuit */ /* would have more than several hundred hierarchical */ /* levels. */ /* */ /* If "dolinks" is TRUE, ennumerate and follow pages */ /* that are descendents of the top level when the */ /* calling symbol instance has a "link" parameter and */ /* that parameter points to the same filename as the */ /* page. This indicates a multiple-file project; the */ /* pages keep separate records of changes, and are */ /* saved independently, and loaded through the link */ /* dependency method. */ /*------------------------------------------------------*/ int findsubschems(int toppage, objectptr cschem, int level, short *pagelist, Boolean dolinks) { genericptr *cgen; if (level == HIERARCHY_LIMIT) return -1; /* sanity check */ for (cgen = cschem->plist; cgen < cschem->plist + cschem->parts; cgen++) { if (IS_OBJINST(*cgen)) { objinstptr cinst = TOOBJINST(cgen); objectptr cobj = cinst->thisobject; if (cobj->symschem != NULL) { int pageno = findpageobj(cobj->symschem); if ((pageno >= 0) && (pageno < xobjs.pages)) { /* Look for a "link" parameter */ if (dolinks == FALSE) { oparamptr ops; ops = find_param(cinst, "link"); if ((ops != NULL) && (ops->type == XC_STRING)) { char *filename = textprint(ops->parameter.string, cinst); if (!strcmp(filename, "%n") || !strcmp(filename, "%N") || !strcmp(filename, xobjs.pagelist[pageno]->filename)) { free(filename); continue; } free(filename); } } /* Add this page to the list */ pagelist[pageno]++; } /* A symbol on its own schematic page is allowed for clarity */ /* of the schematic, but this cannot be a functional part of */ /* the schematic circuit! */ if (cobj->symschem != cschem) { if (findsubschems(toppage, cobj->symschem, level + 1, pagelist, dolinks) == -1) return -1; } } else if (cobj->schemtype != FUNDAMENTAL && cobj->schemtype != TRIVIAL) { /* Check symbols acting as their own schematics */ if (findsubschems(toppage, cobj, level + 1, pagelist, dolinks) == -1) return -1; } } } return 0; } /*------------------------------------------------------*/ /* Recursively find all sub-circuits associated with */ /* the top-level circuit. For each schematic that does */ /* not have a valid filename, set the filename equal to */ /* the filename of the "toppage" schematic. */ /*------------------------------------------------------*/ void collectsubschems(int toppage) { int loctop; objectptr cschem; short *pagelist, pageno; Pagedata *curpage; loctop = toppage; curpage = xobjs.pagelist[loctop]; if (curpage->pageinst == NULL) return; cschem = curpage->pageinst->thisobject; if (cschem->schemtype == SECONDARY) { cschem = cschem->symschem; loctop = is_page(cschem); if (loctop < 0) return; curpage = xobjs.pagelist[loctop]; } pagelist = (short *)malloc(xobjs.pages * sizeof(short)); for (pageno = 0; pageno < xobjs.pages; pageno++) pagelist[pageno] = 0; findsubschems(loctop, cschem, 0, pagelist, FALSE); for (pageno = 0; pageno < xobjs.pages; pageno++) { if (pageno == loctop) continue; if (pagelist[pageno] > 0) { if (xobjs.pagelist[pageno]->filename != NULL) free(xobjs.pagelist[pageno]->filename); xobjs.pagelist[pageno]->filename = strdup(xobjs.pagelist[loctop]->filename); } } free((char *)pagelist); } /*------------------------------------------------------*/ /* compare_qualified(str1, str2) --- */ /* */ /* String comparison for technology-qualified */ /* names. str2" must be a fully-qualified name. */ /* "str1" may be qualified or unqualified. If */ /* unqualified, compare_qualified will return TRUE */ /* for any "str2" that matches the name part of */ /* the technology::name format. */ /* */ /* Return value: TRUE if match, FALSE if not. */ /*------------------------------------------------------*/ Boolean compare_qualified(char *str1, char *str2) { char *sptr1, *sptr2; Boolean qual1, qual2; sptr2 = strstr(str2, "::"); qual2 = (sptr2 == NULL) ? FALSE : TRUE; if (!qual2) return (!strcmp(str1, str2)); sptr1 = strstr(str1, "::"); qual1 = (sptr1 == NULL) ? FALSE : TRUE; if (qual1) return (!strcmp(str1, str2)); sptr2 += 2; return (!strcmp(str1, sptr2)); } /*-------------------------------------------------------*/ /* Check if top-level page is the same name as a library */ /* object; if so, connect it. */ /* Note that it is not an error not to find the matching */ /* symbol/schematic. "is_schematic" and "is_symbol" */ /* comments in the .ps file are complementary, so the */ /* first one encountered will always fail, and the other */ /* will succeed. */ /*-------------------------------------------------------*/ int checkschem(objectptr thisobj, char *cname) { objectptr *tlib; short i, j; if (thisobj->symschem != NULL) return 0; for (i = 0; i < xobjs.numlibs; i++) { for (j = 0; j < xobjs.userlibs[i].number; j++) { tlib = xobjs.userlibs[i].library + j; if (compare_qualified(cname, (*tlib)->name)) { thisobj->symschem = (*tlib); thisobj->schemtype = PRIMARY; (*tlib)->symschem = thisobj; (*tlib)->schemtype = SYMBOL; return 1; } } } return 0; } /*--------------------------------------------------------*/ /* Complement to the above routine: If a library object */ /* name is the same as a top-level page, connect them. */ /*--------------------------------------------------------*/ int checksym(objectptr symobj, char *cname) { short cpage; objectptr checkpage; if (symobj->symschem != NULL) return 0; for (cpage = 0; cpage < xobjs.pages; cpage++) { if (xobjs.pagelist[cpage]->pageinst != NULL) { checkpage = xobjs.pagelist[cpage]->pageinst->thisobject; if (compare_qualified(cname, checkpage->name)) { symobj->symschem = checkpage; symobj->schemtype = SYMBOL; checkpage->symschem = symobj; checkpage->schemtype = PRIMARY; return 1; } } } return 0; } /*----------------------------------------------------------------------*/ /* Find location of corresponding pin in symbol/schematic and change it */ /* to the text of the indicated label. */ /* */ /* Return the number of other pins changed. zero indicates that no */ /* corresponding pins were found, and therefore nothing was changed. */ /*----------------------------------------------------------------------*/ int changeotherpins(labelptr newlabel, stringpart *oldstring) { objectptr other = topobject->symschem; genericptr *tgen; labelptr tlab; int rval = 0; if (other == NULL) return rval; for (tgen = other->plist; tgen < other->plist + other->parts; tgen++) { if (IS_LABEL(*tgen)) { tlab = TOLABEL(tgen); if (tlab->pin != LOCAL) continue; if (!stringcomp(tlab->string, oldstring)) { if (newlabel != NULL) { free(tlab->string); tlab->string = stringcopy(newlabel->string); rval++; } } } } return rval; } /*----------------------------------------------------------------------*/ /* Xt wrapper for swapschem() */ /*----------------------------------------------------------------------*/ void xlib_swapschem(xcWidget w, pointertype mode, caddr_t calldata) { swapschem((int)mode, -1, NULL); } /*----------------------------------------------------------------------*/ /* Swap object schematic and symbol pages. */ /* allow_create = 0 disallows creation of a new schematic or symbol; */ /* i.e., if there is no corresponding schematic/symbol, nothing */ /* happens. */ /*----------------------------------------------------------------------*/ void swapschem(int allow_create, int libnum, char *fullname) { objectptr savepage = topobject; labelptr *pinlab; genericptr *plab; Boolean lflag; pushlistptr stacktop; short loclibnum = libnum; char *canonname; if (libnum == -1) loclibnum = USERLIB - LIBRARY; /* Create symbol or schematic, if allowed by allow_create */ if ((topobject->symschem == NULL) && (allow_create != 0) && (topobject->schemtype != SECONDARY)) { if (topobject->schemtype != PRIMARY) { int tpage; /* create a new page for the new schematic */ for (tpage = 0; tpage < xobjs.pages; tpage++) if (xobjs.pagelist[tpage]->pageinst == NULL) break; /* Push the current instance onto the push stack */ /* Change the page without destroying the pushlist */ push_stack(&areawin->stack, areawin->topinstance, NULL); stacktop = areawin->stack; areawin->stack = NULL; changepage(tpage); areawin->stack = stacktop; } else { objectptr *newobject; /* create a new library object for the new symbol */ xobjs.userlibs[loclibnum].library = (objectptr *) realloc(xobjs.userlibs[loclibnum].library, ++xobjs.userlibs[loclibnum].number * sizeof(objectptr)); newobject = xobjs.userlibs[loclibnum].library + xobjs.userlibs[loclibnum].number - 1; *newobject = (objectptr) malloc(sizeof(object)); initmem(*newobject); (*newobject)->schemtype = SYMBOL; (*newobject)->hidden = False; incr_changes(*newobject); if (eventmode == MOVE_MODE || eventmode == COPY_MODE) standard_element_delete(ERASE); else unselect_all(); /* Generate a library instance for this object and set the */ /* top instance to point to it. */ topobject->viewscale = areawin->vscale; topobject->pcorner = areawin->pcorner; push_stack(&areawin->stack, areawin->topinstance, NULL); areawin->topinstance = addtoinstlist(loclibnum, *newobject, FALSE); /* Generate the default bounding box for a size-zero object */ calcbbox(areawin->topinstance); } /* set links between the two objects */ savepage->symschem = topobject; topobject->symschem = savepage; /* Make the name of the new object equal to that of the old, */ /* except that symbols get the full name while schematics */ /* get the canonical name (without the technology prefix) */ if (fullname == NULL) canonname = GetCanonicalName(savepage->name); else { canonname = strstr(fullname, "::"); if ((canonname == NULL) || (topobject->schemtype != PRIMARY)) canonname = fullname; else canonname += 2; } strcpy(topobject->name, canonname); checkname(topobject); /* copy all pin labels into the new object */ for (plab = savepage->plist; plab < savepage->plist + savepage->parts; plab++) { if (IS_LABEL(*plab)) { genericptr *tgen; labelptr tlab, lpin = (labelptr)*plab; if (lpin->pin == LOCAL) { /* Only make one copy of each pin name */ lflag = False; for (tgen = topobject->plist; tgen < topobject->plist + topobject->parts; tgen++) { if (IS_LABEL(*tgen)) { tlab = TOLABEL(tgen); if (!stringcomp(tlab->string, lpin->string)) lflag = True; } } if (lflag == True) continue; NEW_LABEL(pinlab, topobject); (*pinlab)->pin = lpin->pin; (*pinlab)->color = lpin->color; (*pinlab)->rotation = 0.0; (*pinlab)->scale = 1.0; (*pinlab)->anchor = areawin->anchor; (*pinlab)->position.x = 0; (*pinlab)->position.y = topobject->parts * (TEXTHEIGHT + 10); (*pinlab)->passed = NULL; (*pinlab)->cycle = NULL; u2u_snap(&((*pinlab)->position)); (*pinlab)->string = stringcopy(lpin->string); incr_changes(topobject); } } } calcbbox(areawin->topinstance); /* Recreate the user library with the new symbol */ if (savepage->schemtype != SYMBOL) composelib(loclibnum + LIBRARY); } else if (topobject->symschem != NULL) { /* If symschem matches the last entry on the push stack, then we */ /* pop; otherwise, we push. */ if (areawin->stack && areawin->stack->thisinst->thisobject == topobject->symschem) { topobject->viewscale = areawin->vscale; topobject->pcorner = areawin->pcorner; areawin->topinstance = areawin->stack->thisinst; pop_stack(&areawin->stack); } else { int p; objinstptr syminst = NULL; liblistptr symlist; /* If symschem is a schematic, find the appropriate page */ for (p = 0; p < xobjs.pages; p++) { syminst = xobjs.pagelist[p]->pageinst; if (syminst != NULL) if (syminst->thisobject == topobject->symschem) break; } if (p == xobjs.pages) { /* If symschem is a symbol, and it wasn't on the push stack, */ /* get the library default symbol and go there. */ for (p = 0; p < xobjs.numlibs; p++) { for (symlist = xobjs.userlibs[p].instlist; symlist != NULL; symlist = symlist->next) { syminst = symlist->thisinst; if (syminst->thisobject == topobject->symschem && symlist->virtual == FALSE) break; } if (symlist != NULL) break; } if (p == xobjs.numlibs) { Fprintf(stderr, "swapschem(): BAD SYMSCHEM\n"); return; } } if (eventmode == MOVE_MODE || eventmode == COPY_MODE) delete_for_xfer(NORMAL, areawin->selectlist, areawin->selects); topobject->viewscale = areawin->vscale; topobject->pcorner = areawin->pcorner; push_stack(&areawin->stack, areawin->topinstance, NULL); areawin->topinstance = syminst; } } /* If there was no action, then there is nothing more to do. */ if (topobject == savepage) return; setpage(TRUE); transferselects(); refresh(NULL, NULL, NULL); setsymschem(); } #ifndef TCL_WRAPPER /*----------------------------------------------------------------------*/ /* Wrapper for swapschem() when generating a new symbol. */ /*----------------------------------------------------------------------*/ void makesymbol(xcWidget w, caddr_t calldata) { /* copy name from popup prompt buffer and check */ swapschem(1, -1, _STR2); } /*----------------------------------------------------------------------*/ /* Check name before doing a swap: If name begins with "Page", prompt */ /* for the object name, as you would when doing selectsave(). */ /*----------------------------------------------------------------------*/ void dobeforeswap(xcWidget w, caddr_t clientdata, caddr_t calldata) { buttonsave *popdata = (buttonsave *)malloc(sizeof(buttonsave)); /* Check for requirement to change the name before creating the symbol */ if ((topobject->symschem == NULL) && (topobject->schemtype == PRIMARY) && (strstr(topobject->name, "Page ") != NULL)) { /* Get a name for the new object */ eventmode = NORMAL_MODE; popdata->dataptr = NULL; popdata->button = NULL; /* indicates that no button is assc'd w/ the popup */ popupprompt(w, "Enter name for new object:", "\0", makesymbol, popdata, NULL); } else swapschem(1, -1, NULL); } #endif /* !TCL_WRAPPER */ /*------------------------------------------*/ /* Disassociate a symbol from its schematic */ /*------------------------------------------*/ void schemdisassoc() { if (eventmode != NORMAL) { Wprintf("Cannot disassociate schematics in this mode"); } else { topobject->symschem->symschem = NULL; topobject->symschem = NULL; setsymschem(); Wprintf("Schematic and symbol are now unlinked."); } } /*--------------------------------------------------------------*/ /* Schematic<-->symbol association. Determine whether action */ /* acts on a symbol or a schematic from context. */ /* mode == 0 associate only. */ /* mode == 1 determine action (associate or disassociate) from */ /* context (toggle) */ /*--------------------------------------------------------------*/ void startschemassoc(xcWidget w, pointertype mode, caddr_t calldata) { if ((topobject->symschem != NULL) && (mode == 1)) schemdisassoc(); else if ((topobject->symschem != NULL) && (mode == 0)) { Wprintf("Refusing to undo current association."); } else if (topobject->schemtype == SECONDARY) { Wprintf("Cannot attach symbol to a secondary schematic page."); } else { eventmode = ASSOC_MODE; if (topobject->schemtype == PRIMARY) { /* Find a symbol to associate */ startcatalog(w, LIBLIB, NULL); Wprintf("Select library page, then symbol to associate."); } else { /* Find a schematic (page) to associate */ startcatalog(w, PAGELIB, NULL); Wprintf("Select schematic page to associate."); } } } /*--------------------------------------------------------------*/ /* Callback procedures on the schematic/symbol buttons. */ /*--------------------------------------------------------------*/ Boolean schemassoc(objectptr schemobj, objectptr symbolobj) { if (schemobj->symschem != NULL || symbolobj->symschem != NULL) { Wprintf("Both objects must be disassociated first."); #if TCL_WRAPPER Tcl_SetResult(xcinterp, "Both objects must be disassociated first.", NULL); #endif return False; } else { schemobj->symschem = symbolobj; symbolobj->symschem = schemobj; if (symbolobj->schemtype == TRIVIAL) symbolobj->schemtype = SYMBOL; /* Schematic takes the name of its associated symbol, by default */ /* Don't copy any technology prefix. */ strcpy(schemobj->name, GetCanonicalName(symbolobj->name)); /* Ensure that schematic (page) name is unique */ while (checkpagename(schemobj) < 0); setsymschem(); /* Set buttons and menu items appropriately */ } return True; } /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/svg.c0000664000175000001440000010463212707035113013131 0ustar timusers/*----------------------------------------------------------------------*/ /* svg.c */ /* Copyright (c) 2009 Tim Edwards, Open Circuit Design */ /*----------------------------------------------------------------------*/ #include #include #include #include #ifndef XC_WIN32 #include #endif #include #include #include #ifndef XC_WIN32 #include #else #include #endif #ifndef _MSC_VER #include #include #endif #ifndef HAVE_VFORK #define vfork fork #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER #include #endif #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" void SVGDrawString(labelptr, int, objinstptr); /*----------------------------------------------------------------------*/ /* External Variable definitions */ /*----------------------------------------------------------------------*/ extern Display *dpy; extern Pixmap STIPPLE[8]; extern XCWindowData *areawin; extern Globaldata xobjs; extern colorindex *colorlist; extern int number_colors; extern fontinfo *fonts; extern short fontcount; /*----------------------------------------------------------------------*/ /* The output file is a global variable used by all routines. */ /*----------------------------------------------------------------------*/ FILE *svgf; /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ void svg_printcolor(int passcolor, char *prefix) { if ((passcolor < number_colors) && (passcolor != DEFAULTCOLOR)) { fprintf(svgf, "%s\"#%02x%02x%02x\" ", prefix, (colorlist[passcolor].color.red >> 8), (colorlist[passcolor].color.green >> 8), (colorlist[passcolor].color.blue >> 8)); } } /*----------------------------------------------------------------------*/ /* Since we can't do stipples in SVG, and since the whole stipple thing */ /* was only put in because we can't (easily) do transparency effects */ /* in X11, we convert stipples to transparency when the stipple is a */ /* mask, and do a color blend with white when the stipple is opaque. */ /* */ /* Blend amount is 1 (almost original color) to 7 (almost white) */ /*----------------------------------------------------------------------*/ void svg_blendcolor(int passcolor, char *prefix, int amount) { int i, bred, bgreen, bblue; if (passcolor != DEFAULTCOLOR) { for (i = 0; i < number_colors; i++) { if (colorlist[i].color.pixel == passcolor) break; } if (i < number_colors) { bred = colorlist[i].color.red >> 8; bgreen = colorlist[i].color.green >> 8; bblue = colorlist[i].color.blue >> 8; } } else { bred = bgreen = bblue = 0; } bred = ((bred * amount) + (255 * (8 - amount))) >> 3; bgreen = ((bgreen * amount) + (255 * (8 - amount))) >> 3; bblue = ((bblue * amount) + (255 * (8 - amount))) >> 3; fprintf(svgf, "%s\"#%02x%02x%02x\" ", prefix, bred, bgreen, bblue); } /*----------------------------------------------------------------------*/ /* Fill and/or draw a border around an element */ /*----------------------------------------------------------------------*/ void svg_stroke(int passcolor, short style, float width) { float tmpwidth; short minwidth, solidpart, shade; tmpwidth = UTopTransScale(xobjs.pagelist[areawin->page]->wirewidth * width); minwidth = max(1, (short)tmpwidth); if (style & FILLED || (!(style & FILLED) && style & OPAQUE)) { if ((style & FILLSOLID) == FILLSOLID) { svg_printcolor(passcolor, "fill="); } else if (!(style & FILLED)) { fprintf(svgf, "fill=\"white\" "); } else { shade = 1 + ((style & FILLSOLID) >> 5); if (style & OPAQUE) { svg_blendcolor(passcolor, "fill=", shade); } else { svg_printcolor(passcolor, "fill="); fprintf(svgf, "fill-opacity=\"%g\" ", (float)shade / 8); } } } else fprintf(svgf, "fill=\"none\" "); if (!(style & NOBORDER)) { /* set up dots or dashes */ if (style & DASHED) solidpart = 4 * minwidth; else if (style & DOTTED) solidpart = minwidth; if (style & (DASHED | DOTTED)) { fprintf(svgf, "style=\"stroke-dasharray:%d,%d\" ", solidpart, 4 * minwidth); fprintf(svgf, "stroke-width=\"%g\" ", tmpwidth); fprintf(svgf, "stroke-linecap=\"butt\" "); if (style & SQUARECAP) fprintf(svgf, "stroke-linejoin=\"miter\" "); else fprintf(svgf, "stroke-linejoin=\"bevel\" "); } else { fprintf(svgf, "stroke-width=\"%g\" ", tmpwidth); if (style & SQUARECAP) { fprintf(svgf, "stroke-linejoin=\"miter\" "); fprintf(svgf, "stroke-linecap=\"projecting\" "); } else { fprintf(svgf, "stroke-linejoin=\"bevel\" "); fprintf(svgf, "stroke-linecap=\"round\" "); } } svg_printcolor(passcolor, "stroke="); } else fprintf(svgf, "stroke=\"none\" "); fprintf(svgf, "/>\n"); } /*----------------------------------------------------------------------*/ /* Finish a path and fill and/or stroke */ /*----------------------------------------------------------------------*/ void svg_strokepath(int passcolor, short style, float width) { /* Finish the path, closing if necessary */ if (!(style & UNCLOSED)) fprintf(svgf, "z\" "); else fprintf(svgf, "\" "); svg_stroke(passcolor, style, width); } /*-------------------------------------------------------------------------*/ void SVGCreateImages(int page) { Imagedata *img; int i, x, y; short *glist; FILE *ppf; union { u_char b[4]; u_long i; } pixel; char *fname, outname[128], *pptr; #ifndef XC_WIN32 pid_t pid; #endif /* Check which images are used on this page */ glist = (short *)malloc(xobjs.images * sizeof(short)); for (i = 0; i < xobjs.images; i++) glist[i] = 0; count_graphics(xobjs.pagelist[page]->pageinst->thisobject, glist); for (i = 0; i < xobjs.images; i++) { if (glist[i] == 0) continue; img = xobjs.imagelist + i; /* Generate a PPM file, then convert it to PNG */ fname = tmpnam(NULL); ppf = fopen(fname, "w"); if (ppf != NULL) { int width, height; width = xcImageGetWidth(img->image); height = xcImageGetWidth(img->image); fprintf(ppf, "P6 %d %d 255\n", width, height); for (y = 0; y < height; y++) { for (x = 0; x < width; x++) { u_char r, g, b; xcImageGetPixel(img->image, x, y, &r, &g, &b); fwrite(&r, 1, 1, ppf); fwrite(&g, 1, 1, ppf); fwrite(&b, 1, 1, ppf); } } } fclose(ppf); /* Run "convert" to make this into a png file */ strcpy(outname, img->filename); if ((pptr = strrchr(outname, '.')) != NULL) strcpy(pptr, ".png"); else strcat(outname, ".png"); #ifndef XC_WIN32 if ((pid = vfork()) == 0) { execlp("convert", "convert", fname, outname, NULL); exit(0); /* not reached */ } waitpid(pid, NULL, 0); unlink(fname); #else _spawnl(_P_WAIT, GM_EXEC, GM_EXEC, "convert", fname, outname, NULL); _unlink(fname); #endif Fprintf(stdout, "Generated standalone PNG image file %s\n", outname); } free(glist); } /*-------------------------------------------------------------------------*/ void SVGDrawGraphic(graphicptr gp) { XPoint ppt, corner; Imagedata *img; int i; char outname[128], *pptr; float tscale; float rotation; int width = xcImageGetWidth(gp->source); int height = xcImageGetHeight(gp->source); for (i = 0; i < xobjs.images; i++) { img = xobjs.imagelist + i; if (img->image == gp->source) break; } if (i == xobjs.images) return; strcpy(outname, img->filename); if ((pptr = strrchr(outname, '.')) != NULL) strcpy(pptr, ".png"); else strcat(outname, ".png"); UPushCTM(); UPreMultCTM(DCTM, gp->position, gp->scale, gp->rotation); corner.x = -(width >> 1); corner.y = (height >> 1); UTransformbyCTM(DCTM, &corner, &ppt, 1); UPopCTM(); tscale = gp->scale * UTopScale(); rotation = gp->rotation + UTopRotation(); if (rotation >= 360.0) rotation -= 360.0; else if (rotation < 0.0) rotation += 360.0; fprintf(svgf, "\n", outname); fprintf(svgf, "\n"); } /*-------------------------------------------------------------------------*/ void SVGDrawSpline(splineptr thespline, int passcolor) { XPoint tmppoints[4]; UTransformbyCTM(DCTM, thespline->ctrl, tmppoints, 4); fprintf(svgf, "style, thespline->width); } /*-------------------------------------------------------------------------*/ void SVGDrawPolygon(polyptr thepoly, int passcolor) { int i; XPoint *tmppoints = (pointlist) malloc(thepoly->number * sizeof(XPoint)); UTransformbyCTM(DCTM, thepoly->points, tmppoints, thepoly->number); fprintf(svgf, "style & BBOX) fprintf(svgf, "visibility=\"hidden\" "); fprintf(svgf, "d=\"M%d,%d L", tmppoints[0].x, tmppoints[0].y); for (i = 1; i < thepoly->number; i++) { fprintf(svgf, "%d,%d ", tmppoints[i].x, tmppoints[i].y); } svg_strokepath(passcolor, thepoly->style, thepoly->width); free(tmppoints); } /*-------------------------------------------------------------------------*/ void SVGDrawArc(arcptr thearc, int passcolor) { XPoint endpoints[2]; int radius[2]; int tarc; radius[0] = UTopTransScale(thearc->radius); radius[1] = UTopTransScale(thearc->yaxis); tarc = (thearc->angle2 - thearc->angle1); if (tarc == 360) { UTransformbyCTM(DCTM, &(thearc->position), endpoints, 1); fprintf(svgf, "style, thearc->width); } else { UfTransformbyCTM(DCTM, thearc->points, endpoints, 1); UfTransformbyCTM(DCTM, thearc->points + thearc->number - 1, endpoints + 1, 1); /* When any arc is flipped, the direction of travel reverses. */ fprintf(svgf, " 180) ? 1 : 0), (((DCTM->a * DCTM->e) >= 0) ? 1 : 0), endpoints[1].x, endpoints[1].y); svg_strokepath(passcolor, thearc->style, thearc->width); } } /*-------------------------------------------------------------------------*/ void SVGDrawPath(pathptr thepath, int passcolor) { XPoint *tmppoints = (pointlist) malloc(sizeof(XPoint)); genericptr *genpath; polyptr thepoly; splineptr thespline; int i, firstpt = 1; fprintf(svgf, "plist; genpath < thepath->plist + thepath->parts; genpath++) { switch(ELEMENTTYPE(*genpath)) { case POLYGON: thepoly = TOPOLY(genpath); tmppoints = (pointlist) realloc(tmppoints, thepoly->number * sizeof(XPoint)); UTransformbyCTM(DCTM, thepoly->points, tmppoints, thepoly->number); if (firstpt) { fprintf(svgf, "M%d,%d ", tmppoints[0].x, tmppoints[0].y); firstpt = 0; } fprintf(svgf, "L"); for (i = 1; i < thepoly->number; i++) { fprintf(svgf, "%d,%d ", tmppoints[i].x, tmppoints[i].y); } break; case SPLINE: thespline = TOSPLINE(genpath); tmppoints = (pointlist) realloc(tmppoints, 4 * sizeof(XPoint)); UTransformbyCTM(DCTM, thespline->ctrl, tmppoints, 4); if (firstpt) { fprintf(svgf, "M%d,%d ", tmppoints[0].x, tmppoints[0].y); firstpt = 0; } fprintf(svgf, "C%d,%d %d,%d %d,%d ", tmppoints[1].x, tmppoints[1].y, tmppoints[2].x, tmppoints[2].y, tmppoints[3].x, tmppoints[3].y); break; } } svg_strokepath(passcolor, thepath->style, thepath->width); free(tmppoints); } /*----------------------------------------------------------------------*/ /* Main recursive object instance drawing routine. */ /* context is the instance information passed down from above */ /* theinstance is the object instance to be drawn */ /* level is the level of recursion */ /* passcolor is the inherited color value passed to object */ /*----------------------------------------------------------------------*/ void SVGDrawObject(objinstptr theinstance, short level, int passcolor, pushlistptr *stack) { genericptr *areagen; float tmpwidth; int defaultcolor = passcolor; int curcolor = passcolor; int thispart; objectptr theobject = theinstance->thisobject; /* All parts are given in the coordinate system of the object, unless */ /* this is the top-level object, in which they will be interpreted as */ /* relative to the screen. */ UPushCTM(); if (stack) push_stack(stack, theinstance, NULL); if (level != 0) UPreMultCTM(DCTM, theinstance->position, theinstance->scale, theinstance->rotation); /* make parameter substitutions */ psubstitute(theinstance); /* draw all of the elements */ tmpwidth = UTopTransScale(xobjs.pagelist[areawin->page]->wirewidth); /* Here---set a default style using "g" like PostScript "gsave" */ /* stroke-width = tmpwidth, stroke = passcolor */ /* guard against plist being regenerated during a redraw by the */ /* expression parameter mechanism (should that be prohibited?) */ for (thispart = 0; thispart < theobject->parts; thispart++) { areagen = theobject->plist + thispart; if ((*areagen)->type & DRAW_HIDE) continue; if (defaultcolor != DOFORALL) { if ((*areagen)->color != curcolor) { if ((*areagen)->color == DEFAULTCOLOR) curcolor = defaultcolor; else curcolor = (*areagen)->color; } } switch(ELEMENTTYPE(*areagen)) { case(POLYGON): if (level == 0 || !((TOPOLY(areagen))->style & BBOX)) SVGDrawPolygon(TOPOLY(areagen), curcolor); break; case(SPLINE): SVGDrawSpline(TOSPLINE(areagen), curcolor); break; case(ARC): SVGDrawArc(TOARC(areagen), curcolor); break; case(PATH): SVGDrawPath(TOPATH(areagen), curcolor); break; case(GRAPHIC): SVGDrawGraphic(TOGRAPHIC(areagen)); break; case(OBJINST): if (areawin->editinplace && stack && (TOOBJINST(areagen) == areawin->topinstance)) { /* If stack matches areawin->stack, then don't */ /* draw because it would be redundant. */ pushlistptr alist = *stack, blist = areawin->stack; while (alist && blist) { if (alist->thisinst != blist->thisinst) break; alist = alist->next; blist = blist->next; } if ((!alist) || (!blist)) break; } SVGDrawObject(TOOBJINST(areagen), level + 1, curcolor, stack); break; case(LABEL): if (level == 0 || TOLABEL(areagen)->pin == False || (TOLABEL(areagen)->anchor & PINVISIBLE)) SVGDrawString(TOLABEL(areagen), curcolor, theinstance); break; } } UPopCTM(); if (stack) pop_stack(stack); } /*----------------------------------------------------------------------*/ #define addlinepoint(pointlist, numvals, xval, yval) \ { if (!numvals) pointlist = (XPoint *)malloc(sizeof(XPoint)); \ else pointlist = (XPoint *)realloc(pointlist, (numvals + 1) * sizeof(XPoint)); \ pointlist[numvals].x = xval; \ pointlist[numvals++].y = -yval; \ } /*----------------------------------------------------------------------*/ /* Draw an entire string, including parameter substitutions */ /*----------------------------------------------------------------------*/ void SVGDrawString(labelptr drawlabel, int passcolor, objinstptr localinst) { stringpart *strptr; char *textptr; short fstyle, ffont, tmpanchor, baseline, deltay; int pos, defaultcolor, curcolor, scolor; short oldx, oldfont, oldstyle; int olinerise = 4; float tmpscale = 1.0, natscale = 1.0; XPoint newpoint; TextExtents tmpext; TextLinesInfo tlinfo; short *tabstops = NULL; short tabno, numtabs = 0, group = 0; short linenum = 0; int open_text, open_span, open_decor; XPoint *decorations = NULL; short nvals = 0; char *symbol_html_encoding[] = { " ", "!", "∀", "#", "∃", "%", "&", "?", "(", ")", "*", "+", ",", "−", ".", "/", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ":", ";", "<", "=", ">", "?", "≅", "Α", "Β", "Χ", "Δ", "Ε", "Φ", "Γ", "Η", "Ι", "ϑ", "Κ", "Λ", "Μ", "Ν", "Ο", "Π", "Θ", "Ρ", "Σ", "Τ", "Υ", "σ", "Ω", "Ξ", "Ψ", "Ζ", "[", "∴", "]", "⊥", "_", "‾", "α", "β", "χ", "δ", "ε", "φ", "γ", "η", "ι", "φ", "κ", "λ", "μ", "ν", "ο", "π", "θ", "ρ", "σ", "τ", "υ", "ω", "ω", "ξ", "ψ", "ζ", "{", "|", "}", "~", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "ϒ", "′", "≤", "⁄", "∞", "ƒ", "♣", "♦", "♥", "♠", "↔", "←", "↑", "→", "↓", "°", "±", "″", "≥", "×", "∝", "∂", "•", "÷", "≠", "≡", "≅", "…" }; /* Standard encoding vector, in HTML, from character 161 to 255 */ u_int standard_html_encoding[] = { 161, 162, 163, 8725, 165, 131, 167, 164, 146, 147, 171, 8249, 8250, 64256, 64258, 0, 8211, 8224, 8225, 183, 0, 182, 8226, 8218, 8222, 8221, 187, 8230, 8240, 0, 191, 0, 96, 180, 710, 126, 713, 728, 729, 168, 0, 730, 184, 0, 733, 731, 711, 8212, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 508, 0, 170, 0, 0, 0, 0, 321, 216, 338, 186, 0, 0, 0, 0, 0, 230, 0, 0, 0, 185, 0, 0, 322, 248, 339, 223}; if (fontcount == 0) return; /* Don't draw temporary labels from schematic capture system */ if (drawlabel->string->type != FONT_NAME) return; if (passcolor == DOSUBSTRING) defaultcolor = curcolor = drawlabel->color; else defaultcolor = curcolor = passcolor; if (defaultcolor != DOFORALL) { if (drawlabel->color != DEFAULTCOLOR) curcolor = drawlabel->color; else curcolor = defaultcolor; } /* calculate the transformation matrix for this object */ /* in natural units of the alphabet vectors */ /* (conversion to window units) */ /* Labels don't rotate in Firefox, so use record for transform */ UPushCTM(); UPreMultCTM(DCTM, drawlabel->position, drawlabel->scale, drawlabel->rotation); /* check for flip invariance; recompute CTM and anchoring if necessary */ tmpanchor = flipadjust(drawlabel->anchor); /* Note that the Y-scale is inverted or text comes out upside-down. But we */ /* need to adjust to the Y baseline. */ fprintf(svgf, "a, DCTM->d, -(DCTM->b), -(DCTM->e), DCTM->c, DCTM->f); svg_printcolor(passcolor, "fill="); fprintf(svgf, ">\n"); /* "natural" (unscaled) length */ tlinfo.dostop = 0; tlinfo.tbreak = NULL; tlinfo.padding = NULL; tmpext = ULength(drawlabel, localinst, &tlinfo); newpoint.x = (tmpanchor & NOTLEFT ? (tmpanchor & RIGHT ? -tmpext.maxwidth : -tmpext.maxwidth >> 1) : 0); newpoint.y = (tmpanchor & NOTBOTTOM ? (tmpanchor & TOP ? -tmpext.ascent : -(tmpext.ascent + tmpext.base) >> 1) : -tmpext.base); /* Pinlabels have an additional offset spacing to pad */ /* them from the circuit point to which they attach. */ if (drawlabel->pin) { pinadjust(tmpanchor, &(newpoint.x), &(newpoint.y), 1); } oldx = newpoint.x; baseline = newpoint.y; open_text = -1; open_span = 0; open_decor = 0; pos = 0; /* Adjust for center or right justification */ if (tlinfo.padding != NULL) { if (tmpanchor & JUSTIFYRIGHT) newpoint.x += tlinfo.padding[linenum]; else if (tmpanchor & TEXTCENTERED) newpoint.x += 0.5 * tlinfo.padding[linenum]; linenum++; } for (strptr = drawlabel->string; strptr != NULL; strptr = nextstringpart(strptr, localinst)) { /* All segments other than text cancel any */ /* existing overline/underline in effect. */ if (strptr->type != TEXT_STRING) fstyle &= 0xfc7; switch(strptr->type) { case RETURN: while (open_span > 0) { fprintf(svgf, ""); open_span--; } while (open_text > 0) { fprintf(svgf, ""); open_text--; } if (open_decor) { addlinepoint(decorations, nvals, newpoint.x, group); open_decor--; } break; case FONT_SCALE: case FONT_NAME: while (open_span > 0) { fprintf(svgf, ""); open_span--; } while (open_text > 0) { fprintf(svgf, ""); open_text--; } if (open_decor) { addlinepoint(decorations, nvals, newpoint.x, group); open_decor--; } break; case KERN: case TABFORWARD: case TABBACKWARD: case TABSTOP: case HALFSPACE: case QTRSPACE: case NOLINE: case UNDERLINE: case OVERLINE: case SUBSCRIPT: case SUPERSCRIPT: case NORMALSCRIPT: while (open_span > 1) { fprintf(svgf, ""); open_span--; } if (open_decor) { addlinepoint(decorations, nvals, newpoint.x, group); open_decor--; } break; /* These do not need to be handled */ case TEXT_STRING: case PARAM_START: case PARAM_END: break; /* These are not handled yet, but should be */ case FONT_COLOR: break; default: break; } /* deal with each text segment type */ switch(strptr->type) { case FONT_SCALE: case FONT_NAME: if (strptr->data.font < fontcount) { ffont = strptr->data.font; fstyle = 0; /* style reset by font change */ if (baseline == newpoint.y) { /* set top-level font and style */ oldfont = ffont; oldstyle = fstyle; } } fprintf(svgf, "type == FONT_SCALE) { tmpscale = natscale * strptr->data.scale; if (baseline == newpoint.y) /* reset top-level scale */ natscale = tmpscale; } else tmpscale = 1; /* Actual scale taken care of by transformation matrix */ fprintf(svgf, "font-size=\"%g\" >", tmpscale * 40); fprintf(svgf, "", newpoint.x, -newpoint.y); open_text++; open_span++; break; case KERN: newpoint.x += strptr->data.kern[0]; newpoint.y += strptr->data.kern[1]; fprintf(svgf, "", strptr->data.kern[0], strptr->data.kern[1]); open_text++; break; case FONT_COLOR: if (defaultcolor != DOFORALL) { if (strptr->data.color != DEFAULTCOLOR) curcolor = colorlist[strptr->data.color].color.pixel; else { curcolor = DEFAULTCOLOR; } } break; case TABBACKWARD: /* find first tab value with x < xtotal */ for (tabno = numtabs - 1; tabno >= 0; tabno--) { if (tabstops[tabno] < newpoint.x) { newpoint.x = tabstops[tabno]; break; } } fprintf(svgf, "", newpoint.x); open_span++; break; case TABFORWARD: /* find first tab value with x > xtotal */ for (tabno = 0; tabno < numtabs; tabno++) { if (tabstops[tabno] > newpoint.x) { newpoint.x = tabstops[tabno]; break; } } fprintf(svgf, "", newpoint.x); open_span++; break; case TABSTOP: numtabs++; if (tabstops == NULL) tabstops = (short *)malloc(sizeof(short)); else tabstops = (short *)realloc(tabstops, numtabs * sizeof(short)); tabstops[numtabs - 1] = newpoint.x; /* Force a tab at this point so that the output aligns */ /* to our computation of the position, not its own. */ fprintf(svgf, "", newpoint.x); open_span++; break; case RETURN: tmpscale = natscale = 1.0; baseline -= BASELINE; newpoint.y = baseline; newpoint.x = oldx; if (tlinfo.padding != NULL) { if (tmpanchor & JUSTIFYRIGHT) newpoint.x += tlinfo.padding[linenum]; else if (tmpanchor & TEXTCENTERED) newpoint.x += 0.5 * tlinfo.padding[linenum]; linenum++; } fprintf(svgf, "", newpoint.x, -newpoint.y); open_span++; break; case SUBSCRIPT: natscale *= SUBSCALE; tmpscale = natscale; deltay = (short)((TEXTHEIGHT >> 1) * natscale); newpoint.y -= deltay; fprintf(svgf, "", deltay, 40 * natscale); open_span++; break; case SUPERSCRIPT: natscale *= SUBSCALE; tmpscale = natscale; deltay = (short)(TEXTHEIGHT * natscale); newpoint.y += deltay; fprintf(svgf, "", -deltay, 40 * natscale); open_span++; break; case NORMALSCRIPT: tmpscale = natscale = 1.0; ffont = oldfont; /* revert to top-level font and style */ fstyle = oldstyle; newpoint.y = baseline; fprintf(svgf, "", baseline); open_span++; break; case UNDERLINE: fstyle |= 8; group = newpoint.y - 6; addlinepoint(decorations, nvals, newpoint.x, group); open_decor++; break; case OVERLINE: if (strptr->nextpart != NULL && strptr->nextpart->type == TEXT_STRING) { objectptr charptr; int tmpheight; group = 0; for (textptr = strptr->nextpart->data.string; textptr && *textptr != '\0'; textptr++) { charptr = fonts[ffont].encoding[*(u_char *)textptr]; tmpheight = (int)((float)charptr->bbox.height * fonts[ffont].scale); if (group < tmpheight) group = (short)tmpheight; } fstyle |= 16; group += olinerise + newpoint.y; addlinepoint(decorations, nvals, newpoint.x, group); } open_decor++; break; case NOLINE: break; case HALFSPACE: case QTRSPACE: { short addx; objectptr drawchar = fonts[ffont].encoding[(u_char)32]; addx = (drawchar->bbox.lowerleft.x + drawchar->bbox.width) * fonts[ffont].scale; addx >>= ((strptr->type == HALFSPACE) ? 1 : 2); newpoint.x += addx; fprintf(svgf, "", addx); open_span++; } break; case TEXT_STRING: textptr = strptr->data.string; if (issymbolfont(ffont)) { for (; *textptr != '\0'; textptr++) if (((u_char)(*textptr) >= 32) && ((u_char)(*textptr) < 158)) fprintf(svgf, "%s", symbol_html_encoding[(*textptr) - 32]); } else { /* Handle "&" and non-ASCII characters in the text */ if (isisolatin1(ffont)) { for (; *textptr != '\0'; textptr++) { if (*textptr == '&') fprintf(svgf, "&"); else if ((u_char)(*textptr) >= 128) fprintf(svgf, "&#%d;", (int)((u_char)*textptr)); else if ((u_char)(*textptr) >= 32) fprintf(svgf, "%c", *textptr); } } else { for (; *textptr != '\0'; textptr++) { if (*textptr == '&') fprintf(svgf, "&"); else if ((u_char)(*textptr) >= 161) fprintf(svgf, "&#%d;", standard_html_encoding[(u_char)(*textptr) - 161]); else if ((u_char)(*textptr) >= 32 && (u_char)(*textptr) < 161) fprintf(svgf, "%c", *textptr); } } } pos--; /* Compute the new X position */ for (textptr = strptr->data.string; *textptr != '\0'; textptr++) { objectptr drawchar = fonts[ffont].encoding[(u_char)(*textptr)]; short addx = (drawchar->bbox.lowerleft.x + drawchar->bbox.width) * fonts[ffont].scale; newpoint.x += addx; } break; } pos++; } while (open_span > 0) { fprintf(svgf, ""); open_span--; } while (open_text > 0) { fprintf(svgf, ""); open_text--; } fprintf(svgf, "\n"); UPopCTM(); if (tabstops != NULL) free(tabstops); if (tlinfo.padding != NULL) free(tlinfo.padding); /* If there were decorations (underlines, overlines), generate them */ if (decorations != NULL) { int i; if (open_decor) { addlinepoint(decorations, nvals, newpoint.x, group); } for (i = 0; i < nvals; i += 2) { fprintf(svgf, "\n", decorations[i].x, decorations[i].y, decorations[i + 1].x, decorations[i + 1].y); } free(decorations); } fprintf(svgf, "\n"); } /*----------------------------------------------------------------------*/ /* Write the SVG file output */ /*----------------------------------------------------------------------*/ #define PMARGIN 6 /* Pixel margin around drawing */ void OutputSVG(char *filename, Boolean fullscale) { short savesel; objinstptr pinst; int cstyle; float outwidth, outheight, cscale; svgf = fopen(filename, "w"); if (svgf == NULL) { Fprintf(stderr, "Cannot open file %s for writing.\n", filename); return; } /* Generate external image files, if necessary */ SVGCreateImages(areawin->page); /* Save the number of selections and set it to zero while we do the */ /* object drawing. */ savesel = areawin->selects; areawin->selects = 0; pinst = xobjs.pagelist[areawin->page]->pageinst; UPushCTM(); /* Save the top-level graphics state */ /* This is like UMakeWCTM()---it inverts the whole picture so that */ /* The origin is at the top left, and all data points fit in a box */ /* at (0, 0) to the object (width, height) */ DCTM->a = 1.0; DCTM->b = 0.0; DCTM->c = -pinst->bbox.lowerleft.x; DCTM->d = 0.0; DCTM->e = -1.0; DCTM->f = pinst->bbox.lowerleft.y + pinst->bbox.height; fprintf(svgf, "thisobject->name); if (fullscale) { fprintf(svgf, "width=\"100%%\" height=\"100%%\" "); } else { cscale = getpsscale(xobjs.pagelist[areawin->page]->outscale, areawin->page); cstyle = xobjs.pagelist[areawin->page]->coordstyle; outwidth = toplevelwidth(pinst, NULL) * cscale; outwidth /= (cstyle == CM) ? IN_CM_CONVERT : 72.0; outheight = toplevelheight(pinst, NULL) * cscale; outheight /= (cstyle == CM) ? IN_CM_CONVERT : 72.0; /* Set display height to that specified in the output properties (in inches) */ fprintf(svgf, "width=\"%.3g%s\" height=\"%.3g%s\" ", outwidth, (cstyle == CM) ? "cm" : "in", outheight, (cstyle == CM) ? "cm" : "in"); } fprintf(svgf, " viewBox=\"%d %d %d %d\">\n", -PMARGIN, -PMARGIN, pinst->bbox.width + PMARGIN, pinst->bbox.height + PMARGIN); fprintf(svgf, "\n"); fprintf(svgf, "XCircuit Version %2.1f\n", PROG_VERSION); fprintf(svgf, "File \"%s\" Page %d\n", xobjs.pagelist[areawin->page]->filename, areawin->page + 1); fprintf(svgf, "\n"); /* Set default color to black */ fprintf(svgf, "\n"); if (areawin->hierstack) free_stack(&areawin->hierstack); SVGDrawObject(areawin->topinstance, TOPLEVEL, FOREGROUND, &areawin->hierstack); if (areawin->hierstack) free_stack(&areawin->hierstack); /* restore the selection list (if any) */ areawin->selects = savesel; fprintf(svgf, "\n\n"); fclose(svgf); UPopCTM(); /* Restore the top-level graphics state */ } #ifdef TCL_WRAPPER /*----------------------------------------------------------------------*/ /* The TCL command-line for the SVG file write routine. */ /*----------------------------------------------------------------------*/ int xctcl_svg(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { char filename[128], *pptr; Boolean fullscale = 0; int locobjc = objc; char *lastarg; /* Argument "-full" forces full scale (not scaled per page output settings) */ if (objc > 1) { lastarg = Tcl_GetString(objv[objc - 1]); if (lastarg[0] == '-') { if (!strncmp(lastarg + 1, "full", 4)) fullscale = 1; else { Tcl_SetResult(interp, "Unknown option.\n", NULL); return TCL_ERROR; } locobjc--; } } if (locobjc >= 2) { /* If there is a non-option argument, use it for the output filename */ sprintf(filename, Tcl_GetString(objv[1])); } else if (xobjs.pagelist[areawin->page]->pageinst->thisobject->name == NULL) sprintf(filename, xobjs.pagelist[areawin->page]->filename); else sprintf(filename, xobjs.pagelist[areawin->page]->pageinst->thisobject->name); pptr = strrchr(filename, '.'); if (pptr != NULL) sprintf(pptr + 1, "svg"); else if (strcmp(filename + strlen(filename) - 3, "svg")) strcat(filename, ".svg"); OutputSVG(filename, fullscale); Fprintf(stdout, "Saved page as SVG format file \"%s\"\n", filename); return XcTagCallback(interp, objc, objv); } #endif /* TCL_WRAPPER */ /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/Xw/0000775000175000001440000000000013267470350012566 5ustar timusersxcircuit-3.9.73/Xw/SText.h0000664000175000001440000000316012335667422014011 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: SText.h ** ** Project: X Widgets ** ** Description: Public include file for StaticText class widgets ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * StaticText Widget * ***********************************************************************/ extern WidgetClass XwstatictextWidgetClass; /* synonym added for consistent naming conventions */ extern WidgetClass XwstaticTextWidgetClass; typedef struct _XwStaticTextClassRec *XwStaticTextWidgetClass; typedef struct _XwStaticTextRec *XwStaticTextWidget; xcircuit-3.9.73/Xw/Toggle.h0000664000175000001440000000303612335667422014165 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Toggle.h ** ** Project: X Widgets ** ** Description: Public include file for applications using the ** toggle widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * Toggle Widget * ***********************************************************************/ extern WidgetClass XwtoggleWidgetClass; typedef struct _XwToggleClassRec *XwToggleWidgetClass; typedef struct _XwToggleRec *XwToggleWidget; xcircuit-3.9.73/Xw/WorkSpace.c0000664000175000001440000002211712335667422014636 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: WorkSpace.c ** ** Project: X Widgets ** ** Description: Contains code for workSpace widget class. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #include #include /* Event procedures referenced in the actions list */ static void KeyDown(); static void KeyUp(); static void Select(); static void Release(); /* Default translation table and action list */ static char defaultTranslations[] = ": keydown()\n\ : keyup()\n\ : select()\n\ : release()\n\ : enter()\n\ : leave()"; static XtActionsRec actionsList[] = { { "keydown", (XtActionProc) KeyDown }, { "keyup", (XtActionProc) KeyUp }, { "select", (XtActionProc) Select }, { "release", (XtActionProc) Release }, { "enter", (XtActionProc) _XwPrimitiveEnter }, { "leave", (XtActionProc) _XwPrimitiveLeave }, }; /* Resource list for WorkSpace */ static XtResource resources[] = { { XtNexpose, XtCCallback, XtRCallback, sizeof (caddr_t), XtOffset (XwWorkSpaceWidget, workSpace.expose), XtRPointer, (caddr_t) NULL }, { XtNresize, XtCCallback, XtRCallback, sizeof (caddr_t), XtOffset (XwWorkSpaceWidget, workSpace.resize), XtRPointer, (caddr_t) NULL }, { XtNkeyDown, XtCCallback, XtRCallback, sizeof (caddr_t), XtOffset (XwWorkSpaceWidget, workSpace.key_down), XtRPointer, (caddr_t) NULL }, { XtNkeyUp, XtCCallback, XtRCallback, sizeof (caddr_t), XtOffset (XwWorkSpaceWidget, workSpace.key_up), XtRPointer, (caddr_t) NULL } }; /* Static routine definitions */ static void Initialize(); static void Redisplay(); static void Resize(); static void Destroy(); static Boolean SetValues(); /* The WorkSpace class record definition */ XwWorkSpaceClassRec XwworkSpaceClassRec = { { (WidgetClass) &XwprimitiveClassRec, /* superclass */ "XwWorkSpace", /* class_name */ sizeof(XwWorkSpaceRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ (XtInitProc) Initialize, /* initialize */ NULL, /* initialize_hook */ _XwRealize, /* realize */ actionsList, /* actions */ XtNumber(actionsList), /* num_actions */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ FALSE, /* visible_interest */ (XtWidgetProc) Destroy, /* destroy */ (XtWidgetProc) Resize, /* resize */ (XtExposeProc) Redisplay, /* expose */ (XtSetValuesFunc) SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback private */ defaultTranslations, /* tm_table */ NULL, /* query_geometry */ /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { NULL, /* Primitive border_highlight */ NULL, /* Primitive border_unhighlight */ NULL, /* Primitive select_proc */ NULL, /* Primitive release_proc */ NULL, /* Primitive toggle_proc */ } }; WidgetClass XwworkSpaceWidgetClass = (WidgetClass) &XwworkSpaceClassRec; /************************************************************************ * * Initialize * The main widget instance initialization routine. * ************************************************************************/ static void Initialize (request, new) XwWorkSpaceWidget request, new; { if (request -> core.width == 0) new -> core.width += 20; if (request -> core.height == 0) new -> core.height += 20; } /************************************************************************ * * Redisplay * Draw the traversal/enter border, and * invoke the application exposure callbacks. * ************************************************************************/ static void Redisplay (hw, event, region) XwWorkSpaceWidget hw; XEvent * event; Region region; { if (hw -> primitive.highlighted) _XwHighlightBorder (hw); else if (hw -> primitive.display_highlighted) _XwUnhighlightBorder (hw); XtCallCallbacks ((Widget)hw, XtNexpose, region); } /************************************************************************ * * Resize * Invoke the application resize callbacks. * ************************************************************************/ static void Resize (hw) XwWorkSpaceWidget hw; { XtCallCallbacks ((Widget)hw, XtNresize, NULL); } /************************************************************************ * * Destroy * Remove the callback lists. * ************************************************************************/ static void Destroy (hw) XwWorkSpaceWidget hw; { XtRemoveAllCallbacks ((Widget)hw, XtNexpose); XtRemoveAllCallbacks ((Widget)hw, XtNresize); XtRemoveAllCallbacks ((Widget)hw, XtNkeyDown); } /************************************************************************ * * SetValues * ************************************************************************/ static Boolean SetValues (current, request, new) XwWorkSpaceWidget current, request, new; { return (False); } /************************************************************************ * * KeyDown * This function processes key presses occuring on the workSpace. * ************************************************************************/ static void KeyDown (hw, event) XwWorkSpaceWidget hw; XButtonPressedEvent * event; { XtCallCallbacks ((Widget)hw, XtNkeyDown, event); } /************************************************************************ * * KeyUp * This function processes key releases occuring on the workSpace. * ************************************************************************/ static void KeyUp (hw, event) XwWorkSpaceWidget hw; XButtonPressedEvent * event; { XtCallCallbacks ((Widget)hw, XtNkeyUp, event); } /************************************************************************ * * Select * This function processes selections occuring on the workSpace. * ************************************************************************/ static void Select (hw, event) XwWorkSpaceWidget hw; XButtonPressedEvent * event; { XtCallCallbacks ((Widget)hw, XtNselect, event); } /************************************************************************ * * Release * This function processes releases occuring on the workSpace. * ************************************************************************/ static void Release (hw, event) XwWorkSpaceWidget hw; XEvent * event; { XtCallCallbacks ((Widget)hw, XtNrelease, event); } xcircuit-3.9.73/Xw/MapEvents.c0000664000175000001440000005262012335667422014644 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: MapEvents.c ** ** Project: X Widgets ** ** Description: Menu Manager Support Routines ** ** This file contains a series of support routines, used by ** the menu manager meta-class and any of its subclasses, ** to convert an event string into an internal format. The ** internal format may then be used to compare against real ** X events. These routines are capable of handling a subset ** of the string formats supported by the translation manager. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include static Boolean ParseImmed(); static Boolean ParseKeySym(); typedef struct { char * event; XrmQuark signature; unsigned int eventType; Boolean (*parseProc)(); unsigned int closure; } EventKey; static EventKey modifierStrings[] = { /* Modifier, Quark, Mask */ {"None", NULLQUARK, 0, NULL, None}, {"Shift", NULLQUARK, 0, NULL, ShiftMask}, {"Lock", NULLQUARK, 0, NULL, LockMask}, {"Ctrl", NULLQUARK, 0, NULL, ControlMask}, {"Mod1", NULLQUARK, 0, NULL, Mod1Mask}, {"Mod2", NULLQUARK, 0, NULL, Mod2Mask}, {"Mod3", NULLQUARK, 0, NULL, Mod3Mask}, {"Mod4", NULLQUARK, 0, NULL, Mod4Mask}, {"Mod5", NULLQUARK, 0, NULL, Mod5Mask}, {"Meta", NULLQUARK, 0, NULL, Mod1Mask}, {NULL, NULLQUARK, 0, NULL, None}, }; static EventKey buttonEvents[] = { /* Event Name, Quark, Event Type, DetailProc Closure */ {"Btn1Down", NULLQUARK, ButtonPress, ParseImmed, Button1}, {"Btn2Down", NULLQUARK, ButtonPress, ParseImmed, Button2}, {"Btn3Down", NULLQUARK, ButtonPress, ParseImmed, Button3}, {"Btn4Down", NULLQUARK, ButtonPress, ParseImmed, Button4}, {"Btn5Down", NULLQUARK, ButtonPress, ParseImmed, Button5}, {"Btn1Up", NULLQUARK, ButtonRelease, ParseImmed, Button1}, {"Btn2Up", NULLQUARK, ButtonRelease, ParseImmed, Button2}, {"Btn3Up", NULLQUARK, ButtonRelease, ParseImmed, Button3}, {"Btn4Up", NULLQUARK, ButtonRelease, ParseImmed, Button4}, {"Btn5Up", NULLQUARK, ButtonRelease, ParseImmed, Button5}, { NULL, NULLQUARK, 0, NULL, None}}; static EventKey keyEvents[] = { /* Event Name, Quark, Event Type, DetailProc Closure */ {"KeyPress", NULLQUARK, KeyPress, ParseKeySym, None}, {"Key", NULLQUARK, KeyPress, ParseKeySym, None}, {"KeyDown", NULLQUARK, KeyPress, ParseKeySym, None}, {"KeyUp", NULLQUARK, KeyRelease, ParseKeySym, None}, {"KeyRelease", NULLQUARK, KeyRelease, ParseKeySym, None}, { NULL, NULLQUARK, 0, NULL, None}}; static unsigned int buttonModifierMasks[] = { 0, Button1Mask, Button2Mask, Button3Mask, Button4Mask, Button5Mask }; static initialized = FALSE; /*************************************<->************************************* * * Numeric convertion routines * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static unsigned int StrToHex(str) String str; { register char c; register int val = 0; while (c = *str) { if ('0' <= c && c <= '9') val = val*16+c-'0'; else if ('a' <= c && c <= 'z') val = val*16+c-'a'+10; else if ('A' <= c && c <= 'Z') val = val*16+c-'A'+10; else return -1; str++; } return val; } static unsigned int StrToOct(str) String str; { register char c; register int val = 0; while (c = *str) { if ('0' <= c && c <= '7') val = val*8+c-'0'; else return -1; str++; } return val; } static unsigned int StrToNum(str) String str; { register char c; register int val = 0; if (*str == '0') { str++; if (*str == 'x' || *str == 'X') return StrToHex(++str); else return StrToOct(str); } while (c = *str) { if ('0' <= c && c <= '9') val = val*10+c-'0'; else return -1; str++; } return val; } /*************************************<->************************************* * * FillInQuarks (parameters) * * Description: * ----------- * Converts each string entry in the modifier/event tables to a * quark, thus facilitating faster comparisons. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void FillInQuarks (table) EventKey * table; { register int i; for (i=0; table[i].event; i++) table[i].signature = XrmStringToQuark(table[i].event); } /*************************************<->************************************* * * LookupModifier (parameters) * * Description: * ----------- * Compare the passed in string to the list of valid modifiers. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean LookupModifier (name, valueP) String name; unsigned int *valueP; { register int i; register XrmQuark signature = XrmStringToQuark(name); for (i=0; modifierStrings[i].event != NULL; i++) if (modifierStrings[i].signature == signature) { *valueP = modifierStrings[i].closure; return TRUE; } return FALSE; } /*************************************<->************************************* * * ScanAlphanumeric (parameters) * * Description: * ----------- * Scan string until a non-alphanumeric character is encountered. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static String ScanAlphanumeric (str) register String str; { while ( ('A' <= *str && *str <= 'Z') || ('a' <= *str && *str <= 'z') || ('0' <= *str && *str <= '9')) str++; return str; } /*************************************<->************************************* * * ScanWhitespace (parameters) * * Description: * ----------- * Scan the string, skipping over all white space characters. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static String ScanWhitespace(str) register String str; { while (*str == ' ' || *str == '\t') str++; return str; } /*************************************<->************************************* * * ParseImmed (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean ParseImmed (str, closure, detail) String str; unsigned int closure; unsigned int * detail; { *detail = closure; return (TRUE); } /*************************************<->************************************* * * ParseKeySym (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean ParseKeySym (str, closure, detail) String str; unsigned int closure; unsigned int * detail; { char keySymName[100], *start; str = ScanWhitespace(str); if (*str == '\\') { str++; keySymName[0] = *str; if (*str != '\0' && *str != '\n') str++; keySymName[1] = '\0'; *detail = XStringToKeysym(keySymName); } else if (*str == ',' || *str == ':') { /* No detail; return a failure */ *detail = NoSymbol; return (FALSE); } else { start = str; while ( *str != ',' && *str != ':' && *str != ' ' && *str != '\t' && *str != '\n' && *str != '\0') str++; (void) strncpy(keySymName, start, str-start); keySymName[str-start] = '\0'; *detail = XStringToKeysym(keySymName); } if (*detail == NoSymbol) { if (( '0' <= keySymName[0]) && (keySymName[0] <= '9')) { *detail = StrToNum(keySymName); return (TRUE); } return (FALSE); } else return (TRUE); } /*************************************<->************************************* * * ParseModifiers (parameters) * * Description: * ----------- * Parse the string, extracting all modifier specifications. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static String ParseModifiers(str, modifiers, status) register String str; unsigned int * modifiers; Boolean * status; { register String start; char modStr[100]; Boolean notFlag, exclusive; unsigned int maskBit; /* Initially assume all is going to go well */ *status = TRUE; *modifiers = 0; /* Attempt to parse the first button modifier */ str = ScanWhitespace(str); start = str; str = ScanAlphanumeric(str); if (start != str) { (void) strncpy(modStr, start, str-start); modStr[str-start] = '\0'; if (LookupModifier(modStr, &maskBit)) { if (maskBit== None) { *modifiers = 0; str = ScanWhitespace(str); return str; } } str = start; } /* Keep parsing modifiers, until the event specifier is encountered */ while ((*str != '<') && (*str != '\0')) { if (*str == '~') { notFlag = TRUE; str++; } else notFlag = FALSE; start = str; str = ScanAlphanumeric(str); if (start == str) { /* ERROR: Modifier or '<' missing */ *status = FALSE; return str; } (void) strncpy(modStr, start, str-start); modStr[str-start] = '\0'; if (!LookupModifier(modStr, &maskBit)) { /* Unknown modifier name */ *status = FALSE; return str; } if (notFlag) *modifiers &= ~maskBit; else *modifiers |= maskBit; str = ScanWhitespace(str); } return str; } /*************************************<->************************************* * * ParseEventType (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static String ParseEventType(str, table, eventType, index, status) register String str; EventKey * table; unsigned int * eventType; Cardinal * index; Boolean * status; { String start = str; char eventTypeStr[100]; register Cardinal i; register XrmQuark signature; /* Parse out the event string */ str = ScanAlphanumeric(str); (void) strncpy(eventTypeStr, start, str-start); eventTypeStr[str-start] = '\0'; /* Attempt to match the parsed event against our supported event set */ signature = XrmStringToQuark(eventTypeStr); for (i = 0; table[i].signature != NULLQUARK; i++) if (table[i].signature == signature) { *index = i; *eventType = table[*index].eventType; *status = TRUE; return str; } /* Unknown event specified */ *status = FALSE; return (str); } /*************************************<->************************************* * * _XwMapEvent (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean _XwMapEvent (str, table, eventType, detail, modifiers) register String str; EventKey * table; unsigned int * eventType; unsigned int * detail; unsigned int * modifiers; { Cardinal index; Boolean status; /* Initialize, if first time called */ if (!initialized) { initialized = TRUE; FillInQuarks (buttonEvents); FillInQuarks (modifierStrings); FillInQuarks (keyEvents); } /* Parse the modifiers */ str = ParseModifiers(str, modifiers, &status); if ( status == FALSE || *str != '<') return (FALSE); else str++; /* Parse the event type and detail */ str = ParseEventType(str, table, eventType, &index, &status); if (status == FALSE || *str != '>') return (FALSE); else str++; /* Save the detail */ return ((*(table[index].parseProc))(str, table[index].closure, detail)); } /*************************************<->************************************* * * _XwMapBtnEvent (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean _XwMapBtnEvent (str, eventType, button, modifiers) register String str; unsigned int * eventType; unsigned int * button; unsigned int * modifiers; { if (_XwMapEvent (str, buttonEvents, eventType, button, modifiers) == FALSE) return (FALSE); /* * The following is a fix for an X11 deficiency in regards to * modifiers in grabs. */ if (*eventType == ButtonRelease) { /* the button that is going up will always be in the modifiers... */ *modifiers |= buttonModifierMasks[*button]; } return (TRUE); } /*************************************<->************************************* * * _XwMapKeyEvent (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean _XwMapKeyEvent (str, eventType, key, modifiers) register String str; unsigned int * eventType; unsigned int * key; unsigned int * modifiers; { return (_XwMapEvent (str, keyEvents, eventType, key, modifiers)); } /*************************************<->************************************* * * _XwMatchBtnEvent (parameters) * * Description: * ----------- * Compare the passed in event to the event described by the parameter * list. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean _XwMatchBtnEvent (event, eventType, button, modifiers) XButtonEvent * event; unsigned int eventType; unsigned int button; unsigned int modifiers; { if ((event->type == eventType) && (event->button == button) && (event->state == modifiers)) return (TRUE); else return (FALSE); } /*************************************<->************************************* * * _XwMatchKeyEvent (parameters) * * Description: * ----------- * Compare the passed in event to the event described by the parameter * list. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean _XwMatchKeyEvent (event, eventType, key, modifiers) XKeyEvent * event; unsigned int eventType; unsigned int key; unsigned int modifiers; { if ((event->type == eventType) && (event->keycode == key) && (event->state == modifiers)) return (TRUE); else return (FALSE); } /*************************************<->************************************* * * _XwValidModifier (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean _XwValidModifier (str) register String str; { unsigned int modifiers; Boolean status; /* * Scan the string for a valid set of event modifiers; valid includes * a NULL string, an empty string, or all white space. A NULL is * inserted into the string at the end of the modifiers. */ if ((str == NULL) || (*str == '\0')) return (TRUE); str = ParseModifiers (str, &modifiers, &status); if (status == TRUE) *str = '\0'; return (status); } /*************************************<->************************************* * * _XwMapToHex (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ String _XwMapToHex (menuMgrId) unsigned long menuMgrId; { static char buffer[(sizeof(Widget) << 1) + 1]; int i; char digit; /* Convert the menu manager widget id into a hex string */ for (i = (sizeof(Widget) << 1) - 1; i >= 0; i--) { digit = (char) menuMgrId & 0x0F; buffer[i] = (digit < 10) ? (digit + '0') : (digit - 10 + 'A'); menuMgrId = menuMgrId >> 4; } buffer[sizeof(Widget) << 1] = '\0'; return (buffer); } /*************************************<->************************************* * * _XwMapFromHex (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ unsigned long _XwMapFromHex (str) String str; { unsigned long id = 0; int digit; /* Convert the hex string into a menu manager widget id */ while (str && *str) { digit = (int) ((*str >= '0') && (*str <= '9')) ? (*str - '0') : (*str + 10 - 'A'); id = (id * 16) + digit; str++; } return (id); } xcircuit-3.9.73/Xw/PopupMgr.c0000664000175000001440000040466412335667422014524 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: PopupMgr.c ** ** Project: X Widgets ** ** Description: Popup Menu Manager Widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #include #include #include /* Standard Toolkit Routines */ static void Initialize(); static void Destroy(); static Boolean SetValues(); static void ClassPartInitialize(); /* Global Routines */ static void AttachPane(); static void DetachPane(); static void AddPane(); static void SetSelectAccelerator(); static void ClearSelectAccelerator(); static void AddButton(); static void Unpost(); static void Post(); static Boolean ProcessSelect(); static Boolean ValidEvent(); static Boolean DoICascade(); static void ClassPost(); static void ClassSelect(); static Boolean DoYouWantThisAccelerator(); static Boolean DoYouWantThisPost(); static void SetPostMnemonic(); static void ClearPostMnemonic(); static void SetSelectMnemonic(); static void ClearSelectMnemonic(); static void SetTitleAttributes(); static void TraverseLeft(); static void TraverseRight(); static void TraverseNext(); static void TraversePrev(); static void TraverseHome(); static void TraverseUp(); static void TraverseDown(); static void TraverseNextTop(); static void BtnSensitivityChanged(); static void PaneSensitivityChanged(); /* Action Routines */ static void MMPost(); static void MMAccelPost(); static void MMAccelSelect(); static void MMUnpost(); /* Callback Routines */ static void _XwMenuPaneCleanup(); static void _XwMenuButtonCleanup(); static void _XwCascadeUnselect(); static void _XwCascadeSelect(); /* Internal Support Routines */ static void RegisterTranslation(); static void ExposeEventHandler(); static void RegisterPostTranslation(); static void PositionCascade(); static Boolean ActionIsUsurpedByChild(); static void AddToPendingList(); static void SetButtonAccelerators(); static void SetTreeAccelerators(); static void ClearTreeAccelerators(); static Boolean CompletePath(); static Widget PendingAttach(); static void SetUpTranslation(); static void ForceMenuPaneOnScreen(); static void PaneManagedChildren(); static Boolean Visible(); static void SetMenuTranslations(); static void ManualPost(); static void SendFakeLeaveNotify(); static void SetUpStickyList(); static void DoDetach(); /**************************************************************** * * Popup Resources * ****************************************************************/ static XtResource resources[] = { {XtNstickyMenus, XtCStickyMenus, XtRBoolean, sizeof(Boolean), XtOffset(XwPopupMgrWidget, popup_mgr.stickyMode),XtRString,"FALSE"}, {XtNpostAccelerator, XtCPostAccelerator, XtRString, sizeof(String), XtOffset(XwPopupMgrWidget, popup_mgr.postAccelerator),XtRString, NULL} }; /**************************************************************** * * Miscellaneous Values * ****************************************************************/ /* Global Action Routines */ static XtActionsRec XwPopupActions[] = { {"PopupPostMenu", MMPost}, {"PopupUnpostMenu", MMUnpost}, {"PopupAccelPost", MMAccelPost}, {"PopupAccelSelect", MMAccelSelect} }; /* Translation Template Strings */ static String postTemplate = ": PopupPostMenu("; static String unpostTemplate = ": PopupUnpostMenu("; static String accelPostTemplate = ": PopupAccelPost("; static String accelSelectTemplate = ": PopupAccelSelect("; static String selectTemplate = ": select()"; static char workArea[300]; /* * Used when positioning a cascade such that the cursor will be * in the first item of the cascade. */ #define FUDGE_FACTOR 8 #define SHELL_PARENT 0 #define ULTIMATE_PARENT 1 /* * This mask is used during the setting and clearing of button grabs. * If the event being grabbed is a buttonUp event, then these bits * cause the grabs to never activate; so they need to be cleared. */ #define btnMask (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask) /**************************************************************** * * Full class record constant * ****************************************************************/ XwPopupMgrClassRec XwpopupmgrClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwmenumgrClassRec, /* class_name */ "XwPopupMgr", /* widget_size */ sizeof(XwPopupMgrRec), /* class_initialize */ NULL, /* class_part_init */ ClassPartInitialize, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ NULL, /* actions */ NULL, /* num_actions */ 0, /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ Destroy, /* resize */ NULL, /* expose */ NULL, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* PRIVATE cb list */ NULL, /* tm_table */ NULL, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL },{ /* composite_class fields */ /* geometry_manager */ NULL, /* change_managed */ NULL, /* insert_child */ XtInheritInsertChild, /* delete_child */ XtInheritDeleteChild, NULL, },{ /* constraint class fields */ /* resources */ NULL, /* num_resources */ 0, /* constraint_size */ 0, /* initialize */ NULL, /* destroy */ NULL, /* set_values */ NULL, NULL, },{ /* manager_class fields */ /* traversal handler */ (XwTraversalProc)XtInheritTraversalProc, /* translations */ NULL, },{ /* menu manager class */ /* attachPane */ AttachPane, /* detachPane */ DetachPane, /* addPane */ AddPane, /* setSelectAccel */ SetSelectAccelerator, /* clearSelectAccel */ ClearSelectAccelerator, /* setPostMnemonic */ SetPostMnemonic, /* clearPostMnemonic */ ClearPostMnemonic, /* addButton */ AddButton, /* processSelect */ (XwBooleanProc)ProcessSelect, /* validEvent */ (XwBooleanProc)ValidEvent, /* doIcascade */ DoICascade, /* setSelectMnemonic */ SetSelectMnemonic, /* clearSelectMnemon */ ClearSelectMnemonic, /* setTitleAttributes */ SetTitleAttributes, /* paneManagedChildren*/ PaneManagedChildren, /* traverseLeft */ TraverseLeft, /* traverseRight */ TraverseRight, /* traverseNext */ TraverseNext, /* traversePrev */ TraversePrev, /* traverseHome */ TraverseHome, /* traverseUp */ TraverseUp, /* traverseDown */ TraverseDown, /* traverseNextTop */ TraverseNextTop, /* btnSensitivityChan */ BtnSensitivityChanged, /* paneSensitivityCha */ PaneSensitivityChanged, },{ /* popup menu manager class - none */ /* manualPost */ (XwPostProc) ManualPost, } }; WidgetClass XwpopupmgrWidgetClass = (WidgetClass)&XwpopupmgrClassRec; WidgetClass XwpopupMgrWidgetClass = (WidgetClass)&XwpopupmgrClassRec; /*----------------------------------------------------------------------*/ /* I don't really know why PopupMgr needs to register its actions */ /* globally like this when all other widgets don't; regardless, */ /* running this in ClassInitialize() doesn't work because the app */ /* context can be destroyed and remade, and then it loses the actions, */ /* instead returning "Warning: Actions not found: PopupPostMenu". */ /* Furthermore, the "correct" implementation needs a value for "app", */ /* which must be declared global, which is clearly a hack. So I'm */ /* instead creating a world-accessible function which does what */ /* ClassInitialize() did, but it takes an argument "app" and must be */ /* called every time the application is (re)made. */ /*----------------------------------------------------------------------*/ void XwAppInitialize(XtAppContext app) { /* Register the global action routines */ XtAppAddActions (app, XwPopupActions, XtNumber(XwPopupActions)); } /*************************************<->************************************* * * Initialize * * * Description: * ----------- * Initialize the popup_mgr fields within the widget's instance structure. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Initialize (request, new) XwPopupMgrWidget request; register XwPopupMgrWidget new; { Widget grandparent; KeySym tempKeysym; /* * Clear the 'map when managed' flag, since this widget should * never be visible. */ new->core.mapped_when_managed = FALSE; /* Fill in our instance fields */ new->popup_mgr.topLevelPane = (Widget) NULL; new->popup_mgr.lastSelected = (Widget) NULL; new->popup_mgr.savedCascadeList = (Widget *) XtMalloc(25 * sizeof(Widget)); new->popup_mgr.numSavedCascades = 0; new->popup_mgr.sizeSavedCascadeList = 25; new->popup_mgr.currentCascadeList = (Widget *) XtMalloc(25 * sizeof(Widget)); new->popup_mgr.numCascades = 0; new->popup_mgr.sizeCascadeList = 25; new->popup_mgr.attachPane = (XwMenuPaneWidget) NULL; new->popup_mgr.detachPane = (XwMenuPaneWidget) NULL; new->popup_mgr.origMouseX = -1; new->popup_mgr.origMouseY = -1; /* Get the widget Id for the widget to which the menu is attached */ grandparent = (Widget) XtParent(XtParent(new)); /* * If a post accelerator is specified, then attempt to convert it to * a usable format (not a string); if the accelerator specification is * invalid, then use the default post accelerator (none). */ if ((new->popup_mgr.postAccelerator) && (strlen(new->popup_mgr.postAccelerator) > 0) && (_XwMapKeyEvent (new->popup_mgr.postAccelerator, &new->popup_mgr.accelEventType, &tempKeysym, &new->popup_mgr.accelModifiers))) { /* Valid accelerator string; save a copy */ new->popup_mgr.accelKey = XKeysymToKeycode(XtDisplay(new), tempKeysym); new->popup_mgr.postAccelerator = (String) strcpy (XtMalloc ( XwStrlen(new->popup_mgr. postAccelerator) + 1), new->popup_mgr.postAccelerator); /* Set up a translation in the widget */ RegisterTranslation (grandparent, new->popup_mgr.postAccelerator, accelPostTemplate, new); } else { if ((new->popup_mgr.postAccelerator) && (strlen(new->popup_mgr.postAccelerator) > 0)) { XtWarning ("PopupMgr: Invalid post accelerator; disabling feature"); } new->popup_mgr.postAccelerator = NULL; new->popup_mgr.accelEventType = 0; new->popup_mgr.accelKey = 0; new->popup_mgr.accelModifiers = 0; } /* Attach a posting translation to the widget */ if (new->menu_mgr.postString) { RegisterTranslation (grandparent, new->menu_mgr.postString, postTemplate, new); } /* Attach an unposting translation to the widget, if specified */ if (new->menu_mgr.unpostString) { RegisterTranslation (grandparent, new->menu_mgr.unpostString, unpostTemplate, new); } /* * If the children of the widget are to inherit this menu, then we * need to set up a button grab for the posting event; if the widget * is not yet realized, then we cannot set the grab, so we will * attach an exposure event handler to the widget, so that when it * does finally get mapped, we can set up any necessary grabs. */ if (XtIsRealized(grandparent)) { if (new->menu_mgr.associateChildren) { /* Set up a grab for the post event */ if (new->menu_mgr.postString) { XGrabButton (XtDisplay(grandparent), new->menu_mgr.postButton, (new->menu_mgr.postModifiers & ~btnMask), XtWindow(grandparent), False, ButtonPressMask|ButtonReleaseMask, GrabModeAsync, GrabModeAsync, (Window)NULL, (Cursor)NULL); } /* Set up a grab for the post accelerator */ if (new->popup_mgr.postAccelerator) { XGrabKey (XtDisplay(grandparent), new->popup_mgr.accelKey, new->popup_mgr.accelModifiers, XtWindow(grandparent), False, GrabModeAsync, GrabModeAsync); } } } else { XtAddEventHandler (grandparent, ExposureMask|StructureNotifyMask, False, ExposeEventHandler, new); } } /* Initialize */ /*************************************<->************************************* * * SetValues() * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues (current, request, new) register XwPopupMgrWidget current; XwPopupMgrWidget request; register XwPopupMgrWidget new; { Widget grandparent; Boolean postGrabSet = FALSE; Boolean postGrabCleared = FALSE; Boolean postAccelGrabSet = FALSE; Boolean postAccelGrabCleared = FALSE; KeySym tempKeysym; XtTranslations translation; String workTemplate; register int i, j, k; grandparent = (Widget) XtParent(XtParent(current)); /* Process the post accelerator */ if (current->popup_mgr.postAccelerator != new->popup_mgr.postAccelerator) { if ((new->popup_mgr.postAccelerator) && (strlen(new->popup_mgr.postAccelerator) > 0)) { if (_XwMapKeyEvent (new->popup_mgr.postAccelerator, &new->popup_mgr.accelEventType, &tempKeysym, &new->popup_mgr.accelModifiers)) { /* Valid accelerator string; save a copy */ new->popup_mgr.accelKey = XKeysymToKeycode (XtDisplay(new), tempKeysym); new->popup_mgr.postAccelerator = (String) strcpy (XtMalloc ( XwStrlen(new->popup_mgr. postAccelerator) + 1), new->popup_mgr.postAccelerator); } else { /* Invalid; revert to previous setting */ XtWarning ("PopupMgr: Invalid post accelerator; using previous setting"); new->popup_mgr.postAccelerator = current->popup_mgr.postAccelerator; new->popup_mgr.accelEventType = current->popup_mgr.accelEventType; new->popup_mgr.accelKey = current->popup_mgr.accelKey; new->popup_mgr.accelModifiers = current->popup_mgr.accelModifiers; } } else { /* None specified, so disable the feature */ new->popup_mgr.postAccelerator = NULL; new->popup_mgr.accelEventType = 0; new->popup_mgr.accelKey = 0; new->popup_mgr.accelModifiers = 0; } /* * This duplicate check prevents us from doing alot of unnecessary * work in the case where an invalid string was specified, and thus * we reverted to the previous value. */ if (current->popup_mgr.postAccelerator != new->popup_mgr.postAccelerator) { /* Remove the old accelerator translation and grab */ if (current->popup_mgr.postAccelerator) { RegisterTranslation (grandparent, current->popup_mgr.postAccelerator, accelPostTemplate, NULL); if (XtIsRealized(grandparent) &¤t->menu_mgr.associateChildren) { XUngrabKey (XtDisplay(grandparent), current->popup_mgr.accelKey, current->popup_mgr.accelModifiers, XtWindow(grandparent)); postAccelGrabCleared = TRUE; } } /* Set the new accelerator translation and grab */ if (new->popup_mgr.postAccelerator) { RegisterTranslation (grandparent, new->popup_mgr.postAccelerator, accelPostTemplate, new); if (XtIsRealized(grandparent) && new->menu_mgr.associateChildren) { XGrabKey (XtDisplay(grandparent), new->popup_mgr.accelKey, new->popup_mgr.accelModifiers, XtWindow(grandparent), False, GrabModeAsync, GrabModeAsync); postAccelGrabSet = TRUE; } } /* Free up the buffer holding the old string */ XtFree (current->popup_mgr.postAccelerator); } } /* Process the post event */ if (current->menu_mgr.postString != new->menu_mgr.postString) { /* Remove the old post translation and grab */ if (current->menu_mgr.postString) { RegisterTranslation (grandparent, current->menu_mgr.postString, postTemplate, NULL); if (XtIsRealized(grandparent) && current->menu_mgr.associateChildren) { XUngrabButton (XtDisplay(grandparent), current->menu_mgr.postButton, (current->menu_mgr.postModifiers & ~btnMask), XtWindow(grandparent)); postGrabCleared = TRUE; } /* Free up the old string */ XtFree (current->menu_mgr.postString); } /* Set the new post translation and grab */ if (new->menu_mgr.postString) { RegisterTranslation (grandparent, new->menu_mgr.postString, postTemplate, new); if (XtIsRealized(grandparent) && new->menu_mgr.associateChildren) { XGrabButton (XtDisplay(grandparent), new->menu_mgr.postButton, (new->menu_mgr.postModifiers & ~btnMask), XtWindow(grandparent), False, ButtonPressMask|ButtonReleaseMask, GrabModeAsync, GrabModeAsync, (Window)NULL, (Cursor)NULL); postGrabSet = TRUE; } } } /* Process the select event. */ if (current->menu_mgr.selectString != new->menu_mgr.selectString) { /* * Each menubutton and menupane must have a new 'select' translation * set up; no grabs are needed. The old ones do not need to be * removed, since ProcessSelect() will reject them. */ if (new->menu_mgr.selectString) { /* * Create the translation string of format: * * "!: select()" */ workTemplate = &workArea[0]; strcpy (workTemplate, "!"); strcat (workTemplate, new->menu_mgr.selectString); strcat (workTemplate, selectTemplate); translation = XtParseTranslationTable (workTemplate); SetMenuTranslations (new, translation); /* XtDestroyStateTable (XtClass(new), translation); */ } if (current->menu_mgr.selectString) XtFree (current->menu_mgr.selectString); } /* Process the unpost event. */ if (current->menu_mgr.unpostString != new->menu_mgr.unpostString) { /* * Each menubutton and menupane must have a new 'unpost' translation * set up; no grabs are needed. The old ones need to first be * removed. */ if (current->menu_mgr.unpostString) { /* * Create the translation string of format: * * "!: MMUnpost(mgrId)" */ workTemplate = &workArea[0]; strcpy (workTemplate, "!"); strcat (workTemplate, current->menu_mgr.unpostString); strcat (workTemplate, unpostTemplate); strcat (workTemplate, _XwMapToHex(NULL)); strcat (workTemplate, ")"); translation = XtParseTranslationTable (workTemplate); SetMenuTranslations (new, translation); /* XtDestroyStateTable (XtClass(new), translation); */ RegisterTranslation (grandparent, current->menu_mgr.unpostString, unpostTemplate, NULL); XtFree (current->menu_mgr.unpostString); } if (new->menu_mgr.unpostString) { /* * Create the translation string of format: * * "!: MMUnpost(mgrId)" */ workTemplate = &workArea[0]; strcpy (workTemplate, "!"); strcat (workTemplate, new->menu_mgr.unpostString); strcat (workTemplate, unpostTemplate); strcat (workTemplate, _XwMapToHex(new->core.self)); strcat (workTemplate, ")"); translation = XtParseTranslationTable (workTemplate); SetMenuTranslations (new, translation); /* XtDestroyStateTable (XtClass(new), translation); */ RegisterTranslation (grandparent, new->menu_mgr.unpostString, unpostTemplate, new); } } /* Process the keyboard select event. */ if (current->menu_mgr.kbdSelectString != new->menu_mgr.kbdSelectString) { /* * Each menubutton and menupane must have a new 'kbd select' translation * set up; no grabs are needed. The old ones do not need to be * removed, since ProcessSelect() will reject them. */ if (new->menu_mgr.kbdSelectString) { /* * Create the translation string of format: * * "!: select()" */ workTemplate = &workArea[0]; strcpy (workTemplate, "!"); strcat (workTemplate, new->menu_mgr.kbdSelectString); strcat (workTemplate, selectTemplate); translation = XtParseTranslationTable (workTemplate); /* * Since the menupanes are our popup grand children, we * will process them simply by traversing our popup children list. */ SetMenuTranslations (new, translation); /* XtDestroyStateTable (XtClass(new), translation); */ } if (current->menu_mgr.kbdSelectString) XtFree (current->menu_mgr.kbdSelectString); } /* Process the associateChildren flag */ if (current->menu_mgr.associateChildren != new->menu_mgr.associateChildren) { int i; /* * If the widget is realized, then we need to set/clear button * and key grabs for the post event, the post accelerator, and * all menubutton accelerators; the two post grabs will only be * set or cleared if they were not already done so earlier; this * would have happened if either of their event strings had * changed. */ if (XtIsRealized (grandparent)) { if (new->menu_mgr.associateChildren) { /* Set post grab */ if ((!postGrabSet) && (new->menu_mgr.postString)) { XGrabButton (XtDisplay(grandparent), new->menu_mgr.postButton, (new->menu_mgr.postModifiers & ~btnMask), XtWindow(grandparent), False, ButtonPressMask|ButtonReleaseMask, GrabModeAsync, GrabModeAsync, (Window)NULL, (Cursor)NULL); } /* Set post accelerator grab */ if ((!postAccelGrabSet) && (new->popup_mgr.postAccelerator)) { XGrabKey (XtDisplay(grandparent), new->popup_mgr.accelKey, new->popup_mgr.accelModifiers, XtWindow(grandparent), False, GrabModeAsync, GrabModeAsync); } /* Set menubutton accelerator grabs */ for (i = 0; i < new->menu_mgr.numAccels; i++) { XGrabKey (XtDisplay(grandparent), new->menu_mgr.menuBtnAccelTable[i].accelKey, new->menu_mgr.menuBtnAccelTable[i].accelModifiers, XtWindow(grandparent), False, GrabModeAsync, GrabModeAsync); } } else { /* Clear post grab */ if ((!postGrabCleared) && (current->menu_mgr.postString)) { XUngrabButton (XtDisplay(grandparent), current->menu_mgr.postButton, (current->menu_mgr.postModifiers & ~btnMask), XtWindow(grandparent)); } /* Clear post accelerator grab */ if ((!postAccelGrabCleared) && (current->popup_mgr.postAccelerator)) { XUngrabKey (XtDisplay(grandparent), current->popup_mgr.accelKey, current->popup_mgr.accelModifiers, XtWindow(grandparent)); } /* Clear menubutton accelerator grabs */ for (i = 0; i < current->menu_mgr.numAccels; i++) { XUngrabKey (XtDisplay(grandparent), current->menu_mgr.menuBtnAccelTable[i].accelKey, current->menu_mgr.menuBtnAccelTable[i].accelModifiers, XtWindow(grandparent)); } } } } /* * Since all of the menu components inherit their traversal setting * from their menu manager, anytime the menu manager's traversal * state changes, we need to propogate this down to all of the other * menu components (panes, buttons, separaters). */ if (new->manager.traversal_on != current->manager.traversal_on) { int traversalType; if (new->manager.traversal_on) traversalType = XwHIGHLIGHT_TRAVERSAL; else traversalType = XwHIGHLIGHT_OFF; for (i = 0; i < current->core.num_popups; i++) { CompositeWidget shell; shell = (CompositeWidget) current->core.popup_list[i]; for (j = 0; j < shell->composite.num_children; j++) { XwMenuPaneWidget menupane; /* Here we set the traversal flag for the menupanes */ menupane = (XwMenuPaneWidget)shell->composite.children[j]; if (XtIsSubclass ((Widget)menupane, XwmenupaneWidgetClass)) { (*(((XwMenuPaneWidgetClass) XtClass(menupane))-> menu_pane_class.setTraversalFlag)) ((Widget)menupane, new->manager.traversal_on); } for (k = 0; k < menupane->manager.num_managed_children; k++) { XwMenuButtonWidget mbutton; /* Here we set the traversal flag for the menubuttons */ mbutton = (XwMenuButtonWidget)menupane->composite.children[k]; if (XtIsSubclass ((Widget)mbutton, XwmenubuttonWidgetClass)) { (*(((XwMenuButtonWidgetClass) XtClass(mbutton))-> menubutton_class.setTraversalType)) ((Widget)mbutton, traversalType); } } } } } /* Clear the sticky menu list, if sticky mode is disabled */ if (new->popup_mgr.stickyMode == False) new->popup_mgr.numSavedCascades = 0; return (FALSE); } /*************************************<->************************************* * * Destroy() * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Destroy (mw) register XwPopupMgrWidget mw; { Widget grandparent; register int i; /* Get the widget Id for the widget to which the menus are attached */ grandparent = (Widget)XtParent(XtParent(mw)); /* Free up any memory we allocated */ XtFree ((char *)(mw->popup_mgr.savedCascadeList)); XtFree ((char *)(mw->popup_mgr.currentCascadeList)); /* Clean up the post and accelerated post translations */ if (mw->menu_mgr.postString) { RegisterTranslation (grandparent, mw->menu_mgr.postString, postTemplate, NULL); } if (mw->popup_mgr.postAccelerator) { RegisterTranslation (grandparent, mw->popup_mgr.postAccelerator, accelPostTemplate, NULL); } if (mw->menu_mgr.unpostString) { RegisterTranslation (grandparent, mw->menu_mgr.unpostString, unpostTemplate, NULL); } /*************** * THE FOLLOWING IS NOT NEEDED, SINCE BY THE TIME WE GET HERE, * ALL OF OUR CHILDREN HAVE BEEN DESTROYED, AND THEIR ACCELERATORS * ALREADY CLEARED. * * Remove translations for each menubutton accelerator * * for (i = 0; i < mw->menu_mgr.numAccels; i++) * { * RegisterTranslation (grandparent, * mw->menu_mgr.menuBtnAccelTable[i].accelString, * accelSelectTemplate, NULL); * } ****************/ /* Remove any grabs we have set on the widget */ if (XtIsRealized(grandparent)) { if (mw->menu_mgr.associateChildren) { /* Remove post grab */ if (mw->menu_mgr.postString) { XUngrabButton (XtDisplay(grandparent), mw->menu_mgr.postButton, (mw->menu_mgr.postModifiers & ~btnMask), XtWindow(grandparent)); } /* Remove post accelerator grab */ if (mw->popup_mgr.postAccelerator) { XUngrabKey (XtDisplay(grandparent), mw->popup_mgr.accelKey, mw->popup_mgr.accelModifiers, XtWindow(grandparent)); } /*************** * THE FOLLOWING IS NOT NEEDED, SINCE BY THE TIME WE GET HERE, * ALL OF OUR CHILDREN HAVE BEEN DESTROYED, AND THEIR ACCELERATORS * ALREADY CLEARED. * * Remove grabs for each menubutton accelerator * for (i = 0; i < mw->menu_mgr.numAccels; i++) * { * XUngrabKey (XtDisplay(grandparent), * mw->menu_mgr.menuBtnAccelTable[i].accelKey, * mw->menu_mgr.menuBtnAccelTable[i].accelModifiers, * XtWindow(grandparent)); * } ***************/ } } else { /* Simply remove the exposure handler we added at initialize time */ XtRemoveEventHandler (grandparent, ExposureMask|StructureNotifyMask, False, ExposeEventHandler, mw); } } /*************************************<->************************************* * * ClassPartInitialize(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClassPartInitialize (wc) register XwPopupMgrWidgetClass wc; { register XwPopupMgrWidgetClass super; super = (XwPopupMgrWidgetClass)wc->core_class.superclass; if (wc->menu_mgr_class.attachPane == XtInheritAttachPane) wc->menu_mgr_class.attachPane = super->menu_mgr_class.attachPane; if (wc->menu_mgr_class.detachPane == XtInheritDetachPane) wc->menu_mgr_class.detachPane = super->menu_mgr_class.detachPane; if (wc->menu_mgr_class.addPane == XtInheritAddPane) wc->menu_mgr_class.addPane = super->menu_mgr_class.addPane; if (wc->menu_mgr_class.setSelectAccelerator == XtInheritSetSelectAccelerator) wc->menu_mgr_class.setSelectAccelerator = super->menu_mgr_class.setSelectAccelerator; if (wc->menu_mgr_class.clearSelectAccelerator == XtInheritClearSelectAccelerator) wc->menu_mgr_class.clearSelectAccelerator = super->menu_mgr_class.clearSelectAccelerator; if (wc->menu_mgr_class.setPostMnemonic == XtInheritSetPostMnemonic) wc->menu_mgr_class.setPostMnemonic =super->menu_mgr_class.setPostMnemonic; if (wc->menu_mgr_class.clearPostMnemonic == XtInheritClearPostMnemonic) wc->menu_mgr_class.clearPostMnemonic = super->menu_mgr_class.clearPostMnemonic; if (wc->menu_mgr_class.setPostMnemonic == XtInheritSetPostMnemonic) wc->menu_mgr_class.setPostMnemonic =super->menu_mgr_class.setPostMnemonic; if (wc->menu_mgr_class.clearPostMnemonic==XtInheritClearPostMnemonic) wc->menu_mgr_class.clearPostMnemonic = super->menu_mgr_class.clearPostMnemonic; if (wc->menu_mgr_class.addButton == XtInheritAddButton) wc->menu_mgr_class.addButton = super->menu_mgr_class.addButton; if (wc->menu_mgr_class.setSelectMnemonic == XtInheritSetSelectMnemonic) wc->menu_mgr_class.setSelectMnemonic = super->menu_mgr_class.setSelectMnemonic; if (wc->menu_mgr_class.clearSelectMnemonic == XtInheritClearSelectMnemonic) wc->menu_mgr_class.clearSelectMnemonic = super->menu_mgr_class.clearSelectMnemonic; if (wc->menu_mgr_class.processSelect == XtInheritProcessSelect) wc->menu_mgr_class.processSelect = super->menu_mgr_class.processSelect; if (wc->menu_mgr_class.validEvent == XtInheritValidEvent) wc->menu_mgr_class.validEvent = super->menu_mgr_class.validEvent; if (wc->menu_mgr_class.doICascade == XtInheritDoICascade) wc->menu_mgr_class.doICascade = super->menu_mgr_class.doICascade; if (wc->menu_mgr_class.paneManagedChildren == XtInheritPaneManagedChildren) wc->menu_mgr_class.paneManagedChildren = super->menu_mgr_class.paneManagedChildren; if (wc->menu_mgr_class.setTitleAttributes == XtInheritSetTitleAttributes) wc->menu_mgr_class.setTitleAttributes = super->menu_mgr_class.setTitleAttributes; if (wc->menu_mgr_class.traverseLeft == XtInheritPopupTravLeft) wc->menu_mgr_class.traverseLeft = super->menu_mgr_class.traverseLeft; if (wc->menu_mgr_class.traverseRight == XtInheritPopupTravRight) wc->menu_mgr_class.traverseRight = super->menu_mgr_class.traverseRight; if (wc->menu_mgr_class.traverseNext == XtInheritPopupTravNext) wc->menu_mgr_class.traverseNext = super->menu_mgr_class.traverseNext; if (wc->menu_mgr_class.traversePrev == XtInheritPopupTravPrev) wc->menu_mgr_class.traversePrev = super->menu_mgr_class.traversePrev; if (wc->menu_mgr_class.traverseHome == XtInheritPopupTravHome) wc->menu_mgr_class.traverseHome = super->menu_mgr_class.traverseHome; if (wc->menu_mgr_class.traverseUp == XtInheritPopupTravUp) wc->menu_mgr_class.traverseUp = super->menu_mgr_class.traverseUp; if (wc->menu_mgr_class.traverseDown == XtInheritPopupTravDown) wc->menu_mgr_class.traverseDown = super->menu_mgr_class.traverseDown; if (wc->menu_mgr_class.traverseNextTop == XtInheritPopupTravNextTop) wc->menu_mgr_class.traverseNextTop=super->menu_mgr_class.traverseNextTop; if (wc->menu_mgr_class.btnSensitivityChanged==XtInheritBtnSensitivityChanged) wc->menu_mgr_class.btnSensitivityChanged = super->menu_mgr_class.btnSensitivityChanged; if (wc->menu_mgr_class.paneSensitivityChanged == XtInheritPaneSensitivityChanged) wc->menu_mgr_class.paneSensitivityChanged = super->menu_mgr_class.paneSensitivityChanged; } /*************************************<->************************************* * * RegisterTranslation (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void RegisterTranslation (widget, event, template, menuMgrId) Widget widget; String event; String template; Widget menuMgrId; { register String workTemplate; XtTranslations translations; workTemplate = &workArea[0]; /* * Construct the translation string, using the following format: * * "!: ActionProc(menuMgrId)" */ strcpy (workTemplate, "!"); strcat (workTemplate, event); strcat (workTemplate, template); if (menuMgrId) strcat (workTemplate, _XwMapToHex(menuMgrId->core.self)); else strcat (workTemplate, _XwMapToHex(NULL)); strcat (workTemplate, ")"); /* Compile the translation and attach to the widget */ translations = XtParseTranslationTable(workTemplate); XtOverrideTranslations (widget, translations); /* XtDestroyStateTable (XtClass(widget), translations); */ } /*************************************<->************************************* * * PositionCascade (parameters) * * Description: * ----------- * This routine positions a cacading submenu pane. When the new * menupane is posted, it will slightly overlap the previous menu * pane (in the x direction). In the y direction, the new menupane * will be positioned such that its first menubutton is centered on * the menubutton to which the menupane is attached. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void PositionCascade (menubutton, menupane) register Widget menubutton; XwManagerWidget menupane; { Position x, y, yDelta; Widget menubuttonGrandparent; Widget menubuttonParent; Widget menupaneShell; menubuttonParent = (Widget)XtParent(menubutton); menubuttonGrandparent = (Widget)XtParent(menubuttonParent); menupaneShell = (Widget)XtParent(menupane); /* * In order for this algorithm to work, we need to make sure the * menupane has been realized; this is because its size is not * yet valid because it is not notified that it has any children * until it is realized. */ if (!XtIsRealized (menupaneShell)) XtRealizeWidget (menupaneShell); /* * Since the x and y need to be absolute positions, we need to * use the shell widget coordinates in portions of these calculations. */ x = menubuttonGrandparent->core.x + menubuttonParent->core.border_width + menubutton->core.border_width + menubutton->core.width - (XwCASCADEWIDTH + FUDGE_FACTOR + menupane->core.border_width); y = menubuttonGrandparent->core.y + menubuttonParent->core.border_width + menubutton->core.border_width + menubutton->core.y + (menubutton->core.height >> 1); /* Attempt to center on the first button in the new menupane */ if (menupane->manager.num_managed_children > 0) { Widget firstButton = menupane->manager.managed_children[0]; /* yDelta = firstButton->core.y + firstButton->core.border_width + (firstButton->core.height >> 1); */ yDelta = 0; } else yDelta = menupane->core.border_width + (menupane->core.height >> 1); y -= yDelta; ForceMenuPaneOnScreen (menupane, &x, &y); XtMoveWidget (menupaneShell, x, y); } /*************************************<->************************************* * * ExposeEventHandler (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ExposeEventHandler (w, menuMgr, event) Widget w; register XwPopupMgrWidget menuMgr; XEvent * event; { register int i; /* * If the children inherit the menu tree, then set up grabs for * the post button, the post accelerator key, and each menubutton * accelerator. */ if (menuMgr->menu_mgr.associateChildren) { if (menuMgr->menu_mgr.postString) { XGrabButton (XtDisplay(menuMgr), menuMgr->menu_mgr.postButton, (menuMgr->menu_mgr.postModifiers & ~btnMask), XtWindow(w), False, ButtonPressMask|ButtonReleaseMask, GrabModeAsync, GrabModeAsync, (Window)NULL, (Cursor)NULL); } if (menuMgr->popup_mgr.postAccelerator) { XGrabKey (XtDisplay(menuMgr), menuMgr->popup_mgr.accelKey, menuMgr->popup_mgr.accelModifiers, XtWindow(w), False, GrabModeAsync, GrabModeAsync); } for (i = 0; i < menuMgr->menu_mgr.numAccels; i++) { XGrabKey (XtDisplay(menuMgr), menuMgr->menu_mgr.menuBtnAccelTable[i].accelKey, menuMgr->menu_mgr.menuBtnAccelTable[i].accelModifiers, XtWindow(w), False, GrabModeAsync, GrabModeAsync); } } XtRemoveEventHandler (w, ExposureMask|StructureNotifyMask, False, (XtEventHandler)ExposeEventHandler, menuMgr); } /*************************************<->************************************* * * _XwCascadeSelect(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void _XwCascadeSelect (menubutton, menupane, data) Widget menubutton; XwMenuPaneWidget menupane; caddr_t data; /* not used */ { register int i; register XwPopupMgrWidget menuMgr; menuMgr = (XwPopupMgrWidget) XtParent(XtParent(menupane)); /* If the pane is already posted, then do nothing but return */ for (i = 0; i < menuMgr->popup_mgr.numCascades; i++) { if (menupane==(XwMenuPaneWidget)menuMgr->popup_mgr.currentCascadeList[i]) return; } /* Position the cascading menupane */ PositionCascade (menubutton, menupane); /* Post the menupane */ Post (menuMgr, menupane, XtGrabNonexclusive); /* Set the traversal focus, if necessary */ if (menuMgr->manager.traversal_on) { /* Force the highlight to the first item */ menupane->manager.active_child = NULL; XtSetKeyboardFocus ((Widget)menupane, NULL); XwMoveFocus (menupane); SendFakeLeaveNotify(menubutton, SHELL_PARENT); } XFlush(XtDisplay(menuMgr)); } /*************************************<->************************************* * * _XwCascadeUnselect (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void _XwCascadeUnselect (menubutton, menupane, params) Widget menubutton; Widget menupane; register XwunselectParams * params; { XwPopupMgrWidget menuMgr; register Widget shell; menuMgr = (XwPopupMgrWidget) XtParent(XtParent(menupane)); shell = (Widget)XtParent(menupane); /* * Determine if the cursor left the cascade region and entered * the cascading menupane. If this happened, then tell the menu * button to remain highlighted. If this did not happen, then we * need to unpost the menupane, and tell the menubutton to unhighlight. * */ /* See if the cursor is in the menupane */ if ((params->rootX >= shell->core.x) && (params->rootX < (shell->core.x + shell->core.width + (shell->core.border_width << 1))) && (params->rootY >= shell->core.y) && (params->rootY < (shell->core.y + shell->core.height + (shell->core.border_width << 1)))) { /* Yes, we're in the cascading menupane */ params->remainHighlighted = TRUE; } else { /* No, we've left the cascade region; unpost the menupane */ Unpost (menuMgr, menupane); params->remainHighlighted = FALSE; } } /*************************************<->************************************* * * _XwMenuPaneCleanup (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void _XwMenuPaneCleanup (menupane, menuMgr, data) XwMenuPaneWidget menupane; Widget menuMgr; caddr_t data; /* not used */ { /* * If this menupane is currently attached to a menubutton, or if this * is the top level menupane, then we need to detach it before we * allow it to be destroyed. */ if (menupane->menu_pane.attach_to) { if (menupane->menu_pane.attachId == NULL) DetachPane (menuMgr, menupane, menupane->menu_pane.attach_to); else DoDetach (menuMgr, menupane->menu_pane.attachId, menupane); } } /*************************************<->************************************* * * _XwMenuButtonCleanup(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void _XwMenuButtonCleanup (menubutton, menuMgr, data) Widget menubutton; XwPopupMgrWidget menuMgr; caddr_t data; /* not used */ { Arg arg[1]; XwMenuPaneWidget cascadeOn; /* * Remove any accelerators associated with this menubutton, and if * there is a menupane cacading from us, then break that association, * and add the menupane back into the pending attach list. */ ClearSelectAccelerator (menuMgr, menubutton); XtSetArg (arg[0], XtNcascadeOn, (XtArgVal) &cascadeOn); XtGetValues (menubutton, arg, 1); if (cascadeOn != NULL) { /* Detach, and add back into pending attach list */ DoDetach (menuMgr, menubutton, cascadeOn); AddToPendingList (menuMgr, cascadeOn, cascadeOn->menu_pane.attach_to); } /* * If this menubutton had been the last item selected, and if sticky * menus is enabled, then we need to cleanup the saved cascade list, * so that we don't dump core the next time the menu is posted. */ if ((menuMgr->popup_mgr.stickyMode) && (menuMgr->popup_mgr.numSavedCascades > 0) && (menuMgr->popup_mgr.lastSelected == menubutton->core.self)) { menuMgr->popup_mgr.numSavedCascades = 0; } } /*************************************<->************************************* * * MMPost(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void MMPost (w, event, params, count) Widget w; XEvent * event; String * params; Cardinal count; { XwPopupMgrWidget menuMgr; /* Extract the menu manager widget id */ menuMgr = (XwPopupMgrWidget) _XwMapFromHex (params[0]); /* * If we have made it down here, then we know the post event is * ours to handle. */ if ((menuMgr) && (menuMgr->popup_mgr.topLevelPane)) ClassPost (menuMgr, event, TRUE); } /*************************************<->************************************* * * MMUnpost(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void MMUnpost (w, event, params, count) Widget w; XEvent * event; String * params; Cardinal count; { register XwPopupMgrWidget menuMgr; Boolean traversalOn; /* Extract the menu manager widget id */ menuMgr = (XwPopupMgrWidget) _XwMapFromHex (params[0]); /* * We need to use a temporary variable, because the application may * change this value from underneath us if it has attached any unpost * callbacks to any of the menupanes. */ traversalOn = menuMgr->manager.traversal_on; if ((menuMgr) && (menuMgr->menu_mgr.menuActive)) { /* * Unpost the menu. * To prevent undesirable side effects, the menuActive flag must * always be cleared before bring down the menu system. */ menuMgr->menu_mgr.menuActive = FALSE; Unpost (menuMgr, menuMgr->popup_mgr.topLevelPane); XUngrabPointer (XtDisplay(menuMgr), CurrentTime); /* * If traversal is on, and there are no sticky menupanes currently * being remembered, then we need to reset the focus item to the * first item in the menupane. */ if (traversalOn && (menuMgr->popup_mgr.numSavedCascades == 0)) { ((XwPopupMgrWidget)menuMgr->popup_mgr.topLevelPane)-> manager.active_child = NULL; XtSetKeyboardFocus (menuMgr->popup_mgr.topLevelPane, NULL); } /* * If we warped the mouse because traversal was on, then we need * to move it back to where it was. */ if (traversalOn && (menuMgr->popup_mgr.origMouseX != -1) && (menuMgr->popup_mgr.origMouseY != -1)) { XWarpPointer (XtDisplay (menuMgr), None, RootWindowOfScreen(menuMgr->core.screen), 0, 0, 0, 0, menuMgr->popup_mgr.origMouseX, menuMgr->popup_mgr.origMouseY); menuMgr->popup_mgr.origMouseX = -1; menuMgr->popup_mgr.origMouseY = -1; } } } /*************************************<->************************************* * * MMAccelPost (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void MMAccelPost (w, event, params, count) Widget w; XEvent * event; String * params; Cardinal count; { register XwPopupMgrWidget menuMgr; /* Extract the menu manager widget id */ menuMgr = (XwPopupMgrWidget) _XwMapFromHex (params[0]); /* * If we have made it down here, then we know the accelerator event is * ours to handle. */ if ((menuMgr) && (menuMgr->popup_mgr.topLevelPane)) ClassPost (menuMgr, event, FALSE); } /*************************************<->************************************* * * MMAccelSelect (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void MMAccelSelect (w, event, params, count) Widget w; XEvent * event; String * params; Cardinal count; { register XwPopupMgrWidget menuMgr; /* Extract the menu manager widget id */ menuMgr = (XwPopupMgrWidget) _XwMapFromHex (params[0]); if (menuMgr == NULL) return; /* * if menus are not inherited, throw out events that did occur * in the associated widget's children. This takes care of the case * where the child does not select for key events, so they propagate * to us. */ if (menuMgr->menu_mgr.associateChildren == FALSE) { if ((event->xkey.window == XtWindow (XtParent (XtParent (menuMgr)))) && (event->xkey.subwindow != 0) && (XtWindowToWidget (XtDisplay (menuMgr), event->xkey.subwindow))) return; } /* * If we have made it down here, then we know the accelerator event is * ours to handle. */ if (menuMgr->popup_mgr.topLevelPane) ClassSelect ((XwMenuMgrWidget)menuMgr, event); } /*************************************<->************************************* * * AttachPane(menuMgr, menupane, name) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void AttachPane (menuMgr, menupane, name) register XwPopupMgrWidget menuMgr; register XwMenuPaneWidget menupane; String name; { register XwMenuButtonWidget menubutton; Arg arg[1]; register int i, j; CompositeWidget shell, mpane; XrmName nameQuark; if (name == NULL) return; /* * Save a copy of the menupane Id, since this has been called as * a result of a SetValues being done on the menupane, and all of * our lists only contain the old widget pointer. */ menuMgr->popup_mgr.attachPane = menupane; /* * check if name is menu manager's name, then this is to be a top level */ if ((strcmp (name, menuMgr->core.name) == 0) && (XwStrlen(name) == XwStrlen(menuMgr->core.name))) { /* Remove the cascade list when the top level pane changes */ menuMgr->popup_mgr.numSavedCascades = 0; if (menuMgr->popup_mgr.topLevelPane != NULL) { /* Detach the previous top level pane */ XtSetArg (arg[0], XtNattachTo, (XtArgVal) NULL); XtSetValues (menuMgr->popup_mgr.topLevelPane, arg, 1); } /* * save menupane ID. Since this may be called from menupane's * SetValues routine, the widget passed may be the new structure. * Grab the self field in core to insure the right ID is used. */ menuMgr->popup_mgr.topLevelPane = menupane->core.self; menupane->menu_pane.attachId = NULL; SetTreeAccelerators (menuMgr, menupane); } else { /* * check if its a menubutton name in the menu system. */ nameQuark = XrmStringToQuark(name); for (i = 0; i < menuMgr->core.num_popups; i++) { /* * for each shell, if its child is a menupane and the menupane * has a menubutton of the passed in name, then do the attach */ shell = (CompositeWidget) menuMgr->core.popup_list[i]; if ((shell->composite.num_children == 1) && (XtIsSubclass(shell->composite.children[0], XwmenupaneWidgetClass))) { mpane = (CompositeWidget) shell->composite.children[0]; for (j = 0; j < mpane->composite.num_children; j++) { menubutton = (XwMenuButtonWidget)mpane->composite.children[j]; if (menubutton->core.xrm_name == nameQuark) { Widget dwidget = NULL; /* * If there is a menupane already attached to this * button, then we need to first detach it. */ XtSetArg (arg[0], XtNcascadeOn, (XtArgVal) &dwidget); XtGetValues ((Widget)menubutton, arg, 1); if (dwidget) { /* Detach the old pane */ Widget temppane = dwidget; XtSetArg (arg[0], XtNattachTo, (XtArgVal) NULL); XtSetValues (temppane, arg, 1); } XtSetArg (arg[0], XtNcascadeOn, (XtArgVal) menupane->core.self); XtSetValues ((Widget)menubutton, arg, 1); menupane->menu_pane.attachId = (Widget) menubutton; XtAddCallback ((Widget) menubutton, XtNcascadeSelect, (XtCallbackProc)_XwCascadeSelect, menupane->core.self); XtAddCallback ((Widget) menubutton, XtNcascadeUnselect, (XtCallbackProc)_XwCascadeUnselect, menupane->core.self); if (CompletePath(menuMgr, menupane)) SetTreeAccelerators (menuMgr, menupane); menuMgr->popup_mgr.attachPane = NULL; return; } } } } /* * Couldn't find a menubutton with this name */ AddToPendingList (menuMgr, menupane, name); } /* This always needs to be cleared out when we are done */ menuMgr->popup_mgr.attachPane = NULL; } /*************************************<->************************************* * * DetachPane (menuMgr, menupane, name) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void DetachPane (menuMgr, menupane, name) register XwPopupMgrWidget menuMgr; XwMenuPaneWidget menupane; String name; { register int i; Arg arg; XwMenuButtonWidget menubutton; CompositeWidget shell; if (name == NULL) return; /* * if menupane is on the pending attach list, remove it and return */ for (i=0; i < menuMgr->menu_mgr.numAttachReqs; i++) { if (menuMgr->menu_mgr.pendingAttachList[i].menupaneId == menupane->core.self) { menuMgr->menu_mgr.pendingAttachList[i] = menuMgr->menu_mgr.pendingAttachList [--menuMgr->menu_mgr.numAttachReqs]; return; } } /* * Save a copy of the menupane Id, since this has been called as * a result of a SetValues being done on the menupane, and all * of our lists only contain the old widget pointer. */ menuMgr->popup_mgr.detachPane = menupane; /* * if name is the menu manager's name, removing top level */ if ((strcmp (name, menuMgr->core.name) == 0) && (XwStrlen(name) == XwStrlen(menuMgr->core.name))) { menupane->menu_pane.attachId = (Widget) NULL; if (menupane->core.self == menuMgr->popup_mgr.topLevelPane) { ClearTreeAccelerators (menuMgr, menupane->core.self); menuMgr->popup_mgr.topLevelPane = NULL; } } else { /* * detach pane from menubutton. Look on each of the menu managers * popup children for a menupane which contains this named menubutton. */ for (i = 0; i < menuMgr->core.num_popups; i++) { shell = (CompositeWidget) menuMgr->core.popup_list[i]; if ((shell->composite.num_children == 1) && (XtIsSubclass(shell->composite.children[0], XwmenupaneWidgetClass))) { if ((menubutton = (XwMenuButtonWidget) XtNameToWidget(shell->composite.children[0], name)) != NULL) { /* * Found it! Detach it */ DoDetach (menuMgr, menubutton, menupane); menuMgr->popup_mgr.detachPane = NULL; return; } } } } /* This must always be cleared when we leave */ menuMgr->popup_mgr.detachPane = NULL; } /*************************************<->************************************* * * DoDetach(parameters) * * Description: * ----------- * This routine does the actual work of detaching a menupane from a * menubutton. It has been separated out from DetachPane() due to * a BUG in the X toolkits destroy scenario. When the toolkit is * destroying popup children, it replaces the widget Id entry within * the popup list with the window Id for that widget. DetachPane() * attempts to traverse this list, looking for the named menubutton. * Unfortunately, if this list contains any window Ids, then we may * get a core dump; this only can happen when the menu is being * destroyed. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void DoDetach (menuMgr, menubutton, menupane) register XwPopupMgrWidget menuMgr; XwMenuButtonWidget menubutton; XwMenuPaneWidget menupane; { Arg arg[1]; register int i; /* Detach a menupane from a menubutton */ XtRemoveCallback ((Widget)menubutton, XtNcascadeSelect, (XtCallbackProc)_XwCascadeSelect, menupane->core.self); XtRemoveCallback ((Widget)menubutton, XtNcascadeUnselect, (XtCallbackProc)_XwCascadeUnselect, menupane->core.self); ClearTreeAccelerators (menuMgr, menupane->core.self); XtSetArg (arg[0], XtNcascadeOn, (XtArgVal) NULL); XtSetValues ((Widget)menubutton, arg, 1); menupane->menu_pane.attachId = NULL; /* * If this menupane is on the saved cascade list (because sticky * menus are enabled), then we need to clean up the list, so that * we don't dump core the next time we post. */ if ((menuMgr->popup_mgr.stickyMode) && (menuMgr->popup_mgr.numSavedCascades > 0)) { for (i = 0; i < menuMgr->popup_mgr.numSavedCascades; i++) { if (menuMgr->popup_mgr.savedCascadeList[i] == (Widget)menupane->core.self) { menuMgr->popup_mgr.numSavedCascades = 0; break; } } } } /*************************************<->************************************* * * AddPane(menuMgr, menupane) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void AddPane (menuMgr, menupane) register XwMenuMgrWidget menuMgr; XwMenuPaneWidget menupane; { register int k; register int traversalType; register XwMenuButtonWidget mbutton; XtAddCallback ((Widget)menupane, XtNdestroyCallback, (XtCallbackProc)_XwMenuPaneCleanup, menuMgr); if (menuMgr->menu_mgr.selectString) { SetUpTranslation (menupane, menuMgr->menu_mgr.selectString, selectTemplate); } if (menuMgr->menu_mgr.unpostString) { RegisterTranslation (menupane, menuMgr->menu_mgr.unpostString, unpostTemplate, menuMgr); } if (menuMgr->menu_mgr.kbdSelectString) { SetUpTranslation (menupane, menuMgr->menu_mgr.kbdSelectString, selectTemplate); } /* Propogate the state of our traversal flag */ if (XtIsSubclass ((Widget)menupane, XwmenupaneWidgetClass)) { (*(((XwMenuPaneWidgetClass) XtClass(menupane))-> menu_pane_class.setTraversalFlag)) ((Widget)menupane, menuMgr->manager.traversal_on); } /****************** * THE FOLLOWING IS NOT NEEDED, SINCE A MENUPANE CAN NEVER HAVE * ANY CHILDREN AT THIS TIME. * * traversalType = (menuMgr->manager.traversal_on) ? XwHIGHLIGHT_TRAVERSAL: * XwHIGHLIGHT_OFF; * * for (k = 0; k < menupane->manager.num_managed_children; k++) * { * /* Here we set the traversal flag for the menubuttons * mbutton = (XwMenuButtonWidget)menupane->composite.children[k]; * if (XtIsSubclass (mbutton, XwmenubuttonWidgetClass)) * { * (*(((XwMenuButtonWidgetClass) * XtClass(mbutton))-> menubutton_class.setTraversalType)) * (mbutton, traversalType); * } * } *********************/ } /*************************************<->************************************* * * SetSelectAccelerator (menuMgr, menubutton, accelString, accelEventType, * accelKey, accelModifiers) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetSelectAccelerator (menuMgr, menubutton, accelString, accelEventType, accelKey, accelModifiers) Widget menuMgr; Widget menubutton; String accelString; unsigned int accelEventType; unsigned int accelKey; unsigned int accelModifiers; { Widget widget; XwKeyAccel * tempAccel; if (CompletePath(menuMgr, menubutton->core.parent)) { ClearSelectAccelerator (menuMgr, menubutton->core.self); SetButtonAccelerators (menuMgr, menubutton->core.self, accelString, accelEventType, accelKey, accelModifiers); } } /*************************************<->************************************* * * ClearSelectAccelerator (menuMgr, menubutton) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClearSelectAccelerator (menuMgr, menubutton) register XwPopupMgrWidget menuMgr; Widget menubutton; { register int i; Widget widget; /* * search accelerator table for menubutton */ for (i=0; i < menuMgr->menu_mgr.numAccels; i++) { if (menuMgr->menu_mgr.menuBtnAccelTable[i].menuBtn == menubutton->core.self) { /* * remove translation in associated widget & toplevel pane * and remove grab */ widget = (Widget) XtParent (XtParent (menuMgr)); RegisterTranslation (widget, menuMgr->menu_mgr.menuBtnAccelTable[i].accelString, accelSelectTemplate, NULL); if (menuMgr->popup_mgr.topLevelPane) { RegisterTranslation (menuMgr->popup_mgr.topLevelPane, menuMgr->menu_mgr.menuBtnAccelTable[i].accelString, accelSelectTemplate, NULL); /* * Because of a short coming in the toolkit, we need to * potentially patch the top level widget's translations, * if it was in the middle of a setvalues. */ if ((menuMgr->popup_mgr.detachPane) && (menuMgr->popup_mgr.topLevelPane == menuMgr->popup_mgr.detachPane->core.self)) { menuMgr->popup_mgr.detachPane->core.tm = menuMgr->popup_mgr.topLevelPane->core.tm; menuMgr->popup_mgr.detachPane->core.event_table = menuMgr->popup_mgr.topLevelPane->core.event_table; } } if ((menuMgr->menu_mgr.associateChildren) && (XtIsRealized (widget))) { XUngrabKey (XtDisplay (widget), menuMgr->menu_mgr.menuBtnAccelTable[i].accelKey, menuMgr->menu_mgr.menuBtnAccelTable[i].accelModifiers, XtWindow (widget)); } /* * remove menubutton accelerator table entry */ menuMgr->menu_mgr.menuBtnAccelTable[i] = menuMgr->menu_mgr.menuBtnAccelTable[--menuMgr->menu_mgr.numAccels]; return; } } } /*************************************<->************************************* * * AddButton(menuMgr, menubutton) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void AddButton (menuMgr, menubutton) register XwMenuMgrWidget menuMgr; register Widget menubutton; { Arg args[2]; Widget pending; int traversalType; if (menuMgr->menu_mgr.selectString) { SetUpTranslation (menubutton, menuMgr->menu_mgr.selectString, selectTemplate); } if (menuMgr->menu_mgr.unpostString) { RegisterTranslation (menubutton, menuMgr->menu_mgr.unpostString, unpostTemplate, menuMgr); } if (menuMgr->menu_mgr.kbdSelectString) { SetUpTranslation (menubutton, menuMgr->menu_mgr.kbdSelectString, selectTemplate); } XtSetArg (args[0], XtNcascadeOn, (XtArgVal) NULL); XtSetArg (args[1], XtNmgrOverrideMnemonic, (XtArgVal) TRUE); XtSetValues (menubutton, args, XtNumber(args)); XtAddCallback (menubutton, XtNdestroyCallback, (XtCallbackProc)_XwMenuButtonCleanup, menuMgr); /* * Accelerators are now handled when the button is managed! */ /* * if this menubutton is on the pending attach list, do attach */ if (pending = PendingAttach (menuMgr, menubutton)) AttachPane (menuMgr, pending, menubutton->core.name); /* Propogate the our traversal state */ traversalType = (menuMgr->manager.traversal_on) ? XwHIGHLIGHT_TRAVERSAL: XwHIGHLIGHT_OFF; if (XtIsSubclass (menubutton, XwmenubuttonWidgetClass)) { (*(((XwMenuButtonWidgetClass) XtClass(menubutton))-> menubutton_class.setTraversalType)) (menubutton, traversalType); } } /*************************************<->************************************* * * Unpost (menuMgr, menupane) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Unpost (menuMgr, menupane) register XwPopupMgrWidget menuMgr; XwMenuPaneWidget menupane; { register int i,j; register XwMenuPaneWidget pane; register Widget * currentCascadeList; register WidgetList managed_children; /* * To keep all window managers happy, move the focus before we pop * down the menupane with the current focus. */ if ((menupane != (XwMenuPaneWidget) menuMgr->popup_mgr.topLevelPane) && (menuMgr->manager.traversal_on)) { XwMoveFocus (XtParent(menupane->menu_pane.attachId)); } currentCascadeList = menuMgr->popup_mgr.currentCascadeList; /* * popdown any cascading submenus including menupane */ for (i = menuMgr->popup_mgr.numCascades - 1; i >= 0; i--) { /* * for each button in pane, unhighlight it and clear cascade flag */ pane = ((XwMenuPaneWidget) currentCascadeList[i]); XtRemoveGrab ((Widget)pane); XtPopdown (XtParent (pane)); managed_children = pane->manager.managed_children; for (j = 0; j < pane->manager.num_managed_children; j++) { if (XtIsSubclass (managed_children[j], XwmenubuttonWidgetClass)) { (*(((XwMenuButtonWidgetClass) XtClass(managed_children[j]))->menubutton_class.unhighlightProc)) (managed_children[j]); (*(((XwMenuButtonWidgetClass) XtClass(managed_children[j]))->menubutton_class.clearCascadeProc)) (managed_children[j]); } } --menuMgr->popup_mgr.numCascades; /* * if this is not the target pane then the next one must have had an enter * window event handler added when cascaded out of it. */ if ((pane != menupane) && (i > 0)) { if (menuMgr->manager.traversal_on == FALSE) { XtRemoveEventHandler (currentCascadeList[i-1], EnterWindowMask, FALSE, (XtEventHandler) ((XwMenuButtonWidgetClass) XtClass(pane->menu_pane.attachId))-> menubutton_class.enterParentProc, pane->menu_pane.attachId); } else { /* Kludge to force the grablist to get cleaned up */ XtSetKeyboardFocus (XtParent(pane), None); } } else { if (menuMgr->manager.traversal_on) { /* Kludge to force the grablist to get cleaned up */ XtSetKeyboardFocus (XtParent(pane), None); } XFlush (XtDisplay(menuMgr)); return; } } } /*************************************<->************************************* * * Post(menuMgr, menupane, grabtype) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * * _XtPopup * *************************************<->***********************************/ static void Post (menuMgr, menupane, grabtype) register XwPopupMgrWidget menuMgr; Widget menupane; XtGrabKind grabtype; { register int i; /* * if already posted, do nothing */ for (i=0; i < menuMgr->popup_mgr.numCascades; i++) if (menuMgr->popup_mgr.currentCascadeList[i] == menupane) return; /* * set up grabs */ if (grabtype == XtGrabNonexclusive) { _XtPopup (XtParent (menupane), grabtype, FALSE); XtAddGrab (menupane, FALSE, FALSE); } else { _XtPopup (XtParent (menupane), grabtype, TRUE); XtAddGrab (menupane, TRUE, TRUE); } /* * add menupane to current cascade list */ if (menuMgr->popup_mgr.numCascades == menuMgr->popup_mgr.sizeCascadeList) { menuMgr->popup_mgr.sizeCascadeList = 2 * menuMgr->popup_mgr.sizeCascadeList; menuMgr->popup_mgr.currentCascadeList = (Widget *) XtRealloc((char *)(menuMgr->popup_mgr.currentCascadeList), menuMgr->popup_mgr.sizeCascadeList * sizeof (Widget)); } menuMgr->popup_mgr.currentCascadeList[menuMgr->popup_mgr.numCascades++] = menupane; } /*************************************<->************************************* * * ProcessSelect(menuMgr, widget, event) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean ProcessSelect (menuMgr, widget, event) register XwPopupMgrWidget menuMgr; Widget widget; XEvent * event; { register XwKeyAccel * accelerator; register int i; Boolean found = FALSE; Widget assocWidget; Boolean traversalOn; /* * If the menu manager or the associated widget is insensitive, then * ignore the select request. */ assocWidget = XtParent(XtParent(menuMgr)); if (!XtIsSensitive((Widget)menuMgr) || !XtIsSensitive(assocWidget)) return (FALSE); /* * is this a valid button event? */ if ((event->xany.type==ButtonPress) || (event->xany.type==ButtonRelease)) { if (_XwMatchBtnEvent (event, menuMgr->menu_mgr.selectEventType, menuMgr->menu_mgr.selectButton, menuMgr->menu_mgr.selectModifiers)) { if (menuMgr->menu_mgr.menuActive == FALSE) return (FALSE); /* * During traversal, since menupanes are not unposted when * the mouse enters a different menupane, we need to ignore * selects which occur in a menubtn in one of these panes. */ if ((menuMgr->manager.traversal_on) && (XtIsSubclass (widget, XwmenubuttonWidgetClass)) && (XtParent(widget) != menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades - 1])) { return (FALSE); } SetUpStickyList (menuMgr, widget); } else return (FALSE); } /* * if its not key accelerator, return false */ else if ((event->xany.type == KeyPress) || (event->xany.type == KeyRelease)) { /* Check for the kbd select event */ if (_XwMatchKeyEvent (event, menuMgr->menu_mgr.kbdSelectEventType, menuMgr->menu_mgr.kbdSelectKey, menuMgr->menu_mgr.kbdSelectModifiers)) { SetUpStickyList (menuMgr, widget); } else { for (i=0; (i < menuMgr->menu_mgr.numAccels) && (found == FALSE); i++) { accelerator = menuMgr->menu_mgr.menuBtnAccelTable + i; found = _XwMatchKeyEvent (event, accelerator->accelEventType, accelerator->accelKey, accelerator->accelModifiers); } if (found == FALSE) return (FALSE); menuMgr->popup_mgr.numSavedCascades = 0; if (menuMgr->manager.traversal_on) { /* Force the first item to be highlighted next time */ ((XwPopupMgrWidget)menuMgr->popup_mgr.topLevelPane)-> manager.active_child = NULL; XtSetKeyboardFocus (menuMgr->popup_mgr.topLevelPane, NULL); } /* SetUpStickyList (menuMgr, widget); */ } } else return (FALSE); /* * if the menu system is active, bring it down */ if (menuMgr->menu_mgr.menuActive) { /* * We need to use a temporary variable because the application has * the chance to change this from underneath us if they have set up * an unpost callback. */ traversalOn = menuMgr->manager.traversal_on; menuMgr->menu_mgr.menuActive = FALSE; Unpost (menuMgr, menuMgr->popup_mgr.topLevelPane); /* We need to remove the grab we set in ClassPost() */ XUngrabPointer (XtDisplay(menuMgr), CurrentTime); /* * If we warped the mouse because traversal was on, then we need * to move it back to where it was. */ if (traversalOn && (menuMgr->popup_mgr.origMouseX != -1) && (menuMgr->popup_mgr.origMouseY != -1)) { XWarpPointer (XtDisplay (menuMgr), None, RootWindowOfScreen(menuMgr->core.screen), 0, 0, 0, 0, menuMgr->popup_mgr.origMouseX, menuMgr->popup_mgr.origMouseY); menuMgr->popup_mgr.origMouseX = -1; menuMgr->popup_mgr.origMouseY = -1; } } return (TRUE); } /*************************************<->************************************* * * ValidEvent(menuMgr, menubutton, event) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean ValidEvent (menuMgr, menubutton, event) XwPopupMgrWidget menuMgr; Widget menubutton; XEvent * event; { /* Ignore enter and leave events if traversal is active */ if (menuMgr->manager.traversal_on) return (FALSE); else return (TRUE); } /*************************************<->************************************* * * DoICascade (menuMgr) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean DoICascade (menuMgr, menuBtn) register XwPopupMgrWidget menuMgr; Widget menuBtn; { /* Ignore cascade events if traversal is currently active */ if ((menuMgr->menu_mgr.menuActive) && (menuMgr->manager.traversal_on == FALSE)) { Widget lastCascade = menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades -1]; if ((XtParent(menuBtn) == lastCascade) || (menuBtn == ((XwMenuPaneWidget)(lastCascade))->menu_pane.attachId)) { return (TRUE); } } return (FALSE); } /*************************************<->************************************* * * ClassPost(menuMgr, event, warpOn) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClassPost (menuMgr, event, warpOn) register XwPopupMgrWidget menuMgr; XEvent * event; Boolean warpOn; { register int i; Position posx, posy; int x, y, relativeX, relativeY; int yDelta; XButtonEvent * buttonEvent = (XButtonEvent *) event; Widget assocWidget, w; Widget menuBtn; XwMenuPaneWidget tempPane; XwManagerWidget topLevelPane; XWindowChanges windowChanges; ShellWidget shell; Window root, child; int rootx, rooty, childx, childy; unsigned int returnMask; /* * If either the menu manager or the associated widget is insensitive, * then ignore the post request. */ assocWidget = XtParent (XtParent (menuMgr)); if (!XtIsSensitive((Widget)menuMgr) || !XtIsSensitive(assocWidget)) return; /* * if menus are not inherited, throw out events that did occur * in the associated widget's children. */ if (menuMgr->menu_mgr.associateChildren == FALSE) { if ((event->xkey.window == XtWindow (XtParent (XtParent (menuMgr)))) && (event->xkey.subwindow != 0) && (XtWindowToWidget (XtDisplay (menuMgr), event->xkey.subwindow))) return; } /* * The following is a kludge fix to bypass a shortcoming within Xtk. * We need to manually inform the previous focus widget that it has * lost the cursor; this is because once we add our popups to the * grablist, the LeaveNotify will be ignored for the focus widget, * because it is not on the grablist. */ /* if (menuMgr->manager.traversal_on) */ SendFakeLeaveNotify(menuMgr, ULTIMATE_PARENT); /* Mark the menu system as 'active' */ menuMgr->menu_mgr.menuActive = TRUE; /* * Position the menupane's parent shell. If its a post, position to * the pointer position. If its an accelerator, position to the center * of the associated widget */ topLevelPane =(XwManagerWidget)menuMgr->popup_mgr.topLevelPane; /* * In order for this algorithm to work, we need to make sure the * menupane has been realized; this is because its size is not * yet valid because it is not notified that it has any children * until it is realized. */ if (!XtIsRealized (XtParent(topLevelPane ))) XtRealizeWidget (XtParent (topLevelPane )); if ((event->type == ButtonPress) || (event->type == ButtonRelease)) { /* * The server does an implicit grab, but doesn't do it in the * manner we need for menupanes and menubuttons to continue * to highlight and function. */ if (event->type == ButtonPress) XUngrabPointer (XtDisplay(menuMgr), CurrentTime); /* * If traversal is on, then save the current mouse position, * so that we can restore the mouse to its original position * when the menu is unposted. */ if (menuMgr->manager.traversal_on) { menuMgr->popup_mgr.origMouseX = buttonEvent->x_root; menuMgr->popup_mgr.origMouseY = buttonEvent->y_root; } x = buttonEvent->x_root - (XwCASCADEWIDTH + FUDGE_FACTOR + topLevelPane ->core.border_width); y = buttonEvent->y_root; /* Attempt to center on the first button in the new menupane */ { if (topLevelPane->manager.num_managed_children > 0) { Widget firstButton = topLevelPane->manager.managed_children[0]; /* yDelta = firstButton->core.y + firstButton->core.border_width + (firstButton->core.height >> 1); */ yDelta = 0; } else { yDelta = topLevelPane->core.border_width + (topLevelPane->core.height >> 1); } } y -= yDelta; } else { /* * center on the associated widget */ relativeX = (assocWidget->core.width>>1); relativeY = (assocWidget->core.height>>1); /* Get our coordinates, relative to the root window */ XTranslateCoordinates (XtDisplay(menuMgr), assocWidget->core.window, RootWindowOfScreen(XtScreen(menuMgr)), relativeX, relativeY, &x, &y, &child); /* * If traversal is on, then save the current mouse position, * so that we can restore the mouse to its original position * when the menu is unposted. */ if (menuMgr->manager.traversal_on) { if (XQueryPointer(XtDisplay(menuMgr), RootWindowOfScreen(menuMgr->core.screen), &root, &child, &rootx, &rooty, &childx, &childy, &returnMask)) { menuMgr->popup_mgr.origMouseX = rootx; menuMgr->popup_mgr.origMouseY = rooty; } } } posx = x; posy = y; ForceMenuPaneOnScreen (topLevelPane, &posx, &posy); x = posx; y = posy; XtMoveWidget (XtParent(topLevelPane), x, y); /* * This allows us to catch all selects, and unpost the menus * regardless where the select event occurs. */ XGrabPointer (XtDisplay(menuMgr), XtWindow(assocWidget), TRUE, ButtonPressMask|ButtonReleaseMask|EnterWindowMask|LeaveWindowMask| PointerMotionMask, GrabModeAsync, GrabModeAsync, None, (Cursor)NULL, CurrentTime); if ((menuMgr->popup_mgr.stickyMode) && (menuMgr->popup_mgr.numSavedCascades)) { /* * Attempt to gracefully handle the case where one of the menupanes * or menubuttons in the current cascade list has become insensitive * since the last posting. */ for (i=0; i < menuMgr->popup_mgr.numSavedCascades; i++) { tempPane = (XwMenuPaneWidget)menuMgr->popup_mgr.savedCascadeList[i]; if ((tempPane->menu_pane.attachId) && (!XtIsSensitive(tempPane->menu_pane.attachId))) { /* * We are cascading from an insensitive menubutton. * Stop at the preceeding menupane. */ menuMgr->popup_mgr.numSavedCascades = i; menuMgr->popup_mgr.lastSelected = tempPane->menu_pane.attachId; break; } else if (!XtIsSensitive((Widget)tempPane)) { /* * If this menupane is insensitive, then stop here. */ menuMgr->popup_mgr.numSavedCascades = i + 1; if (tempPane->manager.num_managed_children > 0) { menuMgr->popup_mgr.lastSelected = tempPane->manager. managed_children[0]; } else menuMgr->popup_mgr.lastSelected = (Widget)tempPane; break; } } /* Set up grab for the top level menupane */ XtAddGrab (XtParent(topLevelPane), TRUE, TRUE); XtAddGrab ((Widget)topLevelPane, TRUE, TRUE); menuMgr->popup_mgr.currentCascadeList[menuMgr->popup_mgr.numCascades++] = (Widget)topLevelPane; /* * position the menupanes on the sticky cascade list */ for (i=1; i < menuMgr->popup_mgr.numSavedCascades; i++) { tempPane = (XwMenuPaneWidget) menuMgr->popup_mgr.savedCascadeList[i]; PositionCascade (tempPane->menu_pane.attachId, tempPane); XtAddGrab (XtParent(tempPane), FALSE, FALSE); XtAddGrab ((Widget)tempPane, FALSE, FALSE); menuMgr->popup_mgr.currentCascadeList [menuMgr->popup_mgr.numCascades++] = (Widget)tempPane; } /* * warp the pointer to its final destination. This must be done * AFTER the panes are positioned, but BEFORE they are posted. */ if (warpOn) { XWarpPointer (XtDisplay (menuMgr), None, XtWindow(menuMgr->popup_mgr.lastSelected), 0, 0, 0, 0, 5, 5); } /* Post the last menupane */ shell = (ShellWidget)XtParent (menuMgr->popup_mgr.savedCascadeList [menuMgr->popup_mgr.numSavedCascades - 1]); shell->shell.popped_up = TRUE; shell->shell.grab_kind = XtGrabNonexclusive; shell->shell.spring_loaded = FALSE; if (!XtIsRealized((Widget)shell)) XtRealizeWidget ((Widget)shell); XMapRaised (XtDisplay(shell), XtWindow(shell)); /* * Post and then configure the menupanes and menubuttons. * THIS MUST BE DONE AFTER THE WARP POINTER!!! */ for (i= menuMgr->popup_mgr.numSavedCascades - 2; i >= 0; i--) { /* * Popup the pane and add to the grablist. * This cannot use _XtPopup() because it used XMapRaised(). */ tempPane = (XwMenuPaneWidget) menuMgr->popup_mgr.savedCascadeList[i]; shell = (ShellWidget) XtParent(tempPane); windowChanges.sibling = XtWindow(XtParent(menuMgr->popup_mgr. savedCascadeList[i+1])); windowChanges.stack_mode = Below; XConfigureWindow (XtDisplay(menuMgr), XtWindow(shell), CWSibling | CWStackMode, &windowChanges); shell->shell.popped_up = TRUE; shell->shell.grab_kind = XtGrabNonexclusive; shell->shell.spring_loaded = FALSE; if (!XtIsRealized ((Widget)shell)) XtRealizeWidget ((Widget)shell); XMapWindow (XtDisplay(shell), XtWindow(shell)); /* * highlight menubutton, set its cascade flag and set up event * handler on its parent */ menuBtn = (((XwMenuPaneWidget)(menuMgr->popup_mgr. savedCascadeList[i+1]))->menu_pane.attachId); if (menuMgr->manager.traversal_on == FALSE) { (*(((XwMenuButtonWidgetClass) XtClass(menuBtn))->menubutton_class.highlightProc)) (menuBtn); } (*(((XwMenuButtonWidgetClass) XtClass(menuBtn))-> menubutton_class.setCascadeProc)) (menuBtn); if (menuMgr->manager.traversal_on == FALSE) { XtAddEventHandler ((Widget)tempPane, EnterWindowMask, False, (XtEventHandler) ((XwMenuButtonWidgetClass) XtClass(menuBtn))-> menubutton_class.enterParentProc, menuBtn); } } /* * DON'T DO THE FOLLOWING; HAVE THE ITEM HILIGHT WHEN THE CURSOR * ENTERS IT. */ /******** * for keyboard posts, highlight the last selected menubutton. * *if ((warpOn == FALSE) && (menuMgr->manager.traversal_on == FALSE)) *{ * (*(((XwMenuButtonWidgetClass) * XtClass(menuMgr->popup_mgr.lastSelected))-> * menubutton_class.highlightProc)) * (menuMgr->popup_mgr.lastSelected); *} *******/ } else { /* * post only the toplevel. * post the toplevel menupane with exclusive grabs. All other panes * have nonexclusive grabs. */ Post (menuMgr, topLevelPane, XtGrabExclusive); } /* Set the traversal focus to the last pane, if necessary */ if (menuMgr->manager.traversal_on) { XwMoveFocus (menuMgr->popup_mgr.currentCascadeList [ menuMgr->popup_mgr.numCascades - 1]); } XFlush(XtDisplay(menuMgr)); } /*************************************<->************************************* * * ClassSelect(menuMgr, event) * * Description: * ----------- * Called only when a menubutton select accelerator is received. * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClassSelect (menuMgr, event) XwMenuMgrWidget menuMgr; XEvent * event; { register int i; Widget assocWidget; register XwKeyAccel * accelerator; /* * If either the menu manager or the associated widget is insensitive, * then ignore the select accelerator. */ assocWidget = XtParent(XtParent(menuMgr)); if (!XtIsSensitive((Widget)menuMgr) || !XtIsSensitive(assocWidget)) return; /* * map the event into an accelerator and call the menubuttons select rtn. */ for (i=0; i < menuMgr->menu_mgr.numAccels; i++) { accelerator = menuMgr->menu_mgr.menuBtnAccelTable + i; if (_XwMatchKeyEvent (event, accelerator->accelEventType, accelerator->accelKey, accelerator->accelModifiers)) { if (XtIsSensitive(accelerator->menuBtn) && _XwAllAttachesAreSensitive(accelerator->menuBtn)) { (*(((XwMenuButtonWidgetClass) XtClass (accelerator->menuBtn))-> primitive_class.select_proc)) (accelerator->menuBtn, event); } return; } } } /*************************************<->************************************* * * AddToPendingList(menuMgr, menupane, name) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void AddToPendingList (menuMgr, menupane, name) register XwMenuMgrWidget menuMgr; Widget menupane; String name; { register int nameLen; register int i; Arg arg[1]; register String button; /* * If there is already a request in the pending list for an attach * to the same menu button, then we need to remove the older one. */ nameLen = XwStrlen(name); for (i = 0; i < menuMgr->menu_mgr.numAttachReqs; i++) { button = menuMgr->menu_mgr.pendingAttachList[i].menuBtnName; if ((strcmp(name, button) == 0) && (nameLen == XwStrlen(button))) { /* Detach the older request */ XtSetArg (arg[0], XtNattachTo, (XtArgVal) NULL); XtSetValues (menuMgr->menu_mgr.pendingAttachList[i].menupaneId, arg, 1); break; } } if (menuMgr->menu_mgr.numAttachReqs == menuMgr->menu_mgr.sizeAttachList) { /* * resize the list */ menuMgr->menu_mgr.sizeAttachList = 2 * menuMgr->menu_mgr.sizeAttachList; menuMgr->menu_mgr.pendingAttachList = (XwAttachList *) XtRealloc((char *)(menuMgr->menu_mgr.pendingAttachList), menuMgr->menu_mgr.sizeAttachList * sizeof(XwAttachList)); } menuMgr->menu_mgr.pendingAttachList [menuMgr->menu_mgr.numAttachReqs].menuBtnName = name; menuMgr->menu_mgr.pendingAttachList [menuMgr->menu_mgr.numAttachReqs++].menupaneId = menupane->core.self; } /*************************************<->************************************* * * SetButtonAccelerators (menuMgr, menubutton, accelString, accelEventType, * accelKey, accelModifiers) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetButtonAccelerators (menuMgr, menubutton, accelString, accelEventType, accelKey, accelModifiers) register XwPopupMgrWidget menuMgr; Widget menubutton; String accelString; unsigned int accelEventType; unsigned int accelKey; unsigned int accelModifiers; { Widget widget; register XwKeyAccel * accelerator; /* * add entry to menubutton accelerator table */ if (menuMgr->menu_mgr.numAccels == menuMgr->menu_mgr.sizeAccelTable) { menuMgr->menu_mgr.sizeAccelTable = 2 * menuMgr->menu_mgr.sizeAccelTable; menuMgr->menu_mgr.menuBtnAccelTable = (XwKeyAccel *) XtRealloc((char *)(menuMgr->menu_mgr.menuBtnAccelTable), menuMgr->menu_mgr.sizeAccelTable * sizeof(XwKeyAccel)); } accelerator = menuMgr->menu_mgr.menuBtnAccelTable + menuMgr->menu_mgr.numAccels; accelerator->accelString = accelString; accelerator->accelEventType = accelEventType; accelerator->accelKey = accelKey; accelerator->accelModifiers = accelModifiers; accelerator->menuBtn = menubutton->core.self; menuMgr->menu_mgr.numAccels++; /* * set translation in associated widget & toplevel pane for accelerator */ widget = (Widget) XtParent (XtParent (menuMgr)); RegisterTranslation (widget, accelString, accelSelectTemplate, menuMgr); if (menuMgr->popup_mgr.topLevelPane) { RegisterTranslation (menuMgr->popup_mgr.topLevelPane, accelString, accelSelectTemplate, menuMgr); /* * Because of a short coming in the toolkit, we need to * potentially patch the top level widget's translations, * if it was in the middle of a setvalues. */ if ((menuMgr->popup_mgr.attachPane) && (menuMgr->popup_mgr.topLevelPane == menuMgr->popup_mgr.attachPane->core.self)) { menuMgr->popup_mgr.attachPane->core.tm = menuMgr->popup_mgr.topLevelPane->core.tm; menuMgr->popup_mgr.attachPane->core.event_table = menuMgr->popup_mgr.topLevelPane->core.event_table; } } /* * set up key grabs if possible */ if ((menuMgr->menu_mgr.associateChildren) && (XtIsRealized (widget))) XGrabKey (XtDisplay (widget), accelKey, accelModifiers, XtWindow (widget), False, GrabModeAsync, GrabModeAsync); } /*************************************<->************************************* * * SetTreeAccelerators (menuMgr, menupane) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetTreeAccelerators (menuMgr, menupane) XwMenuMgrWidget menuMgr; XwMenuPaneWidget menupane; { register int i; Arg args[2]; unsigned int eventType; KeyCode key; unsigned int modifiers; KeySym tempKeysym; register WidgetList managed_children; managed_children = menupane->manager.managed_children; for (i=0; i < menupane->manager.num_managed_children; i++) { if (XtIsSubclass (managed_children[i], XwmenubuttonWidgetClass)) { String dkey = NULL; Widget dtree = NULL; XtSetArg (args[0], XtNkbdAccelerator, (XtArgVal)(&dkey)); XtSetArg (args[1], XtNcascadeOn, (XtArgVal)(&dtree)); XtGetValues (managed_children[i], args, XtNumber(args)); /* * set up keyboard accelerators */ if (dkey) { _XwMapKeyEvent (dkey, &eventType, &tempKeysym, &modifiers); key = XKeysymToKeycode (XtDisplay (menupane), tempKeysym); SetButtonAccelerators (menuMgr, managed_children[i], dkey, eventType, key, modifiers); } /* * traverse any submenus */ if (dtree) SetTreeAccelerators (menuMgr, dtree); } } } /*************************************<->************************************* * * ClearTreeAccelerators (menuMgr, menupane) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClearTreeAccelerators (menuMgr, menupane) Widget menuMgr; XwMenuPaneWidget menupane; { register int i; Arg arg[1]; register WidgetList managed_children; managed_children = menupane->manager.managed_children; for (i=0; i < menupane->manager.num_managed_children; i++) { if (XtIsSubclass (managed_children[i], XwmenubuttonWidgetClass)) { Widget twidg = NULL; ClearSelectAccelerator(menuMgr, managed_children[i]); /* * clear accelerators from any submenu */ XtSetArg (arg[0], XtNcascadeOn, (XtArgVal) &twidg); XtGetValues (managed_children[i], arg, 1); if (twidg) ClearTreeAccelerators (menuMgr, twidg); } } } /*************************************<->************************************* * * CompletePath(menuMgr, menupane) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean CompletePath (menuMgr, menupane) XwPopupMgrWidget menuMgr; XwMenuPaneWidget menupane; { register XwMenuPaneWidget pane; if (menuMgr->popup_mgr.topLevelPane == FALSE) return (FALSE); for (pane = menupane; pane != NULL; pane = (XwMenuPaneWidget) XtParent (pane->menu_pane.attachId)) { if (pane == (XwMenuPaneWidget) menuMgr->popup_mgr.topLevelPane) return (TRUE); if (pane->menu_pane.attachId == NULL) return (FALSE); if (pane->core.managed == False) return (FALSE); if ((pane->menu_pane.attachId)->core.mapped_when_managed == FALSE) return (FALSE); if ((pane->menu_pane.attachId)->core.managed == FALSE) return (FALSE); } return (FALSE); } /*************************************<->************************************* * * PendingAttach (menuMgr, menubutton) * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static Widget PendingAttach (menuMgr, menubutton) XwMenuMgrWidget menuMgr; register Widget menubutton; { register int i; Widget id; register String buttonName = menubutton->core.name; register int buttonNameLen = XwStrlen(buttonName); register XwAttachList * pendingAttachList; pendingAttachList = menuMgr->menu_mgr.pendingAttachList; for (i=0; i < menuMgr->menu_mgr.numAttachReqs; i++) { if ((strcmp (pendingAttachList[i].menuBtnName, buttonName) == 0) && (XwStrlen(pendingAttachList[i].menuBtnName) == buttonNameLen)) { id = pendingAttachList[i].menupaneId; /* Remove from pending attach list */ pendingAttachList[i] = pendingAttachList[--menuMgr->menu_mgr. numAttachReqs]; return (id); } } return (NULL); } /*************************************<->************************************* * * SetUpTranslation (widget, event, action) * * Description: * ----------- * * Inputs: * ------ * * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetUpTranslation (widget, event, action) Widget widget; String event; String action; { register String workSpace; XtTranslations translations; workSpace = &workArea[0]; strcpy (workSpace, "!"); strcat (workSpace, event); strcat (workSpace, action); /* * compile the translation and attach to the menupane */ translations = XtParseTranslationTable(workSpace); XtOverrideTranslations (widget, translations); /* XtDestroyStateTable (XtClass(widget), translations); */ } /*************************************<->************************************* * * SetPostMnemonic (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetPostMnemonic (menuMgr, menupane, mnemonic) Widget menuMgr; Widget menupane; String mnemonic; { } /*************************************<->************************************* * * ClearPostMnemonic (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClearPostMnemonic (menuMgr, menupane) Widget menuMgr; Widget menupane; { } /*************************************<->************************************* * * SetTitleAttributes (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetTitleAttributes(w, x) Widget w, x; { } /*************************************<->************************************* * * ForceMenuPaneOnScreen (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ForceMenuPaneOnScreen (menupane, x, y) register Widget menupane; register Position * x; register Position * y; { int rightEdgeOfMenu, dispWidth; int bottomEdgeOfMenu, dispHeight; /* * In order for this algorithm to work, we need to make sure the * menupane has been realized; this is because its size is not * yet valid because it is not notified that it has any children * until it is realized. */ if (!XtIsRealized (XtParent(menupane))) XtRealizeWidget (XtParent (menupane)); /* Force the menupane to be completely visible */ rightEdgeOfMenu = *x + (menupane->core.border_width << 1) + menupane->core.width; bottomEdgeOfMenu = *y + (menupane->core.border_width << 1) + menupane->core.height; dispWidth = WidthOfScreen (XtScreen(menupane)); dispHeight = HeightOfScreen (XtScreen(menupane)); if (*x < 0) *x = 0; if (*y < 0) *y = 0; if (rightEdgeOfMenu >= dispWidth) *x -= (rightEdgeOfMenu - dispWidth + 1); if (bottomEdgeOfMenu >= dispHeight) *y -= (bottomEdgeOfMenu - dispHeight + 1); } /*************************************<->************************************* * * SetSelectMnemonic (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetSelectMnemonic (menuMgr, menubutton, mnemonic) Widget menuMgr; Widget menubutton; String mnemonic; { } /*************************************<->************************************* * * ClearSelectMnemonic (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClearSelectMnemonic (menuMgr, menupane) Widget menuMgr; Widget menupane; { } /*************************************<->************************************* * * OnCascadeList(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean OnCascadeList (menuMgr, menupane) register XwPopupMgrWidget menuMgr; register XwMenuPaneWidget menupane; { register int i; if ((menuMgr->popup_mgr.stickyMode) && (menuMgr->popup_mgr.numSavedCascades > 0)) { for (i=0; i < menuMgr->popup_mgr.numSavedCascades; i++) { if ((Widget)menupane->core.self == menuMgr->popup_mgr.savedCascadeList[i]) { return (True); } } } return (False); } /*************************************<->************************************* * * PaneManagedChildren() * * Description: * ----------- * * * Inputs: * ------ * * * Outputs: * ------- * * * Procedures Called * ----------------- * *************************************<->***********************************/ static void PaneManagedChildren (menuMgr, menupane) register XwPopupMgrWidget menuMgr; register XwMenuPaneWidget menupane; { register Widget child; Boolean * wasManaged; Arg args[2]; unsigned int event; unsigned int tempKeySym; unsigned int modifiers; KeyCode key; register int i; Boolean parentOnCascadeList; String dkey; Widget dtree; if (CompletePath (menuMgr, menupane)) { /* * If the parent menupane is in the sticky menu list, then we * need to remember this, so that we can check if any of its * children which are now being unmanaged are cascading to * another entry in the sticky menu list. We will then clean * up the list, if necessary. */ parentOnCascadeList = OnCascadeList (menuMgr, menupane); for (i=0; i < menupane->composite.num_children; i++) { child = menupane->composite.children[i]; wasManaged = (Boolean *) child->core.constraints; if ((*wasManaged == FALSE) && (child->core.managed == TRUE)) { dkey = NULL; dtree = NULL; /* * child has gone from unmanaged to managed */ *wasManaged = TRUE; XtSetArg (args[0], XtNkbdAccelerator, (XtArgVal) &dkey); XtSetArg (args[1], XtNcascadeOn, (XtArgVal) &dtree); XtGetValues (child, args, XtNumber(args)); /* * keyboard accelerator? */ if (dkey) { _XwMapKeyEvent (dkey, &event, &tempKeySym, &modifiers); key = XKeysymToKeycode (XtDisplay(menuMgr), tempKeySym); SetSelectAccelerator (menuMgr, child, dkey, event, key, modifiers); } /* * Does this menubutton cascade? */ if (dtree) SetTreeAccelerators (menuMgr, dtree); } else if ((*wasManaged == TRUE) && (child->core.managed == FALSE)) { dkey = NULL; dtree = NULL; /* * child went from managed to unmanaged */ *wasManaged = FALSE; XtSetArg (args[0], XtNkbdAccelerator, (XtArgVal) &dkey); XtSetArg (args[1], XtNcascadeOn, (XtArgVal) &dtree); XtGetValues (child, args, XtNumber(args)); /* * accelerator to clear out? */ if (dkey) ClearSelectAccelerator (menuMgr, child); /* * Does this menubutton cascade? */ if (dtree) { ClearTreeAccelerators (menuMgr, dtree); if (Visible (menuMgr, dtree)) Unpost (menuMgr, dtree); /* * If this button cascaded to a menupane which was on * the saved cascade list, then we need to clean up the * saved cascade list. */ if (parentOnCascadeList && OnCascadeList(menuMgr, dtree)) { parentOnCascadeList = False; menuMgr->popup_mgr.numSavedCascades = 0; } } /* * If this button was the last selected item on the saved * cascade list, then we need to clean up the list. */ if (parentOnCascadeList && (child == menuMgr->popup_mgr.lastSelected)) { parentOnCascadeList = False; menuMgr->popup_mgr.numSavedCascades = 0; } } } } } /*************************************<->************************************* * * Visible * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean Visible (menuMgr, menupane) XwPopupMgrWidget menuMgr; Widget menupane; { register int i; register Widget * currentCascadeList =menuMgr->popup_mgr.currentCascadeList; for (i=0; i < menuMgr->popup_mgr.numCascades; i++) if (currentCascadeList[i] == menupane) return (TRUE); return (FALSE); } /*************************************<->************************************* * * SetMenuTranslations * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetMenuTranslations (menuMgr, translation) XwPopupMgrWidget menuMgr; XtTranslations translation; { register int i, j, k; register CompositeWidget shell; register XwMenuPaneWidget menupane; /* * Since the menupanes are our popup grand children, we * will process them simply by traversing our popup children list. */ for (i = 0; i < menuMgr->core.num_popups; i++) { shell = (CompositeWidget) menuMgr->core.popup_list[i]; for (j = 0; j < shell->composite.num_children; j++) { /* Here we set the translation for the menupanes */ menupane = (XwMenuPaneWidget)shell->composite.children[j]; XtOverrideTranslations ((Widget)menupane, translation); for (k = 0; k < menupane->manager.num_managed_children; k++) { /* Here we set the translation for the menubuttons */ XtOverrideTranslations(menupane->manager.managed_children[k], translation); } } } } /*************************************<->************************************* * * TraverseRight(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseRight (menuMgr, w) register XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { XwMenuPaneWidget menupane; Arg arg[1]; if ((menuMgr->manager.traversal_on) && (menuMgr->menu_mgr.menuActive) && (XtParent(w) == menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades - 1])) { /* Cascade to the menupane attached to the specified menubutton */ XtSetArg (arg[0], XtNcascadeOn, (XtArgVal) &menupane); XtGetValues ((Widget)w, arg, XtNumber(arg)); /* * Only cascade if there is a traversable primitive widget in * the pane we would be cascading to. */ if (_XwFindTraversablePrim (menupane) == FALSE) return; if (menupane) _XwCascadeSelect (w, menupane, NULL); } } /*************************************<->************************************* * * TraverseLeft(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseLeft (menuMgr, w) register XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { /* Traverse to the previous menupane, if there is one */ if ((menuMgr->menu_mgr.menuActive) && (menuMgr->manager.traversal_on) && (menuMgr->popup_mgr.numCascades > 1) && (XtParent(w) == menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades - 1])) { /* Unpost() will set the traversal focus, if needed */ Unpost (menuMgr, menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades - 1]); } } /*************************************<->************************************* * * TraverseUp(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseUp (menuMgr, w) register XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { if ((menuMgr->manager.traversal_on) && (menuMgr->menu_mgr.menuActive) && (XtParent(w) == menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades - 1])) { XwProcessTraversal (w, XwTRAVERSE_UP, TRUE); } } /*************************************<->************************************* * * TraverseDown(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseDown (menuMgr, w) XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { if ((menuMgr->manager.traversal_on) && (menuMgr->menu_mgr.menuActive) && (XtParent(w) == menuMgr->popup_mgr.currentCascadeList[ menuMgr->popup_mgr.numCascades - 1])) { XwProcessTraversal (w, XwTRAVERSE_DOWN, TRUE); } } /*************************************<->************************************* * * TraverseNextTop(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseNextTop (menuMgr, w) XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { } /*************************************<->************************************* * * TraverseNext(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseNext (menuMgr, w) XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { } /*************************************<->************************************* * * TraversePrev(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraversePrev (menuMgr, w) XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { } /*************************************<->************************************* * * TraverseHome(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseHome (menuMgr, w) XwPopupMgrWidget menuMgr; XwMenuButtonWidget w; { } /*************************************<->************************************* * * ManualPost(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ManualPost (menuMgr, pane, relativeTo, x, y) register XwPopupMgrWidget menuMgr; register Widget pane; Widget relativeTo; Position x; Position y; { int introotx, introoty, intchildx, intchildy; Position rootx, rooty; Position childx, childy; Widget assocWidget; Window root, child; unsigned int returnMask; if (pane == (Widget)NULL) pane = (Widget) menuMgr->popup_mgr.topLevelPane; /* Get the widget Id for the associated widget */ assocWidget = XtParent (XtParent (menuMgr)); /* * Do nothing if the menu is already active, there is no top level * menupane, the menu manager is insensitive, or the associated * widget is insensitive. */ if ((menuMgr->menu_mgr.menuActive == TRUE) || (pane == NULL) || !XtIsSensitive((Widget)menuMgr) || !XtIsSensitive(assocWidget)) { return; } /* * Determine where to post the menu and translate coordinates, * if necessary. */ if (relativeTo) { /* * If the coordinates are relative to a widget, then we need * to map them relative to the root window. */ /* XtTranslateCoords (relativeTo, x, y, &rootx, &rooty); */ XTranslateCoordinates (XtDisplay(relativeTo), XtWindow(relativeTo), RootWindowOfScreen(XtScreen(menuMgr)), x, y, &introotx, &introoty, &child); rootx = introotx; rooty = introoty; } else { /* * If no widget is specified, then the coordinates are assumed * to already be relative to the root window. */ rootx = x; rooty = y; } /* * The following is a kludge fix to bypass a shortcoming within Xtk. * We need to manually inform the previous focus widget that it has * lost the cursor; this is because once we add our popups to the * grablist, the LeaveNotify will be ignored for the focus widget, * because it is not on the grablist. */ /* if (menuMgr->manager.traversal_on) */ SendFakeLeaveNotify(menuMgr, ULTIMATE_PARENT); /* Mark the menu system as active */ menuMgr->menu_mgr.menuActive = TRUE; /* Position the menupane */ if (!XtIsRealized (XtParent(pane))) XtRealizeWidget (XtParent(pane)); ForceMenuPaneOnScreen (pane, &rootx, &rooty); XtMoveWidget (XtParent(pane), rootx, rooty); /* * Set up a pointer grab; this allows us to catch all selects and * to then unpost the menus, regardless as to where the select * occurred. */ XGrabPointer (XtDisplay(menuMgr), XtWindow(assocWidget), TRUE, ButtonPressMask|ButtonReleaseMask|EnterWindowMask|LeaveWindowMask| PointerMotionMask, GrabModeAsync, GrabModeAsync, None, (Cursor)NULL, CurrentTime); /* Post the menupane */ Post (menuMgr, pane, XtGrabExclusive); /* * If traversal is on, then save the current mouse position, * so that we can restore the mouse to its original position * when the menu is unposted. */ if (menuMgr->manager.traversal_on) { if (XQueryPointer(XtDisplay(menuMgr), RootWindowOfScreen(menuMgr->core.screen), &root, &child, &introotx, &introoty, &intchildx, &intchildy, &returnMask)) { menuMgr->popup_mgr.origMouseX = introotx; menuMgr->popup_mgr.origMouseY = introoty; } /* Set the traversal focus to the pane */ XwMoveFocus (pane); } } /*************************************<->************************************* * * XwPostPopup(parameters) * * Description: * ----------- * This is a utility routine which may be used by an application to * manually post a popup menu pane. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ void XwPostPopup (menuMgr, pane, relativeTo, x, y) Widget menuMgr, pane, relativeTo; Position x, y; { /* Only popup a menu if it is a subclass of the popup menu manager */ /* Do nothing if invalid menu manager Id */ if (menuMgr == NULL) return; if (XtIsSubclass (menuMgr, XwpopupmgrWidgetClass)) { (*(((XwPopupMgrWidgetClass) XtClass(menuMgr))-> popup_mgr_class.manualPost)) (menuMgr, pane, relativeTo, x, y); } else { XtWarning ("PopupMgr: Widget is not a subclass of menuMgr"); } } /*************************************<->************************************* * * SendFakeLeaveNotify(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SendFakeLeaveNotify (focus_widget, mode) Widget focus_widget; int mode; { XEvent event; if (mode == ULTIMATE_PARENT) { /* Search up to top level shell */ while (XtParent(focus_widget) != NULL) focus_widget = XtParent(focus_widget); } else { /* Search up to the shell in which this menubtn resides */ while ((!XtIsSubclass (focus_widget, shellWidgetClass)) && (XtParent(focus_widget) != NULL)) focus_widget = XtParent(focus_widget); } event.type = FocusOut; event.xfocus.serial = LastKnownRequestProcessed(XtDisplay(focus_widget)); event.xfocus.send_event = True; event.xfocus.display = XtDisplay(focus_widget); event.xfocus.window = XtWindow(focus_widget); event.xfocus.mode = NotifyNormal; event.xfocus.detail = NotifyAncestor; XtDispatchEvent (&event); } /*************************************<->************************************* * * SetUpStickyList(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetUpStickyList (menuMgr, widget) XwPopupMgrWidget menuMgr; Widget widget; { int i; menuMgr->popup_mgr.numSavedCascades = 0; if ((XtIsSubclass (widget, XwmenubuttonWidgetClass)) && (menuMgr->popup_mgr.stickyMode) && (XtParent(widget) == menuMgr->popup_mgr.currentCascadeList [menuMgr->popup_mgr.numCascades -1])) { if (menuMgr->popup_mgr.numCascades > menuMgr->popup_mgr.sizeSavedCascadeList) { menuMgr->popup_mgr.sizeSavedCascadeList = menuMgr->popup_mgr.sizeCascadeList; menuMgr->popup_mgr.savedCascadeList = (Widget *) XtRealloc((char *)(menuMgr->popup_mgr.savedCascadeList), menuMgr->popup_mgr.sizeSavedCascadeList * sizeof (Widget)); } menuMgr->popup_mgr.numSavedCascades = menuMgr->popup_mgr.numCascades; menuMgr->popup_mgr.lastSelected = widget; /* Set this widget as the traversal item */ if (menuMgr->manager.traversal_on) { XwMenuPaneWidget pane; pane = ((XwMenuPaneWidget)(menuMgr->popup_mgr.currentCascadeList [menuMgr->popup_mgr.numCascades -1])); pane->manager.active_child = widget; XtSetKeyboardFocus ((Widget)pane, widget); } for (i=0; i < menuMgr->popup_mgr.numSavedCascades; i++) menuMgr->popup_mgr.savedCascadeList[i] = menuMgr->popup_mgr.currentCascadeList[i]; } else if (menuMgr->manager.traversal_on) { /* Force the first item to be highlighted next time */ ((XwPopupMgrWidget)menuMgr->popup_mgr.topLevelPane)-> manager.active_child = NULL; XtSetKeyboardFocus (menuMgr->popup_mgr.topLevelPane, NULL); } } /*************************************<->************************************* * * BtnSensitivityChanged(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void BtnSensitivityChanged (menuMgr, btn) XwPopupMgrWidget menuMgr; Widget btn; { /* Noop */ } /*************************************<->************************************* * * PaneSensitivityChanged(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void PaneSensitivityChanged (menuMgr, pane) XwPopupMgrWidget menuMgr; Widget pane; { /* Noop */ } xcircuit-3.9.73/Xw/TextEditP.h0000664000175000001440000001431312335667422014616 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: TextEditP.h ** ** Project: X Widgets ** ** Description: TextEdit widget private include file ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #ifndef _XtTextEditPrivate_h #define _XtTextEditPrivate_h /**************************************************************** * * TextEdit widget private * ****************************************************************/ #define MAXCUT 30000 /* Maximum number of characters that can be cut. */ #define LF 0x0a #define CR 0x0d #define TAB 0x09 #define BS 0x08 #define SP 0x20 #define DEL 0x7f #define BSLASH '\\' #define isNewline(c) (c=='\n') #define isWhiteSpace(c) ( c==' ' || c=='\t' || c=='\n' || c=='\r' ) #include typedef int XwTextLineRange ; #include "SourceP.h" #include "DisplayP.h" /* NOTE: more of the following information will eventually be moved to the files TESourceP.h and TEDisplayP.h. */ /* Private TextEdit Definitions */ typedef int (*ActionProc)(); typedef XwSelectType SelectionArray[20]; typedef struct { unsigned char *string; int value; } XwSetValuePair; /************************************************************************* * * New fields for the TextEdit widget class record * ************************************************************************/ typedef struct { unsigned char* (*copy_substring)(); unsigned char* (*copy_selection)(); XtWidgetProc unset_selection; XwSetSProc set_selection; XwEditResult (*replace_text)(); XtWidgetProc redraw_text; } XwTextEditClassPart; /************************************************************************* * * Full class record declaration for TextEdit class * ************************************************************************/ typedef struct _XwTextEditClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwTextEditClassPart textedit_class; } XwTextEditClassRec; extern XwTextEditClassRec XwtexteditClassRec; /************************************************************************* * * New fields for the TextEdit widget instance record * ************************************************************************/ typedef struct _XwTextEditPart { XwSourceType srctype; /* used by args & rm to set source */ XwTextSource *source; XwTextSink *sink; XwLineTable lt; XwTextPosition insertPos; XwTextPosition oldinsert; XwTextSelection s; XwScanDirection extendDir; XwTextSelection origSel; /* the selection being modified */ SelectionArray sarray; /* Array to cycle for selections. */ Dimension leftmargin; /* Width of left margin. */ Dimension rightmargin; /* Width of right margin. */ Dimension topmargin; /* Width of top margin. */ Dimension bottommargin; /* Width of bottom margin. */ int options; /* wordbreak, scroll, etc. */ Time lasttime; /* timestamp of last processed action */ Time time; /* time of last key or button action */ Position ev_x, ev_y; /* x, y coords for key or button action */ XwTextPosition *updateFrom; /* Array of start positions for update. */ XwTextPosition *updateTo; /* Array of end positions for update. */ int numranges; /* How many update ranges there are. */ int maxranges; /* How many ranges we have space for */ Boolean showposition; /* True if we need to show the position. */ GC gc; Boolean hasfocus; /* TRUE if we currently have input focus.*/ XtCallbackList motion_verification; XtCallbackList modify_verification; XtCallbackList leave_verification; XwWrap wrap_mode; XwWrapForm wrap_form; XwWrapBreak wrap_break; XwScroll scroll_mode; XwScroll scroll_state; XwGrow grow_mode; XwGrow grow_state; /* tells whether further growth should be attempted */ Dimension prevW, prevH; /* prev values of window width, height */ Boolean visible_insertion ; Boolean update_flag ; /* turn updates on and off */ XtCallbackList execute ; /* Execute callback list */ } XwTextEditPart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwTextEditRec { CorePart core; XwPrimitivePart primitive; XwTextEditPart text; } XwTextEditRec; #endif /* DON'T ADD STUFF AFTER THIS #endif */ xcircuit-3.9.73/Xw/DisplayP.h0000664000175000001440000000665112335667422014477 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: DisplayP.h ** ** Project: X Widgets ** ** Description: Private include file for TextEdit widget ascii sink ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #ifndef _XwTextEditDisplayPrivate_h #define _XwTextEditDisplayPrivate_h /***************************************************************************** * * Constants * *****************************************************************************/ #define INFINITE_WIDTH 32767 #define applyDisplay(method) (*(self->text.sink->method)) /***************************************************************************** * * Displayable text management data structures (LineTable) * *****************************************************************************/ #define RequiredCursorMargin 3 typedef struct { XwTextPosition position, drawPos; Position x, y, endX; TextFit fit ; } XwLineTableEntry, *XwLineTableEntryPtr; /* Line Tables are n+1 long - last position displayed is in last lt entry */ typedef struct { XwTextPosition top; /* Top of the displayed text. */ XwTextPosition lines; /* How many lines in this table. */ XwLineTableEntry *info; /* A dynamic array, one entry per line */ } XwLineTable, *XwLineTablePtr; typedef enum {XwisOn, XwisOff} XwInsertState; typedef enum {XwselectNull, XwselectPosition, XwselectChar, XwselectWord, XwselectLine, XwselectParagraph, XwselectAll} XwSelectType; typedef enum {XwsmTextSelect, XwsmTextExtend} XwSelectionMode; typedef enum {XwactionStart, XwactionAdjust, XwactionEnd} XwSelectionAction; typedef struct { XwTextPosition left, right; XwSelectType type; } XwTextSelection; #define IsPositionVisible(ctx, pos)\ (pos >= ctx->text.lt.info[0].position && \ pos <= ctx->text.lt.info[ctx->text.lt.lines].position) #endif /* DON'T ADD STUFF AFTER THIS #endif */ xcircuit-3.9.73/Xw/MenuPane.c0000664000175000001440000005723112335667422014455 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: MenuPane.c ** ** Project: X Widgets ** ** Description: Menu Pane Meta Class Widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include static void Initialize(); static void Destroy(); static Boolean SetValues(); static void GetFontGC(); static void InsertChild(); static void ConstraintInitialize(); static void ClassPartInitialize(); static void SetTraversalFlag(); /**************************************************************** * * MenuPane Resources * ****************************************************************/ static XtResource resources[] = { {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(XwMenuPaneWidget, menu_pane.title_font), XtRString, "fixed"}, {XtNtitleString, XtCTitleString, XtRString, sizeof(caddr_t), XtOffset(XwMenuPaneWidget, menu_pane.title_string), XtRString, NULL}, {XtNtitleImage, XtCTitleImage, XtRImage, sizeof(XImage *), XtOffset(XwMenuPaneWidget, menu_pane.titleImage), XtRImage, NULL}, {XtNtitleShowing, XtCTitleShowing, XtRBoolean, sizeof(Boolean), XtOffset(XwMenuPaneWidget, menu_pane.title_showing), XtRString, "TRUE"}, {XtNattachTo, XtCAttachTo, XtRString, sizeof(String), XtOffset(XwMenuPaneWidget, menu_pane.attach_to), XtRString, NULL}, {XtNmgrTitleOverride, XtCTitleOverride, XtRBoolean, sizeof(Boolean), XtOffset(XwMenuPaneWidget, menu_pane.title_override), XtRString, "FALSE"}, {XtNtitleType, XtCTitleType, XtRTitleType, sizeof(int), XtOffset(XwMenuPaneWidget, menu_pane.title_type), XtRString, "string"}, {XtNmnemonic, XtCMnemonic, XtRString, sizeof(String), XtOffset(XwMenuPaneWidget, menu_pane.mnemonic),XtRString,NULL}, {XtNselect, XtCCallback, XtRCallback, sizeof(caddr_t), XtOffset(XwMenuPaneWidget, menu_pane.select), XtRPointer, NULL} }; /**************************************************************** * * Full class record constant * ****************************************************************/ XwMenuPaneClassRec XwmenupaneClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwmanagerClassRec, /* class_name */ "XwMenuPane", /* widget_size */ sizeof(XwMenuPaneRec), /* class_initialize */ NULL, /* class_part_init */ ClassPartInitialize, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ NULL, /* actions */ NULL, /* num_actions */ 0, /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ Destroy, /* resize */ NULL, /* expose */ NULL, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* PRIVATE cb list */ NULL, /* tm_table */ NULL, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL },{ /* composite_class fields */ /* geometry_manager */ NULL, /* change_managed */ NULL, /* insert_child */ InsertChild, /* delete_child */ XtInheritDeleteChild, NULL, },{ /* constraint class fields */ /* resources */ NULL, /* num_resources */ 0, /* Constraint_size */ sizeof (Boolean), /* initialize */ ConstraintInitialize, /* destroy */ NULL, /* set_values */ NULL, NULL, },{ /* manager_class fields */ /* traversal handler */ NULL, /* translations */ NULL, },{ /* menu pane class - none */ /* setTraversalFlag */ (XwWBoolProc) SetTraversalFlag } }; WidgetClass XwmenupaneWidgetClass = (WidgetClass)&XwmenupaneClassRec; /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClassPartInitialize (wc) register XwMenuPaneWidgetClass wc; { if (wc->constraint_class.initialize == XtInheritMenuPaneConstraintInit) wc->constraint_class.initialize = (XtInitProc) ClassPartInitialize; if (wc->menu_pane_class.setTraversalFlag == XtInheritSetTraversalFlagProc) wc->menu_pane_class.setTraversalFlag = (XwWBoolProc) SetTraversalFlag; } /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ConstraintInitialize (request, new) Widget request; Widget new; { Boolean * managed_and_mapped; managed_and_mapped = (Boolean *) new->core.constraints; /* Widgets are never managed when they are first created */ *managed_and_mapped = FALSE; } /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void InsertChild (w) Widget w; { CompositeWidgetClass composite; Widget parent, grandparent, greatgrandparent; /* Invoke our superclass's insert_child procedure */ composite = (CompositeWidgetClass) XwmenupaneWidgetClass->core_class.superclass; (*(composite->composite_class.insert_child)) (w); /* Call menu mgr's AddButton() procedure */ if ((parent = (Widget) XtParent(w)) && (grandparent = (Widget) XtParent(parent)) && (greatgrandparent = (Widget) XtParent(grandparent)) && (XtIsSubclass (greatgrandparent, XwmenumgrWidgetClass))) { (*((XwMenuMgrWidgetClass)XtClass(greatgrandparent))->menu_mgr_class. addButton) (greatgrandparent, w); } } /*************************************<->************************************* * * Initialize * * * Description: * ----------- * Initialize the menu_pane fields within the widget's instance structure. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Initialize (request, new) XwMenuPaneWidget request, new; { Widget parent, grandparent; KeySym tempKeysym; /* * Always force traversal off for a menupane. We inherit our * traversal setting from our menu manager, and it will take * care of setting us to the correct state. */ new->manager.traversal_on = FALSE; new->menu_pane.attachId = NULL; /* Call menu mgr's AddPane() procedure */ if ((parent = (Widget) XtParent(new)) && (grandparent = (Widget) XtParent(parent)) && (XtIsSubclass (grandparent, XwmenumgrWidgetClass))) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class.addPane) (grandparent, (Widget)new); } else grandparent = NULL; /* Get the GC used to display the title string/image */ GetFontGC (new); /* Save a copy of the title string, if present */ if (new->menu_pane.title_string) { new->menu_pane.title_string = (String) strcpy(XtMalloc(XwStrlen(new->menu_pane.title_string) + 1), new->menu_pane.title_string); } else { /* Set a default title string: the widget name */ new->menu_pane.title_string = (String) strcpy(XtMalloc(XwStrlen(new->core.name) + 1), new->core.name); } /* Save a copy of the accelerator string, if present */ if ((new->menu_pane.mnemonic) && (*(new->menu_pane.mnemonic) != '\0')) { /* Valid mnemonic specified */ char mne = new->menu_pane.mnemonic[0]; new->menu_pane.mnemonic = (String)XtMalloc(2); new->menu_pane.mnemonic[0] = mne; new->menu_pane.mnemonic[1] = '\0'; /* Register it with the menu manager */ if (grandparent) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. setPostMnemonic) (grandparent, (Widget)new, new->menu_pane.mnemonic); } } else { if (new->menu_pane.mnemonic) XtWarning ("MenuPane: Invalid mnemonic; disabling feature"); new->menu_pane.mnemonic = NULL; } /* Save a copy of the attach string, if present */ if (new->menu_pane.attach_to) { new->menu_pane.attach_to = (String) strcpy(XtMalloc(XwStrlen(new->menu_pane.attach_to) + 1), new->menu_pane.attach_to); /* Call menu mgr's AttachPane() procedure */ if (grandparent) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. attachPane) (grandparent, (Widget)new, new->menu_pane.attach_to); } } } /* Initialize */ /*************************************<->************************************* * * SetValues * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues (current, request, new) XwMenuPaneWidget current, request, new; { Boolean redrawFlag = FALSE; Boolean titleAttributeChange = FALSE; Widget parent, grandparent; KeySym tempKeysym; /* We never allow our traversal flag to change using SetValues() */ new->manager.traversal_on = current->manager.traversal_on; /* Determine if we are being controlled by a menu manager */ if (((parent = (Widget) XtParent(new)) == NULL) || ((grandparent = (Widget) XtParent(parent)) == NULL) || (!XtIsSubclass (grandparent, XwmenumgrWidgetClass))) { grandparent = NULL; } if ((new->menu_pane.title_type != XwSTRING) && (new->menu_pane.title_type != XwIMAGE)) { XtWarning("MenuPane: Invalid title type; using previous setting"); new->menu_pane.title_type = current->menu_pane.title_type; } if ((current->menu_pane.title_showing != new->menu_pane.title_showing) || (current->menu_pane.title_override != new->menu_pane.title_override)) { redrawFlag = TRUE; } /* Handle the case of a changed title string or image */ if (current->menu_pane.title_string != new->menu_pane.title_string) { /* Allocate a new buffer to hold the string */ if (new->menu_pane.title_string) { new->menu_pane.title_string = (String) strcpy (XtMalloc (XwStrlen (new->menu_pane.title_string) + 1), new->menu_pane.title_string); } else { /* Assign a default title: the widget name */ new->menu_pane.title_string = (String) strcpy (XtMalloc (XwStrlen (new->core.name) + 1), new->core.name); } /* * Free up the buffer holding the old title string. * XtFree() is smart enough to catch a NULL pointer. */ XtFree (current->menu_pane.title_string); if (new->menu_pane.title_type == XwSTRING) { titleAttributeChange = TRUE; if (new->menu_pane.title_showing) redrawFlag = TRUE; } } if (current->menu_pane.titleImage != new->menu_pane.titleImage) { /* * Depending upon whether the depth of the title image can change, * we may need to generate a new GC, which will be used by our call * to XPutImage(). However, I don't believe this is the case. */ if (new->menu_pane.title_type == XwIMAGE) { titleAttributeChange = TRUE; if (new->menu_pane.title_showing) redrawFlag = TRUE; } } if (current->menu_pane.title_type != new->menu_pane.title_type) { redrawFlag = TRUE; titleAttributeChange = TRUE; } /* Determine if the menu manager needs to attach us elsewhere */ if (current->menu_pane.attach_to != new->menu_pane.attach_to) { /* Allocate a new buffer to hold the string */ if (new->menu_pane.attach_to) { new->menu_pane.attach_to = (String) strcpy (XtMalloc (XwStrlen (new->menu_pane.attach_to) + 1), new->menu_pane.attach_to); } /* Call menu mgr's DetachPane() procedure */ if (grandparent) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. detachPane) (grandparent, (Widget)new, current->menu_pane.attach_to); } /* * Free up the buffer holding the old attach string. * XtFree() is smart enough to catch a NULL pointer. */ XtFree (current->menu_pane.attach_to); /* Call menu mgr's AttachPane() procedure */ if (grandparent) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. attachPane) (grandparent, (Widget)new, new->menu_pane.attach_to); } } /* Determine if the post mnemonic needs to be changed */ if (current->menu_pane.mnemonic != new->menu_pane.mnemonic) { if (new->menu_pane.mnemonic) { if (*(new->menu_pane.mnemonic) == '\0') { /* Invalid string; revert to previous one */ XtWarning ("MenuPane: Invalid post mnemonic; using previous setting"); new->menu_pane.mnemonic = current->menu_pane.mnemonic; } else { /* Valid string; remove old mnemonic, and add new one */ char mne = new->menu_pane.mnemonic[0]; new->menu_pane.mnemonic = (String) XtMalloc(2); new->menu_pane.mnemonic[0] = mne; new->menu_pane.mnemonic[1] = '\0'; if (grandparent && current->menu_pane.mnemonic) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. clearPostMnemonic) (grandparent, (Widget)current); } if (grandparent) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. setPostMnemonic) (grandparent, (Widget)new, new->menu_pane.mnemonic); } XtFree (current->menu_pane.mnemonic); } } else { /* Remove old accelerator */ if (grandparent && current->menu_pane.mnemonic) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. clearPostMnemonic) (grandparent, (Widget)current); } new->menu_pane.mnemonic = NULL; XtFree(current->menu_pane.mnemonic); } } /* Force a redraw and get a new GC if the font attributes change */ if ((current->manager.foreground != new->manager.foreground) || (current->menu_pane.title_font->fid != new->menu_pane.title_font->fid)) { XtDestroyGC (current->menu_pane.titleGC); GetFontGC (new); redrawFlag = TRUE; titleAttributeChange = TRUE; } if ((current->core.background_pixel != new->core.background_pixel) || (current->manager.background_tile != new->manager.background_tile)) { titleAttributeChange = TRUE; } if (((new->core.sensitive != current->core.sensitive) || (new->core.ancestor_sensitive != current->core.ancestor_sensitive)) && grandparent) { /* Call menu mgr's paneSensitivityChanged() procedure */ (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. paneSensitivityChanged) (grandparent, (Widget)new); } if (titleAttributeChange && grandparent) { /* Call menu mgr's SetTitleAttributes() procedure */ (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. setTitleAttributes) (grandparent, (Widget)new); } return (redrawFlag); } /*************************************<->************************************* * * GetFontGC * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void GetFontGC (mw) XwMenuPaneWidget mw; { XGCValues values; values.foreground = mw->manager.foreground; values.background = mw->core.background_pixel; values.font = mw->menu_pane.title_font->fid; values.line_width = 1; values.line_style = LineSolid; values.function = GXcopy; values.plane_mask = AllPlanes; values.subwindow_mode = ClipByChildren; values.clip_x_origin = 0; values.clip_y_origin = 0; values.clip_mask = None; mw->menu_pane.titleGC = XtGetGC ((Widget)mw, GCForeground | GCFont | GCFunction | GCLineWidth | GCLineStyle | GCBackground | GCPlaneMask | GCSubwindowMode | GCClipXOrigin | GCClipYOrigin | GCClipMask, &values); } /*************************************<->************************************* * * Destroy * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Destroy (mw) XwMenuPaneWidget mw; { /* Free up our resources */ if (mw->menu_pane.title_string) XtFree (mw->menu_pane.title_string); if (mw->menu_pane.attach_to) XtFree (mw->menu_pane.attach_to); if (mw->menu_pane.mnemonic) XtFree (mw->menu_pane.mnemonic); XtDestroyGC (mw->menu_pane.titleGC); XtRemoveCallbacks ((Widget)mw, XtNselect, mw->menu_pane.select); } /*************************************<->************************************* * * _XwSetMappedManagedChildrenList (parameters) * * Description: * ----------- * MenuPane widgets are only interested in using their children * which are both managed and mapped_when_managed, during layout * calculations. This global routine traverses the list of * children for the specified manager widget, and constructs a * parallel list of only those children meeting the above criteria. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ void _XwSetMappedManagedChildrenList (mw) XwManagerWidget mw; { int i; mw->manager.num_managed_children = 0; for (i = 0; i < mw->composite.num_children; i++) { if ((mw->composite.children[i]->core.managed) && (mw->composite.children[i]->core.mapped_when_managed)) { /* Add to list */ if ((mw->manager.num_managed_children + 1) > mw->manager.num_slots) { /* Grow the list */ mw->manager.num_slots += XwBLOCK; mw->manager.managed_children = (WidgetList) XtRealloc ((caddr_t)mw->manager.managed_children, (mw->manager.num_slots * sizeof(Widget))); } mw->manager.managed_children [mw->manager.num_managed_children++] = mw->composite.children[i]; } } /* * In case this has been called during a SetValues on the pane, * we want to make sure that both the new and old widgets get * properly updated. */ ((XwManagerWidget)mw->core.self)->manager.num_managed_children = mw->manager.num_managed_children; ((XwManagerWidget)mw->core.self)->manager.managed_children = mw->manager.managed_children; } /*************************************<->************************************* * * SetTraversalFlag(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetTraversalFlag (w, enableFlag) XwMenuPaneWidget w; Boolean enableFlag; { w->manager.traversal_on = enableFlag; if (enableFlag == True) { XtAugmentTranslations ((Widget)w, XwmanagerClassRec.manager_class. translations); w->core.widget_class->core_class.visible_interest = True; } } /*************************************<->************************************* * * _XwAllAttachesAreSensitive(parameters) * * Description: * ----------- * This functions verifies that the path from a menubutton back upto * the top level menupane has no insensitive widgets (panes or buttons) * in it. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean _XwAllAttachesAreSensitive (menuBtn) Widget menuBtn; { XwMenuPaneWidget parent; while (menuBtn != NULL) { parent = (XwMenuPaneWidget)XtParent(menuBtn); if (!XtIsSensitive((Widget)parent) || !XtIsSensitive(menuBtn)) return (False); menuBtn = (Widget) parent->menu_pane.attachId; } return (True); } xcircuit-3.9.73/Xw/PopupMgrP.h0000664000175000001440000000665612335667422014650 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: PopupMgrP.h ** ** Project: X Widgets ** ** Description: Private include file for Popup Menu Manager class widgets ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * Popup Menu Manager Widget Private Data * ***********************************************************************/ /* New fields for the PopupMgr widget class record */ typedef struct { XwPostProc manualPost; } XwPopupMgrClassPart; /* Full class record declaration */ typedef struct _XwPopupMgrClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; XwMenuMgrClassPart menu_mgr_class; XwPopupMgrClassPart popup_mgr_class; } XwPopupMgrClassRec; extern XwPopupMgrClassRec XwpopupmgrClassRec; /* New fields for the PopupMgr widget record */ typedef struct { /* Internal fields */ unsigned int accelEventType; KeyCode accelKey; unsigned int accelModifiers; Widget topLevelPane; Widget lastSelected; Widget * savedCascadeList; int numSavedCascades; int sizeSavedCascadeList; Widget * currentCascadeList; int numCascades; int sizeCascadeList; XwMenuPaneWidget attachPane; XwMenuPaneWidget detachPane; Position origMouseX; Position origMouseY; /* User settable fields */ Boolean stickyMode; String postAccelerator; } XwPopupMgrPart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwPopupMgrRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; XwMenuMgrPart menu_mgr; XwPopupMgrPart popup_mgr; } XwPopupMgrRec; #define XtInheritPopupTravLeft ((XwEventProc) _XtInherit) #define XtInheritPopupTravRight ((XwEventProc) _XtInherit) #define XtInheritPopupTravUp ((XwEventProc) _XtInherit) #define XtInheritPopupTravDown ((XwEventProc) _XtInherit) #define XtInheritPopupTravNext ((XwEventProc) _XtInherit) #define XtInheritPopupTravPrev ((XwEventProc) _XtInherit) #define XtInheritPopupTravHome ((XwEventProc) _XtInherit) #define XtInheritPopupTravNextTop ((XwEventProc) _XtInherit) xcircuit-3.9.73/Xw/Makefile.am0000664000175000001440000000071112335667422014624 0ustar timusers## Process this file with automake to produce Makefile.in AUTOMAKE_OPTIONS = foreign no-dependencies EXTRA_DIST = sub.c INCLUDES = -I.. SUBDIRS = SUBLIB = # Requirements for Xw library noinst_LIBRARIES = libxcXw.a libxcXw_a_SOURCES = BBoard.c Button.c Cascade.c Display.c Form.c \ Manager.c MapEvents.c MenuBtn.c MenuMgr.c MenuPane.c \ PButton.c PopupMgr.c Primitive.c ResConvert.c SText.c \ SourceStr.c TextEdit.c Toggle.c Traversal.c WorkSpace.c xcircuit-3.9.73/Xw/STextP.h0000664000175000001440000000640412335667422014135 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: STextP.h ** ** Project: X Widgets ** ** Description: Private include file for StaticText class ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /******************************************** * * No new fields need to be defined * for the StaticText widget class record * ********************************************/ typedef struct {int foo;} XwStaticTextClassPart; /**************************************************** * * Full class record declaration for StaticText class * ****************************************************/ typedef struct _XwStaticTextClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwStaticTextClassPart statictext_class; } XwStaticTextClassRec; /******************************************** * * New fields needed for instance record * ********************************************/ typedef struct _XwStaticTextPart { /* * "Public" members (Can be set by resource manager). */ char *input_string; /* String sent to this widget. */ XwAlignment alignment; /* Alignment within the box */ int gravity; /* Controls use of extra space in window */ Boolean wrap; /* Controls wrapping on spaces */ Boolean strip; /* Controls stripping of blanks */ int line_space; /* Ratio of font height use as dead space between lines. Can be less than zero but not less than -1.0 */ XFontStruct *font; /* Font to write in. */ Dimension internal_height; /* Space from text to top and bottom highlights */ Dimension internal_width; /* Space from left and right side highlights */ /* * "Private" members -- values computed by * XwStaticTextWidgetClass methods. */ GC normal_GC; /* GC for text */ XRectangle TextRect; /* The bounding box of the text, or clip rectangle of the window; whichever is smaller. */ char *output_string; /* input_string after formatting */ } XwStaticTextPart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwStaticTextRec { CorePart core; XwPrimitivePart primitive; XwStaticTextPart static_text; } XwStaticTextRec; xcircuit-3.9.73/Xw/MenuBtnP.h0000664000175000001440000001025712335667422014437 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: MenuBtnP.h ** ** Project: X Widgets ** ** Description: Private include file for MenuButton class ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #define XwMARKWIDTH 16 #define XwCASCADEWIDTH 16 #define XwMENUBTNPAD 6 /******************************************** * * the MenuButton widget class record * ********************************************/ typedef struct _XwMenuButtonClassPart { XwWidthProc idealWidthProc; XtWidgetProc unhighlightProc; XtWidgetProc highlightProc; XtWidgetProc setCascadeProc; XtWidgetProc clearCascadeProc; XtWidgetProc enterParentProc; XtWidgetProc cascadeSelectProc; XtWidgetProc cascadeUnselectProc; XwWintProc setTraversalType; } XwMenuButtonClassPart; #define XtInheritSetCascadeProc ((XtWidgetProc) _XtInherit) #define XtInheritClearCascadeProc ((XtWidgetProc) _XtInherit) #define XtInheritCascadeSelectProc ((XtWidgetProc) _XtInherit) #define XtInheritCascadeUnselectProc ((XtWidgetProc) _XtInherit) #define XtInheritSetTraversalTypeProc ((XwWintProc) _XtInherit) /**************************************************** * * Full class record declaration for MenuButton class * ****************************************************/ typedef struct _XwMenuButtonClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwButtonClassPart button_class; XwMenuButtonClassPart menubutton_class; } XwMenuButtonClassRec; extern XwMenuButtonClassRec XwmenubuttonClassRec; /******************************************** * * New fields for the instance record * ********************************************/ typedef struct _XwMenuButtonPart { /* can be set through resources */ int labelType; XImage * labelImage; XImage * cascadeImage; XImage * markImage; Pixel rectColor; Pixmap rectStipple; Boolean setMark; Boolean noPad; Widget cascadeOn; char * accelerator; char * hint; XwStrProc hintProc; Boolean mgrOverrideMnemonic; String mnemonic; XtCallbackList cascadeSelect; XtCallbackList cascadeUnselect; /* can not be set through resources */ Widget menuMgr; Dimension mark_y; Dimension cascade_y; Dimension underline_x; Dimension underline_y; Dimension underline_width; Boolean mnemonicMatch; Boolean cascadeEnabled; Boolean inverted; unsigned int accelEventType; KeyCode accelDetail; unsigned int accelModifiers; Pixmap labelPixmap; Pixmap markPixmap; Pixmap cascadePixmap; Pixmap invertLabelPixmap; Pixmap invertMarkPixmap; Pixmap invertCascadePixmap; XImage * defMarkImage; XImage * defCascadeImage; GC inverted_GC; GC defPixmap_GC; GC invertPixmap_GC; GC rect_GC; } XwMenuButtonPart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwMenuButtonRec { CorePart core; XwPrimitivePart primitive; XwButtonPart button; XwMenuButtonPart menubutton; } XwMenuButtonRec; xcircuit-3.9.73/Xw/WorkSpaceP.h0000664000175000001440000000375012335667422014765 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: WorkSpaceP.h ** ** Project: X Widgets ** ** Description: Private include file for the WorkSpace class ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* WorkSpace class structure */ typedef struct _XwWorkSpaceClassPart { int foo; /* No new fields needed */ } XwWorkSpaceClassPart; /* Full class record declaration for WorkSpace class */ typedef struct _XwWorkSpaceClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwWorkSpaceClassPart workSpace_class; } XwWorkSpaceClassRec; extern XwWorkSpaceClassRec XwworkSpaceClassRec; /* The WorkSpace instance record */ typedef struct _XwWorkSpacePart { XtCallbackList resize; XtCallbackList expose; XtCallbackList key_down; XtCallbackList key_up; } XwWorkSpacePart; /* Full instance record declaration */ typedef struct _XwWorkSpaceRec { CorePart core; XwPrimitivePart primitive; XwWorkSpacePart workSpace; } XwWorkSpaceRec; xcircuit-3.9.73/Xw/Xw.h0000664000175000001440000003456312335667422013353 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Xw.h ** ** Project: X Widgets ** ** Description: This include file contains public defines and structures ** needed by all XToolkit applications using the X Widget Set. ** Included in the file are the definitions for all common ** resource types, defines for resource or arg list values, ** and the class and instance record definitions for all meta ** classes. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #ifndef _XtXw_h #define _XtXw_h /************************************************************************ * * Good 'ole Max and Min from the defunct * ************************************************************************/ #define Max(x, y) (((x) > (y)) ? (x) : (y)) #define Min(x, y) (((x) > (y)) ? (y) : (x)) /************************************************************************ * * Resource manager definitions * ************************************************************************/ #define XtRLong "Long" #define XtNtraversalOn "traversalOn" #define XtCTraversalOn "TraversalOn" #define XtNtraversalType "traversalType" #define XtCTraversalType "TraversalType" #define XtRTraversalType "TraversalType" #define XtNhighlightStyle "highlightStyle" #define XtCHighlightStyle "HighlightStyle" #define XtNhighlightTile "highlightTile" #define XtCHighlightTile "HighlightTile" #define XtRHighlightStyle "HighlightStyle" #define XtNhighlightThickness "highlightThickness" #define XtCHighlightThickness "HighlightThickness" #define XtNhighlightColor "highlightColor" #define XtNbackgroundTile "backgroundTile" #define XtCBackgroundTile "BackgroundTile" #define XtNcursor "cursor" #define XtNrecomputeSize "recomputeSize" #define XtCRecomputeSize "RecomputeSize" #define XtNlayout "layout" #define XtCLayout "Layout" #define XtRLayout "Layout" #define XtRTileType "tileType" /* #define XtRTranslationTable "TranslationTable" */ #define XtNlabelLocation "labelLocation" #define XtCLabelLocation "LabelLocation" #define XtRLabelLocation "LabelLocation" #define XtNsensitiveTile "sensitiveTile" #define XtCSensitiveTile "SensitiveTile" #define XtNcolumns "columns" #define XtCColumns "Columns" #define XtNmode "mode" #define XtCMode "Mode" #define XtRRCMode "Mode" #define XtNset "set" #define XtCSet "Set" #define XtNselect "select" #define XtNrelease "release" #define XtNnextTop "nextTop" #define XtNtitleShowing "titleShowing" #define XtCTitleShowing "TitleShowing" #define XtNmgrTitleOverride "mgrTitleOverride" #define XtCTitleOverride "TitleOverride" #define XtNtitleType "titleType" #define XtCTitleType "TitleType" #define XtRTitleType "TitleType" #define XtNtitleString "titleString" #define XtCTitleString "TitleString" #define XtNtitleImage "titleImage" #define XtCTitleImage "TitleImage" #define XtNfontColor "fontColor" #define XtNmnemonic "mnemonic" #define XtCMnemonic "Mnemonic" #define XtNunderlineTitle "underlineTitle" #define XtCUnderlineTitle "UnderlineTitle" #define XtNmgrUnderlineOverride "mgrUnderlineOverride" #define XtCUnderlineOverride "UnderlineOverride" #define XtNunderlinePosition "underlinePosition" #define XtCUnderlinePosition "UnderlinePosition" #define XtNattachTo "attachTo" #define XtCAttachTo "AttachTo" #define XtNkbdAccelerator "kbdAccelerator" #define XtCKbdAccelerator "KbdAccelerator" #define XtNassociateChildren "associateChildren" #define XtCAssociateChildren "AssociateChildren" #define XtNmenuPost "menuPost" #define XtCMenuPost "MenuPost" #define XtNmenuSelect "menuSelect" #define XtCMenuSelect "MenuSelect" #define XtNpostAccelerator "postAccelerator" #define XtCPostAccelerator "PostAccelerator" #define XtNmenuUnpost "menuUnpost" #define XtCMenuUnpost "MenuUnpost" #define XtNkbdSelect "kbdSelect" #define XtCKbdSelect "KbdSelect" /**************************************************************** * * TextEdit widget * ****************************************************************/ #define XtNdisplayPosition "displayPosition" /* #define XtNinsertPosition "insertPosition" */ #define XtNleftMargin "leftMargin" #define XtNrightMargin "rightMargin" #define XtNtopMargin "topMargin" #define XtNbottomMargin "bottomMargin" /* #define XtNselectionArray "selectionArray" #define XtNtextSource "textSource" #define XtNselection "selection" */ #define XtNmaximumSize "maximumSize" #define XtCMaximumSize "MaximumSize" /* #define XtNeditType "editType" #define XtNfile "file" #define XtNstring "string" #define XtNlength "length" #define XtNfont "font" */ #define XtNdiskSrc "disksrc" #define XtNstringSrc "stringsrc" #define XtNexecute "execute" #define XtNsourceType "sourceType" #define XtCSourceType "SourceType" #define XtRSourceType "SourceType" #define XtNmotionVerification "motionVerification" #define XtNmodifyVerification "modifyVerification" #define XtNleaveVerification "leaveVerification" #define XtNwrap "wrap" #define XtCWrap "Wrap" #define XtRWrap "Wrap" #define XtNwrapForm "wrapForm" #define XtCWrapForm "WrapForm" #define XtRWrapForm XtCWrapForm #define XtNwrapBreak "wrapBreak" #define XtCWrapBreak "WrapBreak" #define XtRWrapBreak XtCWrapBreak #define XtNscroll "scroll" #define XtCScroll "Scroll" #define XtRScroll XtCScroll #define XtNgrow "grow" #define XtCGrow "Grow" #define XtRGrow XtCGrow #define XwAutoScrollOff 0 #define XwAutoScrollHorizontal 1 #define XwAutoScrollVertical 2 #define XwAutoScrollBoth 3 /* must be bitwise OR of horiz. and vert. */ #define XwGrowOff 0 #define XwGrowHorizontal 1 #define XwGrowVertical 2 #define XwGrowBoth 3 /* must be bitwise OR of horiz. and vert. */ /* Valid Label Location Settings for Button */ #define XwRIGHT 0 #define XwLEFT 1 #define XwCENTER 2 /* Valid Title Type Values For MenuPane */ #define XwSTRING 0 #define XwIMAGE 1 #define XwRECT 2 /* New resource manager types */ #define XrmRImage "Image" #define XtRImage XrmRImage #define XtNalignment "alignment" #define XtCAlignment "Alignment" #define XtRAlignment "Alignment" #define XtNlineSpace "lineSpace" #define XtCLineSpace "LineSpace" #define XtNgravity "gravity" #define XtCGravity "Gravity" #ifndef XtRGravity #define XtRGravity "Gravity" #endif typedef enum { XwALIGN_NONE, XwALIGN_LEFT, XwALIGN_CENTER, XwALIGN_RIGHT } XwAlignment; typedef enum { XwUNKNOWN, XwPULLDOWN, XwTITLE, XwWORK_SPACE } XwWidgetType; /* Form resource definitions */ #define XwHORIZONTAL 0 #define XwVERTICAL 1 #define XtNxRefName "xRefName" #define XtCXRefName "XRefName" #define XtNxRefWidget "xRefWidget" #define XtCXRefWidget "XRefWidget" #define XtNxOffset "xOffset" #define XtCXOffset "XOffset" #define XtNxAddWidth "xAddWidth" #define XtCXAddWidth "XAddWidth" #define XtNxVaryOffset "xVaryOffset" #define XtCXVaryOffset "XVaryOffset" #define XtNxResizable "xResizable" #define XtCXResizable "XResizable" #define XtNxAttachRight "xAttachRight" #define XtCXAttachRight "XAttachRight" #define XtNxAttachOffset "xAttachOffset" #define XtCXAttachOffset "XAttachOffset" #define XtNyRefName "yRefName" #define XtCYRefName "YRefName" #define XtNyRefWidget "yRefWidget" #define XtCYRefWidget "YRefWidget" #define XtNyOffset "yOffset" #define XtCYOffset "YOffset" #define XtNyAddHeight "yAddHeight" #define XtCYAddHeight "YAddHeight" #define XtNyVaryOffset "yVaryOffset" #define XtCYVaryOffset "YVaryOffset" #define XtNyResizable "yResizable" #define XtCYResizable "YResizable" #define XtNyAttachBottom "yAttachBottom" #define XtCYAttachBottom "YAttachBottom" #define XtNyAttachOffset "yAttachOffset" #define XtCYAttachOffset "YAttachOffset" /* MenuBtn esource manager definitions */ #define XtNlabelType "labelType" #define XtCLabelType "LabelType" #define XtRLabelType "LabelType" #define XtNlabelImage "labelImage" #define XtCLabelImage "LabelImage" #define XtNrectColor "rectColor" #define XtCRectColor "RectColor" #define XtNrectStipple "rectStipple" #define XtCRectStipple "RectStipple" #define XtNcascadeImage "cascadeImage" #define XtCCascadeImage "CascadeImage" #define XtNmarkImage "markImage" #define XtCMarkImage "MarkImage" #define XtNsetMark "setMark" #define XtCSetMark "SetMark" #define XtNnoPad "noPad" #define XtCNoPad "NoPad" #define XtNcascadeOn "cascadeOn" #define XtCCascadeOn "CascadeOn" #define XtNinvertOnEnter "invertOnEnter" #define XtCInvertOnEnter "InvertOnEnter" #define XtNmgrOverrideMnemonic "mgrOverrideMnemonic" #define XtCMgrOverrideMnemonic "MgrOverrideMnemonic" #define XtNcascadeSelect "cascadeSelect" #define XtNcascadeUnselect "cascadeUnselect" #define XtNmenuMgrId "menuMgrId" #define XtCMenuMgrId "MenuMgrId" #define XtNhint "hint" #define XtCHint "Hint" #define XtNhintProc "hintProc" #define XtCHintProc "HintProc" /* Resources for PushButton */ #define XtNinvertOnSelect "invertOnSelect" #define XtCInvertOnSelect "InvertOnSelect" #define XtNtoggle "toggle" #define XtCToggle "Toggle" /* Resources for Toggle */ #define XtNsquare "square" #define XtCSquare "Square" #define XtNselectColor "selectColor" /* WorkSpace resources */ #define XtNexpose "expose" #ifndef XtNresize #define XtNresize "resize" #endif #define XtNkeyDown "keyDown" #define XtNkeyUp "keyUp" /*********************************************************************** * * Cascading MenuPane Widget Resources * ***********************************************************************/ #define XtRTitlePositionType "TitlePositionType" #define XtNtitlePosition "titlePosition" #define XtCTitlePosition "TitlePosition" /*********************************************************************** * * Popup Menu Manager Widget Resources * ***********************************************************************/ #define XtNstickyMenus "stickyMenus" #define XtCStickyMenus "StickyMenus" /*********************************************************************** * * Pulldown Menu Manager Widget Resources * ***********************************************************************/ #define XtNallowCascades "allowCascades" #define XtCAllowCascades "AllowCascades" #define XtNpulldownBarId "pulldownBarId" #define XtCPulldownBarId "PulldownBarId" /*********************************************************************** * * Cascading MenuPane Widget Attribute Definitions * ***********************************************************************/ #define XwTOP 0x01 #define XwBOTTOM 0x02 #define XwBOTH XwTOP|XwBOTTOM /*********************************************************************** * * Static Text resource string definitions * ***********************************************************************/ #define XtNstrip "strip" #define XtCStrip "Strip" /************************************************************************ * * Class record constants for Primitive Widget Meta Class * ************************************************************************/ extern WidgetClass XwprimitiveWidgetClass; typedef struct _XwPrimitiveClassRec * XwPrimitiveWidgetClass; typedef struct _XwPrimitiveRec * XwPrimitiveWidget; /* Tile types used for area filling and patterned text placement */ #define XwFOREGROUND 0 #define XwBACKGROUND 1 /* Traversal type definitions */ #define XwHIGHLIGHT_OFF 0 #define XwHIGHLIGHT_ENTER 1 #define XwHIGHLIGHT_TRAVERSAL 2 /* Border highlighting type defines */ #define XwPATTERN_BORDER 1 #define XwWIDGET_DEFINED 2 /* Manager Layout Info */ #define XwIGNORE 0 #define XwMINIMIZE 1 #define XwMAXIMIZE 2 #define XwSWINDOW 3 /* Special Setting for Scrolled Window */ #define XtNwidgetType "widgetType" #define XtCWidgetType "WidgetType" #define XtRWidgetType "WidgetType" /************************************************************************ * * Class record constants for Meta Class Widgets * ************************************************************************/ extern WidgetClass XwmanagerWidgetClass; typedef struct _XwManagerClassRec * XwManagerWidgetClass; typedef struct _XwManagerRec * XwManagerWidget; extern WidgetClass XwbuttonWidgetClass; typedef struct _XwButtonClassRec * XwButtonWidgetClass; typedef struct _XwButtonRec * XwButtonWidget; extern WidgetClass XwmenupaneWidgetClass; typedef struct _XwMenuPaneClassRec *XwMenuPaneWidgetClass; typedef struct _XwMenuPaneRec *XwMenuPaneWidget; extern WidgetClass XwmenumgrWidgetClass; typedef struct _XwMenuMgrClassRec *XwMenuMgrWidgetClass; typedef struct _XwMenuMgrRec *XwMenuMgrWidget; #endif /* DON'T ADD STUFF AFTER THIS #endif */ xcircuit-3.9.73/Xw/Display.c0000664000175000001440000005251712335667422014354 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Display.c ** ** Project: X Widgets ** ** Description: Code for TextEdit widget ascii sink ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #ifdef DEBUG #include #endif #define GETLASTPOS (*(source->scan))(source, 0, XwstLast, XwsdRight, 1, TRUE) /* Private Ascii TextSink Definitions */ static unsigned bufferSize = 200; typedef struct _AsciiSinkData { Pixel foreground; GC normgc, invgc, xorgc; XFontStruct *font; int tabwidth; Pixmap insertCursorOn; XwInsertState laststate; } AsciiSinkData, *AsciiSinkPtr; static unsigned char *buf; /* XXX foreground default should be XtDefaultFGPixel. How do i do that?? */ static XtResource SinkResources[] = { {XtNfont, XtCFont, XtRFontStruct, sizeof (XFontStruct *), XtOffset(AsciiSinkPtr, font), XtRString, "Fixed"}, {XtNforeground, XtCForeground, XtRPixel, sizeof (int), XtOffset(AsciiSinkPtr, foreground), XtRString, "XtDefaultForeground"}, }; /* Utilities */ /*--------------------------------------------------------------------------+*/ static int CharWidth (data, x, margin, c) /*--------------------------------------------------------------------------+*/ AsciiSinkData *data; int x; int margin ; unsigned char c; { int width, nonPrinting; XFontStruct *font = data->font; if (c == '\t') /* This is totally bogus!! need to know tab settings etc.. */ return data->tabwidth - ((x-margin) % data->tabwidth); if (c == LF) c = SP; nonPrinting = (c < SP); if (nonPrinting) c += '@'; if (font->per_char && (c >= font->min_char_or_byte2 && c <= font->max_char_or_byte2)) width = font->per_char[c - font->min_char_or_byte2].width; else width = font->min_bounds.width; if (nonPrinting) width += CharWidth(data, x, margin, '^'); return width; } /* Sink Object Functions */ #define LBEARING(x) \ ((font->per_char != NULL && \ ((x) >= font->min_char_or_byte2 && (x) <= font->max_char_or_byte2)) \ ? font->per_char[(x) - font->min_char_or_byte2].lbearing \ : font->min_bounds.lbearing) /*--------------------------------------------------------------------------+*/ static int AsciiDisplayText (w, x, y, pos1, pos2, highlight) /*--------------------------------------------------------------------------+*/ Widget w; Position x, y; int highlight; XwTextPosition pos1, pos2; { XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; XwTextSource *source = ((XwTextEditWidget)w)->text.source; AsciiSinkData *data = (AsciiSinkData *) sink->data ; int margin = ((XwTextEditWidget)w)->text.leftmargin ; XFontStruct *font = data->font; int j, k; Dimension width; XwTextBlock blk; GC gc = highlight ? data->invgc : data->normgc; GC invgc = highlight ? data->normgc : data->invgc; y += font->ascent; j = 0; while (pos1 < pos2) { pos1 = (*(source->read))(source, pos1, &blk, pos2 - pos1); for (k = 0; k < blk.length; k++) { if (j >= bufferSize - 5) { bufferSize *= 2; buf = (unsigned char *) XtRealloc(buf, bufferSize); } buf[j] = blk.ptr[k]; if (buf[j] == LF) buf[j] = ' '; else if (buf[j] == '\t') { XDrawImageString(XtDisplay(w), XtWindow(w), gc, x - LBEARING(*buf), y, buf, j); buf[j] = 0; x += XTextWidth(data->font, buf, j); width = CharWidth(data, x, margin, '\t'); XFillRectangle(XtDisplay(w), XtWindow(w), invgc, x, y - font->ascent, width, (Dimension) (data->font->ascent + data->font->descent)); x += width; j = -1; } else if (buf[j] < ' ') { buf[j + 1] = buf[j] + '@'; buf[j] = '^'; j++; } j++; } } XDrawImageString(XtDisplay(w), XtWindow(w), gc, x - LBEARING(*buf), y, buf, j); } # define insertCursor_width 6 # define insertCursor_height 3 static char insertCursor_bits[] = {0x0c, 0x1e, 0x33}; /*--------------------------------------------------------------------------+*/ static Pixmap CreateInsertCursor(s) /*--------------------------------------------------------------------------+*/ Screen *s; { return (XCreateBitmapFromData (DisplayOfScreen(s), RootWindowOfScreen(s), insertCursor_bits, insertCursor_width, insertCursor_height)); } /* * The following procedure manages the "insert" cursor. */ /*--------------------------------------------------------------------------+*/ static AsciiInsertCursor (w, x, y, state) /*--------------------------------------------------------------------------+*/ Widget w; Position x, y; XwInsertState state; { XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; AsciiSinkData *data = (AsciiSinkData *) sink->data; /* XCopyArea(sink->dpy, (state == XwisOn) ? data->insertCursorOn : data->insertCursorOff, w, data->normgc, 0, 0, insertCursor_width, insertCursor_height, x - (insertCursor_width >> 1), y - (insertCursor_height)); if (state != data->laststate && XtIsRealized(w)) XCopyPlane(XtDisplay(w), data->insertCursorOn, XtWindow(w), data->xorgc, 0, 0, insertCursor_width, insertCursor_height, x - (insertCursor_width >> 1), y - (insertCursor_height), 1); */ /* This change goes with the cursor hack for the broken server */ XCopyArea (XtDisplay(w), data->insertCursorOn, XtWindow (w), data->xorgc, 0, 0, insertCursor_width, insertCursor_height, x - (insertCursor_width >> 1), y - (insertCursor_height)); data->laststate = state; } /* * Clear the passed region to the background color. */ /*--------------------------------------------------------------------------+*/ static AsciiClearToBackground (w, x, y, width, height) /*--------------------------------------------------------------------------+*/ Widget w; Position x, y; Dimension width, height; { XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; AsciiSinkData *data = (AsciiSinkData *) sink->data; XFillRectangle(XtDisplay(w), XtWindow(w), data->invgc, x, y, width, height); } /* * Given two positions, find the distance between them. */ /*--------------------------------------------------------------------------+*/ static AsciiFindDistance (w, fromPos, fromx, toPos, resWidth, resPos, resHeight) /*--------------------------------------------------------------------------+*/ Widget w; XwTextPosition fromPos; /* First position. */ int fromx; /* Horizontal location of first position. */ XwTextPosition toPos; /* Second position. */ int *resWidth; /* Distance between fromPos and resPos. */ int *resPos; /* Actual second position used. */ int *resHeight; /* Height required. */ { XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; XwTextSource *source = ((XwTextEditWidget)w)->text.source; int margin = ((XwTextEditWidget)w)->text.leftmargin ; AsciiSinkData *data; register XwTextPosition index, lastPos; register unsigned char c; XwTextBlock blk; data = (AsciiSinkData *) sink->data; /* we may not need this */ lastPos = GETLASTPOS; (*(source->read))(source, fromPos, &blk, toPos - fromPos); *resWidth = 0; for (index = fromPos; index != toPos && index < lastPos; index++) { if (index - blk.firstPos >= blk.length) (*(source->read))(source, index, &blk, toPos - fromPos); c = blk.ptr[index - blk.firstPos]; if (c == LF) { *resWidth += CharWidth(data, fromx + *resWidth, margin, SP); index++; break; } *resWidth += CharWidth(data, fromx + *resWidth, margin, c); } *resPos = index; *resHeight = data->font->ascent + data->font->descent; } /*--------------------------------------------------------------------------+*/ static TextFit AsciiTextFit (w, fromPos, fromx, width, wrap, wrapWhiteSpace, fitPos, drawPos, nextPos, resWidth, resHeight) /*--------------------------------------------------------------------------+*/ Widget w; XwTextPosition fromPos; /* Starting position. */ int fromx; /* Horizontal location of starting position. */ int width; /* Desired width. */ int wrap; /* Whether line should wrap at all */ int wrapWhiteSpace; /* Whether line should wrap at white space */ XwTextPosition *fitPos ; /* pos of last char which fits in specified width */ XwTextPosition *drawPos ; /* pos of last char to draw in specified width based on wrap model */ XwTextPosition *nextPos ; /* pos of next char to draw outside specified width based on wrap model */ int *resWidth; /* Actual width used. */ int *resHeight; /* Height required. */ { XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; XwTextSource *source = ((XwTextEditWidget)w)->text.source; int margin = ((XwTextEditWidget)w)->text.leftmargin ; AsciiSinkData *data; XwTextPosition lastPos, pos, whiteSpacePosition; XwTextPosition fitL, drawL ; /* local equivalents of fitPos, drawPos, nextPos */ int lastWidth, whiteSpaceWidth, whiteSpaceSeen ; int useAll ; TextFit fit ; unsigned char c; XwTextBlock blk; data = (AsciiSinkData *) sink->data; lastPos = GETLASTPOS; *resWidth = 0; *fitPos = fromPos ; *drawPos = -1 ; c = 0; useAll = whiteSpaceSeen = FALSE ; pos = fromPos ; fitL = pos - 1 ; (*(source->read))(source, fromPos, &blk, bufferSize); while (*resWidth <= width) { lastWidth = *resWidth; fitL = pos - 1 ; if (pos >= lastPos) { pos = lastPos ; fit = tfEndText ; useAll = TRUE ; break ; } ; if (pos - blk.firstPos >= blk.length) (*(source->read))(source, pos, &blk, bufferSize); c = blk.ptr[pos - blk.firstPos]; if (isNewline(c)) { fit = tfNewline ; useAll = TRUE ; break ; } if (wrapWhiteSpace && isWhiteSpace(c)) { whiteSpaceSeen = TRUE ; drawL = pos - 1 ; whiteSpaceWidth = *resWidth; } ; *resWidth += CharWidth(data, fromx + *resWidth, margin, c); pos++ ; } /* end while */ *fitPos = fitL ; *drawPos = fitL ; if (useAll) { *nextPos = pos + 1 ; *resWidth = lastWidth ; } else if (wrapWhiteSpace && whiteSpaceSeen) { *drawPos = drawL ; *nextPos = drawL + 2 ; *resWidth = whiteSpaceWidth ; fit = tfWrapWhiteSpace ; } else if (wrap) { *nextPos = fitL + 1 ; *resWidth = lastWidth ; fit = tfWrapAny ; } else { /* scan source for newline or end */ *nextPos = (*(source->scan)) (source, pos, XwstEOL, XwsdRight, 1, TRUE) + 1 ; *resWidth = lastWidth ; fit = tfNoFit ; } *resHeight = data->font->ascent + data->font->descent; return (fit) ; } /*--------------------------------------------------------------------------+*/ static AsciiFindPosition(w, fromPos, fromx, width, stopAtWordBreak, resPos, resWidth, resHeight) /*--------------------------------------------------------------------------+*/ Widget w; XwTextPosition fromPos; /* Starting position. */ int fromx; /* Horizontal location of starting position. */ int width; /* Desired width. */ int stopAtWordBreak; /* Whether the resulting position should be at a word break. */ XwTextPosition *resPos; /* Resulting position. */ int *resWidth; /* Actual width used. */ int *resHeight; /* Height required. */ { XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; XwTextSource *source = ((XwTextEditWidget)w)->text.source; int margin = ((XwTextEditWidget)w)->text.leftmargin ; AsciiSinkData *data; XwTextPosition lastPos, index, whiteSpacePosition; int lastWidth, whiteSpaceWidth; Boolean whiteSpaceSeen; unsigned char c; XwTextBlock blk; data = (AsciiSinkData *) sink->data; lastPos = GETLASTPOS; (*(source->read))(source, fromPos, &blk, bufferSize); *resWidth = 0; whiteSpaceSeen = FALSE; c = 0; for (index = fromPos; *resWidth <= width && index < lastPos; index++) { lastWidth = *resWidth; if (index - blk.firstPos >= blk.length) (*(source->read))(source, index, &blk, bufferSize); c = blk.ptr[index - blk.firstPos]; if (c == LF) { *resWidth += CharWidth(data, fromx + *resWidth, margin, SP); index++; break; } *resWidth += CharWidth(data, fromx + *resWidth, margin, c); if ((c == SP || c == TAB) && *resWidth <= width) { whiteSpaceSeen = TRUE; whiteSpacePosition = index; whiteSpaceWidth = *resWidth; } } if (*resWidth > width && index > fromPos) { *resWidth = lastWidth; index--; if (stopAtWordBreak && whiteSpaceSeen) { index = whiteSpacePosition + 1; *resWidth = whiteSpaceWidth; } } if (index == lastPos && c != LF) index = lastPos + 1; *resPos = index; *resHeight = data->font->ascent + data->font->descent; } /*--------------------------------------------------------------------------+*/ static int AsciiResolveToPosition (w, pos, fromx, width, leftPos, rightPos) /*--------------------------------------------------------------------------+*/ Widget w; XwTextPosition pos; int fromx,width; XwTextPosition *leftPos, *rightPos; { int resWidth, resHeight; XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; XwTextSource *source = ((XwTextEditWidget)w)->text.source; AsciiFindPosition(w, pos, fromx, width, FALSE, leftPos, &resWidth, &resHeight); if (*leftPos > GETLASTPOS) *leftPos = GETLASTPOS; *rightPos = *leftPos; } /*--------------------------------------------------------------------------+*/ static int AsciiMaxLinesForHeight (w) /*--------------------------------------------------------------------------+*/ Widget w; { AsciiSinkData *data; XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; data = (AsciiSinkData *) sink->data; return (int) ((w->core.height - ((XwTextEditWidget) w)->text.topmargin - ((XwTextEditWidget) w)->text.bottommargin ) / (data->font->ascent + data->font->descent) ); } /*--------------------------------------------------------------------------+*/ static int AsciiMaxHeightForLines (w, lines) /*--------------------------------------------------------------------------+*/ Widget w; int lines; { AsciiSinkData *data; XwTextSink *sink = ((XwTextEditWidget)w)->text.sink; data = (AsciiSinkData *) sink->data; return(lines * (data->font->ascent + data->font->descent)); } /***** Public routines *****/ static Boolean initialized = FALSE; static XContext asciiSinkContext; /*--------------------------------------------------------------------------+*/ AsciiSinkInitialize() /*--------------------------------------------------------------------------+*/ { if (initialized) return; initialized = TRUE; asciiSinkContext = XUniqueContext(); buf = (unsigned char *) XtMalloc(bufferSize); } /*--------------------------------------------------------------------------+*/ static Boolean XwAsciiSinkCheckData(self) /*--------------------------------------------------------------------------+*/ XwTextSink *self ; { XwTextEditWidget tew = self->parent ; /* make sure margins are big enough to keep traversal highlight from obscuring text or cursor. */ { int minBorder ; minBorder = (tew->primitive.traversal_type == XwHIGHLIGHT_OFF) ? RequiredCursorMargin : RequiredCursorMargin + tew->primitive.highlight_thickness ; if (tew->text.topmargin < minBorder) tew->text.topmargin = minBorder ; if (tew->text.bottommargin < minBorder) tew->text.bottommargin = minBorder ; if (tew->text.rightmargin < minBorder) tew->text.rightmargin = minBorder ; if (tew->text.leftmargin < minBorder) tew->text.leftmargin = minBorder ; } if ((*(self->maxLines))(tew) < 1) XtWarning("TextEdit window too small to display a single line of text."); } /*--------------------------------------------------------------------------+*/ void XwAsciiSinkDestroy (sink) /*--------------------------------------------------------------------------+*/ XwTextSink *sink; { AsciiSinkData *data; data = (AsciiSinkData *) sink->data; XtFree((char *) data); XtFree((char *) sink); } /*--------------------------------------------------------------------------+*/ XwTextSink *XwAsciiSinkCreate (w, args, num_args) /*--------------------------------------------------------------------------+*/ Widget w; ArgList args; Cardinal num_args; { XwTextSink *sink; AsciiSinkData *data; unsigned long valuemask = (GCFont | GCGraphicsExposures | GCForeground | GCBackground | GCFunction); XGCValues values; unsigned long wid; XFontStruct *font; if (!initialized) AsciiSinkInitialize(); sink = XtNew(XwTextSink); sink->parent = (XwTextEditWidget) w ; sink->parent->text.sink = sink ; /* disgusting */ sink->display = AsciiDisplayText; sink->insertCursor = AsciiInsertCursor; sink->clearToBackground = AsciiClearToBackground; sink->findPosition = AsciiFindPosition; sink->textFitFn = AsciiTextFit; sink->findDistance = AsciiFindDistance; sink->resolve = AsciiResolveToPosition; sink->maxLines = AsciiMaxLinesForHeight; sink->maxHeight = AsciiMaxHeightForLines; sink->resources = SinkResources; sink->resource_num = XtNumber(SinkResources); sink->check_data = XwAsciiSinkCheckData; sink->destroy = XwAsciiSinkDestroy; sink->LineLastWidth = 0 ; sink->LineLastPosition = 0 ; data = XtNew(AsciiSinkData); sink->data = (int *)data; XtGetSubresources (w, (caddr_t)data, "display", "Display", SinkResources, XtNumber(SinkResources), args, num_args); /* XXX do i have to XLoadQueryFont or does the resource guy do it for me */ font = data->font; values.function = GXcopy; values.font = font->fid; values.graphics_exposures = (Bool) FALSE; values.foreground = data->foreground; values.background = w->core.background_pixel; data->normgc = XtGetGC(w, valuemask, &values); values.foreground = w->core.background_pixel; values.background = data->foreground; data->invgc = XtGetGC(w, valuemask, &values); values.function = GXxor; values.foreground = data->foreground ^ w->core.background_pixel; values.background = 0; data->xorgc = XtGetGC(w, valuemask, &values); wid = -1; if ((!XGetFontProperty(font, XA_QUAD_WIDTH, &wid)) || wid <= 0) { if (font->per_char && font->min_char_or_byte2 <= '0' && font->max_char_or_byte2 >= '0') wid = font->per_char['0' - font->min_char_or_byte2].width; else wid = font->max_bounds.width; } if (wid <= 0) wid = 1; data->tabwidth = 8 * wid; data->font = font; /* data->insertCursorOn = CreateInsertCursor(XtScreen(w)); */ {/* Correction from AsciiSink.c on R2 tape */ Screen *screen = XtScreen(w); Display *dpy = XtDisplay(w); Window root = RootWindowOfScreen(screen); Pixmap bitmap = XCreateBitmapFromData(dpy, root, insertCursor_bits, insertCursor_width, insertCursor_height); Pixmap pixmap = XCreatePixmap(dpy, root,insertCursor_width, insertCursor_height, DefaultDepthOfScreen(screen)); XGCValues gcv; GC gc; gcv.function = GXcopy; gcv.foreground = data->foreground ^ w->core.background_pixel; gcv.background = 0; gcv.graphics_exposures = False; gc = XtGetGC(w, (GCFunction | GCForeground | GCBackground | GCGraphicsExposures), &gcv); XCopyPlane(dpy, bitmap, pixmap, gc, 0, 0, insertCursor_width, insertCursor_height, 0, 0, 1); XtDestroyGC(gc); data->insertCursorOn = pixmap; } data->laststate = XwisOff; (*(sink->check_data))(sink); return sink; } xcircuit-3.9.73/Xw/TextEdit.h0000664000175000001440000001727212335667422014505 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: TextEdit.h ** ** Project: X Widgets ** ** Description: TextEdit widget public include file ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #ifndef _XwTextEdit_h #define _XwTextEdit_h #define XwSetArg(arg, n, v) \ { Arg *_XwSetArgTmp = &(arg) ;\ _XwSetArgTmp->name = (n) ;\ _XwSetArgTmp->value = (XtArgVal) (v) ;} #include /************************************************************************* * * Structures used in TextEdit function calls * *************************************************************************/ extern WidgetClass XwtexteditWidgetClass; /* synonym added for consistent naming conventions */ extern WidgetClass XwtextEditWidgetClass; typedef struct _XwTextEditClassRec *XwTextEditWidgetClass; typedef struct _XwTextEditRec *XwTextEditWidget; typedef long XwTextPosition; typedef enum {XwsdLeft, XwsdRight} XwScanDirection; typedef enum {XwstPositions, XwstWhiteSpace, XwstEOL, XwstLast} XwScanType; typedef struct { int firstPos; int length; unsigned char *ptr; } XwTextBlock, *XwTextBlockPtr; typedef enum {XwtextRead, XwtextAppend, XwtextEdit} XwEditType; typedef enum {XweditDone, XweditError, XweditPosError, XweditReject} XwEditResult; typedef struct { XtResource *resources; Cardinal resource_num; int (*read)(); XwEditResult (*replace)(); XwTextPosition (*getLastPos)(); int (*setLastPos)(); XwTextPosition (*scan)(); XwEditType (*editType)(); Boolean (*check_data)(); void (*destroy)(); int *data; } XwTextSource, *XwTextSourcePtr; /* this wouldn't be here if source and display (still called sink here) were properly separated, classed and subclassed */ typedef short TextFit ; #define tfNoFit 0x01 #define tfIncludeTab 0x02 #define tfEndText 0x04 #define tfNewline 0x08 #define tfWrapWhiteSpace 0x10 #define tfWrapAny 0x20 typedef struct { XwTextEditWidget parent; XFontStruct *font; int foreground; XtResource *resources; Cardinal resource_num; int (*display)(); int (*insertCursor)(); int (*clearToBackground)(); int (*findPosition)(); TextFit (*textFitFn)(); int (*findDistance)(); int (*resolve)(); int (*maxLines)(); int (*maxHeight)(); Boolean (*check_data)(); void (*destroy)(); int LineLastWidth ; XwTextPosition LineLastPosition ; int *data; } XwTextSink, *XwTextSinkPtr; /************************************************************************* * * Support for Verification Callbacks * *************************************************************************/ typedef enum {motionVerify, modVerify, leaveVerify} XwVerifyOpType; typedef struct { XEvent *xevent; XwVerifyOpType operation; Boolean doit; XwTextPosition currInsert, newInsert; XwTextPosition startPos, endPos; XwTextBlock *text; } XwTextVerifyCD, *XwTextVerifyPtr; /* Class record constants */ typedef enum {XwstringSrc, XwdiskSrc, XwprogDefinedSrc} XwSourceType; /* other stuff */ #define wordBreak 0x01 #define scrollVertical 0x02 #define scrollHorizontal 0x04 #define scrollOnOverflow 0x08 #define resizeWidth 0x10 #define resizeHeight 0x20 #define editable 0x40 /**************************************************************************** * * Display control (grow, wrap, scroll, visible cursor) * ****************************************************************************/ typedef enum {XwWrapOff, XwSoftWrap, XwHardWrap} XwWrap ; typedef enum {XwSourceForm, XwDisplayForm} XwWrapForm ; typedef enum {XwWrapAny, XwWrapWhiteSpace} XwWrapBreak ; /* Scroll options */ typedef int XwScroll ; /* Grow options */ typedef int XwGrow ; /************************************************************************* * * External functions from TextEdit * *************************************************************************/ extern void XwTextClearBuffer(); /* XwTextEditWidget w; */ extern unsigned char *XwTextCopyBuffer(); /* XwTextEditWidget w */ extern unsigned char *XwTextCopySelection(); /* XwTextEditWidget w */ extern int XwTextReadSubString(); /* XwTextEditWidget w; XwTextPosition startpos, endpos; unsigned char *target; Memory to copy into int targetsize, Memory size targetused; Memory used by copy */ extern void XwTextUnsetSelection(); /* XwTextEditWidget w */ extern void XwTextSetSelection(); /* XwTextEditWidget w; XwTextPosition left, right; */ extern XwEditResult XwTextReplace(); /* XwTextEditWidget w; XwTextPosition startPos, endPos; unsigned char *string; */ extern void XwTextRedraw(); /* XwTextEditWidget w */ #define HAVE_XWTEXTRESIZE extern void XwTextResize(); /* XwTextEditWidget w */ extern void XwTextUpdate(); /* XwTextEditWidget w; Boolean status */ extern void XwTextInsert(); /* XwTextEditWidget w */ /* unsigned char *string */ extern XwTextPosition XwTextGetLastPos(); /* XwTextEditWidget w; */ extern void XwTextGetSelectionPos(); /* XwTextEditWidget w; */ /* XwTextPosition *left, *right; */ extern void XwTextSetInsertPos(); /* XwTextEditWidget w; */ /* XwTextPosition position */ extern XwTextPosition XwTextGetInsertPos(); /* XwTextEditWidget widget */ extern void XwTextSetSource(); /* XwTextEditWidget w; */ /* XwTextSourcePtr source; */ /* XwTextPosition startpos */ /************************************************************************* * * Extern Source and Sink Create/Destroy functions * *************************************************************************/ extern XwTextSink *XwAsciiSinkCreate(); /* Widget w */ /* ArgList args */ /* Cardinal num_args */ extern XwTextSource *XwStringSourceCreate(); /* Widget parent; */ /* ArgList args; */ /* int argCount; */ extern void XwStringSourceDestroy(); /* XwTextSource *src */ #endif /* DON'T ADD STUFF AFTER THIS #endif */ xcircuit-3.9.73/Xw/Button.c0000664000175000001440000005752012335667422014221 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Button.c ** ** Project: X Widgets ** ** Description: Code/Definitions for Button widget meta class. ** **************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>************************************/ /* * Include files & Static Routine Definitions */ #include #include #include #include #include #include #include #include #include static Boolean SetValues(); static void ButtonDestroy(); /*************************************<->************************************* * * * Description: resource list for class: Button * ----------- * * Provides default resource settings for instances of this class. * To get full set of default settings, examine resouce list of super * classes of this class. * *************************************<->***********************************/ static XtResource resources[] = { { XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset (XwButtonWidget, button.font), XtRString, "Fixed" }, { XtNlabel, XtCLabel, XtRString, sizeof (caddr_t), XtOffset (XwButtonWidget, button.label), XtRString, NULL }, { XtNlabelLocation, XtCLabelLocation, XtRLabelLocation, sizeof(int), XtOffset (XwButtonWidget, button.label_location), XtRString, "right" }, { XtNvSpace, XtCVSpace, XtRDimension, sizeof(Dimension), XtOffset (XwButtonWidget, button.internal_height), XtRString, "2" }, { XtNhSpace, XtCHSpace, XtRDimension, sizeof(Dimension), XtOffset (XwButtonWidget, button.internal_width), XtRString, "2" }, { XtNset, XtCSet, XtRBoolean, sizeof (Boolean), XtOffset (XwButtonWidget, button.set), XtRString, "False" }, { XtNsensitiveTile, XtCSensitiveTile, XtRTileType, sizeof (int), XtOffset(XwButtonWidget, button.sensitive_tile), XtRString, "foreground" }, { XtNborderWidth, XtCBorderWidth, XtRDimension, sizeof(Dimension), XtOffset(XwButtonWidget,core.border_width), XtRString, "0" }, }; /*************************************<->************************************* * * * Description: global class record for instances of class: Button * ----------- * * Defines default field settings for this class record. Note that * while Button needs a special type converter, it doesn't need to * register that converter since Primitive takes care of registering * all of the converters for the X Widgets library and Button is a * subclass of Primitive. * *************************************<->***********************************/ XwButtonClassRec XwbuttonClassRec = { { (WidgetClass) &XwprimitiveClassRec, /* superclass */ "XwButton", /* class_name */ sizeof(XwButtonRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class part initialize */ FALSE, /* class_inited */ _XwInitializeButton, /* initialize */ NULL, /* initialize hook */ NULL, /* realize */ NULL, /* actions */ 0, /* num_actions */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ FALSE, /* visible_interest */ ButtonDestroy, /* destroy */ NULL, /* resize */ NULL, /* expose */ SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* toolkit version */ NULL, /* PRIVATE callback */ NULL, /* tm_table */ NULL, /* query_geometry */ /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, /* Inherit procedures for handling traversal and selection */ { (XtWidgetProc) XtInheritBorderHighlight, (XtWidgetProc) XtInheritBorderUnhighlight, (XwEventProc) XtInheritSelectProc, (XwEventProc) XtInheritReleaseProc, (XwEventProc) XtInheritToggleProc, }, { 0, /* Button class part - unused */ } }; WidgetClass XwbuttonWidgetClass = (WidgetClass) &XwbuttonClassRec; /*************************************<->************************************* * * ButtonDestroy (bw) * * Description: * ----------- * Free up the space taken by the button's label and free up the * button's graphic contexts. * * * Inputs: * ------ * bw = button (or subclass of button) to be destroyed. * *************************************<->***********************************/ static void ButtonDestroy (bw) XwButtonWidget bw; { if (bw->button.label) XtFree (bw->button.label); XtDestroyGC (bw->button.normal_GC); XtDestroyGC (bw->button.inverse_GC); } /*************************************<->************************************* * * SetValues(current, request, new, last) * * Description: * ----------- * This is the set values procedure for the button class. * * * Inputs: * ------ * current = original widget; * request = copy of current (?); * new = copy of request which reflects changes made to it by * set values procedures of its superclasses; * last = TRUE if this is the last set values procedure to be called. * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues(current, request, new) Widget current, request, new; { XwButtonWidget curcbox = (XwButtonWidget) current; XwButtonWidget newcbox = (XwButtonWidget) new; Boolean flag = FALSE; /* our return value */ int GCflag = 0; #define NewNormal 1 #define NewInverse 2 /************************************************************ * If the button setting has been changed then set flag so that * button will be redisplayed. NOTE THAT IF THE APPLICATION * WANTS THE CALLBACKS ASSOCIATED WITH THE BUTTON TO BE INVOKED * IT WILL HAVE TO DIRECTLY CALL XTCALLCALLBACKS. ************************************************************/ if (curcbox->button.set != newcbox->button.set) flag = TRUE; /************************************************************ * If the font has been changed then we need to * recompute the text width and height. We'll also have * to change other things, see below... ************************************************************/ if (curcbox->button.font != newcbox->button.font) { _XwSetTextWidthAndHeight(newcbox); flag = TRUE; } /************************************************************** * If a new label has been provided then we'll need to copy it * into our data space. * Free up any space previously allocated for the label name. * NOTE: We allow them to specify a NULL label. ***************************************************************/ if (curcbox->button.label != newcbox->button.label) { /* Set label length, height and width */ _XwSetTextWidthAndHeight(newcbox); if (newcbox->button.label) newcbox->button.label = strcpy( XtMalloc((unsigned) newcbox->button.label_len + 1), newcbox->button.label); if (curcbox->button.label) XtFree ((char *) curcbox->button.label); flag = TRUE; } /********************************************************************** * If the label location flag has changed set the redisplay flag TRUE * and check that it has a valid setting. If its invalid, then issue * a warning. ********************************************************************/ if (curcbox->button.label_location != newcbox->button.label_location) { flag = TRUE; if ((newcbox->button.label_location != XwLEFT) && (newcbox->button.label_location != XwRIGHT) && (newcbox->button.label_location != XwCENTER)) { XtWarning("SetValues: Invalid Label Location Setting."); newcbox->button.label_location = curcbox->button.label_location; } } /********************************************************************* * If the sensitive tile has changed, validate it. Then, if the * foreground or background or font or sensitive tile has changed * then recompute/get a new (In)sensitive GC. ********************************************************************/ if (newcbox->button.sensitive_tile != XwFOREGROUND) { newcbox->button.sensitive_tile = curcbox->button.sensitive_tile; XtWarning("SetValues: Invalid sensitive tile setting."); } if (curcbox->primitive.foreground != newcbox->primitive.foreground || curcbox->core.background_pixel != newcbox->core.background_pixel) { /* GET ALL NEW GC's */ GCflag = NewNormal | NewInverse; } if (curcbox->button.font->fid != newcbox->button.font->fid) { /* GET NEW GC's FOR normal & inverse */ GCflag = NewNormal | NewInverse; } if ((curcbox->button.sensitive_tile != newcbox->button.sensitive_tile) && (! newcbox->core.sensitive || ! newcbox->core.ancestor_sensitive)) { /* GET NEW normal GC */ GCflag |= NewNormal; } if ((newcbox->core.sensitive != curcbox->core.sensitive) && ((newcbox->core.sensitive && newcbox->core.ancestor_sensitive) || (!newcbox->core.sensitive && curcbox->core.ancestor_sensitive))) { /* GET NEW normal GC */ GCflag |= NewNormal; } else if (newcbox->core.sensitive && (curcbox->core.ancestor_sensitive != newcbox->core.ancestor_sensitive)) { /* GET NEW normal GC */ GCflag |= NewNormal; } if (GCflag & NewNormal) { XtDestroyGC(curcbox->button.normal_GC); _XwGetNormalGC(newcbox); flag = TRUE; } if (GCflag & NewInverse) { XtDestroyGC(curcbox->button.inverse_GC); _XwGetInverseGC(newcbox); flag = TRUE; } /******************************************************************** * NOTE THAT SUBCLASSES OF BUTTON WILL HAVE TO CHECK FOR CHANGES IN * internal_width, internal_height AND DETERMINE WHAT SHOULD BE DONE. * WE'RE JUST BEING GOOD CITIZENS HERE AND FLAGING THAT IT WILL HAVE * TO BE REDISPLAYED BECAUSE OF THE CHANGE. *********************************************************************/ if ((curcbox->button.internal_width != newcbox->button.internal_width) || (curcbox->button.internal_height != newcbox->button.internal_height)) flag = TRUE; return( flag ); } /*************************************<->************************************* * * void _XwSetTextWidthAndHeight (aButton) * * Description: * ----------- * Calculate width and height of displayed text in pixels. * Sets the following fields in the button portion of a button * instance record: * * label_len * label_height * label_width * * Inputs: * ------ * aButton = XwButtonWidget * * Procedures Called * ----------------- * XwStrlen() [a macro: #define XwStrlen(s) ((s) ? strlen(s) : 0) ] * XTextWidth() *************************************<->***********************************/ void _XwSetTextWidthAndHeight(aButton) XwButtonWidget aButton; { register XFontStruct *fs = aButton->button.font; aButton->button.label_height = fs->max_bounds.ascent + fs->max_bounds.descent; if (aButton->button.label) { aButton->button.label_len = XwStrlen(aButton->button.label); aButton->button.label_width = XTextWidth( fs, aButton->button.label, (int) aButton->button.label_len); } else { aButton->button.label_len = 0; aButton->button.label_width = 0; } } /*************************************<->************************************* * * void _XwGetNormalGC(aButton) * XwButtonWidget aButton; * * Description: * ----------- * Uses the widget specific foreground to generate the "normal" * graphic context. Note that this is a XToolkit sharable GC. * Creates the needed GC and sets ptr. in instance record. * * Inputs: * ------ * aButton = widget instance. * * Outputs: * ------- * * Procedures Called * ----------------- * XtGetGC *************************************<->***********************************/ void _XwGetNormalGC(aButton) XwButtonWidget aButton; { XGCValues values; values.foreground = aButton->primitive.foreground; values.background = aButton->core.background_pixel; values.font = aButton->button.font->fid; values.line_width = 1; aButton->button.normal_GC = XtGetGC((Widget)aButton, (unsigned) GCForeground | (unsigned) GCBackground | GCLineWidth | GCFont, &values); } /*************************************<->************************************* * * void _XwGetInverseGC(aButton) * XwButtonWidget aButton; * * Description: * ----------- * * Inputs: * ------ * aButton = widget instance. * * Outputs: * ------- * * Procedures Called * ----------------- * XwGetGC *************************************<->***********************************/ void _XwGetInverseGC(aButton) XwButtonWidget aButton; { XGCValues values; values.foreground = aButton->core.background_pixel; values.background = aButton->primitive.foreground; values.font = aButton->button.font->fid; values.line_width = 1; aButton->button.inverse_GC = XtGetGC((Widget)aButton, (unsigned) GCForeground | (unsigned) GCBackground | GCLineWidth | GCFont, &values); } /*************************************<->************************************* * * _XwInitializeButton (request, new) * * Description: * ----------- * This is the button instance initialize procedure. Make sure * that the button has a label, compute its height and width fields; * set the appropriate graphic contexts. * * Inputs: * ------ * request = original instance record; * * new = instance record with modifications induced by * other initialize routines, changes are made to this * record; * * args = argument list specified in XtCreateWidget; * * num_args = argument count; * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ void _XwInitializeButton (request, new) Widget request, new; { XwButtonWidget aButton = (XwButtonWidget) new; /* * NOTE: we don't allow a NULL string for our button label. * If we do find a NULL at initialize time then we will use the * button name. The rationale for this is that this allows someone * to change the button label in the .Xdefaults file, whereas if * the application programmer hardwired the name into an arg list * it would be impossible to change. However, if you really want * a NULL string, do a SetValues and change the label to NULL. * * We need to malloc space for this string and copy it to our * space. The toolkit simply copies the pointer to the string. */ if (aButton->button.label == NULL) aButton->button.label = aButton->core.name; aButton->button.label = strcpy( XtMalloc((unsigned) (XwStrlen(aButton->button.label)+1)), aButton->button.label); /* * make sure that sensitive_tile is valid */ if (aButton->button.sensitive_tile != XwFOREGROUND) { aButton->button.sensitive_tile = XwFOREGROUND; XtWarning("Initialize: Invalid sensitive tile setting."); } _XwGetInverseGC(aButton); _XwGetNormalGC(aButton); _XwSetTextWidthAndHeight(aButton); aButton->primitive.display_sensitive = FALSE; aButton->primitive.highlighted = FALSE; } /* _XwInitializeButton */ /*************************************<->************************************* * * _XwRealize * * Description: * ----------- * This is a generalize routine used by both subclasses of Primitive * and Manager. It sets bit gravity to NW for managers and to Forget * for others, but for Buttons is sets it according to the setting of * label location. * * Inputs * ------ * w = widget to be realized. * * valueMask = contains event mask for this window/widget. * * attributes = window attributes for this window/widget. * * Outputs: * ------- * * Procedures Called * ----------------- * XCreateWindow() *************************************<->***********************************/ void _XwRealize(w, p_valueMask, attributes) register Widget w; Mask *p_valueMask; XSetWindowAttributes *attributes; { Mask valueMask = *p_valueMask; valueMask |= CWBitGravity; if (XtIsSubclass(w, XwprimitiveWidgetClass)) { register XwPrimitiveWidget pw = (XwPrimitiveWidget) w; if (pw->primitive.cursor != None) valueMask |= CWCursor; attributes->cursor = pw->primitive.cursor; } if (XtIsSubclass(w, XwmanagerWidgetClass)) attributes->bit_gravity = NorthWestGravity; else if (w->core.widget_class != XwbuttonWidgetClass) attributes->bit_gravity = ForgetGravity; else switch (((XwButtonWidget)w)->button.label_location) { case XwRIGHT: attributes->bit_gravity = EastGravity; break; case XwLEFT: attributes->bit_gravity = WestGravity; break; case XwCENTER: attributes->bit_gravity = CenterGravity; break; } XtCreateWindow(w, InputOutput, (Visual *)CopyFromParent, valueMask, attributes); _XwRegisterName(w); /* hang widget name as property on window */ } /* _XwRealize */ /*************************************<->************************************* * * _XwResizeButton(w) * * Description: * ----------- * A resize event has been generated. Recompute location of button * elements. * * USED BY CHECKBOX AND PUSHBUTTON CLASSES. * * Inputs: * ------ * w = widget to be resized. * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ void _XwResizeButton(w) Widget w; { register XwButtonWidget aButton = (XwButtonWidget) w; int direction = aButton->button.label_location; switch (direction) { case XwCENTER: aButton->button.label_x = ((int)aButton->core.width + 1 - (int)aButton->button.label_width) / 2; break; case XwRIGHT: aButton->button.label_x = (int)aButton->core.width - (int)aButton->button.internal_width - aButton->primitive.highlight_thickness - (int)aButton->button.label_width; break; default: aButton->button.label_x = aButton->button.internal_width + aButton->primitive.highlight_thickness; } aButton->button.label_y = (((int)aButton->core.height - (int)aButton->button.label_height) >> 1) + aButton->button.font->max_bounds.ascent; } /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * This procedure is used to store the name of the widget as a * property on the widget's window. The property name is the * string "XW_NAME". Note that we do not malloc space for the * widget's name, we merely use the pointer to this string which * is already in core.name. This shouldn't be a problem since * the name will remain as long as the widget exists. * * We only want to do this one time, thus the hokey method of * initializing a static boolean which prevents us from registering * this atom more than once on the server. * * If possible, we should put this together with other functions done * once. Also, WILL THIS BE A PROBLEM WHEN THE TOOLKIT ALLOWS MORE * THAN ONE DISPLAY TO BE OPENED????? * * Inputs: * ------ * w = widget being created. * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static Atom widget_name; static Boolean first=True; void _XwRegisterName(w) Widget w; { if (first) { widget_name = XInternAtom (XtDisplay(w), "XW_NAME", False); first = False; } XChangeProperty (XtDisplay(w), XtWindow(w), widget_name, XA_STRING, 8, PropModeReplace, w->core.name, XwStrlen(w->core.name)+1); } /*************************************<->************************************* * Boolean * _XwRecomputeSize(current, new) * * Description: * ----------- * Used during SetValues for PButton and Toggle. * If the font has changed OR the label has changed OR * the internal spacing has changed OR the highlight * thickness has changed AND the recompute flag is TRUE * (in the new widget) return TRUE, else return FALSE. * * * Inputs: * ------ * current = current version of widget * new = new version of widget * * Outputs: * ------- * TRUE if resize is needed and okay, FALSE otherwise. * *************************************<->***********************************/ Boolean _XwRecomputeSize(current, new) XwButtonWidget current, new; { if (((new->button.font != current->button.font) || (new->button.label != current->button.label) || (new->primitive.highlight_thickness != current->primitive.highlight_thickness) || (new->button.internal_height != current->button.internal_height) || (new->button.internal_width != current->button.internal_width)) && (new->primitive.recompute_size == TRUE)) return(TRUE); else return(FALSE); } xcircuit-3.9.73/Xw/Cascade.c0000664000175000001440000012443712335667422014273 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Cascade.c ** ** Project: X Widgets ** ** Description: Code and class record for Cascade widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #include #include #include static void Initialize(); static void Realize(); static void Resize(); static void Redisplay(); static void InsertChild(); static void Select(); static void Leave(); static Boolean SetValues(); static XtGeometryResult GeometryManager(); static void ChangeManaged(); static void GetFontGC(); static void SetTitleAttributes(); static void Visibility(); static void Unmap(); /* The following are used for layout spacing */ #define PADDING_TO_LEFT 2 #define PADDING_TO_RIGHT 2 #define PADDING_FROM_ABOVE 2 #define PADDING_FROM_BELOW PADDING_FROM_ABOVE #define PADDING_FOR_UNDERLINE 0 /* No longer used */ #define DOUBLE_LINES 4 /**************************************************************** * * Default translation table for class: MenuPane manager * ****************************************************************/ static char defaultTranslations[] = ": select()\n\ : visible()\n\ : unmap()\n\ : leave()"; /**************************************************************** * * Action list for class: MenuPane manager * ****************************************************************/ static XtActionsRec actionsList[] = { {"select", (XtActionProc) Select}, {"visible", (XtActionProc) Visibility}, {"unmap", (XtActionProc) Unmap}, {"leave", (XtActionProc) Leave}, }; /**************************************************************** * * MenuPane Resources * ****************************************************************/ static XtResource resources[] = { {XtNtitlePosition, XtCTitlePosition, XtRTitlePositionType, sizeof(int), XtOffset(XwCascadeWidget, cascade.titlePosition),XtRString,"top"}, }; /**************************************************************** * * Full class record constant * ****************************************************************/ XwCascadeClassRec XwcascadeClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwmenupaneClassRec, /* class_name */ "XwCascade", /* widget_size */ sizeof(XwCascadeRec), /* class_initialize */ NULL, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ Realize, /* actions */ actionsList, /* num_actions */ XtNumber(actionsList), /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ NULL, /* resize */ Resize, /* expose */ Redisplay, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* PRIVATE cb list */ NULL, /* tm_table */ defaultTranslations, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL },{ /* composite_class fields */ /* geometry_manager */ GeometryManager, /* change_managed */ ChangeManaged, /* insert_child */ XtInheritInsertChild, /* delete_child */ XtInheritDeleteChild, NULL },{ /* constraint class fields */ /* resources */ NULL, /* num_resources */ 0, /* constraint_size */ sizeof (Boolean), /* initialize */ (XtInitProc)XtInheritMenuPaneConstraintInit, /* destroy */ NULL, /* set_values */ NULL, NULL },{ /* manager_class fields */ /* traversal handler */ (XwTraversalProc)XtInheritTraversalProc, /* translations */ NULL },{ /* menu pane class - none */ /* setTraversalFlag */ XtInheritSetTraversalFlagProc },{ /* cascade class - none */ /* mumble */ 0 } }; WidgetClass XwcascadeWidgetClass = (WidgetClass)&XwcascadeClassRec; /*************************************<->************************************* * * Select () * * Description: * ----------- * Called upon receipt of a 'select' action; simple invokes callbacks. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Select (w, event) Widget w; XEvent * event; { Widget parent, grandparent; if ((parent = XtParent(w)) && (grandparent = XtParent(parent)) && (XtIsSubclass (grandparent, XwmenumgrWidgetClass))) { /* Ask the menu mgr if we should process or ignore the select */ if ((*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. processSelect) (grandparent, w, event) == FALSE) { return; } } XtCallCallbacks (w, XtNselect, NULL); } /*************************************<->************************************* * * Leave() * * Description: * ----------- * Called upon receipt of a LeaveNotify event; this is a NOOP, whose * purpose is to simply prevent us from using the LeaveNotify handler * supplied by the Manager class. The Manager's action routine does * an XSetInputFocus() to root, which is not what we want here. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Leave (w, event) Widget w; XEvent * event; { } /*************************************<->************************************* * * GetIdealSize * * Description: * ----------- * Returns the minimum height and width into which the menu pane will fit. * replyHeight and replyWidth are set to the minimum acceptable size. * Also, the maxCascadeWidth, maxLabel and largestButtonWidth fields are * set in the widget structure. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static GetIdealSize(mw, replyWidth, replyHeight) XwCascadeWidget mw; Dimension *replyWidth, *replyHeight; /* RETURN */ { Cardinal i; Dimension minWidth, minHeight, largestButtonWidth; XwMenuButtonWidget menuButton; /* Current button */ Dimension idealWidth; /* * First, compute the minimum width (less padding) needed for * these items; include the title in these calculations. */ minWidth = largestButtonWidth = 0; minHeight = mw->manager.highlight_thickness << 1; if (mw->menu_pane.title_showing && !mw->menu_pane.title_override) { if (mw->menu_pane.title_type == XwSTRING) { minWidth = mw->cascade.title_width + PADDING_TO_LEFT + PADDING_TO_RIGHT; largestButtonWidth = minWidth; if (mw->cascade.titlePosition & XwTOP) { minHeight += mw->cascade.title_height + PADDING_FROM_ABOVE + PADDING_FOR_UNDERLINE + DOUBLE_LINES; } if (mw->cascade.titlePosition & XwBOTTOM) { minHeight += mw->cascade.title_height + PADDING_FROM_BELOW + PADDING_FOR_UNDERLINE + DOUBLE_LINES; } } else { minWidth = mw->cascade.title_width + PADDING_TO_LEFT + PADDING_TO_RIGHT; largestButtonWidth = minWidth; if (mw->cascade.titlePosition & XwTOP) { minHeight += mw->cascade.title_height + PADDING_FROM_ABOVE + PADDING_FOR_UNDERLINE + DOUBLE_LINES; } if (mw->cascade.titlePosition & XwBOTTOM) { minHeight += mw->cascade.title_height + PADDING_FROM_BELOW + PADDING_FOR_UNDERLINE + DOUBLE_LINES; } } } minWidth += mw->manager.highlight_thickness << 1; /* * Determine the ideal size for each button; keep track of largest button */ for (i=0; i < mw->manager.num_managed_children; i++) { menuButton = (XwMenuButtonWidget) mw->manager.managed_children[i]; /* * If we are in the middle of a geometry request from one of * our children, then we need to use the ideal size of the * requesting widget, instead of the current widget. Otherwise, * ask the widget for its ideal size. */ if ((Widget) menuButton == mw->cascade.georeqWidget) idealWidth = mw->cascade.georeqWidth; else if (XtIsSubclass ((Widget)menuButton, XwmenubuttonWidgetClass)) { (*(((XwMenuButtonWidgetClass)XtClass(menuButton))-> menubutton_class.idealWidthProc))((Widget)menuButton, &idealWidth); } else idealWidth = menuButton->core.width; minWidth = Max (minWidth, idealWidth + (mw->manager.highlight_thickness << 1) + (menuButton->core.border_width << 1)); largestButtonWidth = Max (largestButtonWidth, idealWidth); minHeight += menuButton->core.height + (menuButton->core.border_width << 1); } /* Set up return values */ if (minWidth == 0) minWidth = 1; if (minHeight == 0) minHeight = 1; if (replyWidth != NULL) *replyWidth = minWidth; if (replyHeight != NULL) *replyHeight = minHeight; mw->cascade.idealHeight = minHeight; mw->cascade.idealWidth = minWidth; mw->cascade.largestButtonWidth = largestButtonWidth; } /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * Returns the minimum height and width into which the menu pane will fit. * If the current menu pane size is small than this, then FALSE is * returned; else, TRUE is returned. In all cases, replyHeight and * replyWidth are set to the minimum acceptable size. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean PreferredSize(mw, width, height, replyWidth, replyHeight) XwCascadeWidget mw; Dimension width, height; Dimension *replyWidth, *replyHeight; { GetIdealSize(mw, replyWidth, replyHeight); return ((*replyWidth <= width) && (*replyHeight <= height)); } /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * This routine assumes the menu pane size has already been updated in * the core record. It will simply relayout the menu buttons, to fit * the new menu pane size. This is called when XtResizeWidget() is invoked, * and when our own geometry manager tries to change our size because one * of our children is trying to change its size. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Resize(mw) XwCascadeWidget mw; { Cardinal i; Cardinal xPos, yPos; Dimension oldHeight; XwMenuButtonWidget menuButton; /* Current button */ Dimension cascadeWidth, labelX; /* Recalculate where the title string should be displayed */ mw->cascade.title_x = ((mw->core.width >> 1) + mw->manager.highlight_thickness) - (mw->cascade.title_width >> 1); /* This is a two step process: first move the item, then resize it */ xPos = mw->manager.highlight_thickness; yPos = mw->cascade.button_starting_loc; for (i = 0; i < mw->manager.num_managed_children; i++) { menuButton = (XwMenuButtonWidget) mw->manager.managed_children[i]; XtMoveWidget ((Widget)menuButton, xPos, yPos); /* * The following kludge will force the widget's resize routine * to always be called. */ oldHeight = menuButton->core.height; menuButton->core.height = 0; menuButton->core.width = 0; XtResizeWidget ((Widget)menuButton, mw->cascade.largestButtonWidth, oldHeight, menuButton->core.border_width); yPos += menuButton->core.height + (menuButton->core.border_width << 1); } SetTitleAttributes (mw, FALSE); } /* Resize */ /*************************************<->************************************* * * TryNewLayout (parameters) * * Description: * ----------- * This determines if the menu pane needs to change size. If it needs to * get bigger, then it will ask its parent's geometry manager; if this * succeeds, then the menu pane window will be resized (NOTE: the menu * buttons are not touched yet). Also, if our resize request succeeded, * the our parent's geometry manager will have updated our size fields * in our core structure. This is called during a Change Manage request, * and when one of our children issues a geometry request. * * NOTE: menu panes ALWAYS use their 'preferred' size. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean TryNewLayout(mw) XwCascadeWidget mw; { XtWidgetGeometry request, reply; XtGeometryResult r; if ((mw->core.width == mw->cascade.idealWidth) && (mw->core.height == mw->cascade.idealHeight)) { /* Same size */ return (TRUE); } switch (XtMakeResizeRequest ((Widget) mw, mw->cascade.idealWidth, mw->cascade.idealHeight, NULL, NULL)) { case XtGeometryYes: return (TRUE); case XtGeometryNo: case XtGeometryAlmost: return (FALSE); } return (FALSE); } /*************************************<->************************************* * * ProcedureName (parameters) * * Description: * ----------- * Invoked when one of our children wants to change its size. This routine * will automatically update the size fields within the child's core * area. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ /*ARGSUSED*/ static XtGeometryResult GeometryManager(w, request, reply) Widget w; XtWidgetGeometry *request; XtWidgetGeometry *reply; /* RETURN */ { Dimension width, height, borderWidth, junkH, junkW, newHeight; XwCascadeWidget mw; XtGeometryResult result = XtGeometryYes; Boolean isPreferredSize; int i; /* * Since the manager is solely responsible for controlling the position * of its children, any geometry request made which attempts to modify * the child's position will not be satified; instead, a compromise will * be returned, with the position bits cleared. */ reply->request_mode = 0; if (request->request_mode & (CWX | CWY)) result = XtGeometryAlmost; mw = (XwCascadeWidget) w->core.parent; /* Size changes must see if the new size can be accomodated */ if (request->request_mode & (CWWidth | CWHeight | CWBorderWidth)) { /* Make all three fields in the request valid */ if ((request->request_mode & CWWidth) == 0) request->width = w->core.width; if ((request->request_mode & CWHeight) == 0) request->height = w->core.height; if ((request->request_mode & CWBorderWidth) == 0) request->border_width = w->core.border_width; /* Set the new size within the widget */ width = w->core.width; height = w->core.height; borderWidth = w->core.border_width; w->core.width = request->width; w->core.height = request->height; w->core.border_width = request->border_width; /* Calculate the new height needed to hold the menu */ newHeight = mw->core.height - (height + borderWidth) + (request->height + request->border_width); /* Let the layout routine know we are in the middle of a geo req */ mw->cascade.georeqWidget = w; mw->cascade.georeqWidth = request->width; /* See if we can allow this size request */ isPreferredSize = PreferredSize (mw, w->core.width + (w->core.border_width << 1) + (mw->manager.highlight_thickness << 1), newHeight, &junkW, &junkH); /* Cleanup */ mw->cascade.georeqWidget = (Widget) NULL; /* * Only allow an item to shrink if it was the largest item. * However, always allow the item to get bigger. */ if (!isPreferredSize) { /* * The widget is attempting to make itself smaller than is allowed; * therefore, we must return a compromise size, which we know will * succeed. */ reply->width = junkW - (mw->manager.highlight_thickness << 1) - (w->core.border_width << 1); reply->height = request->height; reply->border_width = request->border_width; reply->request_mode = CWWidth | CWHeight | CWBorderWidth; result = XtGeometryAlmost; /* Restore the previous size values */ w->core.width = width; w->core.height = height; w->core.border_width = borderWidth; } else { if (result == XtGeometryAlmost) { /* * Even though the size request succeeded, the request cannot * be satisfied, since someone before us has already set the * result to XtGeometryAlmost; most likely, it was because * an attempt was made to change the X or Y values. */ reply->width = request->width; reply->height = request->height; reply->border_width = request->border_width; reply->request_mode = CWWidth | CWHeight | CWBorderWidth; /* Restore the previous size values */ w->core.width = width; w->core.height = height; w->core.border_width = borderWidth; } else { /* * All components of the geometry request could be satisfied, * so make all necessary adjustments, and return a 'Yes' * response to the requesting widget. */ TryNewLayout (mw); Resize (mw); /* SetTitleAttributes (mw, FALSE); */ width = w->core.width; height = w->core.height; borderWidth = w->core.border_width; result = XtGeometryDone; } } }; /* if any size changes requested */ /* * Stacking changes are always allowed. However, if the result has * already been set to XtGeometryAlmost, then some portion of the * request has already failed, so we need to copy the stacking request * back into the 'reply' structure, so that they are not lost. */ if (result == XtGeometryAlmost) { if (request->request_mode & CWSibling) { reply->request_mode |= CWSibling; reply->sibling = request->sibling; } if (request->request_mode & CWStackMode) { reply->request_mode |= CWStackMode; reply->stack_mode = request->stack_mode; } } return (result); } /*************************************<->************************************* * * ChangeManaged * * Description: * ----------- * Forces the managed_children list to be updated, and then attempts to * relayout the menu buttons. If the menu pane is not large enough, then * it will ask its geometry manager to enlarge it. This is invoked when * a new child is managed, or an existing one is unmanaged. NOTE: only * managed children which also have the mapped_when_managed flag set * are included in the layout calculations. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ChangeManaged (mw) XwCascadeWidget mw; { Widget parent, grandparent; Widget menubutton; int i; Boolean * managedConstraintFlag; /* Reconfigure the button box */ _XwSetMappedManagedChildrenList(mw); SetTitleAttributes (mw, FALSE); GetIdealSize(mw, NULL, NULL); (void) TryNewLayout(mw); Resize(mw); /* * Tell the menu manager that the list of mapped & managed children * has changed, */ if ((parent = XtParent(mw)) && (grandparent = XtParent(parent)) && (XtIsSubclass (grandparent, XwmenumgrWidgetClass))) { (*((XwMenuMgrWidgetClass)XtClass(grandparent))->menu_mgr_class. paneManagedChildren) (grandparent, (Widget)mw); } /* * The constraint record has been updated by the menu manager. */ } /*************************************<->************************************* * * Initialize * * * Description: * ----------- * Initialize the menu_pane fields within the widget's instance structure. * Calls for registering the pane with a menu manager, and for attaching * the pane to a menu button are handled by our meta class. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Initialize (request, new) XwCascadeWidget request, new; { Arg args2[2]; new->cascade.georeqWidget = (Widget) NULL; /* Determine the title attributes, and the starting location for our kids */ SetTitleAttributes (new, TRUE); /* Force our parent shell to be resizable */ XtSetArg (args2[0], XtNallowShellResize, TRUE); XtSetArg (args2[1], XtNoverrideRedirect, TRUE); XtSetValues (new->core.parent, args2, XtNumber(args2)); /* Augment our translations to include the traversal actions */ XtAugmentTranslations ((Widget) new, XwmanagerClassRec.manager_class.translations); /* KLUDGE!!! This is necessary!!! The shell must be realized so * that the cascades changed_managed routine is called and the * keyboard accelerators are set up for the menu manager. */ if (new->core.height > 0) (new->core.parent)->core.height = new->core.height; else (new->core.parent)->core.height = 1; if (new->core.width > 0) (new->core.parent)->core.width = new->core.width; else (new->core.parent)->core.width = 1; if (XtIsSubclass(new->core.parent, shellWidgetClass)) XtRealizeWidget (new->core.parent); } /* Initialize */ /*************************************<->************************************* * * Realize * * Description: * ----------- * Invoked only when the menu pane is realized. It will create the window * in which the menu pane will be displayed. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Realize(w, p_valueMask, attributes) register Widget w; Mask *p_valueMask; XSetWindowAttributes *attributes; { XwCascadeWidget mw; Mask valueMask = *p_valueMask; attributes->bit_gravity = ForgetGravity; valueMask |= CWBitGravity; mw = (XwCascadeWidget) w; w->core.window = XCreateWindow(XtDisplay(w), w->core.parent->core.window, w->core.x, w->core.y, w->core.width, w->core.height, w->core.border_width, w->core.depth, InputOutput, (Visual *)CopyFromParent, valueMask, attributes); _XwRegisterName (w); } /* Realize */ /*************************************<->************************************* * * SetValues * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues (current, request, new) XwCascadeWidget current, request, new; { Boolean redrawFlag = FALSE; /* * We never allow our traversal flags to be changed during SetValues(); * this is enforced by our superclass. */ /* Validate the title position, and see if it has changed */ if ((new->cascade.titlePosition & (XwTOP | XwBOTTOM)) == 0) { new->cascade.titlePosition = current->cascade.titlePosition; XtWarning ( "Cascade: Invalid title position; resetting to previous setting"); } if ((current->cascade.titlePosition & (XwTOP | XwBOTTOM)) != (new->cascade.titlePosition & (XwTOP | XwBOTTOM))) { redrawFlag = TRUE; } SetTitleAttributes (new, FALSE); GetIdealSize(new, NULL, NULL); new->core.height = new->cascade.idealHeight; new->core.width = new->cascade.idealWidth; /* * If the title position changes, but the size of the menupane * does not (because no other attributes have changed which could * cause the size to change), then we need to force a call to our * resize() procedure, so that the menu buttons get repositioned * relative to the new title position. */ if (redrawFlag && (new->core.height == current->core.height) && (new->core.width == current->core.width)) { Resize(new); } return (redrawFlag); } /*************************************<->************************************* * * Redisplay * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Redisplay (w, event) Widget w; XEvent * event; { XwCascadeWidget mw = (XwCascadeWidget) w; /* If a title is defined, then redisplay it, if 'showing' flag set */ if (mw->menu_pane.title_showing && ! mw->menu_pane.title_override) { /* Recalculate the title position */ mw->cascade.title_x = (mw->core.width >> 1) + mw->manager.highlight_thickness - (mw->cascade.title_width >> 1); if (mw->menu_pane.title_type == XwSTRING) { if (mw->cascade.titlePosition & XwTOP) { XDrawString (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, mw->cascade.title_x, mw->cascade.top_title_y, mw->menu_pane.title_string, XwStrlen(mw->menu_pane.title_string)); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.top_title_y + mw->menu_pane.title_font->descent + PADDING_FOR_UNDERLINE + 1, mw->core.width, mw->cascade.top_title_y + mw->menu_pane.title_font->descent + PADDING_FOR_UNDERLINE + 1); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.top_title_y + mw->menu_pane.title_font->descent + PADDING_FOR_UNDERLINE + 3, mw->core.width, mw->cascade.top_title_y + mw->menu_pane.title_font->descent + PADDING_FOR_UNDERLINE + 3); } if (mw->cascade.titlePosition & XwBOTTOM) { XDrawString (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, mw->cascade.title_x, mw->cascade.bottom_title_y, mw->menu_pane.title_string, XwStrlen(mw->menu_pane.title_string)); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.bottom_title_y - mw->menu_pane.title_font->ascent - DOUBLE_LINES + 2, mw->core.width, mw->cascade.bottom_title_y - mw->menu_pane.title_font->ascent - DOUBLE_LINES + 2); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.bottom_title_y - mw->menu_pane.title_font->ascent - DOUBLE_LINES, mw->core.width, mw->cascade.bottom_title_y - mw->menu_pane.title_font->ascent - DOUBLE_LINES); } } else if (mw->menu_pane.titleImage) { if (mw->cascade.titlePosition & XwTOP) { XPutImage (XtDisplay(mw), XtWindow(mw), mw->menu_pane.titleGC, mw->menu_pane.titleImage, 0, 0, mw->cascade.title_x, mw->cascade.top_title_y, mw->cascade.title_width, mw->cascade.title_height); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.top_title_y + mw->cascade.title_height + PADDING_FOR_UNDERLINE + 1, mw->core.width, mw->cascade.top_title_y + mw->cascade.title_height + PADDING_FOR_UNDERLINE + 1); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.top_title_y + mw->cascade.title_height + PADDING_FOR_UNDERLINE + 3, mw->core.width, mw->cascade.top_title_y + mw->cascade.title_height + PADDING_FOR_UNDERLINE + 3); } if (mw->cascade.titlePosition & XwBOTTOM) { XPutImage (XtDisplay(mw), XtWindow(mw), mw->menu_pane.titleGC, mw->menu_pane.titleImage, 0, 0, mw->cascade.title_x, mw->cascade.bottom_title_y, mw->cascade.title_width, mw->cascade.title_height); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.bottom_title_y - DOUBLE_LINES + 2, mw->core.width, mw->cascade.bottom_title_y - DOUBLE_LINES + 2); XDrawLine (XtDisplay(w), XtWindow(w), mw->menu_pane.titleGC, 0, mw->cascade.bottom_title_y - DOUBLE_LINES, mw->core.width, mw->cascade.bottom_title_y - DOUBLE_LINES); } } } } /*************************************<->************************************* * * SetTitleAttributes * * Description: * ----------- * This procedure calculates the height, width, and starting location * for the title string/image. In addition, it uses * this information to determine where the menu buttons should be laid * out within the pane. * * * Inputs: * ------ * mw = The menu pane widget whose title attributes are being calculated. * * setCoreFields = A boolean flag, indicating whether the core height * and width fields should be set to their default value. * This flag should only be set to TRUE when this routine * is invoked at initialization time; all other calls must * set this to FALSE. * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetTitleAttributes (mw, setCoreFields) XwCascadeWidget mw; Boolean setCoreFields; { if (mw->menu_pane.title_showing && !mw->menu_pane.title_override) { if (mw->menu_pane.title_type == XwSTRING) { /* Determine size of title string */ mw->cascade.title_width = XTextWidth (mw->menu_pane.title_font, mw->menu_pane.title_string, XwStrlen(mw->menu_pane.title_string)); mw->cascade.title_height = mw->menu_pane.title_font->ascent + mw->menu_pane.title_font->descent; mw->cascade.title_x = PADDING_TO_LEFT + mw->manager.highlight_thickness; /* Default size should contain just the title string */ if (setCoreFields) { mw->core.width = mw->cascade.title_width + (mw->manager.highlight_thickness << 1) + PADDING_TO_LEFT + PADDING_TO_RIGHT; mw->core.height = mw->manager.highlight_thickness << 1; if (mw->cascade.titlePosition & XwTOP) mw->core.height += mw->cascade.title_height + PADDING_FROM_ABOVE + PADDING_FOR_UNDERLINE + DOUBLE_LINES; if (mw->cascade.titlePosition & XwBOTTOM) mw->core.height += mw->cascade.title_height + PADDING_FROM_BELOW + PADDING_FOR_UNDERLINE + DOUBLE_LINES; } if (mw->cascade.titlePosition & XwTOP) mw->cascade.top_title_y = PADDING_FROM_ABOVE + mw->manager.highlight_thickness + mw->menu_pane.title_font->ascent; else mw->cascade.top_title_y = 0; if (mw->cascade.titlePosition & XwBOTTOM) mw->cascade.bottom_title_y = mw->core.height - mw->manager.highlight_thickness - mw->menu_pane.title_font->descent - PADDING_FROM_ABOVE - PADDING_FOR_UNDERLINE; else mw->cascade.bottom_title_y = mw->core.height - mw->manager.highlight_thickness; if (mw->cascade.titlePosition & XwTOP) mw->cascade.button_starting_loc = mw->cascade.top_title_y + mw->menu_pane.title_font->descent + PADDING_FOR_UNDERLINE + DOUBLE_LINES; else mw->cascade.button_starting_loc = mw->manager.highlight_thickness; } else if (mw->menu_pane.titleImage) { /* Determine size of title image */ mw->cascade.title_width = mw->menu_pane.titleImage->width; mw->cascade.title_height = mw->menu_pane.titleImage->height; mw->cascade.title_x = PADDING_TO_LEFT + mw->manager.highlight_thickness; /* Default size should contain just the title image */ if (setCoreFields) { mw->core.width = mw->cascade.title_width + (mw->manager.highlight_thickness << 1) + PADDING_TO_LEFT + PADDING_TO_RIGHT; mw->core.height = (mw->manager.highlight_thickness << 1);; if (mw->cascade.titlePosition & XwTOP) mw->core.height += mw->cascade.title_height + PADDING_FROM_ABOVE + PADDING_FOR_UNDERLINE + DOUBLE_LINES; if (mw->cascade.titlePosition & XwBOTTOM) mw->core.height += mw->cascade.title_height + PADDING_FROM_ABOVE + PADDING_FOR_UNDERLINE + DOUBLE_LINES; } if (mw->cascade.titlePosition & XwTOP) mw->cascade.top_title_y = PADDING_FROM_ABOVE + mw->manager.highlight_thickness; else mw->cascade.top_title_y = 0; if (mw->cascade.titlePosition & XwBOTTOM) mw->cascade.bottom_title_y = mw->core.height - mw->manager.highlight_thickness - mw->cascade.title_height - PADDING_FROM_BELOW; else mw->cascade.bottom_title_y = mw->core.height - mw->manager.highlight_thickness; if (mw->cascade.titlePosition & XwTOP) mw->cascade.button_starting_loc = mw->cascade.top_title_y + mw->cascade.title_height + PADDING_FOR_UNDERLINE + DOUBLE_LINES; else mw->cascade.button_starting_loc = mw->manager.highlight_thickness; } else { /* No image is present */ if (setCoreFields) { mw->core.width = (mw->manager.highlight_thickness > 0) ? (mw->manager.highlight_thickness << 1) : 2; mw->core.height = mw->core.width; } mw->cascade.title_width = 0; mw->cascade.title_height = 0; mw->cascade.title_x = 0; mw->cascade.top_title_y = 0; mw->cascade.bottom_title_y = mw->core.height; mw->cascade.button_starting_loc = mw->manager.highlight_thickness; } } else { /* No image or string is present */ if (setCoreFields) { mw->core.width = (mw->manager.highlight_thickness > 0) ? (mw->manager.highlight_thickness << 1) : 2; mw->core.height = mw->core.width; } mw->cascade.title_width = 0; mw->cascade.title_height = 0; mw->cascade.title_x = 0; mw->cascade.top_title_y = 0; mw->cascade.bottom_title_y = mw->core.height; mw->cascade.button_starting_loc = mw->manager.highlight_thickness; } } /*************************************<->************************************* * * Visibility(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Visibility (widget, event) Widget widget; XEvent * event; { /* * Noop; purpose is to prevent Manager's translation from * taking effect. */ } /*************************************<->************************************* * * Unmap(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Unmap (widget, event) Widget widget; XEvent * event; { /* * Noop; purpose is to prevent Manager's translation from * taking effect. */ } xcircuit-3.9.73/Xw/BBoardP.h0000664000175000001440000000477312335667422014226 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: BBoardP.h ** ** Project: X Widgets ** ** Description: Private include file for widgets which are ** subclasses of bulletin board or which ** need to access directly the instance/class ** fields of the bulletin board widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * BulletinBoard Widget Private Data * ***********************************************************************/ /* New fields for the BulletinBoard widget class record */ typedef struct { int mumble; /* No new procedures */ } XwBulletinClassPart; /* Full class record declaration */ typedef struct _XwBulletinClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; XwBulletinClassPart bulletin_board_class; } XwBulletinClassRec; extern XwBulletinClassRec XwbulletinClassRec; /* New fields for the Bulletin widget record */ typedef struct { int mumble; /* No new fields */ } XwBulletinPart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwBulletinRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; XwBulletinPart bulletin_board; } XwBulletinRec; xcircuit-3.9.73/Xw/TextEdit.c0000664000175000001440000023642312335667422014501 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: TextEdit.c ** ** Project: X Widgets ** ** Description: Code for TextEdit widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #include #ifdef SYSV #include #include #else #include #endif /* SYSV */ #include #include #include #include #include #include #include #include #include #include /* This include depends on something above it */ #define BufMax 1000 #define abs(x) (((x) < 0) ? (-(x)) : (x)) #define min(x,y) ((x) < (y) ? (x) : (y)) #define max(x,y) ((x) > (y) ? (x) : (y)) #define GETLASTPOS(ctx) ((*(ctx->text.source->getLastPos)) (ctx->text.source)) #define BUTTONMASK 0x143d #define zeroPosition ((XwTextPosition) 0) /****************************************************************************** * * Resources for TextEdit * ******************************************************************************/ static XtResource resources[] = { /* Resources from other classes with new defaults */ {XtNheight, XtCHeight, XtRDimension, sizeof(Dimension), XtOffset(XwTextEditWidget, core.height), XtRString, "200"}, {XtNwidth, XtCWidth, XtRDimension, sizeof(Dimension), XtOffset(XwTextEditWidget, core.width), XtRString, "200"}, /* New resources for TextEdit */ {XtNdisplayPosition, XtCTextPosition, XtRInt, sizeof (XwTextPosition), XtOffset(XwTextEditWidget, text.lt.top), XtRString, "0"}, {XtNinsertPosition, XtCTextPosition, XtRInt, sizeof(XwTextPosition), XtOffset(XwTextEditWidget, text.insertPos), XtRString, "0"}, {XtNleftMargin, XtCMargin, XtRDimension, sizeof (Dimension), XtOffset(XwTextEditWidget, text.leftmargin), XtRString, "2"}, {XtNrightMargin, XtCMargin, XtRDimension, sizeof (Dimension), XtOffset(XwTextEditWidget, text.rightmargin), XtRString, "2"}, {XtNtopMargin, XtCMargin, XtRDimension, sizeof (Dimension), XtOffset(XwTextEditWidget, text.topmargin), XtRString, "2"}, {XtNbottomMargin, XtCMargin, XtRDimension, sizeof (Dimension), XtOffset(XwTextEditWidget, text.bottommargin), XtRString, "2"}, {XtNsourceType, XtCSourceType, XtRSourceType, sizeof(XwSourceType), XtOffset(XwTextEditWidget, text.srctype), XtRString, "stringsrc"}, {XtNtextSource, XtCTextSource, XtRPointer, sizeof (caddr_t), XtOffset(XwTextEditWidget, text.source), XtRPointer, NULL}, {XtNselection, XtCSelection, XtRPointer, sizeof(caddr_t), XtOffset(XwTextEditWidget, text.s), XtRPointer, NULL}, {XtNmotionVerification, XtCCallback, XtRCallback, sizeof(XtCallbackProc), XtOffset(XwTextEditWidget, text.motion_verification), XtRCallback, (caddr_t) NULL}, {XtNmodifyVerification, XtCCallback, XtRCallback, sizeof(XtCallbackProc), XtOffset(XwTextEditWidget, text.modify_verification), XtRCallback, (caddr_t) NULL}, {XtNleaveVerification, XtCCallback, XtRCallback, sizeof(XtCallbackProc), XtOffset(XwTextEditWidget, text.leave_verification), XtRCallback, (caddr_t) NULL}, {XtNexecute, XtCCallback, XtRCallback, sizeof(XtCallbackProc), XtOffset(XwTextEditWidget, text.execute), XtRCallback, (caddr_t) NULL}, {XtNwrap, XtCWrap, XtRWrap, sizeof (XwWrap), XtOffset (XwTextEditWidget, text.wrap_mode), XtRString, "softwrap"}, {XtNwrapForm, XtCWrapForm, XtRWrapForm, sizeof (XwWrapForm), XtOffset (XwTextEditWidget, text.wrap_form), XtRString, "sourceform"}, {XtNwrapBreak, XtCWrapBreak, XtRWrapBreak, sizeof (XwWrapBreak), XtOffset (XwTextEditWidget, text.wrap_break), XtRString, "wrapwhitespace"}, {XtNscroll, XtCScroll, XtRScroll, sizeof (XwScroll), XtOffset (XwTextEditWidget, text.scroll_mode), XtRString, "autoscrolloff"}, {XtNgrow, XtCGrow, XtRGrow, sizeof (XwGrow), XtOffset (XwTextEditWidget, text.grow_mode), XtRString, "growoff"}, }; /****************************************************************************** * * Forward declarations of functions to put into the class record * ******************************************************************************/ static void Initialize(); static void Realize(); static void TextDestroy(); static void Resize(); static void ProcessExposeRegion(); static Boolean SetValues(); static unsigned char* _XwTextCopySubString(); /****************************************************************************** * * Forward declarations of action functions to put into the action table * ******************************************************************************/ static void TraverseUp(); static void TraverseDown(); static void TraverseLeft(); static void TraverseRight(); static void TraverseNext(); static void TraversePrev(); static void TraverseHome(); static void TraverseNextTop(); static void Enter(); static void Leave(); static void Execute(); static void RedrawDisplay(); static void InsertChar(); static void TextFocusIn(); static void TextFocusOut(); static void MoveForwardChar(); static void MoveBackwardChar(); static void MoveForwardWord(); static void MoveBackwardWord(); static void MoveForwardParagraph(); static void MoveBackwardParagraph(); static void MoveToLineStart(); static void MoveToLineEnd(); static void MoveNextLine(); static void MovePreviousLine(); static void MoveNextPage(); static void MovePreviousPage(); static void MoveBeginningOfFile(); static void MoveEndOfFile(); static void ScrollOneLineUp(); static void ScrollOneLineDown(); static void DeleteForwardChar(); static void DeleteBackwardChar(); static void DeleteBackwardNormal(); static void DeleteForwardWord(); static void DeleteBackwardWord(); static void DeleteCurrentSelection(); static void KillForwardWord(); static void KillBackwardWord(); static void KillCurrentSelection(); static void KillToEndOfLine(); static void KillToEndOfParagraph(); static void UnKill(); static void Stuff(); static void InsertNewLineAndIndent(); static void InsertNewLineAndBackup(); static XwEditResult InsertNewLine(); static void SelectWord(); static void SelectAll(); static void SelectStart(); static void SelectAdjust(); static void SelectEnd(); static void ExtendStart(); static void ExtendAdjust(); static void ExtendEnd(); /****************************************************************************** * * TextEdit Actions Table * ******************************************************************************/ XtActionsRec texteditActionsTable [] = { /* motion bindings */ {"forward-character", MoveForwardChar}, {"backward-character", MoveBackwardChar}, {"forward-word", MoveForwardWord}, {"backward-word", MoveBackwardWord}, {"forward-paragraph", MoveForwardParagraph}, {"backward-paragraph", MoveBackwardParagraph}, {"beginning-of-line", MoveToLineStart}, {"end-of-line", MoveToLineEnd}, {"next-line", MoveNextLine}, {"previous-line", MovePreviousLine}, {"next-page", MoveNextPage}, {"previous-page", MovePreviousPage}, {"beginning-of-file", MoveBeginningOfFile}, {"end-of-file", MoveEndOfFile}, {"scroll-one-line-up", ScrollOneLineUp}, {"scroll-one-line-down", ScrollOneLineDown}, /* delete bindings */ {"delete-next-character", DeleteForwardChar}, {"delete-previous-character", DeleteBackwardNormal}, {"delete-next-word", DeleteForwardWord}, {"delete-previous-word", DeleteBackwardWord}, {"delete-selection", DeleteCurrentSelection}, /* kill bindings */ {"kill-word", KillForwardWord}, {"backward-kill-word", KillBackwardWord}, {"kill-selection", KillCurrentSelection}, {"kill-to-end-of-line", KillToEndOfLine}, {"kill-to-end-of-paragraph", KillToEndOfParagraph}, /* unkill bindings */ {"unkill", UnKill}, {"stuff", Stuff}, /* new line stuff */ {"newline-and-indent", InsertNewLineAndIndent}, {"newline-and-backup", InsertNewLineAndBackup}, {"newline", (XtActionProc)InsertNewLine}, /* Selection stuff */ {"select-word", SelectWord}, {"select-all", SelectAll}, {"select-start", SelectStart}, {"select-adjust", SelectAdjust}, {"select-end", SelectEnd}, {"extend-start", ExtendStart}, {"extend-adjust", ExtendAdjust}, {"extend-end", ExtendEnd}, /* Miscellaneous */ {"redraw-display", RedrawDisplay}, {"insert-char", InsertChar}, {"focus-in", TextFocusIn}, {"focus-out", TextFocusOut}, /* traversal direction functions */ {"traverse-left", TraverseLeft}, {"traverse-right", TraverseRight}, {"traverse-next", TraverseNext}, {"traverse-prev", TraversePrev}, {"traverse-up", TraverseUp}, {"traverse-down", TraverseDown}, {"traverse-home", TraverseHome}, {"traverse-next-top", TraverseNextTop}, /* highlighting */ {"enter", Enter}, {"leave", Leave}, {"execute", Execute}, {NULL,NULL} }; /**************************************************************************** * * TextEdit Default Event Translations * ****************************************************************************/ char defaultTextEditTranslations[] = "CtrlF: forward-character()\n\ CtrlRight: traverse-right()\n\ Right: forward-character()\n\ CtrlB: backward-character()\n\ CtrlLeft: traverse-left()\n\ Left: backward-character()\n\ MetaF: forward-word()\n\ MetaB: backward-word()\n\ Meta]: forward-paragraph()\n\ Ctrl[: backward-paragraph()\n\ CtrlA: beginning-of-line()\n\ CtrlE: end-of-line()\n\ CtrlN: next-line()\n\ CtrlDown: traverse-down()\n\ Down: next-line()\n\ CtrlP: previous-line()\n\ CtrlUp: traverse-up()\n\ Up: previous-line()\n\ CtrlV: next-page()\n\ CtrlNext: traverse-next()\n\ Next: next-page()\n\ MetaV: previous-page()\n\ CtrlPrior: traverse-prev()\n\ Prior: previous-page()\n\ Meta\\<: beginning-of-file()\n\ Meta\\>: end-of-file()\n\ CtrlHome: traverse-home()\n\ ShiftHome: end-of-file()\n\ Home: beginning-of-file()\n\ CtrlZ: scroll-one-line-up()\n\ MetaZ: scroll-one-line-down()\n\ CtrlD: delete-next-character()\n\ Delete: delete-previous-character()\n\ BackSpace: delete-previous-character()\n\ CtrlH: delete-previous-character()\n\ MetaD: delete-next-word()\n\ MetaH: delete-previous-word()\n\ Shift MetaD: kill-word()\n\ Shift MetaH: backward-kill-word()\n\ CtrlW: kill-selection()\n\ CtrlK: kill-to-end-of-line()\n\ MetaK: kill-to-end-of-paragraph()\n\ CtrlY: unkill()\n\ MetaY: stuff()\n\ CtrlJ: newline-and-indent()\n\ CtrlO: newline-and-backup()\n\ CtrlM: newline()\n\ Return: newline()\n\ Linefeed: newline-and-indent()\n\ CtrlL: redraw-display()\n\ : focus-in()\n\ : focus-out()\n\ : select-start()\n\ Button1: extend-adjust()\n\ : extend-end()\n\ : stuff()\n\ : extend-start()\n\ Button3: extend-adjust()\n\ : extend-end()\n\ Execute: execute()\n\ : insert-char()\n\ Shift: insert-char()\n\ : enter()\n\ : leave()"; /* Utility routines for support of TextEdit */ #include "sub.c" /****************************************************************************** * * Functions to support selection * ******************************************************************************/ /*--------------------------------------------------------------------------+*/ static void _XtTextSetNewSelection(ctx, left, right) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition left, right; { XwTextPosition pos; if (left < ctx->text.s.left) { pos = min(right, ctx->text.s.left); _XtTextNeedsUpdating(ctx, left, pos); } if (left > ctx->text.s.left) { pos = min(left, ctx->text.s.right); _XtTextNeedsUpdating(ctx, ctx->text.s.left, pos); } if (right < ctx->text.s.right) { pos = max(right, ctx->text.s.left); _XtTextNeedsUpdating(ctx, pos, ctx->text.s.right); } if (right > ctx->text.s.right) { pos = max(left, ctx->text.s.right); _XtTextNeedsUpdating(ctx, pos, right); } ctx->text.s.left = left; ctx->text.s.right = right; } /* * This routine implements multi-click selection in a hardwired manner. * It supports multi-click entity cycling (char, word, line, file) and mouse * motion adjustment of the selected entitie (i.e. select a word then, with * button still down, adjust wich word you really meant by moving the mouse). * [NOTE: This routine is to be replaced by a set of procedures that * will allows clients to implements a wide class of draw through and * multi-click selection user interfaces.] */ /*--------------------------------------------------------------------------+*/ static void DoSelection (ctx, position, time, motion) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition position; Time time; Boolean motion; { int delta; XwTextPosition newLeft, newRight; XwSelectType newType; XwSelectType *sarray; delta = (time < ctx->text.lasttime) ? ctx->text.lasttime - time : time - ctx->text.lasttime; if (motion) newType = ctx->text.s.type; else {/* multi-click event */ if ((delta < 500) && ((position >= ctx->text.s.left) && (position <= ctx->text.s.right))) { sarray = ctx->text.sarray; for (sarray = ctx->text.sarray; *sarray != XwselectNull && *sarray != ctx->text.s.type; sarray++) ; if (*sarray != XwselectNull) sarray++; if (*sarray == XwselectNull) sarray = ctx->text.sarray; newType = *sarray; } else { /* single-click event */ newType = *(ctx->text.sarray); } ctx->text.lasttime = time; } switch (newType) { case XwselectPosition: newLeft = newRight = position; break; case XwselectChar: newLeft = position; newRight = (*(ctx->text.source->scan))( ctx->text.source, position, position, XwsdRight, 1, FALSE); break; case XwselectWord: newLeft = (*(ctx->text.source->scan)) (ctx->text.source, position, XwstWhiteSpace, XwsdLeft, 1, FALSE); newRight = (*(ctx->text.source->scan)) (ctx->text.source, position, XwstWhiteSpace, XwsdRight, 1, FALSE); break; case XwselectLine: case XwselectParagraph: /* need "para" scan mode to implement pargraph */ newLeft = (*(ctx->text.source->scan))( ctx->text.source, position, XwstEOL, XwsdLeft, 1, FALSE); newRight = (*(ctx->text.source->scan))( ctx->text.source, position, XwstEOL, XwsdRight, 1, FALSE); break; case XwselectAll: newLeft = (*(ctx->text.source->scan))( ctx->text.source, position, XwstLast, XwsdLeft, 1, FALSE); newRight = (*(ctx->text.source->scan))( ctx->text.source, position, XwstLast, XwsdRight, 1, FALSE); break; default: break; } if ((newLeft != ctx->text.s.left) || (newRight != ctx->text.s.right) || (newType != ctx->text.s.type)) { _XtTextSetNewSelection(ctx, newLeft, newRight); ctx->text.s.type = newType; if (position - ctx->text.s.left < ctx->text.s.right - position) ctx->text.insertPos = newLeft; else ctx->text.insertPos = newRight; } if (!motion) { /* setup so we can freely mix select extend calls*/ ctx->text.origSel.type = ctx->text.s.type; ctx->text.origSel.left = ctx->text.s.left; ctx->text.origSel.right = ctx->text.s.right; if (position >= ctx->text.s.left + ((ctx->text.s.right - ctx->text.s.left) / 2)) ctx->text.extendDir = XwsdRight; else ctx->text.extendDir = XwsdLeft; } } /* * This routine implements extension of the currently selected text in * the "current" mode (i.e. char word, line, etc.). It worries about * extending from either end of the selection and handles the case when you * cross through the "center" of the current selection (e.g. switch which * end you are extending!). * [NOTE: This routine will be replaced by a set of procedures that * will allows clients to implements a wide class of draw through and * multi-click selection user interfaces.] */ /*--------------------------------------------------------------------------+*/ static void ExtendSelection (ctx, position, motion) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition position; Boolean motion; { XwTextPosition newLeft, newRight; if (!motion) { /* setup for extending selection */ ctx->text.origSel.type = ctx->text.s.type; ctx->text.origSel.left = ctx->text.s.left; ctx->text.origSel.right = ctx->text.s.right; if (position >= ctx->text.s.left + ((ctx->text.s.right - ctx->text.s.left) / 2)) ctx->text.extendDir = XwsdRight; else ctx->text.extendDir = XwsdLeft; } else /* check for change in extend direction */ if ((ctx->text.extendDir == XwsdRight && position < ctx->text.origSel.left) || (ctx->text.extendDir == XwsdLeft && position > ctx->text.origSel.right)) { ctx->text.extendDir = (ctx->text.extendDir == XwsdRight)? XwsdLeft : XwsdRight; _XtTextSetNewSelection(ctx, ctx->text.origSel.left, ctx->text.origSel.right); } newLeft = ctx->text.s.left; newRight = ctx->text.s.right; switch (ctx->text.s.type) { case XwselectPosition: if (ctx->text.extendDir == XwsdRight) newRight = position; else newLeft = position; break; case XwselectWord: if (ctx->text.extendDir == XwsdRight) newRight = position = (*(ctx->text.source->scan)) (ctx->text.source, position, XwstWhiteSpace, XwsdRight, 1, FALSE); else newLeft = position = (*(ctx->text.source->scan)) (ctx->text.source, position, XwstWhiteSpace, XwsdLeft, 1, FALSE); break; case XwselectLine: case XwselectParagraph: /* need "para" scan mode to implement pargraph */ if (ctx->text.extendDir == XwsdRight) newRight = position = (*(ctx->text.source->scan)) (ctx->text.source, position, XwstEOL, XwsdRight, 1, TRUE); else newLeft = position = (*(ctx->text.source->scan)) (ctx->text.source, position, XwstEOL, XwsdLeft, 1, FALSE); break; case XwselectAll: position = ctx->text.insertPos; break; default: break; } _XtTextSetNewSelection(ctx, newLeft, newRight); ctx->text.insertPos = position; } /* * This routine is used to perform various selection functions. The goal is * to be able to specify all the more popular forms of draw-through and * multi-click selection user interfaces from the outside. */ /*--------------------------------------------------------------------------+*/ static void AlterSelection (ctx, mode, action) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwSelectionMode mode; /* {XwsmTextSelect, XwsmTextExtend} */ XwSelectionAction action; /* {XwactionStart, XwactionAdjust, XwactionEnd} */ { XwTextPosition position; unsigned char *ptr; position = PositionForXY (ctx, (int) ctx->text.ev_x, (int) ctx->text.ev_y); if (action == XwactionStart) { switch (mode) { case XwsmTextSelect: DoSelection (ctx, position, ctx->text.time, FALSE); break; case XwsmTextExtend: ExtendSelection (ctx, position, FALSE); break; } } else { switch (mode) { case XwsmTextSelect: DoSelection (ctx, position, ctx->text.time, TRUE); break; case XwsmTextExtend: ExtendSelection (ctx, position, TRUE); break; } } if (action == XwactionEnd && ctx->text.s.left < ctx->text.s.right) { ptr = _XwTextCopySubString (ctx, ctx->text.s.left, ctx->text.s.right); XStoreBuffer (XtDisplay(ctx), ptr, min (XwStrlen (ptr), MAXCUT), 0); XtFree (ptr); } } /****************************************************************************** * * TextEdit Class Methods * ******************************************************************************/ /***************************************************************************** * This method deletes the text from startPos to endPos in a source and * then inserts, at startPos, the text that was passed. As a side effect it * "invalidates" that portion of the displayed text (if any), so that things * will be repainted properly. ******************************************************************************/ /*--------------------------------------------------------------------------+*/ static int _XwTextSubString(ctx, left, right, target, size, used) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition left, right; unsigned char *target; /* Memory to copy into */ int size, /* Size of memory */ *used; /* Memory used by copy */ { unsigned char *tempResult; int length, n; XwTextBlock text; XwTextPosition end, nend; end = (*(ctx->text.source->read))(ctx->text.source, left, &text, right - left); n = length = min(text.length,size); strncpy(target, text.ptr, n); while (n && (end < right) && (length < size)) { nend = (*(ctx->text.source->read))(ctx->text.source, end, &text, right - end); n = text.length; if (length + n > size) n = size - length; tempResult = target + length; strncpy(tempResult, text.ptr, n); length += n; end = nend; } *used = length; return length; /* return the number of positions transfered to target */ } /*--------------------------------------------------------------------------+*/ static unsigned char *_XwTextCopySubString(ctx, left, right) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition left, right; { unsigned char *result; int length, resultLength; int dummy; resultLength = right - left + 10; /* Bogus? %%% */ result = (unsigned char *)XtMalloc((unsigned) resultLength); length = _XwTextSubString(ctx, left, right, result, resultLength, &dummy); result[length] = 0; return result; } /*--------------------------------------------------------------------------+*/ static unsigned char *_XwTextCopySelection(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { return( _XwTextCopySubString(ctx, ctx->text.s.left, ctx->text.s.right)); } /*--------------------------------------------------------------------------+*/ static void _XwTextSetSelection(w, left, right) /*--------------------------------------------------------------------------+*/ Widget w; Position left, right; { XwTextEditWidget ctx = (XwTextEditWidget) w; _XtTextPrepareToUpdate(ctx); _XtTextSetNewSelection(ctx, (XwTextPosition)left, (XwTextPosition)right); _XtTextExecuteUpdate(ctx); } /*--------------------------------------------------------------------------+*/ static void _XwTextUnsetSelection(w) /*--------------------------------------------------------------------------+*/ Widget w; { XwTextEditWidget ctx = (XwTextEditWidget) w; _XtTextPrepareToUpdate(ctx); _XtTextSetNewSelection(ctx, zeroPosition, zeroPosition); _XtTextExecuteUpdate(ctx); } /*--------------------------------------------------------------------------+*/ static XwEditResult _XwTextReplace(w, startPos, endPos, text, verify) /*--------------------------------------------------------------------------+*/ Widget w; XwTextPosition startPos, endPos; XwTextBlock *text; Boolean verify; { XwTextEditWidget ctx = (XwTextEditWidget) w; XwEditResult result; _XtTextPrepareToUpdate(ctx); result = ReplaceText(ctx, startPos, endPos, text, verify); _XtTextExecuteUpdate(ctx); return result; } /*--------------------------------------------------------------------------+*/ static void _XwTextRedraw (w) /*--------------------------------------------------------------------------+*/ Widget w; { XwTextEditWidget ctx = (XwTextEditWidget) w; _XtTextPrepareToUpdate(ctx); ForceBuildLineTable(ctx); DisplayAllText(ctx); _XtTextExecuteUpdate(ctx); if (ctx->primitive.highlighted) _XwHighlightBorder(ctx); } /****************************************************************************** * * Utilities * ******************************************************************************/ /*--------------------------------------------------------------------------+*/ static XwEditResult _XwSetCursorPos(ctx, newposition) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition newposition; { XwTextVerifyCD cbdata; cbdata.operation = motionVerify; cbdata.doit = TRUE; cbdata.currInsert = ctx->text.insertPos; cbdata.newInsert = newposition; XtCallCallbacks((Widget)ctx, XtNmotionVerification, &cbdata); if (!cbdata.doit) return XweditReject; ctx->text.insertPos = cbdata.newInsert; return XweditDone; } /*--------------------------------------------------------------------------+*/ static void StartAction(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { _XtTextPrepareToUpdate(ctx); if (event) { ctx->text.time = event->xbutton.time; ctx->text.ev_x = event->xbutton.x; ctx->text.ev_y = event->xbutton.y; } } /*--------------------------------------------------------------------------+*/ static void EndAction(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { CheckResizeOrOverflow(ctx); _XtTextExecuteUpdate(ctx); } /*--------------------------------------------------------------------------+*/ static void DeleteOrKill(ctx, from, to, kill) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition from, to; Boolean kill; { XwTextBlock text; unsigned char *ptr; XwEditResult result; if (kill && from < to) ptr = _XwTextCopySubString(ctx, from, to); text.length = 0; if (result = ReplaceText(ctx, from, to, &text, TRUE)) { if (result != XweditReject) XBell(XtDisplay(ctx), 50); if (kill && from < to) XtFree(ptr); return; } if (kill && from < to) { XStoreBuffer(XtDisplay(ctx), ptr, XwStrlen(ptr), 1); XtFree(ptr); } _XwSetCursorPos(ctx, from); ctx->text.showposition = TRUE; from = ctx->text.insertPos; _XtTextSetNewSelection(ctx, from, from); } /*--------------------------------------------------------------------------+*/ static void StuffFromBuffer(ctx, buffer) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; int buffer; { extern char *XFetchBuffer(); XwTextBlock text; XwEditResult result; XwTextPosition nextcursorpos; text.ptr = (unsigned char*)XFetchBuffer(XtDisplay(ctx), &(text.length), buffer); if (result = ReplaceText(ctx, ctx->text.insertPos, ctx->text.insertPos, &text, TRUE)) { if (result != XweditReject) XBell(XtDisplay(ctx), 50); XtFree(text.ptr); return; } nextcursorpos = (*(ctx->text.source->scan)) (ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdRight, text.length, TRUE); _XwSetCursorPos(ctx, nextcursorpos); nextcursorpos = ctx->text.insertPos; _XtTextSetNewSelection(ctx, nextcursorpos, nextcursorpos); XtFree(text.ptr); } /*--------------------------------------------------------------------------+*/ static XwTextPosition NextPosition(ctx, position, kind, direction) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition position; XwScanType kind; XwScanDirection direction; { XwTextPosition pos; pos = (*(ctx->text.source->scan))( ctx->text.source, position, kind, direction, 1, FALSE); if (pos == ctx->text.insertPos) pos = (*(ctx->text.source->scan))( ctx->text.source, position, kind, direction, 2, FALSE); return pos; } /*--------------------------------------------------------------------------+*/ static XwEditResult InsertNewLineAndBackupInternal(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { XwTextBlock text; XwEditResult result; text.length = 1; text.ptr = (unsigned char*)"\n"; text.firstPos = 0; if (result = ReplaceText(ctx, ctx->text.insertPos, ctx->text.insertPos, &text, TRUE)) { if (result != XweditReject) XBell( XtDisplay(ctx), 50); return(result); } _XtTextSetNewSelection(ctx, (XwTextPosition) 0, (XwTextPosition) 0); ctx->text.showposition = TRUE; return(result); } /* Insert a file of the given name into the text. Returns 0 if file found, -1 if not. */ /* Unadvertized function */ /*--------------------------------------------------------------------------+*/ int XwTextInsertFile(ctx, str) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; unsigned char *str; { int fid; XwTextBlock text; unsigned char buf[1000]; XwTextPosition position; if (str == NULL || XwStrlen(str) == 0) return -1; fid = open(str, O_RDONLY); if (fid <= 0) return -1; _XtTextPrepareToUpdate(ctx); position = ctx->text.insertPos; while ((text.length = read(fid, buf, 512)) > 0) { text.ptr = buf; ReplaceText(ctx, position, position, &text, TRUE); position = (*(ctx->text.source->scan))(ctx->text.source, position, XwstPositions, XwsdRight, text.length, TRUE); } close(fid); ctx->text.insertPos = position; _XtTextExecuteUpdate(ctx); return 0; } /****************************************************************************** * * Action Table Functions * ******************************************************************************/ /*--------------------------------------------------------------------------+*/ static Boolean VerifyLeave(ctx,event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextVerifyCD cbdata; StartAction(ctx, event); cbdata.operation = leaveVerify; cbdata.doit = TRUE; cbdata.currInsert = ctx->text.insertPos; cbdata.newInsert = ctx->text.insertPos; cbdata.startPos = ctx->text.insertPos; cbdata.endPos = ctx->text.insertPos; cbdata.text = NULL; cbdata.xevent = event; XtCallCallbacks((Widget)ctx, XtNleaveVerification, &cbdata); ctx->text.insertPos = cbdata.newInsert; EndAction(ctx); return( cbdata.doit ); } /*--------------------------------------------------------------------------+*/ static void TraverseUp(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseUp((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraverseDown(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseDown((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraversePrev(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraversePrev((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraverseNext(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseNext((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraverseLeft(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseLeft((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraverseRight(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseRight((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraverseHome(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseHome((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TraverseNextTop(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* Allow the verification routine to control the traversal */ if (VerifyLeave(ctx, event)) _XwTraverseNextTop((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void Enter(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { _XwPrimitiveEnter((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void Leave(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* If traversal is on, then the leave verification callback is called in the focus out event handler */ if (ctx->primitive.traversal_type != XwHIGHLIGHT_TRAVERSAL) VerifyLeave(ctx, event); _XwPrimitiveLeave((Widget)ctx, event); } /*--------------------------------------------------------------------------+*/ static void TextFocusIn (ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { _XwPrimitiveFocusIn((XwPrimitiveWidget)ctx, event); ctx->text.hasfocus = TRUE; } /*--------------------------------------------------------------------------+*/ static void TextFocusOut(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* If traversal is on, then the leave verification callback is called in the traversal event handler */ if (ctx->primitive.traversal_type != XwHIGHLIGHT_TRAVERSAL) VerifyLeave(ctx, event); _XwPrimitiveFocusOut((XwPrimitiveWidget)ctx, event); ctx->text.hasfocus = FALSE; } /* Kill and Stuff */ /*--------------------------------------------------------------------------+*/ static void UnKill(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); StuffFromBuffer(ctx, 1); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void Stuff(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); StuffFromBuffer(ctx, 0); EndAction(ctx); } /* routines for moving around */ /*--------------------------------------------------------------------------+*/ static void MoveForwardChar(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, (*(ctx->text.source->scan)) (ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdRight, 1, TRUE) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveBackwardChar(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, (*(ctx->text.source->scan)) (ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdLeft, 1, TRUE) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveForwardWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, NextPosition(ctx, ctx->text.insertPos, XwstWhiteSpace, XwsdRight) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveBackwardWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, NextPosition(ctx, ctx->text.insertPos, XwstWhiteSpace, XwsdLeft) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveBackwardParagraph(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, NextPosition(ctx, ctx->text.insertPos, XwstEOL, XwsdLeft) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveForwardParagraph(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, NextPosition(ctx, ctx->text.insertPos, XwstEOL, XwsdRight) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveToLineStart(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { int line; StartAction(ctx, event); _XtTextShowPosition(ctx); line = LineForPosition(ctx, ctx->text.insertPos); _XwSetCursorPos(ctx, ctx->text.lt.info[line].position); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveToLineEnd(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { int line; XwTextPosition next, lastpos = GETLASTPOS(ctx); StartAction(ctx, event); _XtTextShowPosition(ctx); line = LineForPosition(ctx, ctx->text.insertPos); next = ctx->text.lt.info[line+1].position; if (next > lastpos) next = lastpos; else next = (*(ctx->text.source->scan)) (ctx->text.source, next, XwstPositions, XwsdLeft, 1, TRUE); if (next <= ctx->text.lt.info[line].drawPos) next = ctx->text.lt.info[line].drawPos + 1 ; _XwSetCursorPos(ctx, next); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveNextLine(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { int width, width2, height, line; XwTextPosition position, maxp, lastpos = GETLASTPOS(ctx); XwTextSink *sink = ctx->text.sink ; StartAction(ctx, event); _XtTextShowPosition(ctx); /* Needed if cursor goes off screen ??? */ line = LineForPosition(ctx, ctx->text.insertPos); if (ctx->text.lt.info[line+1].position != (lastpos + 1)) { if ((line == ctx->text.lt.lines - 1) && (line > 0)) { _XtTextScroll(ctx, 1); line = LineForPosition(ctx, ctx->text.insertPos); } if (sink->LineLastPosition == ctx->text.insertPos) width = sink->LineLastWidth; else (*(ctx->text.sink->findDistance)) (ctx, ctx->text.lt.info[line].position, ctx->text.lt.info[line].x, ctx->text.insertPos, &width, &position, &height); line++; if (ctx->text.lt.info[line].position > lastpos) { position = lastpos; } else { (*(ctx->text.sink->findPosition))(ctx, ctx->text.lt.info[line].position, ctx->text.lt.info[line].x, width, FALSE, &position, &width2, &height); maxp = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.lt.info[line+1].position, XwstPositions, XwsdLeft, 1, TRUE); if (position > maxp) position = maxp; } if (_XwSetCursorPos(ctx, position) == XweditDone) { sink->LineLastWidth = width; sink->LineLastPosition = position; } } EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MovePreviousLine(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { int width, width2, height, line; XwTextPosition position, maxp; XwTextSink *sink = ctx->text.sink ; StartAction(ctx, event); _XtTextShowPosition(ctx); line = LineForPosition(ctx, ctx->text.insertPos); if (line == 0) { _XtTextScroll(ctx, -1); line = LineForPosition(ctx, ctx->text.insertPos); } if (line > 0) { if (sink->LineLastPosition == ctx->text.insertPos) width = sink->LineLastWidth; else (*(ctx->text.sink->findDistance))(ctx, ctx->text.lt.info[line].position, ctx->text.lt.info[line].x, ctx->text.insertPos, &width, &position, &height); line--; (*(ctx->text.sink->findPosition))(ctx, ctx->text.lt.info[line].position, ctx->text.lt.info[line].x, width, FALSE, &position, &width2, &height); maxp = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.lt.info[line+1].position, XwstPositions, XwsdLeft, 1, TRUE); if (position > maxp) position = maxp; if (_XwSetCursorPos(ctx, position) == XweditDone) { sink->LineLastWidth = width; sink->LineLastPosition = position; } } EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveBeginningOfFile(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, (*(ctx->text.source->scan)) (ctx->text.source, ctx->text.insertPos, XwstLast, XwsdLeft, 1, TRUE) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveEndOfFile(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XwSetCursorPos(ctx, (*(ctx->text.source->scan)) (ctx->text.source, ctx->text.insertPos, XwstLast, XwsdRight, 1, TRUE) ); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void ScrollOneLineUp(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XtTextScroll(ctx, 1); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void ScrollOneLineDown(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); _XtTextScroll(ctx, -1); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MoveNextPage(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwLineTablePtr lt = &(ctx->text.lt) ; int cur_line; XwTextPosition line_offset, new_pos, lastpos = GETLASTPOS(ctx); StartAction(ctx, event); if (lt->info[(lt->lines)].position != (lastpos + 1)) { cur_line = LineForPosition(ctx, ctx->text.insertPos); line_offset = (ctx->text.insertPos - lt->info[cur_line].position); _XtTextScroll(ctx, max(1, lt->lines - 2)); if (lt->info[cur_line].position > lastpos) cur_line = LineForPosition(ctx, lastpos); new_pos = (lt->info[cur_line].position + line_offset); new_pos = min(new_pos, lt->info[cur_line].drawPos); _XwSetCursorPos(ctx, new_pos); } EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void MovePreviousPage(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwLineTablePtr lt = &(ctx->text.lt) ; int cur_line = LineForPosition(ctx, ctx->text.insertPos); XwTextPosition line_offset = (ctx->text.insertPos - lt->info[cur_line].position); XwTextPosition new_pos; StartAction(ctx, event); _XtTextScroll(ctx, -max(1, lt->lines - 2)); new_pos = (lt->info[cur_line].position + line_offset); _XwSetCursorPos(ctx, min(new_pos, lt->info[cur_line].drawPos)); EndAction(ctx); } /* delete routines */ /*--------------------------------------------------------------------------+*/ static void DeleteForwardChar(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = (*(ctx->text.source->scan))( ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdRight, 1, TRUE); DeleteOrKill(ctx, ctx->text.insertPos, next, FALSE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void DeleteBackwardNormal(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { /* If there's a selection, delete it, otherwise, delete the character */ if (ctx->text.s.left != ctx->text.s.right) DeleteCurrentSelection(ctx, event); else DeleteBackwardChar(ctx, event); } /*--------------------------------------------------------------------------+*/ static void DeleteBackwardChar(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = (*(ctx->text.source->scan))( ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdLeft, 1, TRUE); DeleteOrKill(ctx, next, ctx->text.insertPos, FALSE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void DeleteForwardWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = NextPosition(ctx, ctx->text.insertPos, XwstWhiteSpace, XwsdRight); DeleteOrKill(ctx, ctx->text.insertPos, next, FALSE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void DeleteBackwardWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = NextPosition(ctx, ctx->text.insertPos, XwstWhiteSpace, XwsdLeft); DeleteOrKill(ctx, next, ctx->text.insertPos, FALSE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void KillForwardWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = NextPosition(ctx, ctx->text.insertPos, XwstWhiteSpace, XwsdRight); DeleteOrKill(ctx, ctx->text.insertPos, next, TRUE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void KillBackwardWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = NextPosition(ctx, ctx->text.insertPos, XwstWhiteSpace, XwsdLeft); DeleteOrKill(ctx, next, ctx->text.insertPos, TRUE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void KillCurrentSelection(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); DeleteOrKill(ctx, ctx->text.s.left, ctx->text.s.right, TRUE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void DeleteCurrentSelection(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); DeleteOrKill(ctx, ctx->text.s.left, ctx->text.s.right, FALSE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void KillToEndOfLine(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { int line; XwTextPosition last, next, lastpos = GETLASTPOS(ctx); StartAction(ctx, event); _XtTextShowPosition(ctx); line = LineForPosition(ctx, ctx->text.insertPos); last = ctx->text.lt.info[line + 1].position; next = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.insertPos, XwstEOL, XwsdRight, 1, FALSE); if (last > lastpos) last = lastpos; if (last > next && ctx->text.insertPos < next) last = next; DeleteOrKill(ctx, ctx->text.insertPos, last, TRUE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void KillToEndOfParagraph(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; StartAction(ctx, event); next = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.insertPos, XwstEOL, XwsdRight, 1, FALSE); if (next == ctx->text.insertPos) next = (*(ctx->text.source->scan))(ctx->text.source, next, XwstEOL, XwsdRight, 1, TRUE); DeleteOrKill(ctx, ctx->text.insertPos, next, TRUE); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void InsertNewLineAndBackup(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); InsertNewLineAndBackupInternal(ctx); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static XwEditResult InsertNewLine(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition next; XwEditResult result; StartAction(ctx, event); if (InsertNewLineAndBackupInternal(ctx)) { EndAction(ctx); return(XweditError); } next = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdRight, 1, TRUE); result = _XwSetCursorPos(ctx, next); EndAction(ctx); return(result); } /*--------------------------------------------------------------------------+*/ static void InsertNewLineAndIndent(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextBlock text; XwTextPosition pos1, pos2; XwEditResult result; StartAction(ctx, event); pos1 = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.insertPos, XwstEOL, XwsdLeft, 1, FALSE); pos2 = (*(ctx->text.source->scan))(ctx->text.source, pos1, XwstEOL, XwsdLeft, 1, TRUE); pos2 = (*(ctx->text.source->scan))(ctx->text.source, pos2, XwstWhiteSpace, XwsdRight, 1, TRUE); text.ptr = _XwTextCopySubString(ctx, pos1, pos2); text.length = XwStrlen(text.ptr); if (InsertNewLine(ctx, event)) return; if (result = ReplaceText(ctx, ctx->text.insertPos, ctx->text.insertPos, &text, TRUE)) { if (result != XweditReject) XBell(XtDisplay(ctx), 50); XtFree(text.ptr); EndAction(ctx); return; } _XwSetCursorPos(ctx, (*(ctx->text.source->scan)) (ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdRight, text.length, TRUE)); XtFree(text.ptr); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void NewSelection(ctx, l, r) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition l, r; { unsigned char *ptr; _XtTextSetNewSelection(ctx, l, r); if (l < r) { ptr = _XwTextCopySubString(ctx, l, r); XStoreBuffer(XtDisplay(ctx), ptr, min(XwStrlen(ptr), MAXCUT), 0); XtFree(ptr); } } /*--------------------------------------------------------------------------+*/ static void SelectWord(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XwTextPosition l, r; StartAction(ctx, event); l = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.insertPos, XwstWhiteSpace, XwsdLeft, 1, FALSE); r = (*(ctx->text.source->scan))(ctx->text.source, l, XwstWhiteSpace, XwsdRight, 1, FALSE); NewSelection(ctx, l, r); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void SelectAll(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); NewSelection(ctx, (XwTextPosition) 0, GETLASTPOS(ctx)); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void SelectStart(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); AlterSelection(ctx, XwsmTextSelect, XwactionStart); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void SelectAdjust(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); AlterSelection(ctx, XwsmTextSelect, XwactionAdjust); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void SelectEnd(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); AlterSelection(ctx, XwsmTextSelect, XwactionEnd); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void ExtendStart(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); AlterSelection(ctx, XwsmTextExtend, XwactionStart); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void ExtendAdjust(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); AlterSelection(ctx, XwsmTextExtend, XwactionAdjust); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void ExtendEnd(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); AlterSelection(ctx, XwsmTextExtend, XwactionEnd); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void RedrawDisplay(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { StartAction(ctx, event); ForceBuildLineTable(ctx); DisplayAllText(ctx); ClearWindow(ctx); EndAction(ctx); /* This seems like the wrong place for this */ if (ctx->primitive.highlighted) _XwHighlightBorder(ctx); } #define STRBUFSIZE 100 static XComposeStatus compose_status = {NULL, 0}; /*--------------------------------------------------------------------------+*/ static void InsertChar(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { unsigned char strbuf[STRBUFSIZE]; KeySym keysym; XwEditResult result; XwTextBlock text; text.length = XLookupString ((XKeyEvent *)event, strbuf, STRBUFSIZE, &keysym, &compose_status); if (text.length==0) return; StartAction(ctx, event); text.ptr = &strbuf[0];; text.firstPos = 0; if (result = ReplaceText(ctx, ctx->text.insertPos, ctx->text.insertPos, &text, TRUE)) { if (result != XweditReject) XBell(XtDisplay(ctx), 50); EndAction(ctx); return; } _XwSetCursorPos(ctx, (*(ctx->text.source->scan))(ctx->text.source, ctx->text.insertPos, XwstPositions, XwsdRight, text.length, TRUE)); _XtTextSetNewSelection(ctx, ctx->text.insertPos, ctx->text.insertPos); EndAction(ctx); } /*--------------------------------------------------------------------------+*/ static void Execute(ctx, event) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XEvent *event; { XtCallCallbacks((Widget)ctx, XtNexecute, NULL); } /************************************************************************* * * Class Record Support Functions * *************************************************************************/ /****************************************************************************** * * Class Record Functions * ******************************************************************************/ /*--------------------------------------------------------------------------+*/ static void ClassInitialize() /*--------------------------------------------------------------------------+*/ { } /* ClassInitialize */ /****************************************************************************** * * External functions (Methods???) on the class * ******************************************************************************/ /*--------------------------------------------------------------------------+*/ void XwTextClearBuffer(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { _XtTextPrepareToUpdate(w); (*(w->text.source->setLastPos))(w->text.source, (XwTextPosition)0); w->text.insertPos = 0; ForceBuildLineTable(w); DisplayAllText(w); _XtTextExecuteUpdate(w); } /*--------------------------------------------------------------------------+*/ unsigned char *XwTextCopyBuffer(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { return (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.copy_substring) ((XwTextEditWidget)w, 0, GETLASTPOS(w)); } /*--------------------------------------------------------------------------+*/ unsigned char *XwTextCopySelection(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { return (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.copy_selection) ((XwTextEditWidget)w); } /*--------------------------------------------------------------------------+*/ int XwTextReadSubString( w, startpos, endpos, target, targetsize, targetused ) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition startpos, endpos; unsigned char *target; int targetsize, *targetused; { return( _XwTextSubString(w, startpos, endpos, target, targetsize, targetused) ); } /*--------------------------------------------------------------------------+*/ void XwTextUnsetSelection(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.unset_selection) ((Widget)w); } /*--------------------------------------------------------------------------+*/ void XwTextSetSelection(w, left, right) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition left, right; { (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.set_selection) ((Widget)w, left, right); } /*--------------------------------------------------------------------------+*/ XwEditResult XwTextReplace(w, startPos, endPos, string) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition startPos, endPos; unsigned char *string; { XwTextBlock blk; blk.ptr = string; blk.length = XwStrlen(string); blk.firstPos = (XwTextPosition)0; return (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.replace_text) (w, startPos, endPos, &blk, FALSE); } /*--------------------------------------------------------------------------+*/ void XwTextRedraw(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.redraw_text) ((Widget)w); } /*--------------------------------------------------------------------------+*/ void XwTextResize(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { _XtTextPrepareToUpdate(w); CheckResizeOrOverflow(w); _XtTextExecuteUpdate(w); } /*--------------------------------------------------------------------------+*/ void XwTextUpdate( w, status ) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; Boolean status; { w->text.update_flag = status; if (status) { _XtTextExecuteUpdate(w); } else { w->text.numranges = 0; w->text.showposition = FALSE; w->text.oldinsert = w->text.insertPos; if ( XtIsRealized((Widget)w) ) InsertCursor(w, XwisOff); } } /*--------------------------------------------------------------------------+*/ void XwTextInsert(w, string) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; unsigned char *string; { XwTextBlock blk; blk.ptr = string; blk.length = XwStrlen(string); blk.firstPos = (XwTextPosition) 0; _XtTextPrepareToUpdate(w); if (ReplaceText(w, w->text.insertPos, w->text.insertPos, &blk, FALSE) == XweditDone) { w->text.showposition = TRUE; w->text.insertPos = w->text.insertPos + blk.length; } _XtTextExecuteUpdate(w); } /*--------------------------------------------------------------------------+*/ XwTextPosition XwTextGetLastPos (w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { return( GETLASTPOS(w) ); } /*--------------------------------------------------------------------------+*/ void XwTextGetSelectionPos(w, left, right) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition *left, *right; { *left = w->text.s.left; *right = w->text.s.right; } /*--------------------------------------------------------------------------+*/ void XwTextSetInsertPos(w, position) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition position; { _XtTextPrepareToUpdate(w); w->text.insertPos = position; w->text.showposition = TRUE; _XtTextExecuteUpdate(w); } /*--------------------------------------------------------------------------+*/ XwTextPosition XwTextGetInsertPos(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { return( w->text.insertPos ); } /*--------------------------------------------------------------------------+*/ void XwTextSetSource(w, source, startpos) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextSourcePtr source; XwTextPosition startpos; { w->text.source = source; w->text.lt.top = startpos; w->text.s.left = w->text.s.right = 0; w->text.insertPos = startpos; ForceBuildLineTable(w); if (XtIsRealized((Widget)w)) { _XtTextPrepareToUpdate(w); DisplayAllText(w); _XtTextExecuteUpdate(w); } } /* Not advertised. Don't think it is necessary */ /*--------------------------------------------------------------------------+*/ unsigned char *XwTextCopySubString(w, left, right) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition left, right; { return (*((XwTextEditClassRec *)(w->core.widget_class))->textedit_class.copy_substring) ((XwTextEditWidget)w, left, right); } /*--------------------------------------------------------------------------+*/ void XwTextInvalidate(w, from, to) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; XwTextPosition from,to; { _XtTextPrepareToUpdate(w); _XtTextNeedsUpdating(w, from, to); ForceBuildLineTable(w); _XtTextExecuteUpdate(w); } /*--------------------------------------------------------------------------+*/ XwTextPosition XwTextTopPosition(w) /*--------------------------------------------------------------------------+*/ XwTextEditWidget w; { return w->text.lt.top; } /***************************************************************************** * Class Functions *****************************************************************************/ /*--------------------------------------------------------------------------+*/ static void Initialize(request, new) /*--------------------------------------------------------------------------+*/ Widget request, new; { XwTextEditWidget ctx = (XwTextEditWidget)new; XwTextEditPart *text = &(ctx->text); text->lt.lines = 0; text->lt.info = NULL; text->s.left = text->s.right = 0; text->s.type = XwselectPosition; text->sarray[0] = XwselectPosition; text->sarray[1] = XwselectWord; text->sarray[2] = XwselectLine; text->sarray[3] = XwselectParagraph; text->sarray[4] = XwselectAll; text->sarray[5] = XwselectNull; text->lasttime = 0; /* ||| correct? */ text->time = 0; /* ||| correct? */ text->oldinsert = -1 ; text->update_flag = FALSE; text->showposition = TRUE; text->updateFrom = (XwTextPosition *) XtMalloc(sizeof(XwTextPosition)); text->updateTo = (XwTextPosition *) XtMalloc(sizeof(XwTextPosition)); text->numranges = text->maxranges = 0; text->gc = DefaultGCOfScreen(XtScreen(ctx)); text->hasfocus = FALSE; text->scroll_state = text->scroll_mode ; text->grow_state = text->grow_mode ; text->prevW = ctx->core.width ; text->prevH = ctx->core.height ; if (text->grow_mode & XwGrowHorizontal) { text->wrap_mode = XwWrapOff ; } ; if (text->wrap_mode == XwWrapOff) { text->wrap_form = XwSourceForm ; text->wrap_break = XwWrapAny ; } ; #ifdef GLSDEBUG fprintf (stderr, "%s: %d\n%s: %d\n%s: %d\n%s: %d\n%s: %d\n%s: %x\n" , " wrap mode", text->wrap_mode , " wrap form", text->wrap_form , " wrap break", text->wrap_break , "scroll mode", text->scroll_mode , " grow mode", text->grow_mode , " options", text->options ) ; #endif } /*--------------------------------------------------------------------------+*/ static void InitializeHook(widget, args, num_args) /*--------------------------------------------------------------------------+*/ Widget widget; ArgList args; Cardinal *num_args; { XwTextEditWidget ctx = (XwTextEditWidget)widget; register XwTextEditPart *text = &(ctx->text); text->sink = XwAsciiSinkCreate(widget, args, *num_args); if (text->srctype == XwstringSrc) text->source = XwStringSourceCreate(widget, args, *num_args); else if (text->srctype != XwprogDefinedSrc) {XtWarning("XwSourceType not recognized. Using XwstringSrc."); text->source = XwStringSourceCreate(widget, args, *num_args); }; ForceBuildLineTable((XwTextEditWidget)widget); if (text->lt.lines > 1) { text->scroll_state &= ~XwAutoScrollHorizontal ; } } /*--------------------------------------------------------------------------+*/ static void TextDestroy(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { (*(ctx->text.source->destroy))(ctx->text.source); (*(ctx->text.sink->destroy))(ctx->text.sink); XtFree((char *)ctx->text.updateFrom); XtFree((char *)ctx->text.updateTo); XtRemoveAllCallbacks((Widget)ctx, XtNmotionVerification); XtRemoveAllCallbacks((Widget)ctx, XtNmodifyVerification); XtRemoveAllCallbacks((Widget)ctx, XtNleaveVerification); } /*--------------------------------------------------------------------------+*/ static void Resize(w) /*--------------------------------------------------------------------------+*/ Widget w; { XwTextEditWidget ctx = (XwTextEditWidget) w; XwTextEditPart *tp ; Dimension width, height ; Boolean realized = XtIsRealized(w); tp = &(ctx->text) ; width = ctx->core.width ; if ((width < tp->prevW) && (tp->grow_mode & XwGrowHorizontal)) tp->grow_state |= XwGrowHorizontal ; height = ctx->core.height ; if ((height < tp->prevH) && (tp->grow_mode & XwGrowVertical)) tp->grow_state |= XwGrowVertical ; if (realized) _XtTextPrepareToUpdate(ctx); ForceBuildLineTable(ctx); if (tp->lt.lines > 1) { tp->scroll_state &= ~XwAutoScrollHorizontal ; } else { tp->scroll_state |= tp->scroll_mode & XwAutoScrollHorizontal ; } if (realized) { DisplayAllText(ctx); ClearWindow(ctx); } if (realized) _XtTextExecuteUpdate(ctx); } /*--------------------------------------------------------------------------+*/ static Boolean SetValues(current, request, new) /*--------------------------------------------------------------------------+*/ Widget current, request, new; { XwTextEditWidget oldtw = (XwTextEditWidget) current; XwTextEditWidget newtw = (XwTextEditWidget) new; Boolean redisplay = FALSE; XwTextEditPart *oldtext = &(oldtw->text); XwTextEditPart *newtext = &(newtw->text); Boolean realized = XtIsRealized(current); if (realized) _XtTextPrepareToUpdate(oldtw); if (oldtext->source != newtext->source) { ForceBuildLineTable(oldtw); if ((oldtext->s.left == newtext->s.left) && (oldtext->s.right == newtext->s.right)) { newtext->s.left = (XwTextPosition) 0; newtext->s.right = (XwTextPosition) 0; } redisplay = TRUE; } if (oldtext->sink != newtext->sink) redisplay = TRUE; if (oldtext->insertPos != newtext->insertPos) oldtext->showposition = TRUE; if (oldtext->lt.top != newtext->lt.top) redisplay = TRUE; if ((oldtext->leftmargin != newtext->leftmargin) || (oldtext->topmargin != newtext->topmargin) || (oldtext->rightmargin != newtext->rightmargin) || (oldtext->bottommargin != newtext->bottommargin)) redisplay = TRUE; if ((oldtext->s.left != newtext->s.left) || (oldtext->s.right != newtext->s.right)) { if (newtext->s.left > newtext->s.right) { XwTextPosition temp = newtext->s.right; newtext->s.right = newtext->s.left; newtext->s.left = temp; redisplay = TRUE; } } /* ||| This may be the best way to do this, as some optimizations * can occur here that may be harder if we let XtSetValues * call our expose proc. */ if (redisplay && realized) DisplayAllText(newtw); if (realized) _XtTextExecuteUpdate(newtw); return ( FALSE ); } /*--------------------------------------------------------------------------+*/ static Boolean SetValuesHook(widget, args, num_args) /*--------------------------------------------------------------------------+*/ Widget widget; ArgList args; Cardinal *num_args; { XwTextEditWidget ctx = (XwTextEditWidget)widget; XwTextSource *source = ctx->text.source; XwTextSink *sink = ctx->text.sink; Boolean realized = XtIsRealized(widget); if (realized) _XtTextPrepareToUpdate(ctx); /* This is ugly, but need to know if user set initial_string */ ((StringSourcePtr)(source->data))->initial_string = NULL; XtSetSubvalues(source->data, source->resources, source->resource_num, args, *num_args); XtSetSubvalues(sink->data, sink->resources, sink->resource_num, args, *num_args); (*(source->check_data))(source); ForceBuildLineTable(ctx); if (realized) { DisplayAllText(ctx); _XtTextExecuteUpdate(ctx); } return( FALSE ); } /*--------------------------------------------------------------------------+*/ static void GetValuesHook(widget, args, num_args) /*--------------------------------------------------------------------------+*/ Widget widget; ArgList args; Cardinal *num_args; { XwTextSource *source = ((XwTextEditWidget)widget)->text.source; XwTextSink *sink = ((XwTextEditWidget)widget)->text.sink; int i = 0; /* This is ugly, but have to get internal buffer to initial_string storage */ while (i < *num_args) { if (strcmp(args[i].name, XtNstring) == 0) { ((StringSourcePtr)(source->data))->initial_string = XwTextCopyBuffer((XwTextEditWidget)widget); break; }; i++; }; XtGetSubvalues(source->data, source->resources, source->resource_num, args, *num_args); XtGetSubvalues(sink->data, sink->resources, sink->resource_num, args, *num_args); } /*--------------------------------------------------------------------------+*/ static void Realize( w, valueMask, attributes ) /*--------------------------------------------------------------------------+*/ Widget w; Mask *valueMask; XSetWindowAttributes *attributes; { XwTextEditWidget ctx = (XwTextEditWidget)w; *valueMask |= CWBitGravity; attributes->bit_gravity = NorthWestGravity; XtCreateWindow( w, InputOutput, (Visual *)CopyFromParent, *valueMask, attributes); if (XtIsRealized(w)) { XDefineCursor( w->core.screen->display, w->core.window, XCreateFontCursor( w->core.screen->display, XC_left_ptr)); ctx->text.update_flag = TRUE; } else { XtWarning("Unable to realize TextEdit"); } _XwRegisterName(w); } /***************************************************************************** * * Text Edit Class Record * *****************************************************************************/ XwTextEditClassRec XwtexteditClassRec = { { /* core fields */ /* superclass */ (WidgetClass) &XwprimitiveClassRec, /* class_name */ "XwTextEdit", /* widget_size */ sizeof(XwTextEditRec), /* class_initialize */ ClassInitialize, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ (XtInitProc)Initialize, /* initialize_hook */ InitializeHook, /* realize */ Realize, /* actions */ texteditActionsTable, /* num_actions */ XtNumber(texteditActionsTable), /* resources */ resources, /* num_ resource */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure*/ FALSE, /* compress_enterleave*/ TRUE, /* visible_interest */ FALSE, /* destroy */ (XtWidgetProc)TextDestroy, /* resize */ Resize, /* expose */ (XtExposeProc)ProcessExposeRegion, /* set_values */ (XtSetValuesFunc)SetValues, /* set_values_hook */ SetValuesHook, /* set_values_almost*/ XtInheritSetValuesAlmost, /* get_values_hook */ GetValuesHook, /* accept_focus */ NULL, /* version */ XtVersion, /* callback_private */ NULL, /* tm_table */ defaultTextEditTranslations, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { /* XwPrimitive fields */ (XtWidgetProc) NULL, (XtWidgetProc) NULL, (XwEventProc) NULL, (XwEventProc) NULL, (XwEventProc) NULL, (XtTranslations) NULL }, { /* XwTextEdit fields */ /* copy_substring */ _XwTextCopySubString, /* copy_selection */ _XwTextCopySelection, /* unset_selection */ _XwTextUnsetSelection, /* set_selection */ (XwSetSProc)_XwTextSetSelection, /* replace_text */ _XwTextReplace, /* redraw_text */ _XwTextRedraw, } }; WidgetClass XwtexteditWidgetClass = (WidgetClass)&XwtexteditClassRec; WidgetClass XwtextEditWidgetClass = (WidgetClass)&XwtexteditClassRec; xcircuit-3.9.73/Xw/BBoard.h0000664000175000001440000000345512335667422014102 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: BBoard.h ** ** Project: X Widgets ** ** Description: Public include file for the bulletin board widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * BulletinBoard Widget (subclass of ManagerClass) * ***********************************************************************/ /* Class record constants */ extern WidgetClass XwbulletinWidgetClass; typedef struct _XwBulletinClassRec *XwBulletinWidgetClass; typedef struct _XwBulletinRec *XwBulletinWidget; /* synonyms added for consistent naming conventions */ extern WidgetClass XwbulletinBoardWidgetClass; typedef struct _XwBulletinClassRec *XwBulletinBoardWidgetClass; typedef struct _XwBulletinRec *XwBulletinBoardWidget; xcircuit-3.9.73/Xw/SourceStr.c0000664000175000001440000002662112335667422014675 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: SourceStr.c ** ** Project: X Widgets ** ** Description: Code for TextEdit widget string source ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #include /* Private StringSource Definitions */ #define MAGICVALUE -1 #define DEFAULTBUFFERSIZE 512 #define Increment(data, position, direction)\ {\ if (direction == XwsdLeft) {\ if (position > 0) \ position -= 1;\ }\ else {\ if (position < data->length)\ position += 1;\ }\ } static long magic_value = MAGICVALUE; static XtResource stringResources[] = { {XtNstring, XtCString, XtRString, sizeof (char *), XtOffset(StringSourcePtr, initial_string), XtRString, NULL}, {XtNmaximumSize, XtCMaximumSize, XtRLong, sizeof (long), XtOffset(StringSourcePtr, max_size), XtRLong, (caddr_t)&magic_value}, {XtNeditType, XtCEditType, XtREditMode, sizeof(XwEditType), XtOffset(StringSourcePtr, editMode), XtRString, "edit"}, }; /*--------------------------------------------------------------------------+*/ static unsigned char Look(data, position, direction) /*--------------------------------------------------------------------------+*/ StringSourcePtr data; XwTextPosition position; XwScanDirection direction; { /* Looking left at pos 0 or right at position data->length returns newline */ if (direction == XwsdLeft) { if (position == 0) return(0); else return(data->buffer[position-1]); } else { if (position == data->length) return(0); else return(data->buffer[position]); } } /*--------------------------------------------------------------------------+*/ static int StringReadText (src, pos, text, maxRead) /*--------------------------------------------------------------------------+*/ XwTextSource *src; int pos; XwTextBlock *text; int maxRead; { int charsLeft; StringSourcePtr data; data = (StringSourcePtr) src->data; text->firstPos = pos; text->ptr = data->buffer + pos; charsLeft = data->length - pos; text->length = (maxRead > charsLeft) ? charsLeft : maxRead; return pos + text->length; } /*--------------------------------------------------------------------------+*/ static XwEditResult StringReplaceText (src, startPos, endPos, text, delta) /*--------------------------------------------------------------------------+*/ XwTextSource *src; XwTextPosition startPos, endPos; XwTextBlock *text; int *delta; { StringSourcePtr data; int i, length; data = (StringSourcePtr) src->data; switch (data->editMode) { case XwtextAppend: if (startPos != endPos || endPos!= data->length) return (XweditPosError); break; case XwtextRead: return (XweditError); case XwtextEdit: break; default: return (XweditError); } length = endPos - startPos; *delta = text->length - length; if ((data->length + *delta) > data->buffer_size) { if (data->max_size_flag) return (XweditError); else { while ((data->length + *delta) > data->buffer_size) data->buffer_size += DEFAULTBUFFERSIZE; data->buffer = (unsigned char *) XtRealloc(data->buffer, data->buffer_size); } }; if (*delta < 0) /* insert shorter than delete, text getting shorter */ for (i = startPos; i < data->length + *delta; ++i) data->buffer[i] = data->buffer[i - *delta]; else if (*delta > 0) { /* insert longer than delete, text getting longer */ for (i = data->length; i > startPos-1; --i) data->buffer[i + *delta] = data->buffer[i]; } if (text->length != 0) /* do insert */ for (i = 0; i < text->length; ++i) data->buffer[startPos + i] = text->ptr[i]; data->length = data->length + *delta; data->buffer[data->length] = 0; return (XweditDone); } /*--------------------------------------------------------------------------+*/ static StringSetLastPos (src, lastPos) /*--------------------------------------------------------------------------+*/ XwTextSource *src; XwTextPosition lastPos; { ((StringSourceData *) (src->data))->length = lastPos; } /*--------------------------------------------------------------------------+*/ static XwTextPosition StringGetLastPos (src) /*--------------------------------------------------------------------------+*/ XwTextSource *src; { return( ((StringSourceData *) (src->data))->length ); } /*--------------------------------------------------------------------------+*/ static XwTextPosition StringScan (src, pos, sType, dir, count, include) /*--------------------------------------------------------------------------+*/ XwTextSource *src; XwTextPosition pos; XwScanType sType; XwScanDirection dir; int count; Boolean include; { StringSourcePtr data; XwTextPosition position; int i, whiteSpace; unsigned char c; int ddir = (dir == XwsdRight) ? 1 : -1; data = (StringSourcePtr) src->data; position = pos; switch (sType) { case XwstPositions: if (!include && count > 0) count -= 1; for (i = 0; i < count; i++) { Increment(data, position, dir); } break; case XwstWhiteSpace: for (i = 0; i < count; i++) { whiteSpace = -1; while (position >= 0 && position <= data->length) { c = Look(data, position, dir); if ((c == ' ') || (c == '\t') || (c == '\n')){ if (whiteSpace < 0) whiteSpace = position; } else if (whiteSpace >= 0) break; position += ddir; } } if (!include) { if(whiteSpace < 0 && dir == XwsdRight) whiteSpace = data->length; position = whiteSpace; } break; case XwstEOL: for (i = 0; i < count; i++) { while (position >= 0 && position <= data->length) { if (Look(data, position, dir) == '\n') break; if(((dir == XwsdRight) && (position == data->length)) || (dir == XwsdLeft) && ((position == 0))) break; Increment(data, position, dir); } if (i + 1 != count) Increment(data, position, dir); } if (include) { /* later!!!check for last char in file # eol */ Increment(data, position, dir); } break; case XwstLast: if (dir == XwsdLeft) position = 0; else position = data->length; } if (position < 0) position = 0; if (position > data->length) position = data->length; return(position); } /*--------------------------------------------------------------------------+*/ static XwEditType StringGetEditType(src) /*--------------------------------------------------------------------------+*/ XwTextSource *src; { StringSourcePtr data; data = (StringSourcePtr) src->data; return(data->editMode); } /*--------------------------------------------------------------------------+*/ static Boolean XwStringSourceCheckData(src) /*--------------------------------------------------------------------------+*/ XwTextSource *src; { int initial_size = 0; StringSourcePtr data = (StringSourcePtr)src->data; data->max_size_flag = (data->max_size != MAGICVALUE); if (data->initial_string == NULL) { if (data->max_size_flag) data->buffer_size = data->max_size; else data->buffer_size = DEFAULTBUFFERSIZE; if (!data->buffer) data->length = 0; } else { initial_size = XwStrlen(data->initial_string); if (data->max_size_flag) { if (data->max_size < initial_size) { XtWarning("Initial string size larger than XtNmaximumSize"); data->max_size = initial_size; } data->buffer_size = data->max_size; } else { data->buffer_size = (initial_size < DEFAULTBUFFERSIZE) ? DEFAULTBUFFERSIZE : ((initial_size / DEFAULTBUFFERSIZE) + 1) * DEFAULTBUFFERSIZE; }; data->length = initial_size; }; if (data->buffer && initial_size) data->buffer = (unsigned char *) XtRealloc(data->buffer, data->buffer_size); else if (!data->buffer) data->buffer = (unsigned char *) XtMalloc(data->buffer_size); if (initial_size) { strcpy(data->buffer, data->initial_string); data->initial_string = NULL; } } /***** Public routines *****/ /*--------------------------------------------------------------------------+*/ void XwStringSourceDestroy (src) /*--------------------------------------------------------------------------+*/ XwTextSource *src; { XtFree((char *) src->data); XtFree((char *) src); } /*--------------------------------------------------------------------------+*/ XwTextSource *XwStringSourceCreate (w, args, argCount) /*--------------------------------------------------------------------------+*/ Widget w; ArgList args; int argCount; { XwTextSource *src; StringSourcePtr data; src = XtNew(XwTextSource); src->read = StringReadText; src->replace = StringReplaceText; src->setLastPos = StringSetLastPos; src->getLastPos = StringGetLastPos; src->scan = StringScan; src->editType = StringGetEditType; src->resources = stringResources; src->resource_num = XtNumber(stringResources); src->check_data = XwStringSourceCheckData; src->destroy = XwStringSourceDestroy; data = XtNew(StringSourceData); data->editMode = XwtextRead; data->buffer = NULL; data->initial_string = NULL; data->length = 0; data->buffer_size = 0; data->max_size = 0; data->max_size_flag = 0; src->data = (int *)data; /* Use the name given to the TextEdit widget this source will go with. This could be a problem if we allow multiple views on one source */ XtGetSubresources (w, data, XtNstringSrc, "StringSrc", stringResources, XtNumber(stringResources), args, argCount); src->data = (int *) (data); XwStringSourceCheckData(src); return src; } xcircuit-3.9.73/Xw/Form.c0000664000175000001440000015572112335667422013653 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Form.c ** ** Project: X Widgets ** ** Description: Contains code for the X Widget's Form manager. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #include #include #include /* Constraint resource list for Form */ static XtResource constraintResources[] = { { XtNxRefName, XtCXRefName, XtRString, sizeof(caddr_t), XtOffset(XwFormConstraints, x_ref_name), XtRString, (caddr_t) NULL }, { XtNxRefWidget, XtCXRefWidget, XtRPointer, sizeof(caddr_t), XtOffset(XwFormConstraints, x_ref_widget), XtRPointer, NULL }, { XtNxOffset, XtCXOffset, XtRInt, sizeof(int), XtOffset(XwFormConstraints, x_offset), XtRString, "0" }, { XtNxAddWidth, XtCXAddWidth, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, x_add_width), XtRString, "False" }, { XtNxVaryOffset, XtCXVaryOffset, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, x_vary_offset), XtRString, "False" }, { XtNxResizable, XtCXResizable, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, x_resizable), XtRString, "False" }, { XtNxAttachRight, XtCXAttachRight, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, x_attach_right), XtRString, "False" }, { XtNxAttachOffset, XtCXAttachOffset, XtRInt, sizeof(int), XtOffset(XwFormConstraints, x_attach_offset), XtRString, "0" }, { XtNyRefName, XtCYRefName, XtRString, sizeof(caddr_t), XtOffset(XwFormConstraints, y_ref_name), XtRString, (caddr_t) NULL }, { XtNyRefWidget, XtCYRefWidget, XtRPointer, sizeof(caddr_t), XtOffset(XwFormConstraints, y_ref_widget), XtRPointer, NULL }, { XtNyOffset, XtCYOffset, XtRInt, sizeof(int), XtOffset(XwFormConstraints, y_offset), XtRString, "0" }, { XtNyAddHeight, XtCYAddHeight, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, y_add_height), XtRString, "False" }, { XtNyVaryOffset, XtCYVaryOffset, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, y_vary_offset), XtRString, "False" }, { XtNyResizable, XtCYResizable, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, y_resizable), XtRString, "False" }, { XtNyAttachBottom, XtCYAttachBottom, XtRBoolean, sizeof(Boolean), XtOffset(XwFormConstraints, y_attach_bottom), XtRString, "False" }, { XtNyAttachOffset, XtCYAttachOffset, XtRInt, sizeof(int), XtOffset(XwFormConstraints, y_attach_offset), XtRString, "0" } }; /* Static routine definitions */ static void Initialize(); static void Realize(); static void Resize(); static void Destroy(); static Boolean SetValues(); static void ChangeManaged(); static XtGeometryResult GeometryManager(); static void ConstraintInitialize(); static void ConstraintDestroy(); static Boolean ConstraintSetValues(); static void GetRefWidget(); static Widget XwFindWidget(); static XwFormRef * XwGetFormRef(); static Widget XwFindValidRef(); static XwFormRef * XwRefTreeSearch(); static XwFormRef * XwParentRefTreeSearch(); static void XwMakeRefs(); static void XwDestroyRefs(); static void XwProcessRefs(); static void XwAddRef(); static void XwRemoveRef(); static void XwFindDepthAndCount(); static void XwInitProcessList(); static void XwConstrainList(); static void XwFreeConstraintList(); /* Static global variable definitions */ static int depth, leaves, arrayIndex; /* The Form class record */ XwFormClassRec XwformClassRec = { { (WidgetClass) &XwmanagerClassRec, /* superclass */ "XwForm", /* class_name */ sizeof(XwFormRec), /* widget_size */ NULL, /* class_initialize */ NULL, /* class_part_initialize */ FALSE, /* class_inited */ (XtInitProc) Initialize, /* initialize */ NULL, /* initialize_hook */ (XtRealizeProc) Realize, /* realize */ NULL, /* actions */ 0, /* num_actions */ NULL, /* resources */ 0, /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ FALSE, /* visible_interest */ (XtWidgetProc) Destroy, /* destroy */ (XtWidgetProc) Resize, /* resize */ NULL, /* expose */ (XtSetValuesFunc) SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* tm_table */ NULL, /* query_geometry */ /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { /* composite class */ (XtGeometryHandler) GeometryManager, /* geometry_manager */ (XtWidgetProc) ChangeManaged, /* change_managed */ XtInheritInsertChild, /* insert_child */ XtInheritDeleteChild, /* delete_child (inherited) */ NULL, }, { /* constraint class */ constraintResources, /* constraint resource set */ XtNumber(constraintResources), /* num_resources */ sizeof(XwFormConstraintRec), /* size of the constraint data */ (XtInitProc) ConstraintInitialize, /* contraint initilize proc */ (XtWidgetProc) ConstraintDestroy, /* contraint destroy proc */ (XtSetValuesFunc) ConstraintSetValues, /* contraint set values proc */ NULL, }, { /* manager class */ (XwTraversalProc) XtInheritTraversalProc /* traversal handler */ }, { /* form class */ 0 /* mumble */ } }; WidgetClass XwformWidgetClass = (WidgetClass) &XwformClassRec; /************************************************************************ * * Initialize * The main widget instance initialization routine. * ************************************************************************/ static void Initialize (request, new) XwFormWidget request, new; { /* Initialize the tree fields to NULL */ new -> form.width_tree = XwGetFormRef (new, NULL, 0, False, False, True, False, 0, 0, 0); new -> form.height_tree = XwGetFormRef (new, NULL, 0, False, False, True, False, 0, 0, 0); /* Set up a geometry for the widget if it is currently 0. */ if (request -> core.width == 0) new -> core.width += 200; if (request -> core.height == 0) new -> core.height += 200; } /************************************************************************ * * ConstraintInitialize * The main widget instance constraint initialization routine. * ************************************************************************/ static void ConstraintInitialize (request, new) Widget request, new; { XwFormConstraintRec * constraintRec; constraintRec = (XwFormConstraintRec *) new -> core.constraints; /* Initialize the contraint widget sizes for later processing */ constraintRec -> set_x = 0; constraintRec -> set_y = 0; constraintRec -> set_width = 0; constraintRec -> set_height = 0; constraintRec -> x = new -> core.x; constraintRec -> y = new -> core.y; constraintRec -> width = new -> core.width; constraintRec -> height = new -> core.height; constraintRec -> managed = False; /* Get and save copies of the names of the reference widgets */ GetRefWidget (&constraintRec -> x_ref_widget, &constraintRec -> x_ref_name, new); GetRefWidget (&constraintRec -> y_ref_widget, &constraintRec -> y_ref_name, new); } /************************************************************************ * * GetRefWidget * Get and verify the reference widget given. * ************************************************************************/ static void GetRefWidget (widget, name, new) Widget * widget; char ** name; Widget new; { if (*widget != NULL) { if (*name != NULL) { if (strcmp (*name, (char *) ((*widget) -> core.name)) != 0) { XtWarning ("Form: The reference widget and widget name do not match."); *name = (char *) (*widget) -> core.name; } } else *name = (char *) (*widget) -> core.name; if ((*widget) != new -> core.parent && (*widget) -> core.parent != new -> core.parent) { XtWarning ("Form: The reference widget is not a child of the form"); XtWarning (" or the form widget."); *name = new -> core.parent -> core.name; *widget = new -> core.parent; } } else if (*name != NULL) { if ((*widget = XwFindWidget ((CompositeWidget)(new->core.parent), *name)) == NULL) { XtWarning ("Form: The reference widget was not found."); *name = new -> core.parent -> core.name; *widget = new -> core.parent; } } else { *name = new -> core.parent -> core.name; *widget = new -> core.parent; } *name = strcpy (XtMalloc((unsigned) XwStrlen (*name) + 1), *name); } /************************************************************************ * * XwFindWidget * ************************************************************************/ static Widget XwFindWidget (w, name) CompositeWidget w; char * name; { register int i; register Widget * list; int count; if (strcmp (name, w -> core.name) == 0) return ((Widget) w); list = w -> composite.children; count = w -> composite.num_children; for (i = 0; i < count; i++) { if (strcmp (name, (*list) -> core.name) == 0) return (*list); list++; } return (NULL); } /************************************************************************ * * Realize * Create the widget window and create the gc's. * ************************************************************************/ static void Realize (fw, valueMask, attributes) XwFormWidget fw; XtValueMask * valueMask; XSetWindowAttributes * attributes; { Mask newValueMask = *valueMask; XtCreateWindow ((Widget)fw, InputOutput, (Visual *) CopyFromParent, newValueMask, attributes); _XwRegisterName(fw); XwProcessRefs (fw, False); } /************************************************************************ * * Resize * ************************************************************************/ static void Resize (fw) XwFormWidget fw; { if (XtIsRealized ((Widget)fw)) XwProcessRefs (fw, False); } /************************************************************************ * * Destroy * Deallocate the head structures of the reference trees. * The rest of the tree has already been deallocated. * ************************************************************************/ static void Destroy (fw) XwFormWidget fw; { XtFree ((char *)(fw -> form.width_tree)); XtFree ((char *)(fw -> form.height_tree)); } /************************************************************************ * * ConstraintDestroy * Deallocate the allocated referenence names. * ************************************************************************/ static void ConstraintDestroy (w) XwFormWidget w; { XwFormConstraintRec * constraint; constraint = (XwFormConstraintRec *) w -> core.constraints; if (constraint -> x_ref_name != NULL) XtFree (constraint -> x_ref_name); if (constraint -> y_ref_name != NULL) XtFree (constraint -> y_ref_name); } /************************************************************************ * * SetValues * Currently nothing needs to be done. The XtSetValues call * handles geometry requests and form does not define any * new resources. * ************************************************************************/ static Boolean SetValues (current, request, new) XwFormWidget current, request, new; { return (False); } /************************************************************************ * * ConstraintSetValues * Process changes in the constraint set of a widget. * ************************************************************************/ static Boolean ConstraintSetValues (current, request, new) Widget current, request, new; { XwFormConstraintRec * curConstraint; XwFormConstraintRec * newConstraint; XwFormConstraintRec * tempConstraint; curConstraint = (XwFormConstraintRec *) current -> core.constraints; newConstraint = (XwFormConstraintRec *) new -> core.constraints; /* Check the geometrys to see if new's contraint record */ /* saved geometry data needs to be updated. */ if (XtIsRealized (current)) { if (new -> core.x != current -> core.x) newConstraint -> set_x = new -> core.x; if (new -> core.y != current -> core.y) newConstraint -> set_y = new -> core.y; if (new -> core.width != current -> core.width) newConstraint -> set_width = new -> core.width; if (new -> core.height != current -> core.height) newConstraint -> set_height = new -> core.height; } /* If the reference widget or name has changed, set the */ /* opposing member to NULL in order to get the proper */ /* referencing. For names, the string space will be */ /* deallocated out of current later. */ if (newConstraint -> x_ref_widget != curConstraint -> x_ref_widget) newConstraint -> x_ref_name = NULL; else if (newConstraint -> x_ref_name != curConstraint -> x_ref_name) newConstraint -> x_ref_widget = NULL; if (newConstraint -> y_ref_widget != curConstraint -> y_ref_widget) newConstraint -> y_ref_name = NULL; else if (newConstraint -> y_ref_name != curConstraint -> y_ref_name) newConstraint -> y_ref_widget = NULL; /* Get and save copies of the names of the reference widget names */ /* and get the reference widgets. */ GetRefWidget (&newConstraint -> x_ref_widget, &newConstraint -> x_ref_name, new); GetRefWidget (&newConstraint -> y_ref_widget, &newConstraint -> y_ref_name, new); /* See if the reference widgets have changed. If so, free the */ /* old allocated names and set them to the new names. */ if (newConstraint -> x_ref_widget != curConstraint -> x_ref_widget) { XtFree (curConstraint -> x_ref_name); curConstraint -> x_ref_name = newConstraint -> x_ref_name; } if (newConstraint -> y_ref_widget != curConstraint -> y_ref_widget) { XtFree (curConstraint -> y_ref_name); curConstraint -> y_ref_name = newConstraint -> y_ref_name; } /* See if any constraint data for the widget has changed. */ /* Is so, remove the old reference tree elements from the */ /* forms constraint processing trees and build and insert */ /* new reference tree elements. */ /* */ /* Once this is finished, reprocess the constraint trees. */ if (newConstraint -> x_ref_widget != curConstraint -> x_ref_widget || newConstraint -> y_ref_widget != curConstraint -> y_ref_widget || newConstraint -> x_offset != curConstraint -> x_offset || newConstraint -> y_offset != curConstraint -> y_offset || newConstraint -> x_vary_offset != curConstraint -> x_vary_offset || newConstraint -> y_vary_offset != curConstraint -> y_vary_offset || newConstraint -> x_resizable != curConstraint -> x_resizable || newConstraint -> y_resizable != curConstraint -> y_resizable || newConstraint -> x_add_width != curConstraint -> x_add_width || newConstraint -> y_add_height != curConstraint -> y_add_height || newConstraint -> x_attach_right != curConstraint -> x_attach_right || newConstraint -> y_attach_bottom != curConstraint -> y_attach_bottom || newConstraint -> x_attach_offset != curConstraint -> x_attach_offset || newConstraint -> y_attach_offset != curConstraint -> y_attach_offset) { if (XtIsRealized (current) && current -> core.managed) { XwDestroyRefs (current); tempConstraint = (XwFormConstraintRec *) current -> core.constraints; current -> core.constraints = new -> core.constraints; XwMakeRefs (current); current -> core.constraints = (caddr_t) tempConstraint; } if (XtIsRealized (current)) XwProcessRefs (new -> core.parent, True); } return (False); } /************************************************************************ * * GeometryManager * Always accept the childs new size, set the childs constraint * record size to the new size and process the constraints. * ************************************************************************/ static XtGeometryResult GeometryManager (w, request, reply) Widget w; XtWidgetGeometry * request; XtWidgetGeometry * reply; { XwFormWidget fw = (XwFormWidget) w -> core.parent; XwFormConstraintRec * constraint; XwFormRef * xRef; XwFormRef * yRef; int newBorder = w -> core.border_width; Boolean moveFlag = False; Boolean resizeFlag = False; constraint = (XwFormConstraintRec *) w -> core.constraints; if (request -> request_mode & CWX) constraint -> set_x = request -> x; if (request -> request_mode & CWY) constraint -> set_y = request -> y; if (request -> request_mode & CWWidth) constraint -> set_width = request -> width; if (request -> request_mode & CWHeight) constraint -> set_height = request -> height; if (request -> request_mode & CWBorderWidth) newBorder = request -> border_width; /* If the x or the width has changed, find the horizontal */ /* reference tree structure for this widget and update it */ xRef = yRef = NULL; if ((request->request_mode & CWWidth) || (request->request_mode & CWX)) { if ((xRef = XwRefTreeSearch (w, fw -> form.width_tree)) != NULL) { if (request->request_mode & CWX) xRef -> set_loc = request -> x; if (request->request_mode & CWWidth) xRef -> set_size = request -> width; } } /* If the y or the height has changed, find the vertical */ /* reference tree structure for this widget and update it */ if ((request->request_mode & CWHeight) || (request->request_mode & CWY)) { if ((yRef = XwRefTreeSearch (w, fw -> form.height_tree)) != NULL) { if (request->request_mode & CWY) yRef -> set_loc = request -> y; if (request->request_mode & CWHeight) yRef -> set_size = request -> height; } } /* Process the constraints if either of the ref structs have changed */ if (xRef != NULL || yRef != NULL) { if ((request->request_mode & CWX) || (request->request_mode & CWY)) moveFlag = True; if ((request->request_mode & CWWidth) || (request->request_mode & CWHeight)) resizeFlag = True; if (moveFlag && resizeFlag) XtConfigureWidget (w, constraint -> set_x, constraint -> set_y, constraint -> set_width, constraint -> set_height, newBorder); else if (resizeFlag) XtResizeWidget (w, constraint -> set_width, constraint -> set_height, newBorder); else if (moveFlag) XtMoveWidget (w, constraint -> set_x, constraint -> set_y); XwProcessRefs (w -> core.parent, True); } /* See if an almost condition should be returned */ if (((request->request_mode & CWX) && w->core.x != request->x) || ((request->request_mode & CWY) && w->core.y != request->y) || ((request->request_mode & CWWidth) && w->core.width != request->width) || ((request->request_mode & CWHeight) && w->core.height != request->height)) { reply->request_mode = request->request_mode; if (request->request_mode & CWX) reply->x = w->core.x; if (request->request_mode & CWY) reply->y = w->core.y; if (request->request_mode & CWWidth) reply->width = w->core.width; if (request->request_mode & CWHeight) reply->height = w->core.height; if (request->request_mode & CWBorderWidth) reply->border_width = request->border_width; if (request->request_mode & CWSibling) reply->sibling = request->sibling; if (request->request_mode & CWStackMode) reply->stack_mode = request->stack_mode; return (XtGeometryAlmost); } return (XtGeometryDone); } /************************************************************************ * * ChangeManaged * ************************************************************************/ static void ChangeManaged (fw) XwFormWidget fw; { Widget child; XwFormConstraintRec * constraint; register int i; /* If the widget is being managed, build up the reference */ /* structures for it, adjust any references, and process the */ /* reference set. If unmanaged, remove its reference. */ for (i = 0; i < fw -> composite.num_children; i++) { child = fw -> composite.children[i]; constraint = (XwFormConstraintRec *) child -> core.constraints; if (constraint -> set_width == 0) { constraint -> set_x = child -> core.x; constraint -> set_y = child -> core.y; constraint -> set_width = child -> core.width; constraint -> set_height = child -> core.height; } if (child -> core.managed != constraint -> managed) { if (child -> core.managed) { if (constraint->width_when_unmanaged != child->core.width) constraint->set_width = child->core.width; if (constraint->height_when_unmanaged != child->core.height) constraint->set_height = child->core.height; XwMakeRefs (child); } else { constraint -> width_when_unmanaged = child->core.width; constraint -> height_when_unmanaged = child->core.height; XwDestroyRefs (child); } constraint -> managed = child -> core.managed; } } XwProcessRefs (fw, True); } /************************************************************************ * * XwMakeRefs * Build up and insert into the forms reference trees the reference * structures needed for the widget w. * ************************************************************************/ static void XwMakeRefs (w) Widget w; { Widget xRefWidget; Widget yRefWidget; XwFormWidget formWidget; XwFormConstraintRec * constraint; XwFormRef * xRefParent; XwFormRef * yRefParent; XwFormRef * xRef; XwFormRef * yRef; XwFormRef * checkRef; register int i; formWidget = (XwFormWidget) w -> core.parent; constraint = (XwFormConstraintRec *) w -> core.constraints; /* The "true" reference widget may be unmanaged, so */ /* we need to back up through the reference set */ /* perhaps all the way to Form. */ xRefWidget = XwFindValidRef (constraint -> x_ref_widget, XwHORIZONTAL, formWidget -> form.width_tree); yRefWidget = XwFindValidRef (constraint -> y_ref_widget, XwVERTICAL, formWidget -> form.height_tree); /* Search the referencing trees for the referencing widgets */ /* The constraint reference struct will be added as a child */ /* of this struct. */ if (xRefWidget != NULL) xRefParent = XwRefTreeSearch (xRefWidget, formWidget -> form.width_tree); if (yRefWidget != NULL) yRefParent = XwRefTreeSearch (yRefWidget, formWidget->form.height_tree); /* Allocate, initialize, and insert the reference structures */ if (xRefWidget != NULL) { xRef = XwGetFormRef (w, xRefWidget, constraint->x_offset, constraint->x_add_width, constraint->x_vary_offset, constraint->x_resizable, constraint->x_attach_right, constraint->x_attach_offset, constraint->set_x, constraint->set_width); XwAddRef (xRefParent, xRef); } if (yRefWidget != NULL) { yRef = XwGetFormRef(w, yRefWidget, constraint->y_offset, constraint->y_add_height, constraint->y_vary_offset, constraint->y_resizable, constraint->y_attach_bottom, constraint->y_attach_offset, constraint->set_y, constraint->set_height); XwAddRef (yRefParent, yRef); } /* Search through the parents reference set to get any child */ /* references which need to be made child references of the */ /* widget just added. */ for (i = 0; i < xRefParent -> ref_to_count; i++) { checkRef = xRefParent -> ref_to[i]; constraint = (XwFormConstraintRec *) checkRef->this->core.constraints; if (XwFindValidRef (constraint->x_ref_widget, XwHORIZONTAL, formWidget -> form.width_tree) != xRefWidget) { XwRemoveRef (xRefParent, checkRef); checkRef -> ref = xRef -> this; XwAddRef (xRef, checkRef); } } for (i = 0; i < yRefParent -> ref_to_count; i++) { checkRef = yRefParent -> ref_to[i]; constraint = (XwFormConstraintRec *) checkRef->this->core.constraints; if (XwFindValidRef (constraint->y_ref_widget, XwVERTICAL, formWidget -> form.height_tree) != yRefWidget) { XwRemoveRef (yRefParent, checkRef); checkRef -> ref = yRef -> this; XwAddRef (yRef, checkRef); } } } /************************************************************************ * * XwDestroyRefs * Remove and deallocate the reference structures for the widget w. * ************************************************************************/ static void XwDestroyRefs (w) Widget w; { Widget xRefWidget; Widget yRefWidget; XwFormWidget formWidget; XwFormConstraintRec * constraint; XwFormRef * xRefParent; XwFormRef * yRefParent; XwFormRef * xRef; XwFormRef * yRef; XwFormRef * tempRef; register int i; formWidget = (XwFormWidget) w -> core.parent; constraint = (XwFormConstraintRec *) w -> core.constraints; /* Search through the reference trees to see if the widget */ /* is within the tree. */ xRefWidget = w; yRefWidget = w; xRefParent = XwParentRefTreeSearch (xRefWidget, formWidget -> form.width_tree, formWidget -> form.width_tree); yRefParent = XwParentRefTreeSearch (yRefWidget, formWidget -> form.height_tree, formWidget -> form.height_tree); /* For both the width and height references, if the ref parent was */ /* not null, find the reference to be removed within the parents */ /* list, remove this reference. Then, for any references attached */ /* to the one just removed, reparent them to the parent reference. */ if (xRefParent != NULL) { for (i = 0; i < xRefParent -> ref_to_count; i++) { if (xRefParent -> ref_to[i] -> this == xRefWidget) { xRef = xRefParent -> ref_to[i]; break; } } XwRemoveRef (xRefParent, xRefParent -> ref_to[i]); while (xRef -> ref_to_count) { tempRef = xRef -> ref_to[0]; tempRef -> ref = xRefParent -> this; XwRemoveRef (xRef, tempRef); XwAddRef (xRefParent, tempRef); } XtFree ((char *)xRef); } if (yRefParent != NULL) { for (i = 0; i < yRefParent -> ref_to_count; i++) { if (yRefParent -> ref_to[i] -> this == yRefWidget) { yRef = yRefParent -> ref_to[i]; break; } } XwRemoveRef (yRefParent, yRef); while (yRef -> ref_to_count) { tempRef = yRef -> ref_to[0]; tempRef -> ref = yRefParent -> this; XwRemoveRef (yRef, tempRef); XwAddRef (yRefParent, tempRef); } XtFree ((char *)yRef); } } /************************************************************************ * * XwGetFormRef * Allocate and initialize a form constraint referencing structure. * ************************************************************************/ static XwFormRef * XwGetFormRef (this, ref, offset, add, vary, resizable, attach, attach_offset, loc, size) Widget this; Widget ref; int offset; Boolean add; Boolean vary; Boolean resizable; Boolean attach; int attach_offset; { XwFormRef * formRef; formRef = (XwFormRef *) XtMalloc (sizeof (XwFormRef)); formRef -> this = this; formRef -> ref = ref; formRef -> offset = offset; formRef -> add = add; formRef -> vary = vary; formRef -> resizable = resizable; formRef -> attach = attach; formRef -> attach_offset = attach_offset; formRef -> set_loc = loc; formRef -> set_size = size; formRef -> ref_to = NULL; formRef -> ref_to_count = 0; return (formRef); } /************************************************************************ * * XwFindValidRef * Given an initial reference widget to be used as a constraint, * find a valid (managed) reference widget. This is done by * backtracking through the widget references listed in the * constraint records. If no valid constraint is found, "form" * is returned indicating that this reference should be stuck * immediately under the form reference structure. * ************************************************************************/ static Widget XwFindValidRef (refWidget, refType, formRef) Widget refWidget; int refType; XwFormRef * formRef; { XwFormConstraintRec * constraint; if (refWidget == NULL) return (NULL); while (1) { if (XwRefTreeSearch (refWidget, formRef) != NULL) return (refWidget); constraint = (XwFormConstraintRec *) refWidget -> core.constraints; if (refType == XwHORIZONTAL) refWidget = constraint -> x_ref_widget; else refWidget = constraint -> y_ref_widget; if (refWidget == NULL) return (refWidget -> core.parent); } } /************************************************************************ * * XwRefTreeSearch * Search the reference tree until the widget listed is found. * ************************************************************************/ static XwFormRef * XwRefTreeSearch (w, formRef) Widget w; XwFormRef * formRef; { register int i; XwFormRef * tempRef; if (formRef == NULL) return (NULL); if (formRef -> this == w) return (formRef); for (i = 0; i < formRef -> ref_to_count; i++) { tempRef = XwRefTreeSearch (w, formRef -> ref_to[i]); if (tempRef != NULL) return (tempRef); } return (NULL); } /************************************************************************ * * XwParentRefTreeSearch * Search the reference tree until the parent reference of the * widget listed is found. * ************************************************************************/ static XwFormRef * XwParentRefTreeSearch (w, wFormRef, parentFormRef) Widget w; XwFormRef * wFormRef; XwFormRef * parentFormRef; { register int i; XwFormRef * tempRef; if (parentFormRef == NULL) return (NULL); if (wFormRef -> this == w) return (parentFormRef); for (i = 0; i < wFormRef -> ref_to_count; i++) { tempRef = XwParentRefTreeSearch (w, wFormRef -> ref_to[i], wFormRef); if (tempRef != NULL) return (tempRef); } return (NULL); } /************************************************************************ * * XwAddRef * Add a reference structure into a parent reference structure. * ************************************************************************/ static void XwAddRef (refParent, ref) XwFormRef * refParent; XwFormRef * ref; { refParent -> ref_to = (XwFormRef **) XtRealloc ((char *) refParent -> ref_to, sizeof (XwFormRef *) * (refParent -> ref_to_count + 1)); refParent -> ref_to[refParent -> ref_to_count] = ref; refParent -> ref_to_count += 1; } /************************************************************************ * * XwRemoveRef * Remove a reference structure from a parent reference structure. * ************************************************************************/ static void XwRemoveRef (refParent, ref) XwFormRef * refParent; XwFormRef * ref; { register int i, j; for (i = 0; i < refParent -> ref_to_count; i++) { if (refParent -> ref_to[i] == ref) { for (j = i; j < refParent -> ref_to_count - 1; j++) refParent -> ref_to[j] = refParent -> ref_to[j + 1]; break; } } if (refParent -> ref_to_count > 1) { refParent -> ref_to = (XwFormRef **) XtRealloc ((char *) refParent -> ref_to, sizeof (XwFormRef *) * (refParent -> ref_to_count - 1)); } else { XtFree ((char *)(refParent -> ref_to)); refParent -> ref_to = NULL; } refParent -> ref_to_count -= 1; } /************************************************************************ * * XwProcessRefs * Traverse throught the form's reference trees, calculate new * child sizes and locations based on the constraints and adjust * the children as is calculated. The resizable flag indicates * whether the form can be resized or not. * ************************************************************************/ static void XwProcessRefs (fw, formResizable) XwFormWidget fw; Boolean formResizable; { int formWidth, formHeight; register int i, j; int horDepth, horLeaves; int vertDepth, vertLeaves; XwFormProcess ** horProcessList; XwFormProcess ** vertProcessList; XtGeometryResult geometryReturn; Dimension replyW, replyH; XwFormConstraintRec * constraintRec; Widget child; Boolean moveFlag, resizeFlag; /* Initialize the form width and height variables */ if (fw -> manager.layout == XwIGNORE) formResizable = False; if (formResizable) formWidth = formHeight = -1; else { formWidth = fw -> core.width; formHeight = fw -> core.height; } /* Traverse the reference trees to find the depth and leaf node count */ leaves = 0; depth = 0; XwFindDepthAndCount (fw -> form.width_tree, 1); horDepth = depth; horLeaves = leaves; leaves = 0; depth = 0; XwFindDepthAndCount (fw -> form.height_tree, 1); vertDepth = depth; vertLeaves = leaves; if (horDepth == 0 && vertDepth == 0) return; /* Allocate and initialize the constraint array processing structures */ horProcessList = (XwFormProcess **) XtMalloc (sizeof (XwFormProcess **) * horLeaves); for (i = 0; i < horLeaves; i++) { horProcessList[i] = (XwFormProcess *) XtMalloc (sizeof (XwFormProcess) * horDepth); for (j = 0; j < horDepth; j++) horProcessList[i][j].ref = NULL; } vertProcessList = (XwFormProcess **) XtMalloc (sizeof (XwFormProcess **) * vertLeaves); for (i = 0; i < vertLeaves; i++) { vertProcessList[i] = (XwFormProcess *) XtMalloc (sizeof (XwFormProcess) * vertDepth); for (j = 0; j < vertDepth; j++) vertProcessList[i][j].ref = NULL; } /* Initialize the process array placing each node of the tree into */ /* the array such that it is listed only once and its first children */ /* listed directly next within the array. */ arrayIndex = 0; XwInitProcessList (horProcessList, fw -> form.width_tree, 0); arrayIndex = 0; XwInitProcessList (vertProcessList, fw -> form.height_tree, 0); /* Process each array such that each row of the arrays contain */ /* their required sizes and locations to match the constraints */ XwConstrainList (horProcessList, horLeaves, horDepth, &formWidth, formResizable, XwHORIZONTAL); XwConstrainList (vertProcessList, vertLeaves, vertDepth, &formHeight, formResizable, XwVERTICAL); /* If the form is resizable and the form width or height returned */ /* is different from the current form width or height, then make */ /* a geometry request to get the new form size. If almost is */ /* returned, use these sizes and reprocess the constrain lists */ if (formResizable && (formWidth != fw -> core.width || formHeight != fw -> core.height)) { geometryReturn = XtMakeResizeRequest((Widget)fw, formWidth, formHeight, &replyW, &replyH); if (geometryReturn == XtGeometryAlmost) { formWidth = replyW; formHeight = replyH; XtMakeResizeRequest((Widget)fw, formWidth, formHeight, NULL, NULL); XwConstrainList (horProcessList, horLeaves, horDepth, &formWidth, False, XwHORIZONTAL); XwConstrainList (vertProcessList, vertLeaves, vertDepth, &formHeight, False, XwVERTICAL); } else if (geometryReturn == XtGeometryNo) { formWidth = fw -> core.width; formHeight = fw -> core.height; XwConstrainList (horProcessList, horLeaves, horDepth, &formWidth, False, XwHORIZONTAL); XwConstrainList (vertProcessList, vertLeaves, vertDepth, &formHeight, False, XwVERTICAL); } } /* Process the forms child list to compare the widget sizes and */ /* locations with the widgets current values and if changed, */ /* reposition, resize, or reconfigure the child. */ for (i = 0; i < fw -> composite.num_children; i++) { child = (Widget) fw -> composite.children[i]; if (child -> core.managed) { constraintRec = (XwFormConstraintRec *) child -> core.constraints; moveFlag = resizeFlag = False; if (constraintRec -> x != child -> core.x || constraintRec -> y != child -> core.y) moveFlag = True; if (constraintRec -> width != child -> core.width || constraintRec -> height != child -> core.height) resizeFlag = True; if (moveFlag && resizeFlag) XtConfigureWidget (child, constraintRec->x, constraintRec->y, constraintRec->width, constraintRec->height, child -> core.border_width); else if (moveFlag) XtMoveWidget (child, constraintRec->x, constraintRec->y); else if (resizeFlag) XtResizeWidget (child, constraintRec->width, constraintRec->height, child->core.border_width); } } XwFreeConstraintList (horProcessList, horLeaves); XwFreeConstraintList (vertProcessList, vertLeaves); } /************************************************************************ * * XwFreeConstraintList * Free an allocated constraint list. * ************************************************************************/ static void XwFreeConstraintList (processList, leaves) XwFormProcess ** processList; int leaves; { register int i; /* Free each array attached to the list then free the list */ for (i = 0; i < leaves; i++) XtFree ((char *)(processList[i])); XtFree ((char *)processList); } /************************************************************************ * * XwFindDepthAndCount * Search a constraint reference tree and find the maximum depth * of the tree and the number of leaves in the tree. * ************************************************************************/ static void XwFindDepthAndCount (node, nodeLevel) XwFormRef * node; int nodeLevel; { register int i; if (node -> ref_to == NULL) leaves++; else { nodeLevel++; if (nodeLevel > depth) depth = nodeLevel; for (i = 0; i < node -> ref_to_count; i++) XwFindDepthAndCount (node -> ref_to[i], nodeLevel); } } /************************************************************************ * * XwInitProcessList * Search a constraint reference tree and find place the ref node * pointers into the list. * ************************************************************************/ static void XwInitProcessList (processList, node, nodeLevel) XwFormProcess ** processList; XwFormRef * node; int nodeLevel; { register int i; processList[arrayIndex][nodeLevel].ref = node; if (node -> ref_to == NULL) { processList[arrayIndex][nodeLevel].leaf = True; arrayIndex++; } else { processList[arrayIndex][nodeLevel].leaf = False; nodeLevel++; for (i = 0; i < node -> ref_to_count; i++) XwInitProcessList (processList, node -> ref_to[i], nodeLevel); } } /************************************************************************ * * XwConstrainList * Process each array such that each row of the arrays contain * their required sizes and locations to match the constraints * ************************************************************************/ static void XwConstrainList (processList, leaves, depth, formSize, varySize, orient) XwFormProcess ** processList; int leaves; int depth; int * formSize; Boolean varySize; int orient; { register int i, j; register XwFormRef * ref; XwFormConstraintRec * constraint; XwFormConstraintRec * parentConstraint; int heldSize; int sizeDif; int vary, resize; int varyCount, varyAmount; int resizeCount, resizeAmount; int constantSubtract; int addAmount, subtractAmount; int size, separation; heldSize = 0; for (i = 0; i < leaves; i++) /* Process all array lines */ { processList[i][0].size = 0; processList[i][0].loc = 0; for (j = 1; j < depth; j++) /* Process array line */ { ref = processList[i][j].ref; if (ref != NULL) { processList[i][j].size = ref -> set_size; if (ref -> ref == ref -> this -> core.parent) { if (ref -> offset != 0) processList[i][j].loc = ref -> offset; else processList[i][j].loc = ref -> set_loc; } else { processList[i][j].loc = processList[i][j - 1].loc + ref->offset; if (ref -> add) processList[i][j].loc += processList[i][j - 1].size + processList[i][j].ref -> this -> core.border_width * 2; } } else { processList[i][j].ref = processList[i - 1][j].ref; processList[i][j].loc = processList[i - 1][j].loc; processList[i][j].size = processList[i - 1][j].size; processList[i][j].leaf = processList[i - 1][j].leaf; } if (processList[i][j].leaf) { if (processList[i][0].size < processList[i][j].size + processList[i][j].ref -> this -> core.border_width * 2 + processList[i][j].loc + ref -> attach_offset) { processList[i][0].size = processList[i][j].size + processList[i][j].ref -> this -> core.border_width * 2 + processList[i][j].loc + ref -> attach_offset; } if (processList[i][j].leaf && processList[i][0].size > heldSize) heldSize = processList[i][0].size; break; } } } /* Each array line has now been processed to optimal size. Reprocess */ /* each line to constrain it to formSize if not varySize or to */ /* heldSize if varySize. */ if (varySize) *formSize = heldSize; for (i = 0; i < leaves; i++) { /* For each array line if the 0th size (calculated form size needed */ /* for this array line is less than the form size then increase the */ /* seperations between widgets whose constaints allow it. */ /* If can't do it by varying separation, but can do it by resizing, */ /* then do that. */ if (processList[i][0].size < *formSize) { sizeDif = *formSize - processList[i][0].size; varyCount = 0; resizeCount = 0; for (j = 1; j < depth; j++) { /* Can't vary the first spacing */ if (j > 1 && processList[i][j].ref -> vary) varyCount++; if (processList[i][j].ref -> resizable) resizeCount++; if (processList[i][j].leaf) break; } addAmount = 0; resizeAmount = 0; if (varyCount == 0) { varyAmount = 0; if (resizeCount != 0) resizeAmount = sizeDif / resizeCount; } else varyAmount = sizeDif / varyCount; j = 1; while (j < depth) { if (j > 1 && processList[i][j].ref -> vary) addAmount += varyAmount; processList[i][j].loc += addAmount; if (processList[i][j].ref -> resizable) { processList[i][j].size += resizeAmount; addAmount += resizeAmount; } if (processList[i][j].leaf) break; j++; } if (j > 1) { if (processList[i][j].ref -> vary && processList[i][j].ref -> attach) processList[i][j].loc = *formSize - processList[i][j].size - processList[i][j].ref -> attach_offset; else if (processList[i][j].ref -> vary == False && processList[i][j].ref -> resizable && processList[i][j].ref -> attach) { processList[i][j].size = *formSize - processList[i][j].loc - processList[i][j].ref -> this -> core.border_width * 2 - processList[i][j].ref -> attach_offset; } } else { if (processList[i][j].ref -> vary == False && processList[i][j].ref -> resizable && processList[i][j].ref -> attach) { processList[i][j].loc = processList[i][j].ref -> offset; processList[i][j].size = *formSize - processList[i][j].loc - processList[i][j].ref -> this -> core.border_width * 2 - processList[i][j].ref -> attach_offset; } else if (processList[i][j].ref -> vary && processList[i][j].ref -> attach) { processList[i][j].loc = *formSize - processList[i][j].size - processList[i][j].ref -> this -> core.border_width * 2 - processList[i][j].ref -> attach_offset; } else if (processList[i][j].ref -> vary && processList[i][j].ref -> attach == False) { processList[i][j].loc = processList[i][j].ref -> offset; } } } /* If the form size has gotton smaller, process the vary constraints */ /* until the needed size is correct or all seperations are 1 pixel. */ /* If separations go to 1, then process the resizable widgets */ /* until the needed size is correct or the sizes have gone to 1 */ /* pixel. If the size is still not correct punt, cannot find a */ /* usable size so clip it. */ if (processList[i][0].size > *formSize) { sizeDif = processList[i][0].size - *formSize; varyAmount = 0; varyCount = 0; j = 0; do { j++; if (j > 1 && processList[i][j].ref -> vary && processList[i][j].ref -> offset) { varyAmount += processList[i][j].ref -> offset; varyCount++; } } while (processList[i][j].leaf == False); resizeAmount = 0; resizeCount = 0; for (j = 1; j < depth; j++) { if (processList[i][j].ref->resizable && processList[i][j].size > 1) { if (processList[i][j].leaf || processList[i][j+1].ref->add) { resizeCount++; resizeAmount += processList[i][j].size - 1; } } if (processList[i][j].leaf) break; } /* Do we have enough varience to match the constraints? */ if (varyAmount + resizeAmount > sizeDif) { /* first process out the vary amount */ if (varyCount) { do { subtractAmount = 0; for (j = 1; j < depth; j++) { if (j > 1 && processList[i][j].ref -> vary) { vary = processList[i][j].loc - processList[i][j - 1].loc; if (processList[i][j].ref -> add) vary = vary - processList[i][j - 1].size - 1 - processList[i][j-1].ref-> this->core.border_width * 2; } else vary = 0; if (vary > 0) subtractAmount++; if (subtractAmount) { processList[i][j].loc -= subtractAmount; sizeDif--; } if (processList[i][j].leaf) break; } } while (subtractAmount != 0 && sizeDif > 0); } /* now process resize constraints if further constraint */ /* processing is necessary. */ if (sizeDif) { if (resizeAmount > sizeDif) resizeAmount = sizeDif; if (resizeCount) constantSubtract = resizeAmount / resizeCount; while (resizeAmount > 0) { subtractAmount = 0; for (j = 1; j < depth; j++) { if (processList[i][j].ref -> add) processList[i][j].loc -= subtractAmount; if (processList[i][j].ref -> resizable) { if (processList[i][j].leaf || processList[i][j + 1].ref -> add) resize = processList[i][j].size - 1; else resize = 0; if (resize > 1) { if (constantSubtract < resize) resize = constantSubtract; subtractAmount += resize; processList[i][j].size -= resize; } } if (processList[i][j].leaf) break; } resizeAmount -= subtractAmount; constantSubtract = 1; } } } } } /* Now each array line is processed such that its line is properly */ /* constrained to match the specified form size. Since a single */ /* widget reference structure can be referenced in multiple array */ /* lines, the minumum constraint for each widget needs to be found. */ /* When found, the width and height will be placed into the widgets */ /* constraint structure. */ for (i = 1; i < depth; i++) { ref = NULL; for (j = 0; j < leaves + 1; j++) /* loop one to many - for exit */ { if (j == leaves || ref != processList[j][i].ref) { if (j == leaves || ref != NULL) { if (ref != NULL) { constraint = (XwFormConstraintRec *) ref -> this -> core.constraints; parentConstraint = (XwFormConstraintRec *) ref -> ref -> core.constraints; if (orient == XwHORIZONTAL) constraint -> width = size; else constraint -> height = size; if (i > 1) { if (orient== XwHORIZONTAL) constraint -> x = parentConstraint -> x + separation; else constraint -> y = parentConstraint -> y + separation; } else { if (orient == XwHORIZONTAL) constraint -> x = separation; else constraint -> y = separation; } } if (j == leaves) break; /* exit out of the inner loop */ } ref = processList[j][i].ref; separation = 10000000; size = 10000000; } if (ref != NULL) { if (size > processList[j][i].size) size = processList[j][i].size; if (i > 1) { if (separation > processList[j][i].loc-processList[j][i-1].loc) separation = processList[j][i].loc-processList[j][i-1].loc; } else if (separation > processList[j][i].loc) separation = processList[j][i].loc; } } } } xcircuit-3.9.73/Xw/Primitive.c0000664000175000001440000010147212335667422014712 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Primitive.c ** ** Project: X Widgets ** ** Description: This file contains source for the Primitive Meta Widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include /*************************************<->************************************* * * * Description: default translation table for class: Primitive. * ----------- * * These translations will be compiled at class initialize. When * a subclass of primitive is created then these translations will * be used to augment the translations of the subclass IFF * traversal is on. The SetValues routine will also augment * a subclass's translations table IFF traversal goes from off to on. * Since we are augmenting it should not be a problem when * traversal goes from off to on to off and on again. * *************************************<->***********************************/ static char defaultTranslations[] = ": focusIn() \n\ : focusOut() \n\ : visibility() \n\ : unmap()"; /*************************************<->************************************* * * * Description: action list for class: Primtive * ----------- * Used to provide actions for subclasses with traversal on. * *************************************<->***********************************/ static XtActionsRec actionsList[] = { {"focusIn", (XtActionProc) _XwPrimitiveFocusIn}, {"focusOut", (XtActionProc) _XwPrimitiveFocusOut}, {"visibility", (XtActionProc) _XwPrimitiveVisibility}, {"unmap", (XtActionProc) _XwPrimitiveUnmap}, }; /* Resource definitions for Subclasses of Primitive */ static Cursor defaultCursor = None; static XtResource resources[] = { { XtNforeground, XtCForeground, XtRPixel, sizeof (Pixel), XtOffset (XwPrimitiveWidget, primitive.foreground), XtRString, "XtDefaultForeground" }, { XtNbackgroundTile, XtCBackgroundTile, XtRTileType, sizeof (int), XtOffset (XwPrimitiveWidget, primitive.background_tile), XtRString, "background" }, { XtNcursor, XtCCursor, XtRCursor, sizeof (Cursor), XtOffset (XwPrimitiveWidget, primitive.cursor), XtRCursor, (caddr_t) &defaultCursor }, { XtNtraversalType, XtCTraversalType, XtRTraversalType, sizeof (int), XtOffset (XwPrimitiveWidget, primitive.traversal_type), XtRString, "highlight_off" }, { XtNhighlightThickness, XtCHighlightThickness, XtRInt, sizeof (int), XtOffset (XwPrimitiveWidget, primitive.highlight_thickness), XtRString, "0" }, { XtNhighlightStyle, XtCHighlightStyle, XtRHighlightStyle, sizeof (int), XtOffset (XwPrimitiveWidget, primitive.highlight_style), XtRString, "pattern_border" }, { XtNhighlightColor, XtCForeground, XtRPixel, sizeof (Pixel), XtOffset (XwPrimitiveWidget, primitive.highlight_color), XtRString, "Black" }, { XtNhighlightTile, XtCHighlightTile, XtRTileType, sizeof (int), XtOffset (XwPrimitiveWidget, primitive.highlight_tile), XtRString, "foreground" }, { XtNrecomputeSize, XtCRecomputeSize, XtRBoolean, sizeof(Boolean), XtOffset (XwPrimitiveWidget, primitive.recompute_size), XtRString, "True" }, { XtNselect, XtCCallback, XtRCallback, sizeof(caddr_t), XtOffset (XwPrimitiveWidget, primitive.select), XtRPointer, (caddr_t) NULL }, { XtNrelease, XtCCallback, XtRCallback, sizeof(caddr_t), XtOffset (XwPrimitiveWidget, primitive.release), XtRPointer, (caddr_t) NULL }, }; /* Routine definiton used for initializing the class record. */ static void ClassInitialize(); static void ClassPartInitialize(); static void Initialize(); static void Realize(); static void Destroy(); static Boolean SetValues(); static void GetHighlightGC(); /* The primitive class record definition */ XwPrimitiveClassRec XwprimitiveClassRec = { { (WidgetClass) &widgetClassRec, /* superclass */ "XwPrimitive", /* class_name */ sizeof(XwPrimitiveRec), /* widget_size */ (XtProc) ClassInitialize, /* class_initialize */ (XtWidgetClassProc) ClassPartInitialize, /* class_part_initialize */ FALSE, /* class_inited */ (XtInitProc) Initialize, /* initialize */ NULL, /* initialize_hook */ (XtRealizeProc) Realize, /* realize */ actionsList, /* actions */ XtNumber(actionsList), /* num_actions */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ FALSE, /* visible_interest */ (XtWidgetProc) Destroy, /* destroy */ NULL, /* resize */ NULL, /* expose */ (XtSetValuesFunc) SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* tm_table */ NULL, /* query_geometry */ /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { NULL, /* Primitive border_highlight */ NULL, /* Primitive border_unhighlight */ NULL, /* Primitive select_proc */ NULL, /* Primitive release_proc */ NULL, /* Primitive toggle_proc */ NULL, /* default translations */ } }; WidgetClass XwprimitiveWidgetClass = (WidgetClass) &XwprimitiveClassRec; /************************************************************************ * * ClassInitialize * Initialize the primitive class structure. This is called only * the first time a primitive widget is created. It registers the * resource type converters unique to this class. * * * After class init, the "translations" variable will contain the compiled * translations to be used to augment a widget's translation * table if they wish to have keyboard traversal on. * ************************************************************************/ static void ClassInitialize() { XwRegisterConverters(); XwprimitiveClassRec.primitive_class.translations = XtParseTranslationTable(defaultTranslations); } /************************************************************************ * * ClassPartInitialize * Set up the inheritance mechanism for the routines exported by * primitives class part. * ************************************************************************/ static void ClassPartInitialize (w) WidgetClass w; { register XwPrimitiveWidgetClass wc = (XwPrimitiveWidgetClass) w; register XwPrimitiveWidgetClass super = (XwPrimitiveWidgetClass) wc->core_class.superclass; if (wc -> primitive_class.border_highlight == XtInheritBorderHighlight) wc -> primitive_class.border_highlight = super -> primitive_class.border_highlight; if (wc->primitive_class.border_unhighlight == XtInheritBorderUnhighlight) wc -> primitive_class.border_unhighlight = super -> primitive_class.border_unhighlight; if (wc -> primitive_class.select_proc == XtInheritSelectProc) wc -> primitive_class.select_proc = super -> primitive_class.select_proc; if (wc -> primitive_class.release_proc == XtInheritReleaseProc) wc -> primitive_class.release_proc = super -> primitive_class.release_proc; if (wc -> primitive_class.toggle_proc == XtInheritToggleProc) wc -> primitive_class.toggle_proc = super -> primitive_class.toggle_proc; } /************************************************************************ * * GetHighlightGC * Get the graphics context used for drawing the border. * ************************************************************************/ static void GetHighlightGC (pw) XwPrimitiveWidget pw; { XGCValues values; XtGCMask valueMask; valueMask = GCForeground | GCBackground; values.foreground = pw -> primitive.highlight_color; values.background = pw -> core.background_pixel; if (pw -> primitive.highlight_tile == XwBACKGROUND) { values.foreground = pw -> core.background_pixel; values.background = pw -> primitive.highlight_color; } pw -> primitive.highlight_GC = XtGetGC ((Widget) pw, valueMask, &values); } /************************************************************************ * * Initialize * The main widget instance initialization routine. * ************************************************************************/ static void Initialize (request, new) XwPrimitiveWidget request, new; { XwPrimitiveWidget pw = (XwPrimitiveWidget) new; Arg args[1]; /* initialize traversal flag */ pw->primitive.I_have_traversal = FALSE; /* Check the pw widget for invalid data */ if (pw -> primitive.traversal_type != XwHIGHLIGHT_OFF && pw -> primitive.traversal_type != XwHIGHLIGHT_ENTER && pw -> primitive.traversal_type != XwHIGHLIGHT_TRAVERSAL) { XtWarning ("Primitive: Incorrect traversal type"); pw -> primitive.traversal_type = XwHIGHLIGHT_OFF; } if (pw -> primitive.highlight_style != XwPATTERN_BORDER && pw -> primitive.highlight_style != XwWIDGET_DEFINED) { XtWarning("Primitive: Incorrect highlight style."); pw -> primitive.highlight_style = XwPATTERN_BORDER; } if (pw -> primitive.highlight_tile != XwFOREGROUND) { XtWarning("Primitive: Incorrect highlight tile."); pw -> primitive.highlight_tile = XwFOREGROUND; } if (pw -> primitive.highlight_thickness < 0) { XtWarning("Primitive: Invalid highlight thickness."); pw -> primitive.highlight_thickness = 0; } if (pw -> primitive.background_tile != XwBACKGROUND) { XtWarning("Primitive: Incorrect background tile."); pw -> primitive.background_tile = XwBACKGROUND; } /* Check the geometry information for the widget */ if (request -> core.width == 0) pw -> core.width += pw -> primitive.highlight_thickness * 2; else if (request -> core.width < pw -> primitive.highlight_thickness * 2) { pw -> primitive.highlight_thickness = request -> core.width / 2; } if (request -> core.height == 0) pw -> core.height += pw -> primitive.highlight_thickness * 2; else if (request -> core.height < pw -> primitive.highlight_thickness * 2) { pw -> primitive.highlight_thickness = request -> core.height / 2; } /* Get the graphics contexts for the border drawing */ GetHighlightGC (pw); /* Set some additional fields of the widget */ pw -> primitive.display_sensitive = FALSE; pw -> primitive.highlighted = FALSE; pw -> primitive.display_highlighted = FALSE; /* If this widget is requesting traversal then augment its * translation table with some additional events. */ if (pw->primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL) { XtAugmentTranslations((Widget) pw, XwprimitiveClassRec.primitive_class.translations); pw->core.widget_class->core_class.visible_interest = True; } } /************************************************************************ * * Realize * ************************************************************************/ static void Realize (widget, value_mask, attributes) Widget widget; Mask *value_mask; XSetWindowAttributes *attributes; { XwPrimitiveWidget pw = (XwPrimitiveWidget) widget; if (pw -> primitive.cursor != None) *value_mask |= CWCursor; attributes->cursor = pw->primitive.cursor; XtCreateWindow(widget, (unsigned int) InputOutput, (Visual *) CopyFromParent, *value_mask, attributes); } /************************************************************************ * * Destroy * Clean up allocated resources when the widget is destroyed. * ************************************************************************/ static void Destroy (pw) XwPrimitiveWidget pw; { XwManagerWidget parent; XtRemoveCallbacks ((Widget)pw, XtNselect, pw -> primitive.select); XtRemoveCallbacks ((Widget)pw, XtNrelease, pw -> primitive.release); if (pw->primitive.I_have_traversal) XwProcessTraversal (pw, XwTRAVERSE_HOME, TRUE); else if ((XtIsSubclass((Widget)(parent = (XwManagerWidget)XtParent(pw)), XwmanagerWidgetClass)) && (parent->manager.traversal_on) && (parent->manager.active_child == (Widget)pw)) { parent->manager.active_child = NULL; /* Find the top most manager */ while ((parent->core.parent != NULL) && (XtIsSubclass(parent->core.parent, XwmanagerWidgetClass))) parent = (XwManagerWidget)parent->core.parent; /* Clear the toolkit kbd focus from us */ XtSetKeyboardFocus((Widget)parent, NULL); } } /************************************************************************ * * SetValues * Perform and updating necessary for a set values call. * ************************************************************************/ static Boolean SetValues (current, request, new) Widget current, request, new; { Boolean tempSensitive, tempAnSensitive; int tempTrav; XwPrimitiveWidget curpw = (XwPrimitiveWidget) current; XwPrimitiveWidget reqpw = (XwPrimitiveWidget) request; XwPrimitiveWidget newpw = (XwPrimitiveWidget) new; Boolean returnFlag = FALSE; int difference; /* Verify correct new values. */ if (newpw->primitive.traversal_type != XwHIGHLIGHT_OFF && newpw->primitive.traversal_type != XwHIGHLIGHT_ENTER && newpw->primitive.traversal_type != XwHIGHLIGHT_TRAVERSAL) { XtWarning("Primitive: Incorrect traversal type."); newpw->primitive.traversal_type = curpw->primitive.traversal_type; } /* If traversal has been turned on, then augment the translations */ /* of the new widget. */ if ((newpw->primitive.traversal_type != curpw->primitive.traversal_type) && (newpw->primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL)) { /* XXX this was a hard bug! where were the XXX's? * * In R2 we could not pass newpw to this toolkit call! But I * have found the bug!!!! In R2 it was a temporary structure (stack) * but now curmw is the temporary one and newpw is real! * I can see why they were worried before. Now there is no worry. * Go ahead and pass newpw! */ XtAugmentTranslations((Widget) newpw, XwprimitiveClassRec.primitive_class.translations); newpw->core.widget_class->core_class.visible_interest = True; } /* IF we have the traversal and something is happening to * make that not possible then move it somewhere else! */ if (((curpw->core.sensitive != newpw->core.sensitive) || (curpw->core.ancestor_sensitive != newpw->core.ancestor_sensitive) || (newpw->primitive.traversal_type != curpw->primitive.traversal_type)) && (curpw->primitive.I_have_traversal)) { newpw->primitive.highlighted = FALSE; tempTrav= curpw->primitive.traversal_type; tempSensitive = curpw->core.sensitive; tempAnSensitive = curpw->core.ancestor_sensitive; curpw->primitive.traversal_type = newpw->primitive.traversal_type; curpw->core.ancestor_sensitive = newpw->core.ancestor_sensitive; curpw->core.sensitive = newpw->core.sensitive; XwProcessTraversal (curpw, XwTRAVERSE_HOME, FALSE); curpw->primitive.traversal_type = tempTrav; curpw->core.sensitive = tempSensitive; curpw->core.ancestor_sensitive = tempAnSensitive; returnFlag = TRUE; } if (newpw->primitive.highlight_style != XwPATTERN_BORDER && newpw->primitive.highlight_style != XwWIDGET_DEFINED) { XtWarning ("Primitive: Incorrect highlight style."); newpw->primitive.highlight_style = curpw->primitive.highlight_style; } if (newpw -> primitive.highlight_tile != XwFOREGROUND) { XtWarning ("Primitive: Incorrect highlight tile."); newpw->primitive.highlight_tile = curpw->primitive.highlight_tile; } if (newpw->primitive.highlight_thickness < 0) { XtWarning ("Primtive: Invalid highlight thickness."); newpw -> primitive.highlight_thickness = curpw -> primitive.highlight_thickness; } if (newpw -> primitive.background_tile != XwBACKGROUND) { XtWarning("Primitive: Incorrect background tile."); newpw -> primitive.background_tile = curpw -> primitive.background_tile; } /* Set the widgets background tile */ if (newpw -> primitive.background_tile != curpw -> primitive.background_tile || newpw -> primitive.foreground != curpw -> primitive.foreground || newpw -> core.background_pixel != curpw -> core.background_pixel) { Mask valueMask; XSetWindowAttributes attributes; if (newpw -> primitive.background_tile == XwFOREGROUND) { valueMask = CWBackPixel; attributes.background_pixel = newpw -> primitive.foreground; } else { valueMask = CWBackPixel; attributes.background_pixel = newpw -> core.background_pixel; } if (XtIsRealized ((Widget)newpw)) XChangeWindowAttributes (XtDisplay(newpw), newpw -> core.window, valueMask, &attributes); returnFlag = TRUE; } if (newpw -> primitive.cursor != curpw -> primitive.cursor) { Mask valueMask = 0; XSetWindowAttributes attributes; if (newpw->primitive.cursor != None) valueMask = CWCursor; attributes.cursor = newpw->primitive.cursor; if (XtIsRealized ((Widget)newpw)) XChangeWindowAttributes (XtDisplay(newpw), newpw -> core.window, valueMask, &attributes); returnFlag = TRUE; } /* Check the geometry in relationship to the highlight thickness */ if (reqpw -> core.width == 0) if (curpw -> core.width == 0) newpw -> core.width += newpw -> primitive.highlight_thickness * 2; else if (reqpw -> core.width < newpw -> primitive.highlight_thickness * 2) { newpw -> primitive.highlight_thickness = reqpw -> core.width / 2; } if (reqpw -> core.height == 0) if (curpw -> core.height == 0) newpw -> core.height += newpw -> primitive.highlight_thickness * 2; else if (reqpw -> core.height < newpw -> primitive.highlight_thickness * 2) { XtWarning("Primitive: The highlight thickness is too large."); newpw -> primitive.highlight_thickness = reqpw -> core.height / 2; } /* If the highlight color, traversal type, highlight tile or highlight */ /* thickness has changed, regenerate the GC's. */ if (curpw->primitive.highlight_color != newpw->primitive.highlight_color || curpw->primitive.highlight_thickness != newpw->primitive.highlight_thickness || curpw->primitive.highlight_style != newpw->primitive.highlight_style || curpw->primitive.highlight_tile != newpw->primitive.highlight_tile) { XtDestroyGC (newpw -> primitive.highlight_GC); GetHighlightGC (newpw); returnFlag = TRUE; } /* Return a flag which may indicate that a redraw needs to occur. */ return (returnFlag); } /************************************************************************ * * The traversal event processing routines. * The following set of routines are the entry points invoked from * each primitive widget when one of the traversal event conditions * occur. These routines are externed in Xw.h. * ************************************************************************/ void _XwTraverseLeft (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_LEFT, TRUE); } void _XwTraverseRight (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_RIGHT, TRUE); } void _XwTraverseUp (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_UP, TRUE); } void _XwTraverseDown (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_DOWN, TRUE); } void _XwTraverseNext (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_NEXT, TRUE); } void _XwTraversePrev (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_PREV, TRUE); } void _XwTraverseHome (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_HOME, TRUE); } void _XwTraverseNextTop (w, event) Widget w; XEvent * event; { XwProcessTraversal (w, XwTRAVERSE_NEXT_TOP, TRUE); } /************************************************************************ * * XwProcessTraversal * This function handles all of the directional traversal conditions. * It first verifies that traversal is active, and then searches up * the widget hierarchy until a composite widget class is found. * If this widget also contains a ManagerWidgetClass, it invokes * the class's traversal handler giving the widget and direction. * If not a ManagerWidgetClass, it invokes the composits * move_focus_to_next or move_focus_to_prev functions for directions * of TRAVERSE_NEXT and TRAVERSE_PREV respectively. * ************************************************************************/ void XwProcessTraversal (w, dir, check) Widget w; int dir; Boolean check; { Widget tw; XPoint ul, lr; XwPrimitiveWidget pw = (XwPrimitiveWidget) w; if (check && (pw -> primitive.traversal_type != XwHIGHLIGHT_TRAVERSAL)) return; /* Initialize the traversal checklist */ _XwInitCheckList(); tw = w -> core.parent; ul.x = w -> core.x; ul.y = w -> core.y; lr.x = ul.x + w->core.width - 1; lr.y = ul.y + w->core.height - 1; if (XtIsSubclass (tw, XwmanagerWidgetClass)) { (*(((XwManagerWidgetClass) (tw -> core.widget_class)) -> manager_class.traversal_handler)) (tw, ul, lr, dir); } /* *** R3 else if (dir == XwTRAVERSE_NEXT && ((CompositeWidgetClass)(tw -> core.widget_class)) -> composite_class.move_focus_to_next != NULL) { (*(((CompositeWidgetClass) tw -> core.widget_class) -> composite_class.move_focus_to_next))(w); } else if (dir == XwTRAVERSE_PREV && ((CompositeWidgetClass)(tw -> core.widget_class)) -> composite_class.move_focus_to_prev != NULL) { (*(((CompositeWidgetClass) tw -> core.widget_class) -> composite_class.move_focus_to_prev))(w); } *** R3 */ } /************************************************************************ * * The border highlighting and unhighlighting routines. * * These routines are called through primitive widget translations and * by primitive widget redisplay routines. They provide for the border * drawing for active and inactive cases. * ************************************************************************/ void _XwHighlightBorder (pw) XwPrimitiveWidget pw; { if ((pw -> primitive.highlight_thickness == 0 ) && (!XtIsSubclass ((Widget)pw, XwmenubuttonWidgetClass))) return; pw -> primitive.highlighted = TRUE; pw -> primitive.display_highlighted = TRUE; switch (pw -> primitive.highlight_style) { case XwWIDGET_DEFINED: { if (((XwPrimitiveWidgetClass) (pw -> core.widget_class)) -> primitive_class.border_highlight != NULL) (*(((XwPrimitiveWidgetClass) (pw -> core.widget_class)) -> primitive_class.border_highlight))((Widget)pw); } break; case XwPATTERN_BORDER: { XRectangle rect[4]; int windowWidth = pw -> core.width; int windowHeight = pw -> core.height; int highlightWidth = pw -> primitive.highlight_thickness; rect[0].x = 0; rect[0].y = 0; rect[0].width = windowWidth; rect[0].height = highlightWidth; rect[1].x = 0; rect[1].y = 0; rect[1].width = highlightWidth; rect[1].height = windowHeight; rect[2].x = windowWidth - highlightWidth; rect[2].y = 0; rect[2].width = highlightWidth; rect[2].height = windowHeight; rect[3].x = 0; rect[3].y = windowHeight - highlightWidth; rect[3].width = windowWidth; rect[3].height = highlightWidth; XFillRectangles (XtDisplay (pw), XtWindow (pw), pw -> primitive.highlight_GC, &rect[0], 4); } break; } } void _XwUnhighlightBorder (pw) XwPrimitiveWidget pw; { if ((pw -> primitive.highlight_thickness == 0 ) && (!XtIsSubclass ((Widget)pw, XwmenubuttonWidgetClass))) return; pw -> primitive.highlighted = FALSE; pw -> primitive.display_highlighted = FALSE; switch (pw -> primitive.highlight_style) { case XwWIDGET_DEFINED: { if (((XwPrimitiveWidgetClass) (pw -> core.widget_class)) -> primitive_class.border_unhighlight != NULL) (*(((XwPrimitiveWidgetClass) (pw -> core.widget_class)) -> primitive_class.border_unhighlight))((Widget)pw); } break; case XwPATTERN_BORDER: { int windowWidth = pw -> core.width; int windowHeight = pw -> core.height; int highlightWidth = pw -> primitive.highlight_thickness; XClearArea (XtDisplay (pw), XtWindow (pw), 0, 0, windowWidth, highlightWidth, False); XClearArea (XtDisplay (pw), XtWindow (pw), 0, 0, highlightWidth, windowHeight, False); XClearArea (XtDisplay (pw), XtWindow (pw), windowWidth - highlightWidth, 0, highlightWidth, windowHeight, False); XClearArea (XtDisplay (pw), XtWindow (pw), 0, windowHeight - highlightWidth, windowWidth, highlightWidth, False); } break; } } /************************************************************************ * * Enter & Leave * Enter and leave event processing routines. Handle border * highlighting and dehighlighting. * ************************************************************************/ void _XwPrimitiveEnter (pw, event) XwPrimitiveWidget pw; XEvent * event; { if (pw -> primitive.traversal_type == XwHIGHLIGHT_ENTER) _XwHighlightBorder (pw); } void _XwPrimitiveLeave (pw, event) XwPrimitiveWidget pw; XEvent * event; { if (pw -> primitive.traversal_type == XwHIGHLIGHT_ENTER) _XwUnhighlightBorder (pw); } /************************************************************************ * * Visibility * Track whether a widget is visible. * ***********************************************************************/ void _XwPrimitiveVisibility (pw, event) XwPrimitiveWidget pw; XEvent * event; { XVisibilityEvent * vEvent = (XVisibilityEvent *)event; if (vEvent->state == VisibilityFullyObscured) { pw->core.visible = False; if (pw->primitive.I_have_traversal) XwProcessTraversal (pw, XwTRAVERSE_HOME, FALSE); } else pw->core.visible = True; } /************************************************************************ * * Unmap * Track whether a widget is visible. * ***********************************************************************/ void _XwPrimitiveUnmap (pw, event) XwPrimitiveWidget pw; XEvent * event; { pw->core.visible = False; if (pw->primitive.I_have_traversal) XwProcessTraversal (pw, XwTRAVERSE_HOME, FALSE); } /************************************************************************ * * Focus In & Out * Handle border highlighting and dehighlighting. * ************************************************************************/ void _XwPrimitiveFocusIn (pw, event) XwPrimitiveWidget pw; XEvent * event; { int widgetType; /* SET THE FOCUS PATH DOWN TO THIS WIDGET. */ XwSetFocusPath((Widget)pw); /* IF THE SPECIFIED WIDGET CANNOT BE TRAVERSED TO, THEN INVOKE */ /* MANAGER'S TRAVERSAL HANDLER WITH DIRECTION = HOME. */ if (! XwTestTraversability((Widget)pw, &widgetType)) XwProcessTraversal (pw, XwTRAVERSE_HOME, FALSE); else { _XwHighlightBorder (pw); pw->primitive.I_have_traversal = TRUE; } } void _XwPrimitiveFocusOut (pw, event) XwPrimitiveWidget pw; XEvent * event; { if (pw -> primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL) { _XwUnhighlightBorder (pw); pw->primitive.I_have_traversal = FALSE; } } void XwSetFocusPath(w) Widget w; { XwManagerWidget mw; Widget tempoldActive, oldActive; /* IF THE PARENT OF THIS WIDGET IS NOT A MANAGER THEN THERE'S NO */ /* PATH TO SET, SO RETURN. */ if (! XtIsSubclass(w->core.parent, XwmanagerWidgetClass)) return; mw = (XwManagerWidget)w->core.parent; /* IF THIS WIDGET IS ALREADY THE ACTIVE CHID THEN THERE'S NOTHING */ /* TO DO. */ if (mw->manager.active_child == w) return; oldActive = mw->manager.active_child; mw->manager.active_child = w; XwProcessTraversal (w, XwTRAVERSE_CURRENT, FALSE); /* TRAVERSE DOWN THE OTHER BRANCH OF TREE TO CLEAN UP ACTIVE CHILD */ /* PATH. */ while (oldActive != NULL) { if (! XtIsSubclass(oldActive, XwmanagerWidgetClass)) oldActive = NULL; else { tempoldActive = ((XwManagerWidget)oldActive)->manager.active_child; ((XwManagerWidget)oldActive)->manager.active_child = NULL; oldActive=tempoldActive; } } XwSetFocusPath((Widget)mw); } /************************************************************************ * * _XwDrawBox * Draw the bordering on the drawable d, thick pixels wide, * using the provided GC and rectangle. * ************************************************************************/ void _XwDrawBox (display, d, normal_GC, thick, x, y, width, height) Display * display; Drawable d; GC normal_GC; register int thick; register int x; register int y; register int width; register int height; { XRectangle rect[4]; rect[0].x = x; /* top */ rect[0].y = y; rect[0].width = width; rect[0].height = 2; rect[1].x = x; /* left */ rect[1].y = y + 2; rect[1].width = 2; rect[1].height = height - 4; rect[2].x = x; /* bottom */ rect[2].y = y + height - 2; rect[2].width = width; rect[2].height = 2; rect[3].x = x + width - 2; /* Right two segments */ rect[3].y = y + 2; rect[3].width = 2; rect[3].height = height - 4; XFillRectangles (display, d, normal_GC, &rect[0], 4); } xcircuit-3.9.73/Xw/WorkSpace.h0000664000175000001440000000257112335667422014645 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: WorkSpace.h ** ** Project: X Widgets ** ** Description: Public include file for WorkSpace class widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* WorkSpace Widget */ extern WidgetClass XwworkSpaceWidgetClass; typedef struct _XwWorkSpaceClassRec * XwWorkSpaceWidgetClass; typedef struct _XwWorkSpaceRec * XwWorkSpaceWidget; xcircuit-3.9.73/Xw/PButton.c0000664000175000001440000004332512335667422014337 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: PButton.c ** ** Project: X Widgets ** ** Description: Contains code for primitive widget class: PushButton ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* * Include files & Static Routine Definitions */ #include #include #include #include #include #include #include #include #include #include #include #define PB_BW 2 static void Redisplay(); static void RedrawButtonFace(); static Boolean SetValues(); static void ClassInitialize(); static void Initialize(); static void Toggle(); static void ToggleRelease(); static void Select(); static void Unselect(); static void Resize(); /*************************************<->************************************* * * * Description: default translation table for class: PushButton * ----------- * * Matches events with string descriptors for internal routines. * *************************************<->***********************************/ static char defaultTranslations[] = ": select() \n\ : unselect() \n\ : enter() \n\ : leave() \n\ Select: select() \n\ Select: unselect()"; /*************************************<->************************************* * * * Description: action list for class: PushButton * ----------- * * Matches string descriptors with internal routines. * Note that Primitive will register additional event handlers * for traversal. * *************************************<->***********************************/ static XtActionsRec actionsList[] = { {"toggle", (XtActionProc) Toggle}, {"select", (XtActionProc) Select}, {"unselect", (XtActionProc) Unselect}, {"enter", (XtActionProc) _XwPrimitiveEnter}, {"leave", (XtActionProc) _XwPrimitiveLeave}, }; /* The resource list for Push Button */ static XtResource resources[] = { { XtNtoggle, XtCToggle, XtRBoolean, sizeof (Boolean), XtOffset (XwPushButtonWidget, pushbutton.toggle), XtRString, "False" } }; /*************************************<->************************************* * * * Description: global class record for instances of class: PushButton * ----------- * * Defines default field settings for this class record. * *************************************<->***********************************/ XwPushButtonClassRec XwpushButtonClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwbuttonClassRec, /* class_name */ "XwPushButton", /* widget_size */ sizeof(XwPushButtonRec), /* class_initialize */ ClassInitialize, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ _XwRealize, /* actions */ actionsList, /* num_actions */ XtNumber(actionsList), /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ NULL, /* resize */ Resize, /* expose */ Redisplay, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback_private */ NULL, /* tm_table */ defaultTranslations, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL } }; WidgetClass XwpushButtonWidgetClass = (WidgetClass)&XwpushButtonClassRec; /*************************************<->************************************* * * Toggle (w, event) PRIVATE * * Description: * ----------- * When this pushbutton is selected, toggle the activation state * (i.e., draw it as active if it was not active and draw it as * inactive if it was active). Generate the correct callbacks * in response. * * NOTE: this code assumes that instances do not receive selection * events when insensitive. * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * XtCallCallbacks() [libXtk] * Redisplay [PushButton.c] *************************************<->***********************************/ static void Toggle (w,event) Widget w; XEvent *event; { XwPushButtonWidget pb = (XwPushButtonWidget)w; if (pb -> button.set) pb -> button.set = False; else pb -> button.set = True; RedrawButtonFace (w, event, FALSE); XFlush(XtDisplay(w)); XtCallCallbacks (w, ((pb->button.set) ? XtNselect : XtNrelease), NULL); } /*************************************<->************************************* * * Select (w, event) PRIVATE * * Description: * ----------- * Mark pushbutton as selected, (i.e., draw it as active) * Generate the correct callbacks. If "toggle" flag is * TRUE then call the Toggle routine. * * NOTE: this code assumes that instances do not receive selection * events when insensitive. * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * XtCallCallbacks() [libXtk] *************************************<->***********************************/ static void Select (w,event) Widget w; XEvent *event; { XwPushButtonWidget pb = (XwPushButtonWidget) w; if (pb->pushbutton.toggle == TRUE) Toggle(w,event); else { pb->button.set = TRUE; RedrawButtonFace (w, event, FALSE); XFlush (XtDisplay(w)); XtCallCallbacks (w, XtNselect, NULL); } } /*************************************<->************************************* * * Unselect (w, event) PRIVATE * * Description: * ----------- * When this pushbutton is unselected draw it as inactive. * Generate the correct callbacks. * * NOTE: this code respects the utility flag "toggle" if this * flag is set to true then this routine is a no op. * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * XtCallCallbacks() [libXtk] *************************************<->***********************************/ static void Unselect(w,event) Widget w; XEvent *event; { XwPushButtonWidget pb = (XwPushButtonWidget) w; if (! pb->pushbutton.toggle) { pb->button.set = FALSE; RedrawButtonFace (w, event, FALSE); XFlush(XtDisplay(w)); XtCallCallbacks (w, XtNrelease, NULL); } } static void ToggleRelease(w,event) Widget w; XEvent *event; { XwPushButtonWidget pb = (XwPushButtonWidget) w; pb->button.set = FALSE; RedrawButtonFace (w, event, FALSE); XFlush(XtDisplay(w)); XtCallCallbacks (w, XtNrelease, NULL); } /*************************************<->************************************* * * Initialize * * Description: * ----------- * If the core height and width fields are set to 0, treat that as a flag * and compute the optimum size for this button. Then using what ever * the core fields are set to, compute the text placement fields. * Make sure that the label location field is properly set for the * Resize call. * * * Inputs: * ------ * request = request widget, old data. * * new = new widget, new data; cumulative effect * of initialize procedures. * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Initialize (request, new) Widget request, new; { XwPushButtonWidget pb = (XwPushButtonWidget) new; /******************************************************************** Needed width: 2 * highlight thickness 2 * button overhead: 2 lines for button outline 2 * internal width (padding between label and button) width of label Needed height: 2 * highlight thickness 2 * button overhead: 2 lines for outline 2 * internal height (padding) label height ************************************************************************/ if (request->core.width == 0) pb->core.width = pb->button.label_width + 2 * ( pb->button.internal_width + /* white space */ pb->primitive.highlight_thickness + PB_BW); if (request->core.height == 0) pb->core.height = pb->button.label_height + 2 * (pb->button.internal_height + pb->primitive.highlight_thickness + PB_BW); Resize(new); } /*************************************<->************************************* * * ClassInitialize * * Description: * ----------- * Set fields in primitive class part of our class record so that * the traversal code can invoke our button select procedures. * *************************************<->***********************************/ static void ClassInitialize() { XwpushButtonClassRec.primitive_class.select_proc = (XwEventProc) Select; XwpushButtonClassRec.primitive_class.release_proc = (XwEventProc) ToggleRelease; XwpushButtonClassRec.primitive_class.toggle_proc = (XwEventProc) Toggle; } /*************************************<->************************************* * * Redisplay (w, event, region) * * Description: * ----------- * Cause the widget, identified by w, to be redisplayed. * * * Inputs: * ------ * w = widget to be redisplayed; * event = event structure identifying need for redisplay on this * widget. * * Outputs: * ------- * * Procedures Called * ----------------- * XDrawString() *************************************<->***********************************/ static void Redisplay (w, event, region) Widget w; XEvent *event; Region region; { RedrawButtonFace (w, event, TRUE); } static void RedrawButtonFace (w, event, all) XwPushButtonWidget w; XEvent *event; Boolean all; { register XwPushButtonWidget pb = (XwPushButtonWidget) w; int available_height, available_width; Boolean clipHeight, clipWidth; /* COMPUTE SPACE AVAILABLE FOR DRAWING LABEL */ available_width = Max(0,(int)pb->core.width - 2*((int)pb->button.internal_width + pb->primitive.highlight_thickness + PB_BW)); available_height = Max(0, (int)pb->core.height - 2*((int)pb->button.internal_height + pb->primitive.highlight_thickness + PB_BW)); /* SEE IF WE NEED TO CLIP THIS LABEL ON TOP AND/OR BOTTOM */ if (pb->button.label_width > available_width) clipWidth = True; else clipWidth = False; if (pb->button.label_height > available_height) clipHeight = True; else clipHeight = False; /* COMPUTE & DRAW PUSHBUTTON */ /* COMPUTE x LOCATION FOR STRING & DRAW STRING */ XFillRectangle (XtDisplay(w), XtWindow(w), ((pb->button.set ) ? pb->button.normal_GC : pb->button.inverse_GC), w -> primitive.highlight_thickness + 1 + PB_BW, w -> primitive.highlight_thickness + 1 + PB_BW, w->core.width- 2 * (w->primitive.highlight_thickness + 1 + PB_BW), w->core.height- 2 * (w->primitive.highlight_thickness + 1 + PB_BW)); if (pb->button.label_len > 0) { XDrawString(XtDisplay(w), XtWindow(w), ((pb->button.set ) ? pb->button.inverse_GC : pb->button.normal_GC), (((int)pb->core.width + 1 - pb->button.label_width) / 2), pb->button.label_y, pb->button.label, pb->button.label_len); if (clipWidth) { XClearArea (XtDisplay(w), XtWindow(w), 0,0, (pb->primitive.highlight_thickness + PB_BW + pb->button.internal_width), pb->core.height, FALSE); XClearArea (XtDisplay(w), XtWindow(w), ((int)pb->core.width - pb->primitive.highlight_thickness - PB_BW - (int)pb->button.internal_width),0, (pb->primitive.highlight_thickness + PB_BW + pb->button.internal_width), pb->core.height, FALSE); } if (clipHeight) { XClearArea (XtDisplay(w), XtWindow(w), 0,0, pb->core.width, (pb->primitive.highlight_thickness + PB_BW + pb->button.internal_height), FALSE); XClearArea (XtDisplay(w), XtWindow(w), 0, ((int)pb->core.height - pb->primitive.highlight_thickness - PB_BW - (int)pb->button.internal_height), pb->core.width, (pb->primitive.highlight_thickness + PB_BW + pb->button.internal_height), FALSE); } } _XwDrawBox (XtDisplay (w), XtWindow (w), w -> button.normal_GC, PB_BW, w -> primitive.highlight_thickness, w -> primitive.highlight_thickness, w->core.width - 2 * w->primitive.highlight_thickness, w->core.height - 2 * w->primitive.highlight_thickness); /* * Draw traversal/enter highlight if actual exposure or * if we had to clip text area */ if (all || clipWidth || clipHeight) { if (pb->primitive.highlighted) _XwHighlightBorder(w); else if (pb->primitive.display_highlighted) _XwUnhighlightBorder(w); } } /*************************************<->************************************* * * SetValues(current, request, new) * * Description: * ----------- * This is the set values procedure for the pushbutton class. It is * called last (the set values rtnes for its superclasses are called * first). * * * Inputs: * ------ * current = original widget; * request = copy of current (?); * new = copy of request which reflects changes made to it by * set values procedures of its superclasses; * last = TRUE if this is the last set values procedure to be called. * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues(current, request, new) Widget current, request, new; { XtWidgetGeometry reqGeo; XwPushButtonWidget curpb = (XwPushButtonWidget) current; XwPushButtonWidget newpb = (XwPushButtonWidget) new; Boolean flag = FALSE; /* our return value */ /********************************************************************** * Calculate the window size: The assumption here is that if * the width and height are the same in the new and current instance * record that those fields were not changed with set values. Therefore * its okay to recompute the necessary width and height. However, if * the new and current do have different width/heights then leave them * alone because that's what the user wants. *********************************************************************/ if ((curpb->core.width == newpb->core.width) && (_XwRecomputeSize(current, new))) { newpb->core.width = newpb->button.label_width + 2*(newpb->button.internal_width + newpb->primitive.highlight_thickness + PB_BW); flag = TRUE; } if ((curpb->core.height == newpb->core.height) && (_XwRecomputeSize(current, new))) { newpb->core.height = newpb->button.label_height + 2*(newpb->button.internal_height + newpb->primitive.highlight_thickness + PB_BW); flag = TRUE; } return(flag); } /*************************************<->************************************* * * Resize(w) * * Description: * ----------- * Recompute location of button text * * Inputs: * ------ * w = widget to be resized. * * *************************************<->***********************************/ static void Resize(w) Widget w; { XwPushButtonWidget pb = (XwPushButtonWidget) w; pb->button.label_x = ((int)pb->core.width + 1 - pb->button.label_width) / 2; pb->button.label_y = ((int)pb->core.height - pb->button.label_height) / 2 + pb->button.font->max_bounds.ascent; } xcircuit-3.9.73/Xw/SText.c0000664000175000001440000010206612335667422014011 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: SText.c ** ** Project: X Widgets ** ** Description: Code/Definitions for StaticText widget class. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* * Include files & Static Routine Definitions */ #include #include #include #include #include #include #include #include #include #include #include static void Initialize (); static void Realize(); static void Destroy(); static void Resize(); static Boolean SetValues(); static void Redisplay(); static void Select(); static void Release(); static void Toggle(); static void ClassInitialize(); /*************************************<->************************************* * * * Description: default translation table for class: StaticText * ----------- * * Matches events with string descriptors for internal routines. * *************************************<->***********************************/ static char defaultTranslations[] = ": enter()\n\ : leave()\n\ : select()\n\ : release()\n\ Select: select() \n\ Select: release()"; /*************************************<->************************************* * * * Description: action list for class: StaticText * ----------- * * Matches string descriptors with internal routines. * Note that Primitive will register additional event handlers * for traversal. * *************************************<->***********************************/ static XtActionsRec actionsList[] = { { "enter", (XtActionProc) _XwPrimitiveEnter }, { "leave", (XtActionProc) _XwPrimitiveLeave }, { "select", (XtActionProc) Select }, { "release", (XtActionProc) Release }, {"toggle", (XtActionProc) Toggle }, }; /*************************************<->************************************* * * * Description: resource list for class: StaticText * ----------- * * Provides default resource settings for instances of this class. * To get full set of default settings, examine resouce list of super * classes of this class. * *************************************<->***********************************/ static XtResource resources[] = { { XtNhSpace, XtCHSpace, XtRDimension, sizeof(Dimension), XtOffset(XwStaticTextWidget, static_text.internal_width), XtRString, "2" }, { XtNvSpace, XtCVSpace, XtRDimension, sizeof(Dimension), XtOffset(XwStaticTextWidget, static_text.internal_height), XtRString, "2" }, { XtNalignment, XtCAlignment, XtRAlignment, sizeof(XwAlignment), XtOffset(XwStaticTextWidget,static_text.alignment), XtRString, "Left" }, { XtNgravity, XtCGravity, XtRGravity, sizeof(int), XtOffset(XwStaticTextWidget,static_text.gravity), XtRString, "CenterGravity" }, { XtNwrap, XtCWrap, XtRBoolean, sizeof(Boolean), XtOffset(XwStaticTextWidget,static_text.wrap), XtRString, "TRUE" }, { XtNstrip, XtCStrip, XtRBoolean, sizeof(Boolean), XtOffset(XwStaticTextWidget,static_text.strip), XtRString, "TRUE" }, { XtNlineSpace, XtCLineSpace, XtRInt, sizeof(int), XtOffset(XwStaticTextWidget,static_text.line_space), XtRString, "0" }, { XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(XwStaticTextWidget,static_text.font), XtRString, "Fixed" }, { XtNstring, XtCString, XtRString, sizeof(char *), XtOffset(XwStaticTextWidget, static_text.input_string), XtRString, NULL }, }; /*************************************<->************************************* * * * Description: global class record for instances of class: StaticText * ----------- * * Defines default field settings for this class record. * *************************************<->***********************************/ XwStaticTextClassRec XwstatictextClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwprimitiveClassRec, /* class_name */ "XwStaticText", /* widget_size */ sizeof(XwStaticTextRec), /* class_initialize */ ClassInitialize, /* class_part_initialize */ NULL, /* class_inited */ FALSE, /* initialize */ (XtInitProc) Initialize, /* initialize_hook */ NULL, /* realize */ (XtRealizeProc) Realize, /* actions */ actionsList, /* num_actions */ XtNumber(actionsList), /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave */ TRUE, /* visible_interest */ FALSE, /* destroy */ (XtWidgetProc) Destroy, /* resize */ (XtWidgetProc) Resize, /* expose */ (XtExposeProc) Redisplay, /* set_values */ (XtSetValuesFunc) SetValues, /* set_values_hook */ NULL, /* set_values_almost */ (XtAlmostProc) XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback private */ NULL, /* tm_table */ defaultTranslations, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { NULL, NULL, NULL, NULL, NULL, } }; WidgetClass XwstatictextWidgetClass = (WidgetClass) &XwstatictextClassRec; WidgetClass XwstaticTextWidgetClass = (WidgetClass) &XwstatictextClassRec; /*************************************<->************************************* * * ClassInitialize * * Description: * ----------- * Set fields in primitive class part of our class record so that * the traversal code can invoke our select/release procedures (note * that for this class toggle is a empty proc). * *************************************<->***********************************/ static void ClassInitialize() { XwstatictextClassRec.primitive_class.select_proc = (XwEventProc) Select; XwstatictextClassRec.primitive_class.release_proc = (XwEventProc) Release; XwstatictextClassRec.primitive_class.toggle_proc = (XwEventProc) Toggle; } /*************************************<->************************************* * * Procedures and variables private to StaticText * *************************************<->************************************/ static void ValidateInputs(); static void SetNormalGC(); static int RetCount(); static int Maxline(); static void FormatText(); static void GetTextRect(); static void SetSize(); /*************************************<->************************************* * * static void ValidateInputs(stw) * XwStaticTextWidget stw; * * Description: * ----------- * Checks a StaticText widget for nonsensical values, and changes * nonsense values into meaninful values. * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XtWarning * *************************************<->***********************************/ static void ValidateInputs(stw) XwStaticTextWidget stw; { XwStaticTextPart *stp; stp = &(stw->static_text); /* *Check line_spacing. We will allow text to over write, * we will not allow it to move from bottom to top. */ if (stp->line_space < -100) { XtWarning("XwStaticTextWidget: line_space was less than -100, set to 0\n"); stp->line_space = 0; } /* * Check Alignment */ switch(stp->alignment) { case XwALIGN_LEFT: case XwALIGN_CENTER: case XwALIGN_RIGHT: /* Valid values. */ break; default: XtWarning("XwStaticTextWidget: Unknown alignment, set to Left instead"); stp->alignment = XwALIGN_LEFT; break; } } /*************************************<->************************************* * * static void SetNormalGC (stw) * XwStaticTextWidget stw; * * Description: * ----------- * Sets up a GC for the static text widget to write to. * * Inputs: * ------ * stw = Points to an instance structure which has primitive.foreground * core.background_pixel and static_text.font appropriately * filled in with values. * * Outputs: * ------- * Associates static_text.normal_GC with a GC. * * Procedures Called * ----------------- * XCreateGC * XSetClipRectangles * *************************************<->***********************************/ static void SetNormalGC(stw) XwStaticTextWidget stw; { XGCValues values; XtGCMask valueMask; XRectangle ClipRect; valueMask = GCForeground | GCBackground | GCFont; values.foreground = stw->primitive.foreground; values.background = stw->core.background_pixel; values.font = stw->static_text.font->fid; stw->static_text.normal_GC = XCreateGC(XtDisplay(stw),XtWindow(stw), valueMask,&values); /* * Set the Clip Region. */ ClipRect.width = stw->core.width - (2 * (stw->static_text.internal_width + stw->primitive.highlight_thickness)); ClipRect.height = stw->core.height - (2 * (stw->static_text.internal_height + stw->primitive.highlight_thickness)); ClipRect.x = stw->primitive.highlight_thickness + stw->static_text.internal_width; ClipRect.y = stw->primitive.highlight_thickness + stw->static_text.internal_height; XSetClipRectangles(XtDisplay(stw),stw->static_text.normal_GC, 0,0, &ClipRect,1,Unsorted); } /*************************************<->************************************* * * static int RetCount(string) * char *string; * * Description: * ----------- * This routine returns the number of '\n' characters in "string" * * Inputs: * ------ * string = The string to be counted. * * Outputs: * ------- * The number of '\n' characters in the string. * * Procedures Called * ----------------- * *************************************<->***********************************/ static int RetCount(string) char *string; { int numlines; numlines = (*string ? 1 : 0); while (*string) { if (*string == '\n') numlines++; string++; } return(numlines); } /*************************************<->************************************* * * static int Maxline(string, font) * char *string; * XFontStruct *font; * * Description: * ----------- * For a given string and a given font, returns the length of * '\n' delimited series of characters. * * Inputs: * ------ * string = The string to be analyzed. * font = The font in which string is to be analyzed. * * Outputs: * ------- * The maximun length in pixels of the longest '\n' delimited series of * characters. * * Procedures Called * ----------------- * XTextWidth * *************************************<->***********************************/ static int Maxline(stw) XwStaticTextWidget stw; { int i, cur; int max = 0; char *str1, *str2, *str3; XwAlignment alignment = stw->static_text.alignment; XFontStruct *font = stw->static_text.font; XwStaticTextPart *stp; stp = &(stw->static_text); str1 = stp->output_string; while(*str1) { if ((stp->strip) && ((alignment == XwALIGN_LEFT) || (alignment == XwALIGN_CENTER))) while (*str1 == ' ') str1++; str2 = str1; for(i=0; ((*str1 != '\n') && *str1); i++, str1++); if ((stp->strip) && ((alignment == XwALIGN_RIGHT) || (alignment == XwALIGN_CENTER))) { str3 = str1; str3--; while (*str3 == ' ') i--, str3--; } if (i) cur = XTextWidth(font,str2,i); else cur = 0; if (cur > max) max = cur; if (*str1) str1++; /* Step past the \n */ } return(max); } /*************************************<->************************************* * * static void FormatText(stw) * XwStaticTextWidget stw; * * Description: * ----------- * Inserts newlines where necessary to fit stw->static_text.output_string * into stw->core.width (if specified). * * Inputs: * ------ * stw = The StaticText widget to be formatted. * * Outputs: * ------- * * Procedures Called * ----------------- * XTextWidth * *************************************<->***********************************/ static void FormatText(stw) XwStaticTextWidget stw; { int i, width, win, wordindex; char *str1, *str2; Boolean gotone; XwStaticTextPart *stp; stp = &(stw->static_text); str1 = stp->output_string; /* The available text window width is... */ win = stw->core.width - (2 * stp->internal_width) - (2 * stw->primitive.highlight_thickness); while (*str1) { i = 0; width = 0; wordindex = -1; gotone = FALSE; str2 = str1; while (!gotone) { if ((stp->strip) && (wordindex == -1)) while (*str1 == ' ') str1++; /* *Step through until a character that we can * break on. */ while ((*str1 != ' ') && (*str1 != '\n') && (*str1)) i++, str1++; wordindex++; width = (i ? XTextWidth(stp->font,str2,i) : 0); width; if (width < win) { /* * If the current string fragment is shorter than the * available window. Check to see if we are at a * forced break or not, and process accordingly. */ switch (*str1) { case ' ': /* * Add the space to the char count */ i++; /* * Check to see there's room to start another * word. */ width = XTextWidth(stw->static_text.font, str2,i); if (width >= win) { /* * Break the line if we can't start * another word. */ *str1 = '\n'; gotone = TRUE; } /* * Step past the space */ str1++; break; case '\n': /* * Forced break. Step pase the \n. * Note the fall through to default. */ str1++; default: /* * End of string. */ gotone = TRUE; break; } } else if (width > win) { /* * We know that we have something */ gotone = TRUE; /* * See if there is at least one space to back up for. */ if (wordindex) { str1--; while (*str1 != ' ') str1--; *str1++ = '\n'; } else /* * We have a single word which is too long * for the available window. Let the text * clip rectangle handle it. */ if (*str1) *str1++ = '\n'; } else /* (width == win) */ { switch (*str1) { case ' ': /* * If we stopped on a space, change it. */ *str1 = '\n'; case '\n': /* * Step past the \n. */ str1++; default: gotone = TRUE; break; } } } } } /*************************************<->************************************* * * static void GetTextRect(newstw) * XwStaticTextWidget newstw; * * Description: * ----------- * Sets newstw->static_text.TextRect to appropriate values given * newstw->core.width and newstw->static_text.input_string. The * string is formatted if necessary. * * A newstw->core.width value of 0 tells this procedure to choose * its own size based soley on newstw->static_text.input_string. * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * Maxline * RetCount * *************************************<->***********************************/ static void GetTextRect(newstw) XwStaticTextWidget newstw; { int maxlen, maxwin, fheight, numrets; XwStaticTextPart *stp; stp = &(newstw->static_text); /* * Set the line height from the font structure. */ fheight = stp->font->ascent + stp->font->descent; if (newstw->core.width) { /* * We were requested with a specific width. We must * fit ourselves to it. * * The maximum available window width is... */ maxwin = newstw->core.width - (2 * stp->internal_width) - (2 * newstw->primitive.highlight_thickness); if (stp->wrap) { if ((maxlen = Maxline(newstw)) <= maxwin) /* * We fit without formatting. */ stp->TextRect.width = maxlen; else { stp->TextRect.width = maxwin; /* * Make the string fit. */ FormatText(newstw); } } else stp->TextRect.width = Maxline(newstw); } else stp->TextRect.width = Maxline(newstw); /* * See how tall the string wants to be. */ numrets = RetCount(stp->output_string); stp->TextRect.height = (fheight * numrets) + (((numrets - 1) * (stp->line_space / 100.0)) * fheight); if ((newstw->core.height) && ((newstw->core.height - (2 * stp->internal_height) - (2 * newstw->primitive.highlight_thickness)) < stp->TextRect.height)) /* * Shorten the TextRect if the string wants * to be too tall. */ stp->TextRect.height = newstw->core.height - (2 * stp->internal_height) - (2 * newstw->primitive.highlight_thickness); } /*************************************<->************************************* * * static void SetSize(newstw) * XwStaticTextWidget newstw; * * Description: * ----------- * Copies newstw->static_text.input_string into output_string * * Sets newstw->core.width, newstw->core.height, and * newstw->static_text.TextRect appropriately, formatting the * string if necessary. * * The Clip Rectangle is placed in the window. * * Inputs: * ------ * stw = A meaningful StaticTextWidget. * * Outputs: * ------- * * Procedures Called * ----------------- * strcpy * GetTextRect * *************************************<->***********************************/ static void SetSize(newstw) XwStaticTextWidget newstw; { XwStaticTextPart *stp; stp = &(newstw->static_text); /* * Copy the input string into the output string. */ if (stp->output_string != NULL) XtFree(stp->output_string); stp->output_string = XtMalloc(XwStrlen(stp->input_string)+1); if(stp->input_string) strcpy(stp->output_string,stp->input_string); if (*(stp->output_string)) /* * If we have a string then size it. */ GetTextRect(newstw); else { stp->TextRect.width = 0; stp->TextRect.height = 0; } /* * Has a size been specified? */ if (newstw->core.width) { if ((newstw->core.width - (2 * newstw->primitive.highlight_thickness) - (2 * stp->internal_width)) > stp->TextRect.width) { /* * Use the extra space according to the gravity * resource setting. */ switch (stp->gravity) { case EastGravity: case NorthEastGravity: case SouthEastGravity: stp->TextRect.x = newstw->core.width - (newstw->primitive.highlight_thickness + stp->TextRect.width + stp->internal_width); break; case WestGravity: case NorthWestGravity: case SouthWestGravity: stp->TextRect.x = stp->internal_width + newstw->primitive.highlight_thickness; break; default: stp->TextRect.x = (newstw->core.width - stp->TextRect.width) / 2; break; } } else /* * We go to the left. */ stp->TextRect.x = newstw->primitive.highlight_thickness + stp->internal_width; } else { /* * We go to the left. */ stp->TextRect.x = newstw->primitive.highlight_thickness + stp->internal_width; newstw->core.width = stp->TextRect.width + (2 * stp->internal_width) + (2 * newstw->primitive.highlight_thickness); } /* * Has a height been specified? */ if (newstw->core.height) { if ((newstw->core.height - (2 * stp->internal_height) - (2 * newstw->primitive.highlight_thickness)) > stp->TextRect.height) { /* * Use the extra space according to the gravity * resource setting. */ switch (stp->gravity) { case NorthGravity: case NorthEastGravity: case NorthWestGravity: stp->TextRect.y = stp->internal_height + newstw->primitive.highlight_thickness; break; case SouthGravity: case SouthEastGravity: case SouthWestGravity: stp->TextRect.y = newstw->core.height - (newstw->primitive.highlight_thickness + stp->TextRect.height + stp->internal_width); break; default: stp->TextRect.y = (newstw->core.height - stp->TextRect.height)/ 2; break; } } else { /* * We go to the top. */ stp->TextRect.y = newstw->primitive.highlight_thickness + stp->internal_height; } } else { /* * We go to the top. */ stp->TextRect.y = newstw->primitive.highlight_thickness + stp->internal_height; /* * We add our size to the current size. * (Primitive has already added highlight_thicknesses.) */ newstw->core.height = stp->TextRect.height + (2 * stp->internal_height) + (2 * newstw->primitive.highlight_thickness); } } static void ProcessBackslashes(output,input) char *output, *input; { char *out, *in; out = output; in = input; while(*in) if (*in == '\\') { in++; switch (*in) { case 'n': *out++ = '\n'; break; case 't': *out++ = '\t'; break; case 'b': *out++ = '\b'; break; case 'r': *out++ = '\r'; break; case 'f': *out++ = '\f'; break; default: *out++ = '\\'; *out++ = *in; break; } in++; } else *out++ = *in++; *out = '\0'; } /*************************************<->************************************* * * static void Initialize (request, new) * Widget request, new; * * Description: * ----------- * See XToolKit Documentation * * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * Xmalloc * ProcessBackslashes * XwStrlen * SetSize * *************************************<->***********************************/ static void Initialize (req, new) XwStaticTextWidget req, new; { char *s; new->static_text.output_string = NULL; if (new->static_text.input_string != NULL) { /* * Copy the input string into local space. */ s = XtMalloc(XwStrlen(new->static_text.input_string)+1); ProcessBackslashes(s,new->static_text.input_string); new->static_text.input_string = s; } ValidateInputs(new); new->core.width = req->core.width; new->core.height = req->core.height; SetSize(new); } /*************************************<->************************************* * * static Boolean SetValues(current, request, new, last) * XwStaticTextWidget current, request, new; * Boolean last; * * Description: * ----------- * See XToolKit Documentation * * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * ValidateInputs * strcmp * SetSize * SetNormalGC * *************************************<->***********************************/ static Boolean SetValues(current, request, new, last) XwStaticTextWidget current, request, new; Boolean last; { Boolean flag = FALSE; Boolean newstring = FALSE; Boolean layoutchanges = FALSE; Boolean otherchanges = FALSE; char *newstr, *curstr; char *s; XwStaticTextPart *newstp, *curstp; int new_w, new_h; newstp = &(new->static_text); curstp = &(current->static_text); if (newstp->input_string != curstp->input_string) { newstring = TRUE; /* * Copy the input string into local space. */ s = XtMalloc(XwStrlen(newstp->input_string)+1); ProcessBackslashes(s,new->static_text.input_string); /* * Deallocate the old string. */ XtFree(curstp->input_string); /* * Have everybody point to the new string. */ newstp->input_string = s; curstp->input_string = s; request->static_text.input_string = s; } ValidateInputs(new); if ((newstring) || (newstp->font != curstp->font) || (newstp->internal_height != curstp->internal_height) || (newstp->internal_width != curstp->internal_width) || ((new->core.width <= 0) || (new->core.height <= 0)) || (request->core.width != current->core.width) || (request->core.height != current->core.height)) { if (request->primitive.recompute_size) { if (request->core.width == current->core.width) new->core.width = 0; if (request->core.height == current->core.height) new->core.height = 0; } /* * Call SetSize to get the new size. */ SetSize(new); /* * Save changes that SetSize does to the layout. */ new_w = new->core.width; new_h = new->core.height; /* * In case our parent won't let us change size we must * now restore the widget to the current size. */ new->core.width = current->core.width; new->core.height = current->core.height; SetSize(new); /* * Reload new with the new sizes in order cause XtSetValues * to invoke our parent's geometry management procedure. */ new->core.width = new_w; new->core.height = new_h; flag = TRUE; } if ((new->primitive.foreground != current->primitive.foreground) || (new->core.background_pixel != current->core.background_pixel) || (newstp->font != curstp->font)) { if (XtIsRealized((Widget)new)) { XFreeGC(XtDisplay(new),new->static_text.normal_GC); SetNormalGC(new); } flag = TRUE; } return(flag); } /*************************************<->************************************* * * static void Realize(w , valueMask, attributes) * Widget w; * XtValueMask *valueMask; * XSetWindowAttributes *attributes; * * Description: * ----------- * See XToolKit Documentation * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XtCreateWindow * SetNormalGC * *************************************<->***********************************/ static void Realize(stw , valueMask, attributes) XwStaticTextWidget stw; XtValueMask *valueMask; XSetWindowAttributes *attributes; { XtCreateWindow((Widget)stw,InputOutput,(Visual *) CopyFromParent, *valueMask,attributes); SetNormalGC(stw); _XwRegisterName(stw); } /*************************************<->************************************* * * static void Destroy(stw) * XwStaticTextWidget stw; * * Description: * ----------- * See XToolKit Documentation * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XtFree * XFreeGC * *************************************<->***********************************/ static void Destroy(stw) XwStaticTextWidget stw; { XtFree(stw->static_text.input_string); XtFree(stw->static_text.output_string); if (XtIsRealized((Widget)stw)) { XFreeGC(XtDisplay(stw),stw->static_text.normal_GC); } } /*************************************<->************************************* * * static void Redisplay(stw) * XwStaticTextWidget stw; * * Description: * ----------- * See XToolKit Documentation * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XTextExtents * XDrawString * XtWarning * *************************************<->***********************************/ static void Redisplay(stw) XwStaticTextWidget stw; { GC normal_GC; int i; int cur_x, cur_y; /* Current start of baseline */ int y_delta; /* Absolute space between baselines */ int x_delta; /* For left bearing of the first char in a line */ int dir, asc, desc; /* Junk parameters for XTextExtents */ char *str1, *str2, *str3; XFontStruct *font; XCharStruct overall; XRectangle *ClipRect; XwStaticTextPart *stp; /* * This is to save typing for me and * pointer arithmetic for the machine. */ stp = &(stw->static_text); str1 = str2 = stp->output_string; font = stp->font; normal_GC = stp->normal_GC; ClipRect = &(stp->TextRect); if (XtIsRealized((Widget)stw)) XClearArea(XtDisplay(stw),XtWindow(stw), 0,0,stw->core.width,stw->core.height,FALSE); /* * We don't get to start drawing at the top of the text box. * See X11 font manual pages. */ cur_y = ClipRect->y + font->ascent; /* * Set up the total line spacing. */ y_delta = ((stp->line_space / 100.0) + 1) * (font->descent + font->ascent); switch (stp->alignment) { case XwALIGN_LEFT: cur_x = ClipRect->x; while(*str1) { /* * Left alignment strips leading blanks. */ if (stp->strip) while(*str1 == ' ') str1++; str2 = str1; /* * Look for a newline and count characters. */ for(i=0; ((*str1 != '\n') && *str1); i++, str1++); /* * Did we get anything? */ if (i) { /* * Handle the left bearing of the first char * in this substring. */ XTextExtents(font,str2,1,&dir,&asc,&desc, &overall); x_delta = overall.lbearing; /* * Write to the window */ XDrawString(XtDisplay(stw),XtWindow(stw), normal_GC,(cur_x + x_delta),cur_y,str2,i); x_delta = overall.lbearing = 0;/* I'm paranoid...*/ } /* * Move to the next line. */ cur_y += y_delta; if (*str1) str1++; /* Step past the \n */ } break; case XwALIGN_CENTER: cur_x = ClipRect->x + (ClipRect->width / 2); while(*str1) { /* * Strip leading blanks. */ if (stp->strip) while(*str1 == ' ') str1++; str2 = str1; for(i=0; ((*str1 != '\n') && *str1); i++, str1++); /* * Strip trailing blanks. */ if (stp->strip) { str3 = str1; str3--; while (*str3 == ' ') i--, str3--; } if (i) { /* * Center the substring. */ x_delta = XTextWidth(font,str2,i) / 2; XDrawString(XtDisplay(stw),XtWindow(stw), normal_GC,(cur_x - x_delta),cur_y,str2,i); x_delta = 0; /* ... still paranoid...*/ } cur_y += y_delta; if (*str1) str1++; /* Step past the \n */ } break; case XwALIGN_RIGHT: cur_x = ClipRect->x + ClipRect->width; while(*str1) { str2 = str1; for(i=0; ((*str1 != '\n') && *str1); i++, str1++); /* * Strip trailing blanks. */ if (stp->strip) { str3 = str1; str3--; while (*str3 == ' ') i--, str3--; } if (i) { XDrawString(XtDisplay(stw),XtWindow(stw), normal_GC, (cur_x - XTextWidth(font,str2,i)), cur_y,str2,i); } cur_y += y_delta; if (*str1) str1++; /* Step past the \n */ } break; default: /* * How did we get here? */ XtWarning("XwStaticTextWidget: An Unknown Alignment has crept into the code\n"); break; } /* * We don't want to lose the highlight on redisplay * do we? */ if (stw->primitive.highlighted) { _XwHighlightBorder(stw); stw->primitive.display_highlighted = TRUE; } else if (stw->primitive.display_highlighted) { _XwUnhighlightBorder(stw); stw->primitive.display_highlighted = FALSE; } } /*************************************<->************************************* * * static void Resize(stw) * XwStaticTextWidget stw; * * Description: * ----------- * See XToolKit Documentation * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * SetSize * XSetClipRectangles * *************************************<->***********************************/ static void Resize(stw) XwStaticTextWidget stw; { XRectangle ClipRect; /* * Same as at initialization except just look at the new widget. */ SetSize(stw); if (XtIsRealized((Widget)stw)) { /* * Set the Clip Region. */ ClipRect.width = stw->core.width - (2 * (stw->static_text.internal_width + stw->primitive.highlight_thickness)); ClipRect.height = stw->core.height - (2 * (stw->static_text.internal_height + stw->primitive.highlight_thickness)); ClipRect.x = stw->primitive.highlight_thickness + stw->static_text.internal_width; ClipRect.y = stw->primitive.highlight_thickness + stw->static_text.internal_height; XSetClipRectangles(XtDisplay(stw),stw->static_text.normal_GC, 0,0, &ClipRect,1,Unsorted); } } /**************************************************************** * * Event Routines. * * Select - Call the callback when the left button goes down. * * Release - Call the callback when the left button goes up. * ****************************************************************/ static void Select(w,event) XwStaticTextWidget w; XEvent *event; { XtCallCallbacks((Widget)w,XtNselect,event); } static void Release(w,event) XwStaticTextWidget w; XEvent *event; { XtCallCallbacks((Widget)w,XtNrelease,event); } static void Toggle(w,event) XwStaticTextWidget w; XEvent *event; { } xcircuit-3.9.73/Xw/PButton.h0000664000175000001440000000307312335667422014340 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: PButton.h ** ** Project: X Widgets ** ** Description: Public include file for applications using the ** pushbutton widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * PushButton Widget * ***********************************************************************/ extern WidgetClass XwpushButtonWidgetClass; typedef struct _XwPushButtonClassRec *XwPushButtonWidgetClass; typedef struct _XwPushButtonRec *XwPushButtonWidget; xcircuit-3.9.73/Xw/Form.h0000664000175000001440000000262312335667422013650 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Form.h ** ** Project: X Widgets ** ** Description: Public include file for Form class widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* Form Widget */ extern WidgetClass XwformWidgetClass; typedef struct _XwFormClassRec * XwFormWidgetClass; typedef struct _XwFormRec * XwFormWidget; typedef struct _XwFormConstraintRec * XwFormConstraints; xcircuit-3.9.73/Xw/ResConvert.c0000664000175000001440000005336512335667422015043 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: ResConvert.c ** ** Project: X Widgets ** ** Description: Contains a function to register all of the resource ** type converters used within Xw and the converter ** routines. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include #include static void _XwCvtStringToTraversalType (); static void _XwCvtStringToHighlightStyle (); static void _XwCvtStringToTileType(); static void _XwCvtStringToLayoutPolicy(); static void _XwCvtStringToLabelLocation(); static Boolean StringsAreEqual(); static void _XwCvtStringToAlignment(); static void _XwCvtStringToWidgetType(); static void _XwCvtStringToSelectionMethod(); static void _XwCvtStringToSelectionStyle(); static void _XwCvtStringToSelectionBias(); static void _XwCvtStringToElementHighlight(); static void _XwCvtStringToDestroyMode(); static void _XwCvtStringToGravity (); static void _XwCvtStringToTitlePositionType(); static void _XwCvtStringToLabelType(); static void _XwCvtStringToTitleType(); static void _XwCvtLongToLong(); static void CvtStringToEditMode(); static void CvtStringToSourceType(); static void CvtStringToWrap(); static void CvtStringToWrapBreak(); static void CvtStringToWrapForm(); static void CvtStringToScroll(); static void CvtStringToGrow(); typedef struct { unsigned char *string; int value; } XwSetValuePair; #define NUMVALUESETS 7 #define XwEditTypeValueSetNum 0 #define XwSourceTypeValueSetNum 1 #define XwWrapValueSetNum 2 #define XwWrapFormValueSetNum 3 #define XwWrapBreakValueSetNum 4 #define XwScrollValueSetNum 5 #define XwGrowValueSetNum 6 static XwSetValuePair XwEditTypeValueSet[] = { {(unsigned char *)"edit", (int) XwtextEdit}, {(unsigned char *)"append", (int) XwtextAppend}, {(unsigned char *)"read", (int) XwtextRead}, NULL }; static XwSetValuePair XwSourceTypeValueSet[] = {{(unsigned char *)"stringsrc", (int) XwstringSrc}, {(unsigned char *)"disksrc", (int) XwdiskSrc}, {(unsigned char *)"userdefined", (int) XwprogDefinedSrc}, NULL }; static XwSetValuePair XwWrapValueSet[] = {{(unsigned char *)"wrapoff", (int) XwWrapOff}, {(unsigned char *)"softwrap", (int) XwSoftWrap}, {(unsigned char *)"hardwrap", (int) XwHardWrap}, NULL }; static XwSetValuePair XwWrapFormValueSet[] = {{(unsigned char *)"sourceform", (int) XwSourceForm}, {(unsigned char *)"displayform", (int) XwDisplayForm}, NULL }; static XwSetValuePair XwWrapBreakValueSet[] = {{(unsigned char *)"wrapany", (int) XwWrapAny}, {(unsigned char *)"wrapwhitespace", (int) XwWrapWhiteSpace}, NULL }; static XwSetValuePair XwScrollValueSet[] = {{(unsigned char *)"autoscrolloff", (int) XwAutoScrollOff}, {(unsigned char *)"autoscrollvertical", (int) XwAutoScrollVertical}, {(unsigned char *)"autoscrollhorizontal", (int) XwAutoScrollHorizontal}, {(unsigned char *)"autoscrollboth", (int) XwAutoScrollBoth}, NULL }; static XwSetValuePair XwGrowValueSet[] = {{(unsigned char *)"growoff", (int) XwGrowOff}, {(unsigned char *)"growhorizontal", (int) XwGrowHorizontal}, {(unsigned char *)"growvertical", (int) XwGrowVertical}, {(unsigned char *)"growboth", (int) XwGrowBoth}, NULL }; static XwSetValuePair *valuepairsets[NUMVALUESETS]; /************************************************************************ * * XwRegisterConverters * Register all of the Xw resource type converters. Retain a * flag indicating whether the converters have already been * registered. * ************************************************************************/ XwRegisterConverters () { static Boolean registered = False; if (!registered) { XtAddConverter (XtRString, XtRTraversalType, _XwCvtStringToTraversalType, NULL, 0); XtAddConverter (XtRString, XtRLayout, _XwCvtStringToLayoutPolicy, NULL, 0); XtAddConverter (XtRString, XtRHighlightStyle, _XwCvtStringToHighlightStyle, NULL, 0); XtAddConverter (XtRString, XtRTileType, _XwCvtStringToTileType, NULL, 0); XtAddConverter (XtRString, XtRLabelLocation, _XwCvtStringToLabelLocation, NULL, 0); XtAddConverter (XtRString, XtRAlignment, _XwCvtStringToAlignment, NULL, 0); XtAddConverter (XtRString, XtRWidgetType, _XwCvtStringToWidgetType, NULL, 0); XtAddConverter (XtRString, XtRGravity, _XwCvtStringToGravity, NULL,0); XtAddConverter (XtRString, XtRTitlePositionType, _XwCvtStringToTitlePositionType, NULL, 0); XtAddConverter (XtRString, XtRTitleType, _XwCvtStringToTitleType, NULL, 0); XtAddConverter (XtRString, XtRLabelType, _XwCvtStringToLabelType, NULL, 0); XtAddConverter (XtRLong, XtRLong, _XwCvtLongToLong, NULL, 0); valuepairsets[XwEditTypeValueSetNum] = XwEditTypeValueSet; valuepairsets[XwSourceTypeValueSetNum] = XwSourceTypeValueSet; valuepairsets[XwWrapValueSetNum] = XwWrapValueSet; valuepairsets[XwWrapFormValueSetNum] = XwWrapFormValueSet; valuepairsets[XwWrapBreakValueSetNum] = XwWrapBreakValueSet; valuepairsets[XwScrollValueSetNum] = XwScrollValueSet; valuepairsets[XwGrowValueSetNum] = XwGrowValueSet; XtAddConverter(XtRString, XtREditMode, CvtStringToEditMode, NULL, 0); XtAddConverter(XtRString, XtRSourceType, CvtStringToSourceType, NULL, 0); XtAddConverter(XtRString, XtRWrap, CvtStringToWrap, NULL, 0); XtAddConverter(XtRString, XtRWrapBreak, CvtStringToWrapBreak, NULL, 0); XtAddConverter(XtRString, XtRWrapForm, CvtStringToWrapForm, NULL, 0); XtAddConverter(XtRString, XtRScroll, CvtStringToScroll, NULL, 0); XtAddConverter(XtRString, XtRGrow, CvtStringToGrow, NULL, 0); } registered = True; } /************************************************************************ * * Resource Conversion Functions * The following set of functions are used by the resource * manager to convert the resource types defined for this class. * ************************************************************************/ /* Convert a string to a traversal type. */ static void _XwCvtStringToTraversalType (args, numArgs, fromVal, toVal) XrmValue * args; Cardinal numArgs; XrmValue * fromVal; XrmValue * toVal; { char * in_str = (char *) (fromVal->addr); static int i; i = XwHIGHLIGHT_OFF; if (((*in_str) == 'H') || ((*in_str) == 'h')) { if (StringsAreEqual (in_str, "highlight_traversal")) i = XwHIGHLIGHT_TRAVERSAL; else if (StringsAreEqual (in_str, "highlight_enter")) i = XwHIGHLIGHT_ENTER; } (*toVal).size = sizeof (int); (*toVal).addr = (caddr_t) &i; } /******************************************************/ /* Convert a string to a ButtonClass Label Location. */ /******************************************************/ static void _XwCvtStringToLabelLocation (args, numArgs, fromVal, toVal) XrmValue * args; Cardinal numArgs; XrmValue * fromVal; XrmValue * toVal; { char * in_str = (char *) (fromVal->addr); static int i; if (((*in_str)== 'L') || ((*in_str)=='l')) { if (StringsAreEqual(in_str,"left")) i = XwLEFT; } else i = XwRIGHT; (*toVal).size = sizeof (int); (*toVal).addr = (caddr_t) &i; } /********************************************************/ /* Convert a string to ManagerClass layout mode type. */ /********************************************************/ static void _XwCvtStringToLayoutPolicy (args, numArgs, fromVal, toVal) XrmValue * args; Cardinal numArgs; XrmValue * fromVal; XrmValue * toVal; { char * in_str = (char *) (fromVal->addr); static int i; i = XwMINIMIZE; switch(*in_str) { case 'I': case 'i': if (StringsAreEqual(in_str,"ignore")) i = XwIGNORE; break; case 'M': case 'm': if (StringsAreEqual(in_str,"maximize")) i = XwMAXIMIZE; } (*toVal).size = sizeof (int); (*toVal).addr = (caddr_t) &i; } static Boolean StringsAreEqual(in_str, test_str) char *in_str, *test_str; { int i, j; for (;;) { i = *in_str; j = *test_str; if (isupper(i)) i = tolower(i); if (isupper(j)) j = tolower(j); if (i != j) return (False); if (i == 0) return (True); in_str++; test_str++; } } /* Convert a string to a highlight type. */ static void _XwCvtStringToHighlightStyle (args, numArgs, fromVal, toVal) XrmValue * args; Cardinal numArgs; XrmValue * fromVal; XrmValue * toVal; { char * in_str = (char *) (fromVal->addr); static int i; i = XwWIDGET_DEFINED; if (((*in_str) == 'P') || ((*in_str) == 'p')) if (StringsAreEqual (in_str, "pattern_border")) i = XwPATTERN_BORDER; (*toVal).size = sizeof (int); (*toVal).addr = (caddr_t) &i; } /* Convert a string to an tile type. */ static void _XwCvtStringToTileType (args, numArgs, fromVal, toVal) XrmValue * args; Cardinal numArgs; XrmValue * fromVal; XrmValue * toVal; { char * in_str = (char *) (fromVal->addr); static int i; i = XwFOREGROUND; switch (*in_str) { case 'F': case 'f': if (StringsAreEqual (in_str, "foreground")) i = XwFOREGROUND; break; case 'B': case 'b': if (StringsAreEqual (in_str, "background")) i = XwBACKGROUND; break; } (*toVal).size = sizeof (int); (*toVal).addr = (caddr_t) &i; } /*************************************<->************************************* * * static void _XwCvtStringToAlignment() * Display *display; * XrmValue *p_fromVal; * XrmValue *toVal; * * Description: * ----------- * This is a type conversion procedure for the resource manager. * converts strings to type XwAlignment. The conversion is case * insensitive. * * Inputs: * ------ * See "Xlib - C Language X Interface Protocol Version 11" * * Outputs: * ------- * See "Xlib - C Language X Interface Protocol Version 11" * * Procedures Called * ----------------- * StringsAreEqual * *************************************<->***********************************/ static void _XwCvtStringToAlignment(args,num,p_fromVal,toVal) XrmValue *args; Cardinal num; XrmValue *p_fromVal; XrmValue *toVal; { static XwAlignment Align = XwALIGN_LEFT; char *from_str; Boolean match = FALSE; from_str = (char *) (p_fromVal->addr); toVal->addr = (caddr_t) &Align; toVal->size = sizeof(XwAlignment); switch(*from_str) { case 'L': case 'l': if (match = StringsAreEqual(from_str,"left")) Align = XwALIGN_LEFT; break; case 'C': case 'c': if (match = StringsAreEqual(from_str,"center")) Align = XwALIGN_CENTER; break; case 'R': case 'r': if (match = StringsAreEqual(from_str,"right")) Align = XwALIGN_RIGHT; break; case 'N': case 'n': if (match = StringsAreEqual(from_str,"none")) Align = XwALIGN_NONE; break; default: match = FALSE; break; } if(!match) { toVal->addr = NULL; toVal->size = 0; } } /*************************************<->************************************* * * static void _XwCvtStringToWidgetType() * Display *display; * XrmValue *p_fromVal; * XrmValue *toVal; * * Description: * ----------- * This is a type conversion procedure for the resource manager. * converts strings to type XwWidgetType. The conversion is case * insensitive. * * Inputs: * ------ * See "Xlib - C Language X Interface Protocol Version 11" * * Outputs: * ------- * See "Xlib - C Language X Interface Protocol Version 11" * * Procedures Called * ----------------- * StringsAreEqual * *************************************<->***********************************/ static void _XwCvtStringToWidgetType(args,num,p_fromVal,toVal) XrmValue *args; Cardinal num; XrmValue *p_fromVal; XrmValue *toVal; { static XwWidgetType WType = XwUNKNOWN; char *from_str; Boolean match = FALSE; from_str = (char *) (p_fromVal->addr); toVal->addr = (caddr_t) &WType; toVal->size = sizeof(XwWidgetType); switch(*from_str) { case 'T': case 't': if (match = StringsAreEqual(from_str,"title")) WType = XwTITLE; break; case 'P': case 'p': if (match = StringsAreEqual(from_str,"pulldown")) WType = XwPULLDOWN; break; case 'W': case 'w': if (match = StringsAreEqual(from_str,"work space")) WType = XwWORK_SPACE; break; case 'U': case 'u': if (match = StringsAreEqual(from_str,"unknown")) WType = XwUNKNOWN; break; default: match = FALSE; break; } if(!match) { toVal->addr = NULL; toVal->size = 0; } } /************************************************************************ * * _XwCvtStringToGravity * Convert a resource string to a gravity value. * ************************************************************************/ static void _XwCvtStringToGravity (args, numArgs, fromVal, toVal) XrmValue * args; Cardinal numArgs; XrmValue * fromVal; XrmValue * toVal; { static int gravity = CenterGravity; char *from_str; Boolean match = FALSE; from_str = (char *) (fromVal->addr); toVal->addr = (caddr_t) &gravity; toVal->size = sizeof(int); switch (*from_str) { case 'N': case 'n': if (match = StringsAreEqual(from_str,"NorthGravity")) gravity = NorthGravity; else if (match = StringsAreEqual(from_str,"NorthWestGravity")) gravity = NorthWestGravity; else if (match = StringsAreEqual(from_str,"NorthEastGravity")) gravity = NorthEastGravity; break; case 'S': case 's': if (match = StringsAreEqual(from_str,"SouthGravity")) gravity = SouthGravity; else if (match = StringsAreEqual(from_str,"SouthWestGravity")) gravity = SouthWestGravity; else if (match = StringsAreEqual(from_str,"SouthEastGravity")) gravity = SouthEastGravity; break; case 'W': case 'w': if (match = StringsAreEqual(from_str,"WestGravity")) gravity = WestGravity; break; case 'E': case 'e': if (match = StringsAreEqual(from_str,"EastGravity")) gravity = EastGravity; break; case 'C': case 'c': if (match = StringsAreEqual(from_str,"CenterGravity")) gravity = CenterGravity; break; default: match = FALSE; break; } if(!match) { toVal->addr = NULL; toVal->size = 0; } } static void _XwCvtStringToTitleType (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal * num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { static int i; String source = (String) fromVal->addr; if (source) { if (strcmp ("string", source) == 0) i = XwSTRING; else if (strcmp ("image", source) == 0) i = XwIMAGE; else if (strcmp ("rect", source) == 0) i = XwRECT; else { i = XwSTRING; XtWarning ( "MenuPane: Unknown title type specified; using string title"); } } else { i = XwSTRING; XtWarning ("MenuPane: Unknown title type specified; using string title"); } (*toVal).size = sizeof(int); (*toVal).addr = (caddr_t) &i; } static void _XwCvtStringToLabelType (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal * num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { static int i; if (strcmp ("string", (char *) fromVal->addr) == 0) i = XwSTRING; else if (strcmp ("image", (char *) fromVal->addr) == 0) i = XwIMAGE; else { i = XwSTRING; XtWarning ("MenuButton: Unknown label type specified; using string label"); } (*toVal).size = sizeof(int); (*toVal).addr = (caddr_t) &i; } static void _XwCvtStringToTitlePositionType (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal * num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { static int i; String source = (char *) fromVal->addr; if (source) { /* Force the comparison to be case insensitive */ for (i = 0; i < XwStrlen(source); i++) { if (isupper (source[i])) source[i] = tolower(source[i]); } if (strcmp ("bottom", source) == 0) i = XwBOTTOM; else if (strcmp ("top", source) == 0) i = XwTOP; else if (strcmp ("both", source) == 0) i = XwTOP | XwBOTTOM; else { i = XwTOP; XtWarning ("Cascade: Invalid title position; position set to top"); } } else { i = XwTOP; XtWarning ("Cascade: Invalid title position; position set to top"); } (*toVal).size = sizeof(int); (*toVal).addr = (caddr_t) &i; } /*---------------------------------------------------------------------------*/ /* Type long to type long conversion (mostly to satisfy picky 64-bit OSF) */ /*---------------------------------------------------------------------------*/ static void _XwCvtLongToLong (args, num_args, fromVal, toVal) XrmValuePtr args; Cardinal * num_args; XrmValuePtr fromVal; XrmValuePtr toVal; { long result = (long) fromVal->addr; if (!result) { XtWarning ("SourceStr: Invalid max_size; max_size set to -1"); result = -1; } (*toVal).size = sizeof(long); (*toVal).addr = (caddr_t) &result; } /*--------------------------------------------------------------------------+*/ static void SetConverter(fromVal, toVal, setNum) /*--------------------------------------------------------------------------+*/ XrmValuePtr fromVal, toVal; int setNum; { int j; XwSetValuePair *ptr; static int value; unsigned char *fromstr; fromstr = (unsigned char *)fromVal->addr; ptr = valuepairsets[setNum]; for(j=0; *ptr[j].string; j++) if (!strcmp(ptr[j].string, fromstr)) { value = ptr[j].value; toVal->size = sizeof(int); toVal->addr = (caddr_t)&value; return; }; toVal->size = 0; toVal->addr = NULL; } /*--------------------------------------------------------------------------+*/ static void CvtStringToEditMode(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwEditTypeValueSetNum); } /*--------------------------------------------------------------------------+*/ static void CvtStringToSourceType(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwSourceTypeValueSetNum); } /*--------------------------------------------------------------------------+*/ static void CvtStringToWrap(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwWrapValueSetNum); } /*--------------------------------------------------------------------------+*/ static void CvtStringToWrapForm(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwWrapFormValueSetNum); } /*--------------------------------------------------------------------------+*/ static void CvtStringToWrapBreak(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwWrapBreakValueSetNum); } /*--------------------------------------------------------------------------+*/ static void CvtStringToScroll(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwScrollValueSetNum); } /*--------------------------------------------------------------------------+*/ static void CvtStringToGrow(args, num_args, fromVal, toVal) /*--------------------------------------------------------------------------+*/ XrmValuePtr *args; /* unused */ Cardinal *num_args; /* unused */ XrmValuePtr fromVal; XrmValuePtr toVal; { SetConverter(fromVal, toVal, XwGrowValueSetNum); } xcircuit-3.9.73/Xw/XwP.h0000664000175000001440000004135612335667422013471 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: XwP.h ** ** Project: X Widgets ** ** Description: This include file contains the class and instance record ** definitions for all meta classes. It also contains externs ** for internally shared functions and defines for internally ** shared values. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * Miscellaneous Private Defines * ***********************************************************************/ #define XwStrlen(s) ((s) ? strlen(s) : 0) #define XwBLOCK 10 #define XwMANAGER 1 #define XwPRIMITIVE 2 /************************************************************************ * * The Primitive Widget Class and instance records. * ************************************************************************/ typedef void (*XwEventProc)( #if NeedFunctionPrototypes Widget, /* widget */ XEvent* /* event */ #endif ); typedef struct _XwPrimitiveClassPart { XtWidgetProc border_highlight; XtWidgetProc border_unhighlight; XwEventProc select_proc; XwEventProc release_proc; XwEventProc toggle_proc; XtTranslations translations; } XwPrimitiveClassPart; typedef struct _XwPrimitiveClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; } XwPrimitiveClassRec; extern XwPrimitiveClassRec XwprimitiveClassRec; #define XtInheritBorderHighlight ((XtWidgetProc) _XtInherit) #define XtInheritBorderUnhighlight ((XtWidgetProc) _XtInherit) #define XtInheritSelectProc ((XwEventProc) _XtInherit) #define XtInheritReleaseProc ((XwEventProc) _XtInherit) #define XtInheritToggleProc ((XwEventProc) _XtInherit) extern void _XwHighlightBorder(); extern void _XwUnhighlightBorder(); extern void _XwPrimitiveEnter(); extern void _XwPrimitiveLeave(); extern void _XwPrimitiveFocusIn(); extern void _XwPrimitiveFocusOut(); extern void _XwPrimitiveVisibility(); extern void _XwPrimitiveUnmap(); extern void _XwTraverseLeft(); extern void _XwTraverseRight(); extern void _XwTraverseUp(); extern void _XwTraverseDown(); extern void _XwTraverseNext(); extern void _XwTraversePrev(); extern void _XwTraverseHome(); extern void _XwTraverseNextTop(); typedef struct _XwPrimitivePart { Pixel foreground; int background_tile; Cursor cursor; int traversal_type; Boolean I_have_traversal; int highlight_thickness; int highlight_style; Pixel highlight_color; int highlight_tile; Boolean recompute_size; GC highlight_GC; Boolean display_sensitive; Boolean highlighted; Boolean display_highlighted; XtCallbackList select; XtCallbackList release; XtCallbackList toggle; } XwPrimitivePart; typedef struct _XwPrimitiveRec { CorePart core; XwPrimitivePart primitive; } XwPrimitiveRec; /************************************************************************ * * The Manager Widget Class and instance records. * ************************************************************************/ typedef void (*XwTraversalProc)( #if NeedFunctionPrototypes Widget, /* widget */ XPoint, /* ul */ XPoint, /* lr */ int /* dir */ #endif ); typedef struct _XwManagerClassPart { XwTraversalProc traversal_handler; XtTranslations translations; } XwManagerClassPart; typedef struct _XwManagerClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; } XwManagerClassRec; extern XwManagerClassRec XwmanagerClassRec; typedef struct _XwManagerPart { Pixel foreground; int background_tile; Boolean traversal_on; int highlight_thickness; GC highlight_GC; Widget active_child; WidgetList managed_children; Cardinal num_slots; Cardinal num_managed_children; int layout; XtCallbackList next_top; } XwManagerPart; typedef struct _XwManagerRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; } XwManagerRec; #define XtInheritTraversalProc ((XwTraversalProc) _XtInherit) /************************************** * * Exported Routines from Manager.c * **************************************/ extern void _XwManagerEnter(); /* start traversal */ extern void _XwManagerLeave(); /* end traversal */ extern void _XwManagerFocusIn(); /* focus management */ extern void _XwManagerVisibility(); /* more focus management */ extern void _XwManagerUnmap(); /* even more focus management */ extern Boolean _XwFindTraversablePrim(); /* traversal checking routine */ extern void _XwReManageChildren(); /* rebuild Managed Children List */ extern void _XwManagerInsertChild(); /* special insert child routine */ extern Cardinal _XwInsertOrder(); /* compute position from arglist */ /************************************************************************ * * Externs and defines for traversal handling functions incorporated * into all primitive widgets. * ************************************************************************/ extern void mgr_traversal(); extern void _XwDrawBox(); extern void XwSetFocusPath(); extern void XwMoveFocus(); extern void XwProcessTraversal(); extern void XwSetInputFocus(); extern void _XwInitCheckList(); /* Traversal direction defines */ #define XwTRAVERSE_CURRENT 0 #define XwTRAVERSE_LEFT 1 #define XwTRAVERSE_RIGHT 2 #define XwTRAVERSE_UP 3 #define XwTRAVERSE_DOWN 4 #define XwTRAVERSE_NEXT 5 #define XwTRAVERSE_PREV 6 #define XwTRAVERSE_HOME 7 #define XwTRAVERSE_NEXT_TOP 8 /************************************** * * Exported Routines from Button.c * **************************************/ extern void _XwSetTextWidthAndHeight(); extern void _XwGetNormalGC(); extern void _XwGetSensitiveGC(); extern void _XwGetInverseGC(); extern void _XwInitializeButton(); extern void _XwRealize(); extern void _XwResizeButton(); extern void _XwRegisterName(); extern Boolean _XwRecomputeSize(); extern Boolean XwTestTraversability(); /************************************************************************ * * New fields for the Button widget class record * and the full class record. * ************************************************************************/ typedef struct _XwButtonClassPart { int mumble; } XwButtonClassPart; typedef struct _XwButtonClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwButtonClassPart button_class; } XwButtonClassRec; extern XwButtonClassRec XwbuttonClassRec; /************************************************************************ * * New fields for the Button instance record and * the full instance record. * ************************************************************************/ typedef struct _XwButtonPart { XFontStruct * font; char * label; int label_location; Dimension internal_height; Dimension internal_width; int sensitive_tile; GC normal_GC; GC inverse_GC; Position label_x; Position label_y; Dimension label_width; Dimension label_height; unsigned int label_len; Boolean set; Boolean display_set; } XwButtonPart; typedef struct _XwButtonRec { CorePart core; XwPrimitivePart primitive; XwButtonPart button; } XwButtonRec; /*********************************************************************** * * Inherited functions exported by MenuBtn * ***********************************************************************/ #define XtInheritIdealWidthProc ((XwWidthProc) _XtInherit) #define XtInheritUnhighlightProc ((XtWidgetProc) _XtInherit) #define XtInheritHighlightProc ((XtWidgetProc) _XtInherit) #define XtInheritEnterParentProc ((XtWidgetProc) _XtInherit) /* Corrected by Steve Langasek (was incompatible with the revised Wprintf()) */ typedef void (*XwStrProc)( #if NeedFunctionPrototypes char *format, ... /* hint */ #endif ); /*********************************************************************** * * New Fields for the MenuPane widget class record, and * the full class record. * ***********************************************************************/ typedef void (*XwWBoolProc)( #if NeedFunctionPrototypes Widget, /* widget */ Boolean /* flag */ #endif ); typedef struct { XwWBoolProc setTraversalFlag; } XwMenuPaneClassPart; /* Full class record declaration */ typedef struct _XwMenuPaneClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; XwMenuPaneClassPart menu_pane_class; } XwMenuPaneClassRec; extern XwMenuPaneClassRec XwmenupaneClassRec; extern Boolean _XwAllAttachesAreSensitive(); #define XtInheritMenuPaneConstraintInit ((XtInitProc) _XtInherit) #define XtInheritSetTraversalFlagProc ((XwWBoolProc) _XtInherit) /*********************************************************************** * * New Fields for the MenuPane widget instance record, and * the full class record. * ***********************************************************************/ typedef struct { /* Internal fields */ GC titleGC; Widget attachId; /* User settable fields */ XFontStruct * title_font; String title_string; Boolean title_showing; String attach_to; XImage * titleImage; Boolean title_override; int title_type; String mnemonic; XtCallbackList select; } XwMenuPanePart; typedef struct _XwMenuPaneRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; XwMenuPanePart menu_pane; } XwMenuPaneRec; /* New Procedures for _XtInherit, with proper function prototypes */ typedef void (*XwWidthProc)( #if NeedFunctionPrototypes Widget, /* widget */ Dimension* /* width */ #endif ); typedef void (*XwWintProc)( #if NeedFunctionPrototypes Widget, /* widget */ int /* type */ #endif ); typedef void (*XwWWProc)( #if NeedFunctionPrototypes Widget, /* manager */ Widget /* pane */ #endif ); typedef void (*XwSelectProc)( #if NeedFunctionPrototypes Widget, /* manager */ Widget, /* button */ String, /* accelerator */ unsigned int, /* accelEventType */ unsigned int, /* accelDetail */ unsigned int /* accelModifiers */ #endif ); typedef void (*XwWWSProc)( #if NeedFunctionPrototypes Widget, /* manager */ Widget, /* button */ String /* accelerator */ #endif ); typedef void (*XwPostProc)( #if NeedFunctionPrototypes Widget, /* widget */ Widget, /* widget */ Widget, /* widget */ Position, /* x */ Position /* y */ #endif ); typedef void (*XwSetSProc)( #if NeedFunctionPrototypes Widget, /* widget */ Position, /* left */ Position /* right */ #endif ); /*********************************************************************** * * Global functions exported by MapEvent.c * ***********************************************************************/ typedef Boolean (*XwBooleanProc)(); extern Boolean _XwMatchBtnEvent(); extern Boolean _XwMapBtnEvent(); extern Boolean _XwMapKeyEvent(); extern Boolean _XwMatchKeyEvent(); extern Boolean _XwValidModifier(); extern String _XwMapToHex(); extern unsigned long _XwMapFromHex(); extern void _XwSetMappedManagedChildrenList(); #define XtInheritAttachPane ((XwWWSProc) _XtInherit) #define XtInheritDetachPane ((XwWWSProc) _XtInherit) #define XtInheritAddPane ((XwWWProc) _XtInherit) #define XtInheritSetSelectAccelerator ((XwSelectProc) _XtInherit) #define XtInheritClearSelectAccelerator ((XwWWProc) _XtInherit) #define XtInheritSetPostMnemonic ((XwWWSProc) _XtInherit) #define XtInheritClearPostMnemonic ((XwWWProc) _XtInherit) #define XtInheritAddButton ((XwWWProc) _XtInherit) #define XtInheritSetSelectMnemonic ((XwWWSProc) _XtInherit) #define XtInheritClearSelectMnemonic ((XwWWProc) _XtInherit) #define XtInheritProcessSelect ((XwBooleanProc) _XtInherit) #define XtInheritValidEvent ((XwBooleanProc) _XtInherit) #define XtInheritDoICascade ((XwBooleanProc) _XtInherit) #define XtInheritSetTitleAttributes ((XwWWProc) _XtInherit) #define XtInheritPaneManagedChildren ((XwWWProc) _XtInherit) #define XtInheritBtnSensitivityChanged ((XwWWProc) _XtInherit) #define XtInheritPaneSensitivityChanged ((XwWWProc) _XtInherit) /*********************************************************************** * * New Fields for the MenuMgr widget class record, and * the full class record. * ***********************************************************************/ typedef struct { XwWWSProc attachPane; XwWWSProc detachPane; XwWWProc addPane; XwSelectProc setSelectAccelerator; XwWWProc clearSelectAccelerator; XwWWSProc setPostMnemonic; XwWWProc clearPostMnemonic; XwWWProc addButton; XwBooleanProc processSelect; XwBooleanProc validEvent; XwBooleanProc doICascade; XwWWSProc setSelectMnemonic; XwWWProc clearSelectMnemonic; XwWWProc setTitleAttributes; XwWWProc paneManagedChildren; XwEventProc traverseLeft; XwEventProc traverseRight; XwEventProc traverseNext; XwEventProc traversePrev; XwEventProc traverseHome; XwEventProc traverseUp; XwEventProc traverseDown; XwEventProc traverseNextTop; XwWWProc btnSensitivityChanged; XwWWProc paneSensitivityChanged; } XwMenuMgrClassPart; /* Full class record declaration */ typedef struct _XwMenuMgrClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; XwMenuMgrClassPart menu_mgr_class; } XwMenuMgrClassRec; extern XwMenuMgrClassRec XwmenumgrClassRec; /*********************************************************************** * * New Fields for the MenuMgr widget instance record, and * the full class record. * ***********************************************************************/ /* Structure used by menu mgr to store keyboard accelerators */ typedef struct { String accelString; unsigned int accelEventType; KeyCode accelKey; unsigned int accelModifiers; Widget menuBtn; } XwKeyAccel; /* Structure used by menu mgr to store pending attach requests */ typedef struct { String menuBtnName; Widget menupaneId; } XwAttachList; typedef struct { /* Internal fields */ unsigned int postEventType; unsigned int postButton; unsigned int postModifiers; unsigned int selectEventType; unsigned int selectButton; unsigned int selectModifiers; XwKeyAccel * menuBtnAccelTable; int numAccels; int sizeAccelTable; XwAttachList * pendingAttachList; int numAttachReqs; int sizeAttachList; Boolean menuActive; unsigned int unpostEventType; KeyCode unpostKey; unsigned int unpostModifiers; unsigned int kbdSelectEventType; KeyCode kbdSelectKey; unsigned int kbdSelectModifiers; /* User settable fields */ Boolean associateChildren; String postString; String selectString; String unpostString; String kbdSelectString; } XwMenuMgrPart; typedef struct _XwMenuMgrRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; XwMenuMgrPart menu_mgr; } XwMenuMgrRec; xcircuit-3.9.73/Xw/CascadeP.h0000664000175000001440000000544412335667422014414 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: CascadeP.h ** ** Project: X Widgets ** ** Description: Private include file for Cascading menupane class widgets ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * Cascading MenuPane Widget Private Data * ***********************************************************************/ /* New fields for the Cascade widget class record */ typedef struct { int mumble; /* No new procedures */ } XwCascadeClassPart; /* Full class record declaration */ typedef struct _XwCascadeClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; XwMenuPaneClassPart menu_pane_class; XwCascadeClassPart cascade_class; } XwCascadeClassRec; extern XwCascadeClassRec XwcascadeClassRec; /* New fields for the Cascade widget record */ typedef struct { /* Internal fields */ Position title_x; Position top_title_y; Position bottom_title_y; Dimension title_height; Dimension title_width; Position button_starting_loc; Dimension idealWidth; Dimension idealHeight; Dimension largestButtonWidth; Widget georeqWidget; Dimension georeqWidth; /* User settable fields */ int titlePosition; } XwCascadePart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwCascadeRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; XwMenuPanePart menu_pane; XwCascadePart cascade; } XwCascadeRec; xcircuit-3.9.73/Xw/MenuMgr.c0000664000175000001440000005175712335667422014326 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: MenuMgr.c ** ** Project: X Widgets ** ** Description: Menu Manager Meta Class Widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include static void Initialize(); static void Destroy(); static Boolean SetValues(); static void ClassInitialize(); /**************************************************************** * * MenuPane Resources * ****************************************************************/ static XtResource resources[] = { {XtNassociateChildren, XtCAssociateChildren, XtRBoolean, sizeof(Boolean), XtOffset(XwMenuMgrWidget, menu_mgr.associateChildren), XtRString, "TRUE"}, {XtNmenuPost, XtCMenuPost, XtRString, sizeof(String), XtOffset(XwMenuMgrWidget, menu_mgr.postString), XtRString, ""}, {XtNmenuSelect, XtCMenuSelect, XtRString, sizeof(String), XtOffset(XwMenuMgrWidget, menu_mgr.selectString), XtRString, ""}, {XtNmenuUnpost, XtCMenuUnpost, XtRString, sizeof(String), XtOffset(XwMenuMgrWidget, menu_mgr.unpostString), XtRString, NULL}, {XtNkbdSelect, XtCKbdSelect, XtRString, sizeof(String), XtOffset(XwMenuMgrWidget, menu_mgr.kbdSelectString), XtRString, "Select"} }; /**************************************************************** * * Full class record constant * ****************************************************************/ XwMenuMgrClassRec XwmenumgrClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwmanagerClassRec, /* class_name */ "XwMenuMgr", /* widget_size */ sizeof(XwMenuMgrRec), /* class_initialize */ ClassInitialize, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ NULL, /* actions */ NULL, /* num_actions */ 0, /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ Destroy, /* resize */ NULL, /* expose */ NULL, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* PRIVATE cb list */ NULL, /* tm_table */ NULL, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL },{ /* composite_class fields */ /* geometry_manager */ NULL, /* change_managed */ NULL, /* insert_child */ XtInheritInsertChild, /* delete_child */ XtInheritDeleteChild, NULL, },{ /* constraint class fields */ /* resources */ NULL, /* num_resources */ 0, /* constraint_size */ 0, /* initialize */ NULL, /* destroy */ NULL, /* set_values */ NULL, NULL, },{ /* manager_class fields */ /* traversal handler */ NULL, /* translations */ NULL, },{ /* menu manager class - none */ /* attachPane */ NULL, /* detachPane */ NULL, /* addPane */ NULL, /* setSelectAccelerar */ NULL, /* clearSelectAcceler */ NULL, /* setPostMnemonic */ NULL, /* clearPostMnemonic */ NULL, /* addButton */ NULL, /* processSelect */ NULL, /* validEvent */ NULL, /* doICascade */ NULL, /* setSelectMnemonic */ NULL, /* clearSelectMnemon */ NULL, /* setTitleAttributes */ NULL, /* paneManagedChildren*/ NULL, /* traverseLeft */ NULL, /* traverseRight */ NULL, /* traverseNext */ NULL, /* traversePrev */ NULL, /* traverseHome */ NULL, /* traverseUp */ NULL, /* traverseDown */ NULL, /* traverseNextTop */ NULL, /* btnSensitivityChan */ NULL, /* paneSensitivityCha */ NULL, } }; WidgetClass XwmenumgrWidgetClass = (WidgetClass)&XwmenumgrClassRec; /*************************************<->************************************* * * ClassInitialize(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClassInitialize () { } /*************************************<->************************************* * * Initialize * * * Description: * ----------- * Initialize the menu_mgr fields within the widget's instance structure. * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Initialize (request, new) XwMenuMgrWidget request, new; { KeySym tempKeysym; /* FOR NOW, MENUS DO NOT UNDERSTAND TRAVERSAL */ /* new->manager.traversal_on = FALSE; */ /* * Save a copy of the posting event string, and also convert it * into a form which can be compared against an X button event. */ if ((new->menu_mgr.postString) && (strlen(new->menu_mgr.postString) > 0)) { if (_XwMapBtnEvent (new->menu_mgr.postString, &new->menu_mgr.postEventType, &new->menu_mgr.postButton, &new->menu_mgr.postModifiers) == FALSE) { /* String was not valid; use the default one */ XtWarning("MenuMgr: Invalid post event; using "); new->menu_mgr.postString = (String) strcpy (XtMalloc (XwStrlen ("") + 1), ""); _XwMapBtnEvent ("", &new->menu_mgr.postEventType, &new->menu_mgr.postButton, &new->menu_mgr.postModifiers); } else { /* String was valid */ new->menu_mgr.postString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.postString) + 1), new->menu_mgr.postString); } } else { new->menu_mgr.postString = NULL; new->menu_mgr.postModifiers = 0; new->menu_mgr.postButton = 0; } /* * Save a copy of the selecting event string, and also convert it * into a form which can be compared against an X button event. */ if ((new->menu_mgr.selectString) && (strlen(new->menu_mgr.selectString) > 0)) { if (_XwMapBtnEvent (new->menu_mgr.selectString, &new->menu_mgr.selectEventType, &new->menu_mgr.selectButton, &new->menu_mgr.selectModifiers) == FALSE) { /* String was not valid; use the default one */ XtWarning("MenuMgr: Invalid select event; using "); new->menu_mgr.selectString = (String) strcpy (XtMalloc (XwStrlen ("") + 1), ""); _XwMapBtnEvent ("", &new->menu_mgr.selectEventType, &new->menu_mgr.selectButton, &new->menu_mgr.selectModifiers); } else { /* String was valid */ new->menu_mgr.selectString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.selectString) + 1), new->menu_mgr.selectString); } } else { new->menu_mgr.selectString = NULL; new->menu_mgr.selectModifiers = 0; new->menu_mgr.selectButton = 0; } /* * Save a copy of the unposting event string, and also convert it * into a form which can be compared against an X button event. */ if ((new->menu_mgr.unpostString) && (strlen(new->menu_mgr.unpostString) > 0)) { if (_XwMapKeyEvent (new->menu_mgr.unpostString, &new->menu_mgr.unpostEventType, &tempKeysym, &new->menu_mgr.unpostModifiers) == FALSE) { /* String was not valid; use the default one */ XtWarning("MenuMgr: Invalid unpost event; disabling option"); new->menu_mgr.unpostString = NULL; } else { /* String was valid */ new->menu_mgr.unpostKey = XKeysymToKeycode(XtDisplay(new),tempKeysym); new->menu_mgr.unpostString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.unpostString) + 1), new->menu_mgr.unpostString); } } else { new->menu_mgr.unpostString = NULL; new->menu_mgr.unpostModifiers = 0; new->menu_mgr.unpostKey = 0; } /* * Save a copy of the kbd select event string, and also convert it * into a form which can be compared against an X key event. */ if ((new->menu_mgr.kbdSelectString) && (strlen(new->menu_mgr.kbdSelectString) > 0)) { if (_XwMapKeyEvent (new->menu_mgr.kbdSelectString, &new->menu_mgr.kbdSelectEventType, &tempKeysym, &new->menu_mgr.kbdSelectModifiers) == FALSE) { /* String was not valid; use the default one */ XtWarning("MenuMgr: Invalid keyboard select event; using default"); new->menu_mgr.kbdSelectString = (String) strcpy (XtMalloc (XwStrlen ("Select") + 1), "Select"); _XwMapKeyEvent ("Select", &new->menu_mgr.kbdSelectEventType, &new->menu_mgr.kbdSelectKey, &new->menu_mgr.kbdSelectModifiers); } else { /* String was valid */ new->menu_mgr.kbdSelectKey = XKeysymToKeycode(XtDisplay(new),tempKeysym); new->menu_mgr.kbdSelectString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.kbdSelectString) + 1), new->menu_mgr.kbdSelectString); } } else { new->menu_mgr.kbdSelectString = NULL; new->menu_mgr.kbdSelectModifiers = 0; new->menu_mgr.kbdSelectKey = 0; } /* Allocate space for each of the tables used by a menu manager */ new->menu_mgr.menuBtnAccelTable = (XwKeyAccel *) XtMalloc(100 * sizeof(XwKeyAccel)); new->menu_mgr.numAccels = 0; new->menu_mgr.sizeAccelTable = 100; new->menu_mgr.pendingAttachList = (XwAttachList *) XtMalloc(25 * sizeof(XwAttachList)); new->menu_mgr.numAttachReqs = 0; new->menu_mgr.sizeAttachList = 25; /* Set menu flags */ new->menu_mgr.menuActive = FALSE; } /* Initialize */ /*************************************<->************************************* * * SetValues() * * Description: * ----------- * * This procedure simply checks to see if the post or select specification * has changed, and allocates space for the new string and frees up the * old string. It will also map the new specification into a button/ * modifier pair. * * NOTE: When a new post or select string is specified, this routine will * allocate space for the new string, but will NOT free up the old * string; thus, our subclasses can check to see if these strings * differ, and can remove any translations. It is then upto the * subclass to free the old string and to modify any translations or * button grabs which are associated with the post or select actions. * * It is also the responsibility of the subclass to check the state * of the 'associate children' flag, and to modify any corresponding * translations or grabs. * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues (current, request, new) XwMenuMgrWidget current, request, new; { KeySym tempKeysym; /* FOR NOW, MENUS DO NOT UNDERSTAND TRAVERSAL */ /* new->manager.traversal_on = FALSE; */ /* Handle the case of a changed posting string */ if (current->menu_mgr.postString != new->menu_mgr.postString) { /* Allocate a new buffer to hold the string */ if ((new->menu_mgr.postString) && (strlen(new->menu_mgr.postString) > 0)) { if (_XwMapBtnEvent (new->menu_mgr.postString, &new->menu_mgr.postEventType, &new->menu_mgr.postButton, &new->menu_mgr.postModifiers) == FALSE) { /* Invalid post string; use the previous one */ XtWarning("MenuMgr: Invalid post event; using previous setting"); new->menu_mgr.postString = current->menu_mgr.postString; new->menu_mgr.postEventType = current->menu_mgr.postEventType; new->menu_mgr.postButton = current->menu_mgr.postButton; new->menu_mgr.postModifiers = current->menu_mgr.postModifiers; } else { /* Valid post string */ new->menu_mgr.postString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.postString) + 1), new->menu_mgr.postString); } } else { new->menu_mgr.postString = NULL; new->menu_mgr.postEventType = 0; new->menu_mgr.postButton = 0; new->menu_mgr.postModifiers = 0; } /* * Don't free up the buffer holding the old post string. * This is to be done by our subclass. */ } /* Handle the case of a changed select string */ if (current->menu_mgr.selectString != new->menu_mgr.selectString) { /* Allocate a new buffer to hold the string */ if ((new->menu_mgr.selectString) && (strlen(new->menu_mgr.selectString) > 0)) { if (_XwMapBtnEvent (new->menu_mgr.selectString, &new->menu_mgr.selectEventType, &new->menu_mgr.selectButton, &new->menu_mgr.selectModifiers) == FALSE) { /* Invalid select string; use the previous one */ XtWarning("MenuMgr: Invalid select event; using previous setting"); new->menu_mgr.selectString = current->menu_mgr.selectString; new->menu_mgr.selectEventType = current->menu_mgr.selectEventType; new->menu_mgr.selectButton = current->menu_mgr.selectButton; new->menu_mgr.selectModifiers = current->menu_mgr.selectModifiers; } else { /* Valid select string */ new->menu_mgr.selectString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.selectString) + 1), new->menu_mgr.selectString); } } else { new->menu_mgr.selectString = NULL; new->menu_mgr.selectEventType = 0; new->menu_mgr.selectButton = 0; new->menu_mgr.selectModifiers = 0; } /* * Don't free up the buffer holding the old select string. * This is to be done by our subclass. */ } /* Handle the case of a changed unposting string */ if (current->menu_mgr.unpostString != new->menu_mgr.unpostString) { /* Allocate a new buffer to hold the string */ if ((new->menu_mgr.unpostString) && (strlen(new->menu_mgr.unpostString) > 0)) { if (_XwMapKeyEvent (new->menu_mgr.unpostString, &new->menu_mgr.unpostEventType, &tempKeysym, &new->menu_mgr.unpostModifiers) == FALSE) { /* Invalid unpost string; use the previous one */ XtWarning("MenuMgr: Invalid unpost event; using previous setting"); new->menu_mgr.unpostString = current->menu_mgr.unpostString; new->menu_mgr.unpostEventType = current->menu_mgr.unpostEventType; new->menu_mgr.unpostKey = current->menu_mgr.unpostKey; new->menu_mgr.unpostModifiers = current->menu_mgr.unpostModifiers; } else { /* Valid unpost string */ new->menu_mgr.unpostKey = XKeysymToKeycode(XtDisplay(new), tempKeysym); new->menu_mgr.unpostString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.unpostString) + 1), new->menu_mgr.unpostString); } } else { new->menu_mgr.unpostString = NULL; new->menu_mgr.unpostEventType = 0; new->menu_mgr.unpostKey = 0; new->menu_mgr.unpostModifiers = 0; } /* * Don't free up the buffer holding the old unpost string. * This is to be done by our subclass. */ } /* Handle the case of a changed kbd select string */ if (current->menu_mgr.kbdSelectString != new->menu_mgr.kbdSelectString) { /* Allocate a new buffer to hold the string */ if ((new->menu_mgr.kbdSelectString) && (strlen(new->menu_mgr.kbdSelectString) > 0)) { if (_XwMapKeyEvent (new->menu_mgr.kbdSelectString, &new->menu_mgr.kbdSelectEventType, &tempKeysym, &new->menu_mgr.kbdSelectModifiers) == FALSE) { /* Invalid kbd select string; use the previous one */ XtWarning ("MenuMgr: Invalid keyboard select event; using previous setting"); new->menu_mgr.kbdSelectString = current->menu_mgr.kbdSelectString; new->menu_mgr.kbdSelectEventType = current->menu_mgr.kbdSelectEventType; new->menu_mgr.kbdSelectKey = current->menu_mgr.kbdSelectKey; new->menu_mgr.kbdSelectModifiers = current->menu_mgr.kbdSelectModifiers; } else { /* Valid kbd select string */ new->menu_mgr.kbdSelectKey = XKeysymToKeycode(XtDisplay(new), tempKeysym); new->menu_mgr.kbdSelectString = (String) strcpy (XtMalloc (XwStrlen (new->menu_mgr.kbdSelectString) + 1), new->menu_mgr.kbdSelectString); } } else { new->menu_mgr.kbdSelectString = NULL; new->menu_mgr.kbdSelectEventType = 0; new->menu_mgr.kbdSelectKey = 0; new->menu_mgr.kbdSelectModifiers = 0; } /* * Don't free up the buffer holding the old kbd select string. * This is to be done by our subclass. */ } return (FALSE); } /*************************************<->************************************* * * Destroy * * Description: * ----------- * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Destroy (mw) XwMenuMgrWidget mw; { /* Free up our resources */ if (mw->menu_mgr.postString) XtFree (mw->menu_mgr.postString); if (mw->menu_mgr.selectString) XtFree (mw->menu_mgr.selectString); if (mw->menu_mgr.unpostString) XtFree (mw->menu_mgr.unpostString); if (mw->menu_mgr.kbdSelectString) XtFree (mw->menu_mgr.kbdSelectString); XtFree ((char *)(mw->menu_mgr.menuBtnAccelTable)); XtFree ((char *)(mw->menu_mgr.pendingAttachList)); } xcircuit-3.9.73/Xw/SourceP.h0000664000175000001440000000470612335667422014331 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: SourceP.h ** ** Project: X Widgets ** ** Description: private include file for TextEdit widget sources ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ #ifndef _XwTextEditSourcePrivate_h #define _XwTextEditSourcePrivate_h #define applySource(method) (*(self->text.source->method)) #define XwEstringSrc "stringsrc" #define XwEdiskSrc "disksrc" typedef struct _StringSourceData { XwEditType editMode; unsigned char *buffer; unsigned char *initial_string; XwTextPosition length, /* current data size of buffer */ buffer_size, /* storage size of buffer */ max_size; /* user specified buffer limit */ int max_size_flag; /* flag to test max_size set */ } StringSourceData, *StringSourcePtr; #endif /* DON'T ADD STUFF AFTER THIS #endif */ xcircuit-3.9.73/Xw/Cascade.h0000664000175000001440000000311012335667422014260 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Cascade.h ** ** Project: X Widgets ** ** Description: Public include file for Cascading menupane class widgets ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * Cascading MenuPane Widget (subclass of MenuPane) * ***********************************************************************/ /* Class record constants */ extern WidgetClass XwcascadeWidgetClass; typedef struct _XwCascadeClassRec *XwCascadeWidgetClass; typedef struct _XwCascadeRec *XwCascadeWidget; xcircuit-3.9.73/Xw/BBoard.c0000664000175000001440000002402512335667422014071 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: BBoard.c ** ** Project: X Widgets ** ** Description: Code and class record for Bulletin Board Widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include static void Initialize(); static XtGeometryResult GeometryManager(); static void ChangeManaged(); /**************************************************************** * * Full class record constant * ****************************************************************/ XwBulletinClassRec XwbulletinClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwmanagerClassRec, /* class_name */ "XwBulletinBoard", /* widget_size */ sizeof(XwBulletinRec), /* class_initialize */ NULL, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ (XtInitProc) Initialize, /* initialize_hook */ NULL, /* realize */ _XwRealize, /* actions */ NULL, /* num_actions */ 0, /* resources */ NULL, /* num_resources */ 0, /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ NULL, /* resize */ NULL, /* expose */ NULL, /* set_values */ NULL, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback_private */ NULL, /* tm_table */ NULL, /* query_geometry */ NULL, XtInheritDisplayAccelerator, NULL, },{ /* composite_class fields */ /* geometry_manager */ (XtGeometryHandler) GeometryManager, /* change_managed */ (XtWidgetProc) ChangeManaged, /* insert_child */ XtInheritInsertChild, /* from superclass */ /* delete_child */ XtInheritDeleteChild, /* from superclass */ NULL, },{ /* constraint_class fields */ /* resource list */ NULL, /* num resources */ 0, /* constraint size */ 0, /* init proc */ NULL, /* destroy proc */ NULL, /* set values proc */ NULL, NULL },{ /* manager_class fields */ /* traversal handler */ (XwTraversalProc) XtInheritTraversalProc, /* translations */ NULL, },{ /* bulletin board class - none */ /* no new fields */ 0 } }; WidgetClass XwbulletinWidgetClass = (WidgetClass)&XwbulletinClassRec; WidgetClass XwbulletinBoardWidgetClass = (WidgetClass)&XwbulletinClassRec; /*************************************<->************************************* * * CalcSize * * Description: * ----------- * Figure out how much size we need. * *************************************<->***********************************/ static Boolean CalcSize(bb, width, height, replyWidth, replyHeight) XwBulletinWidget bb; Dimension width, height; Dimension *replyWidth, *replyHeight; { Cardinal i, j, numItems; Dimension minWidth, minHeight; Widget box; /* Current item */ /* * If there are no items then any space will work */ if ((numItems=bb->manager.num_managed_children) <= 0) { if ((replyWidth != NULL) && (replyHeight != NULL)) { *replyWidth = 10; *replyHeight = 10; } return(TRUE); } /* * Compute the minimum width & height for this box * by summing the rectangles of all children. */ minWidth = minHeight = 0; for (i=0; i < numItems; i++) { box = (Widget) bb->manager.managed_children[i]; minWidth = Max (minWidth, (box->core.x + 2*box->core.border_width + box->core.width)); minHeight = Max (minHeight, (box->core.y + 2*box->core.border_width + box->core.height)); } if (bb->manager.layout == XwMAXIMIZE) { minWidth = Max (minWidth, width); minHeight = Max (minHeight, height); } if (replyWidth != NULL) *replyWidth = minWidth; if (replyHeight != NULL) *replyHeight = minHeight; if ((width < minWidth) || (height < minHeight)) return (FALSE); return (TRUE); } /*************************************<->************************************* * * DoLayout * * Description: * ----------- * Try to do a new layout within the current width and height; * if that fails try to do it within the box returned by CalcSize * * *************************************<->***********************************/ static Boolean DoLayout(bb) XwBulletinWidget bb; { Dimension width, height; XtWidgetGeometry request, reply; (void) CalcSize(bb, bb->core.width, bb->core.height, &width, &height); if ((bb->manager.layout == XwIGNORE) || /* don't care if it fits */ ((bb->core.width == width) && (bb->core.height == height) && bb->manager.layout != XwSWINDOW)) return (TRUE); /* Same size & NOT special case */ if (bb->manager.layout == XwMAXIMIZE) { width = Max (bb->core.width, width); height = Max (bb->core.height, height); } switch (XtMakeResizeRequest ((Widget) bb, width, height, &width, &height)) { case XtGeometryYes: return (TRUE); case XtGeometryNo: return (FALSE); case XtGeometryAlmost: /* TAKE WHAT YOU CAN GET! */ (void) XtMakeResizeRequest((Widget) bb, width, height, NULL, NULL); return (TRUE); } } /*************************************<->************************************* * * Initialize * * Description: * ----------- * Make sure height and width are not set to zero at initialize time. * *************************************<->***********************************/ static void Initialize (request, new) XwBulletinWidget request, new; { /* DON'T ALLOW HEIGHT/WIDTH TO BE 0, BECAUSE X DOESN'T HANDLE THIS WELL */ if (new->core.width == 0) new->core.width = 10; if (new->core.height == 0) new->core.height = 10; } /*************************************<->************************************* * * GeometryManager(w, request, reply) * * *************************************<->***********************************/ static XtGeometryResult GeometryManager(w, request, reply) Widget w; XtWidgetGeometry *request; XtWidgetGeometry *reply; /* RETURN */ { Dimension width, height, borderWidth, junk; XwBulletinWidget bb; Boolean geoFlag; XtGeometryHandler manager; XtGeometryResult returnCode; /* * IF LAYOUT MODE IS XwSWINDOW ( PARENT HAD BETTER BE A SUBCLASS OF * SCROLLED WINDOW) THEN SIMPLY PASS THIS REQUEST TO MY PARENT AND * RETURN ITS RESPONSE TO THE REQUESTING WIDGET. */ bb = (XwBulletinWidget) w->core.parent; if (bb->manager.layout == XwSWINDOW) { manager = ((CompositeWidgetClass) (bb->core.parent->core.widget_class)) ->composite_class.geometry_manager; returnCode = (*manager)(w, request, reply); return(returnCode); } /* Since this is a bulletin board, all position requests * are accepted. */ if (request->request_mode & (CWX | CWY)) XtMoveWidget( w, ((request->request_mode & CWX) == 0) ? w->core.x : request->x , ((request->request_mode & CWY) == 0) ? w->core.y : request->y ); /* Fill out entire request record */ if ((request->request_mode & CWWidth) == 0) request->width = w->core.width; if ((request->request_mode & CWHeight) == 0) request->height = w->core.height; if ((request->request_mode & CWBorderWidth) == 0) request->border_width = w->core.border_width; /* Save current size and set to new size */ width = w->core.width; height = w->core.height; borderWidth = w->core.border_width; w->core.width = request->width; w->core.height = request->height; w->core.border_width = request->border_width; geoFlag = DoLayout(bb); w->core.width = width; w->core.height = height; w->core.border_width = borderWidth; if (geoFlag) { XtResizeWidget(w, request->width, request->height, request->border_width); return(XtGeometryDone); } return (XtGeometryNo); } /*************************************<->************************************* * * ChangeManaged * * Description: * ----------- * Restructure the manager's "managed children" list. Then re-lay * out children. * *************************************<->***********************************/ static void ChangeManaged(bb) XwBulletinWidget bb; { /* Put "managed children" info together again */ _XwReManageChildren ((XwManagerWidget)bb); /* Reconfigure the bulletinboard */ (void) DoLayout(bb); } xcircuit-3.9.73/Xw/Imakefile0000664000175000001440000000260112335667422014401 0ustar timusers# Compile flags CC = cc # If you wish to compile with gcc: #CC = gcc # cckr is for SGI only (non-ansi-standard switch): #CCOPTIONS = -O2 -cckr -Wf,-XNh2000 # for DEC Alpha: #CCOPTIONS = -Olimit 1000 -taso # for DEC ULTRIX: #CCOPTIONS = -Olimit 1000 # for Linux: #CCOPTIONS = -O2 -w -m486 # otherwise (Sun, gcc, etc.): #CCOPTIONS = -O2 -w # CDEBUGFLAGS is passed from top-level Imakefile INCLUDES = -I.. -I$(TOP) INSTALLFLAGS = $(INSTINCFLAGS) HEADERS = \ BBoard.h \ BBoardP.h \ Cascade.h \ CascadeP.h \ DisplayP.h \ Form.h \ FormP.h \ MenuBtn.h \ MenuBtnP.h \ PButton.h \ PButtonP.h \ PopupMgr.h \ PopupMgrP.h \ SText.h \ STextP.h \ SourceP.h \ TextEdit.h \ TextEditP.h \ Toggle.h \ ToggleP.h \ WorkSpace.h \ WorkSpaceP.h \ Xw.h \ XwP.h SRCS = \ BBoard.c\ Button.c\ Cascade.c\ Display.c\ Form.c\ Manager.c\ MapEvents.c\ MenuBtn.c\ MenuMgr.c\ MenuPane.c\ PButton.c\ PopupMgr.c\ Primitive.c\ ResConvert.c\ SText.c\ SourceStr.c\ TextEdit.c\ Toggle.c\ Traversal.c\ WorkSpace.c OBJS = \ BBoard.o\ Button.o\ Cascade.o\ Display.o\ Form.o\ Manager.o\ MapEvents.o\ MenuBtn.o\ MenuMgr.o\ MenuPane.o\ PButton.o\ PopupMgr.o\ Primitive.o\ ResConvert.o\ SText.o\ SourceStr.o\ TextEdit.o\ Toggle.o\ Traversal.o\ WorkSpace.o NormalLibraryObjectRule() NormalLibraryTarget(xcXw,$(OBJS)) DependTarget() clean:: rm *.o veryclean:: rm *.o libxcXw.a xcircuit-3.9.73/Xw/Traversal.c0000664000175000001440000011003212335667422014675 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Traversal.c ** ** Project: X Widgets ** ** Description: Code to support a generalized traversal handler for ** subclasses of XwManager. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include /* abs */ static int Overlap(); static void MoveNext(); static void MovePrev(); static void MoveTraversal(); static void Start(); static void Home(); static void TraverseToChild (); static void ClearKbdFocus(); static Widget RightCheck(); static Widget LeftCheck(); static Widget UpCheck(); static Widget DownCheck(); static Widget ValidChoice(); static Boolean _XwManagerIsTraversable(); /* Structures used to maintain the traversal checklist */ typedef enum { XwVERIFY_ONLY, XwADD_TO_CHOSEN_LIST, XwADD_TO_ACTIVE_LIST, XwCLEAR_ACTIVE_LIST } XwValidChoiceActions; typedef enum { XwNONE, XwCHOSEN, XwACTIVE } XwEntryType; typedef struct { Widget widget; XwEntryType type; } _XwCheckListEntry; /* * Globals used to maintain a list of those widgets already checked * during a traversal request. */ _XwCheckListEntry * _XwCheckList = NULL; int _XwCheckListSize = 0; int _XwCheckListIndex = 0; /* A manager's traversal handler will be invoked with: Upper Left Point: (x1, y1) Lower Right Point: (x2, y2) Direction: XwTRAVERSE_CURRENT XwTRAVERSE_LEFT XwTRAVERSE_RIGHT XwTRAVERSE_UP XwTRAVERSE_DOWN XwTRAVERSE_NEXT XwTRAVERSE_PREV XwTRAVERSE_HOME XwTRAVERSE_NEXT_TOP A manager has an active child which may be NULL. Widgets under consideration to receive the keyboard focus are called candidate widgets. In order to be a candidate, a widget must be traversable. This means that it must be: 1) a subclass of primitive, and sensitive (it and its ancestor) visible managed have its "mapped_when_managed" flag set to TRUE, and traversal_type=XwHIGHLIGHT_TRAVERSAL 2) a composite with a traversable primitive Step 1: See if the manager contains any children which are traversable. If not, set the "active_child" to NULL and if the parent of this manager is a subclass of manager AND that parent has traversal on, then invoke its traversal handling procedure directly, otherwise return focus to the root. <<<>>> If we do have someone who can accept the focus, then continue. Step 2: The caller of this procedure supplies POINT1, POINT2 and the DIRECTION. Pass control to the specified direction handler. */ /**********************************/ /* Globals for Traversal Routines */ /**********************************/ static int widget_type; static XwManagerWidget parent; static Boolean parent_is_manager; void mgr_traversal (mgr, ul, lr, direction) XwManagerWidget mgr; XPoint ul, lr; int direction; { XPoint newUl, newLr; parent = (XwManagerWidget)mgr->core.parent; parent_is_manager = XtIsSubclass((Widget)parent,XwmanagerWidgetClass); if (direction == XwTRAVERSE_NEXT_TOP) { if (parent_is_manager) { newUl.x = newUl.y = newLr.x = newLr.y = 0; (*(((XwManagerWidgetClass)(parent->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)parent, newUl, newLr, direction); } else { XtCallCallbacks((Widget)mgr, XtNnextTop, NULL); } return; } if ((_XwFindTraversablePrim (mgr) == FALSE) || (!_XwManagerIsTraversable(mgr))) { if (mgr->manager.active_child != NULL) mgr->manager.active_child = (Widget)NULL; if (parent_is_manager && parent->manager.traversal_on) { newUl.x = ul.x + mgr->core.x; newUl.y = ul.y + mgr->core.y; newLr.x = lr.x + mgr->core.x; newLr.y = lr.y + mgr->core.y; (*(((XwManagerWidgetClass)(parent->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)parent, newUl, newLr, direction); } else ClearKbdFocus((Widget) mgr); return; } /************************************ * * THERE IS A CHILD TO TRAVERSE TO, * DETERMINE DIRECTION & DO TRAVERSAL * ************************************/ switch(direction) { case XwTRAVERSE_NEXT: MoveNext((XwManagerWidget)mgr,ul, lr, direction); return; case XwTRAVERSE_PREV: MovePrev((XwManagerWidget)mgr,ul, lr, direction); return; case XwTRAVERSE_DOWN: case XwTRAVERSE_UP: case XwTRAVERSE_RIGHT: case XwTRAVERSE_LEFT: MoveTraversal((XwManagerWidget)mgr,ul, lr, direction); return; case XwTRAVERSE_CURRENT: Start((XwManagerWidget)mgr, ul, lr ,direction); return; case XwTRAVERSE_HOME: Home((XwManagerWidget)mgr, ul, lr ,direction); return; } } /* DIRECTION = RIGHT (All other directions are just variations of this) ================= Step 1) Find the widget to the right of the active child. If widget A is the current active child and its upper left and lower right points are defined by (x1,y1) and (x2,y2) respectively; and widget B is a candidate widget whose upper left and lower right points are defined by (x1',y1') and (x2',y2'). Then widget B is to the right of widget A IFF ((x1 < x1') OR (if (x1 = x1') then (x2' > x2)) AND (y1 <= y2') AND (y2 >= y1') If there is more than 1 candidate then choose the candidate with the smallest value for: (x1' - x1) If 2 or more candidates have the same value for (x1'-x1) then choose the candidate with the smallest value for: |(x2' - x2)| If 2 or more candidates have the same value for |(x2'-x2)| then choose the candidate with the largest overlap of widget A along its y dimension: if (y2' >= y2) then if (y1' <= y1) then overlap = height of active child else overlap = y2 - y1' else if (y1' <= y1) then overlap = y2' - y1 else overlap = height of candidate If 2 or more candidates have the same overlap then choose the widget with the smallest value for y1'. If 2 or more candidates have the same value for y1' then choose the widget with the smallest value for y2'. It should not be possible for 2 candidates to get this far since it would mean that one exactly overlaps the other, which should mean that the visibility flag of the obscured widget should be FALSE (thus making it un-traversable), however, if we do get this far, arbitrarily choose the first candidate. Step 2) If no widget is to the right of the active child then: if widget A's grandparent is a subclass of XwManager then -set manager's active child field to NULL -invoke grandparent's traversal handler with: Upper Left Point: x1=x1+parent's x coordinate y1=y1+parent's y coordinate Lower Right Point: x2=x2+parent's x coordinate y2=y2+parent's y coordinate Direction = XwTRAVERSE_RIGHT if widget A's grandparent is NOT a subclass of XwManager then -set manager's active child field to NULL -invoke parent's traversal handler with: Upper Left Point: x1=0, y1=y1; Lower Right Point: x2=0, y2=y2; Direction = XwTRAVERSE_RIGHT Step 3) If a candidate has been chosen, then set it as the active child of its parent and: if it is a subclass of XwPrimitive then -give it keyboard focus using XSetInputFocus function. else (its a manager subclass) -invoke its traversal handler with: Upper Left Point: x1=x1 - x1'; y1=y1 - y1' Lower Right Point: x2=x2 - x2'; y2=y2 - y2' Direction = XwTRAVERSE_RIGHT */ static void MoveTraversal (mw, ul, lr, direction) XwManagerWidget mw; XPoint ul, lr; int direction; { Widget candidate, chosen; int chosen_widget_type; int i=(-1); XPoint cand_ul, cand_lr; chosen = NULL; while (++i < mw->composite.num_children) { candidate = mw->composite.children[i]; if ((candidate != mw->manager.active_child) && XwTestTraversability(candidate, &widget_type)) { cand_ul.x = candidate->core.x; cand_ul.y = candidate->core.y; cand_lr.x = candidate->core.x + candidate->core.width + (candidate->core.border_width << 1) - 1; cand_lr.y = candidate->core.y + candidate->core.height + (candidate->core.border_width << 1) - 1; switch (direction) { case XwTRAVERSE_RIGHT: chosen=RightCheck (chosen, ul, lr, candidate, cand_ul, cand_lr); break; case XwTRAVERSE_LEFT: chosen = LeftCheck (chosen, ul, lr, candidate, cand_ul, cand_lr); break; case XwTRAVERSE_UP: chosen = UpCheck (chosen, ul, lr, candidate, cand_ul, cand_lr); break; case XwTRAVERSE_DOWN: chosen = DownCheck (chosen, ul, lr, candidate, cand_ul, cand_lr); break; } } if (chosen == candidate) chosen_widget_type = widget_type; } if (chosen == NULL) /* no widget in specified direction! */ { /* * Since our parent is a manager, see if there is another sibling * of ours which can be traversed to. */ mw->manager.active_child = NULL; if (parent_is_manager) /* really grandparent of active child */ { /* Add ourselves to the active list */ ValidChoice (mw, mw, XwADD_TO_ACTIVE_LIST); ul.x += mw->core.x; ul.y += mw->core.y; lr.x += mw->core.x; lr.y += mw->core.y; (*(((XwManagerWidgetClass)(parent->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)parent, ul, lr, direction); } else { /* Wrap to opposite edge */ /* Clear the active traversal list */ ValidChoice (NULL, NULL, XwCLEAR_ACTIVE_LIST); switch (direction) { case XwTRAVERSE_RIGHT: { ul.x = -10000; lr.x = -10000; break; } case XwTRAVERSE_LEFT: { ul.x = mw->core.width + (mw->core.border_width << 1); lr.x = mw->core.width + (mw->core.border_width << 1); break; } case XwTRAVERSE_UP: { ul.y = mw->core.height + (mw->core.border_width << 1); lr.y = mw->core.height + (mw->core.border_width << 1); break; } case XwTRAVERSE_DOWN: { ul.y = -10000; lr.y = -10000; break; } } (*(((XwManagerWidgetClass)(mw->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)mw, ul, lr, direction); } } else { ValidChoice(chosen, chosen, XwADD_TO_CHOSEN_LIST); TraverseToChild(mw, chosen, ul, lr, direction); } } static void Start (mw, ul, lr, direction) XwManagerWidget mw; XPoint ul, lr; int direction; { Widget candidate, chosen; int i=0; chosen = NULL; /* To prevent endless recursion, see if the child has already been checked */ if ((mw->manager.active_child != NULL) && (ValidChoice(NULL, mw->manager.active_child, XwVERIFY_ONLY))) { if (XwTestTraversability(mw->manager.active_child, &widget_type)) { ValidChoice(chosen, chosen, XwADD_TO_CHOSEN_LIST); TraverseToChild (mw, mw->manager.active_child, ul, lr, direction); } } else { while (i < mw->composite.num_children) { candidate = mw->composite.children[i]; if (XwTestTraversability(candidate, &widget_type)) { if (chosen==NULL) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if ((candidate->core.x+candidate->core.y) < (chosen->core.x+chosen->core.y)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); } } i++; } ValidChoice(chosen, chosen, XwADD_TO_CHOSEN_LIST); TraverseToChild(mw, chosen, ul, lr, direction); } } /* We are guaranteed that there is a child to traverse to! */ static void MoveNext (mw, ul, lr, direction) XwManagerWidget mw; XPoint ul, lr; int direction; { int i=0; parent = (XwManagerWidget)mw->core.parent; parent_is_manager = XtIsSubclass((Widget)parent,XwmanagerWidgetClass); if (mw->manager.active_child != NULL) { ul.x = (mw->manager.active_child)->core.x; ul.y = (mw->manager.active_child)->core.y; lr.x = ul.x + (mw->manager.active_child)->core.width + ((mw->manager.active_child)->core.border_width << 1) - 1; lr.y = ul.y + (mw->manager.active_child)->core.height + ((mw->manager.active_child)->core.border_width << 1) - 1; /* FIND INDEX OF CURRENTLY ACTIVE CHILD */ while ((mw->composite.children[i] != mw->manager.active_child) && (i < mw->composite.num_children))i++; } else /* START LOOKING AT START OF LIST + 1 (TO ALLOW FOR 1ST DECREMENT) * NOTE: THIS ALSO TAKES CARE OF THE DEGENERATE CASE WHEN THERE * ARE NO CHILDREN. IN THIS CASE THE PARENT "MUST" BE A SUBCLASS * OF XWMANAGER OR WE WOULD NEVER HAVE GOTTEN HERE. */ i = -1; /* * IF WE'VE COME TO THE END OF THE WIDGET LIST AND THE PARENT * IS ALSO A SUBCLASS OF XWMANAGER, THEN INVOKE THE PARENT'S * TRAVERSAL HANDLER, OTHERWISE, WRAP THE COUNTER TO START LOOKING * AT THE LIST AGAIN. */ if (++i >= mw->composite.num_children) { if (parent_is_manager) { mw->manager.active_child = NULL; (*(((XwManagerWidgetClass)(parent->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)parent, ul, lr, direction); return; } else i=0; } /* FIND NEXT TRAVERSABLE WIDGET --THERE MUST BE ONE! */ while (! XwTestTraversability(mw->composite.children[i], &widget_type)) if (++i >= mw->composite.num_children) i=0; TraverseToChild(mw, mw->composite.children[i], ul, lr, direction); } /* We are guaranteed that there is a child to traverse to! */ static void MovePrev (mw, ul, lr, direction) XwManagerWidget mw; XPoint ul, lr; int direction; { int i; parent = (XwManagerWidget)mw->core.parent; parent_is_manager = XtIsSubclass((Widget)parent,XwmanagerWidgetClass); if (mw->manager.active_child != NULL) { ul.x = (mw->manager.active_child)->core.x; ul.y = (mw->manager.active_child)->core.y; lr.x = ul.x + (mw->manager.active_child)->core.width + ((mw->manager.active_child)->core.border_width << 1) - 1; lr.y = ul.y + (mw->manager.active_child)->core.height + ((mw->manager.active_child)->core.border_width << 1) - 1; /* FIND INDEX OF CURRENTLY ACTIVE CHILD */ i=mw->composite.num_children -1; while ((mw->composite.children[i] != mw->manager.active_child) && (i > 0))i--; } else /* START LOOKING AT END OF LIST + 1 (TO ALLOW FOR 1ST DECREMENT) * NOTE: THIS ALSO TAKES CARE OF THE DEGENERATE CASE WHEN THERE * ARE NO CHILDREN. IN THIS CASE THE PARENT "MUST" BE A SUBCLASS * OF XWMANAGER OR WE WOULD NEVER HAVE GOTTEN HERE. */ i = mw->composite.num_children; /* * IF WE'VE COME TO THE END OF THE WIDGET LIST AND THE PARENT * IS ALSO A SUBCLASS OF XWMANAGER, THEN INVOKE THE PARENT'S * TRAVERSAL HANDLER, OTHERWISE, WRAP THE COUNTER TO START LOOKING * AT THE LIST AGAIN. */ if (--i < 0) { if (parent_is_manager) { mw->manager.active_child = NULL; (*(((XwManagerWidgetClass)(parent->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)parent, ul, lr, direction); return; } else i = (mw->composite.num_children)-1; } /* FIND NEXT TRAVERSABLE WIDGET --THERE MUST BE ONE! */ while (! XwTestTraversability(mw->composite.children[i], &widget_type)) if (--i < 0) i = (mw->composite.num_children)-1; TraverseToChild (mw, mw->composite.children[i], ul, lr, direction); } static int Overlap (pt1, pt2, w) XPoint pt1, pt2; Widget w; { XPoint pt1_prime, pt2_prime; pt1_prime.x = w->core.x; pt1_prime.y = w->core.y; pt2_prime.x = w->core.x + w->core.width + (w->core.border_width << 1) - 1; pt2_prime.y = w->core.y + w->core.height + (w->core.border_width << 1) - 1; if (pt2_prime.y >= pt2.y) { if (pt1_prime.y <= pt1.y) return(pt2.y - pt1.y); else return(pt2.y - pt1_prime.y); } else { if (pt1_prime.y <= pt1.y) return(pt2_prime.y - pt1.y); else return(w->core.height); } } /* CALCULATE OVERLAP IN X DIRECTION */ static int xOverlap (pt1, pt2, w) XPoint pt1, pt2; Widget w; { XPoint pt1_prime, pt2_prime; pt1_prime.x = w->core.x; pt1_prime.y = w->core.y; pt2_prime.x = w->core.x + w->core.width + (w->core.border_width << 1) - 1; pt2_prime.y = w->core.y + w->core.height + (w->core.border_width << 1) - 1; if (pt2_prime.x >= pt2.x) { if (pt1_prime.x <= pt1.x) return(pt2.x - pt1.x); else return(pt2.x - pt1_prime.x); } else { if (pt1_prime.x <= pt1.x) return(pt2_prime.x - pt1.x); else return(w->core.width); } } /* * HOME: If I get called there is NO guarantee that there is something * which is traversable. This is due to the way that X generates * its visiblity events; the manager is notified before its children. * Thus, the manager may still think it has traversable children, * when in fact it doesn't. That is why we must have a special * check to see that a child really was chosen. */ static void Home (mw, ul, lr, direction) XwManagerWidget mw; XPoint ul, lr; int direction; { Widget candidate, chosen; int chosen_widget_type; int i=(-1); chosen = NULL; /* search thru list of children to find child which is closest to origin and which is traversable. */ while (++i < mw->composite.num_children) { candidate = mw->composite.children[i]; if (XwTestTraversability(candidate, &widget_type)) { if (chosen==NULL) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if ((candidate->core.x+candidate->core.y) < (chosen->core.x+chosen->core.y)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); } } if (chosen == candidate) chosen_widget_type = widget_type; } /* * If the closest to home widget is NOT the current active child then * make it the active child. Otherwise, try and go up a level. */ if (mw->manager.active_child != chosen) { mw->manager.active_child=chosen; ValidChoice(chosen, chosen, XwADD_TO_CHOSEN_LIST); if (chosen_widget_type == XwPRIMITIVE) TraverseToChild(mw, chosen, ul, lr, direction); else (*(((XwManagerWidgetClass)(chosen->core.widget_class)) -> manager_class.traversal_handler)) (chosen, ul, lr, direction); } else /* WE ARE ALREADY HOMED IN THIS MANAGER, GO UP */ { if (parent_is_manager) /* really grandparent of active child */ { mw->manager.active_child = NULL; (*(((XwManagerWidgetClass)(parent->core.widget_class)) -> manager_class.traversal_handler)) ((Widget)parent, ul, lr, direction); } /* If our parent is not a manager, then we are already as HOME as we are going to get, so do nothing. */ } } static void TraverseToChild (mw, chosen, ul, lr, direction) XwManagerWidget mw; Widget chosen; XPoint ul, lr; int direction; { Widget topmost_manager= (Widget) mw; mw->manager.active_child = chosen; if (XtIsSubclass(chosen, XwprimitiveWidgetClass)) { while ((topmost_manager->core.parent != NULL) && XtIsSubclass((Widget)(topmost_manager->core.parent), XwmanagerWidgetClass)) topmost_manager = topmost_manager->core.parent; XtSetKeyboardFocus(topmost_manager, chosen); } else { ul.x -= chosen->core.x; ul.y -= chosen->core.y; lr.x -= chosen->core.x; lr.y -= chosen->core.y; (*(((XwManagerWidgetClass)(chosen->core.widget_class)) -> manager_class.traversal_handler)) (chosen, ul, lr, direction); } } /*************************************<->************************************* * * XwMoveFocus(w) * * Description: * ----------- * Useful when an application has created multiple top level * hierarchies of widgets, is using keyboard traversal and * wishes to move between them. * * * Inputs: w = widget which is the new top level widget. * ------ * *************************************<->***********************************/ void XwMoveFocus(w) Widget w; { /* MOVE MOUSE INTO NEW WINDOW HIERARCHY */ XWarpPointer(XtDisplay(w), None, XtWindow(w),0,0,0,0,1,1); /* SET FOCUS HERE, SHOULD WORK FOR ALL FOCUS MODES */ XSetInputFocus (XtDisplay(w), XtWindow(w), RevertToParent, CurrentTime); } static Widget RightCheck (chosen, ul, lr, candidate, cand_ul, cand_lr) Widget chosen, candidate; XPoint ul, lr, cand_ul, cand_lr; { if (((ul.x < cand_ul.x) || ((ul.x == cand_ul.x) && (lr.x < cand_lr.x))) && (ul.y <= cand_lr.y) && (lr.y >= cand_ul.y)) { if (chosen == NULL) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (chosen->core.x > cand_ul.x) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (cand_ul.x == chosen->core.x) { if (abs(cand_lr.x - lr.x) < abs((chosen->core.x+chosen->core.width + (chosen->core.border_width << 1))-lr.x)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (abs(cand_lr.x - lr.x) == abs((chosen->core.x+chosen->core.width+ (chosen->core.border_width << 1))-lr.x)) if (Overlap(ul, lr, candidate) > Overlap(ul, lr, chosen)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (Overlap(ul,lr,candidate) == Overlap(ul,lr,chosen)) if (cand_ul.y < chosen->core.y) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (cand_ul.y == chosen->core.y) if (cand_lr.y < chosen->core.y + chosen->core.height + (chosen->core.border_width << 1)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); } } } } } return (chosen); } static Widget LeftCheck (chosen, ul, lr, candidate, cand_ul, cand_lr) Widget chosen, candidate; XPoint ul, lr, cand_ul, cand_lr; { if (((cand_ul.x < ul.x) || ((cand_ul.x == ul.x) && (cand_lr.x < lr.x))) && (ul.y <= cand_lr.y) && (lr.y >= cand_ul.y)) { if (chosen == NULL) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (cand_ul.x > chosen->core.x) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (cand_ul.x == chosen->core.x) { if (abs(cand_lr.x - lr.x) < abs(chosen->core.x+ chosen->core.width+(chosen->core.border_width<<1)-lr.x)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (abs(cand_lr.x - lr.x) == abs(chosen->core.x+ chosen->core.width+(chosen->core.border_width<<1)-lr.x)) if (Overlap(ul, lr, candidate) > Overlap(ul, lr, chosen)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (Overlap(ul,lr,candidate) == Overlap(ul,lr,chosen)) if (cand_ul.y > chosen->core.y) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (cand_ul.y == chosen->core.y) if (cand_lr.y > chosen->core.y + chosen->core.height + (chosen->core.border_width << 1)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); } } } } } return (chosen); } static Widget UpCheck (chosen, ul, lr, candidate, cand_ul, cand_lr) Widget chosen, candidate; XPoint ul, lr, cand_ul, cand_lr; { if (((cand_ul.y < ul.y) || ((cand_ul.y == ul.y) && (cand_lr.y < lr.y))) && (ul.x <= cand_lr.x) && (lr.x >= cand_ul.x)) { if (chosen == NULL) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (cand_ul.y > chosen->core.y) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (cand_ul.y == chosen->core.y) { if (abs(cand_lr.y - lr.y) < abs(chosen->core.y+ chosen->core.height+(chosen->core.border_width<<1)-lr.y)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (abs(cand_lr.y - lr.y) == abs(chosen->core.y+ chosen->core.height+(chosen->core.border_width<<1)-lr.y)) if (xOverlap(ul, lr, candidate) > xOverlap(ul, lr, chosen)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (xOverlap(ul, lr, candidate) == xOverlap(ul, lr, chosen)) if (cand_ul.x > chosen->core.x) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (cand_ul.x == chosen->core.x) if (cand_lr.x > chosen->core.x + chosen->core.width + (chosen->core.border_width << 1)) chosen = ValidChoice(chosen,candidate, XwVERIFY_ONLY); } } } } } return (chosen); } static Widget DownCheck (chosen, ul, lr, candidate, cand_ul, cand_lr) Widget chosen, candidate; XPoint ul, lr, cand_ul, cand_lr; { if (((ul.y < cand_ul.y) || ((ul.y == cand_ul.y) && (lr.y < cand_lr.y))) && (ul.x <= cand_lr.x) && (lr.x >= cand_ul.x)) { if (chosen == NULL) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (chosen->core.y > cand_ul.y) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (cand_ul.y == chosen->core.y) { if (abs(cand_lr.y - lr.y) < abs((chosen->core.y+chosen->core.height+ (chosen->core.border_width << 1))-lr.y)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else if (abs(cand_lr.y - lr.y) == abs((chosen->core.y+chosen->core.height+ (chosen->core.border_width << 1))-lr.y)) if (xOverlap(ul, lr, candidate) > xOverlap(ul, lr, chosen)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (xOverlap(ul, lr, candidate) == xOverlap(ul, lr, chosen)) if (cand_ul.x < chosen->core.x) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); else { if (cand_ul.x == chosen->core.x) if (cand_lr.x < chosen->core.x + chosen->core.width + (chosen->core.border_width << 1)) chosen = ValidChoice(chosen, candidate, XwVERIFY_ONLY); } } } } } return (chosen); } /* * To prevent the traversal mechanism from getting into an infinite * recursion, we need to keep a list of those widgets already checked * during a given traversal request. If a candidate has already been * checked once, we don't want to give it a second chance. This is * normally a problem only when a traversal request causes the search * to wrap to the opposite edge. * * There are two types of entries maintained on the list: active entries * and chosen entries. An entry is a chosen entry if its parent has * determined that the entry can possible accept the traversal request, * and has thus chosen it to in turn check its children to see if they * can accept the traversal. An entry is an active entry if it is part * of the current traversal path, but it does not have any children which * can currently accept the traversal request; a widget is added to this * list only if it is not already on the chosen list, AND it is passing * the traversal request up to its parent. * * The active list prevents any of the widgets in the current traversal * path from being rechecked by their parent, once they have already * decided they can't accept the traversal request, until the upper most * manager decides to wrap at an edge and start looking again; at this * point, all active entries are cleared from the list, so that they can * have a chance to regain the traversal if no other widget can. * * If an entry is marked as being on the * active list, and then a request comes to place it on the chosen list, * then the move will occur. If, however, a widget is on the chosen list, * and it asks to move to the active list, this will be denied, since we * don't want this widget to have the chance of being chosen again. An * entry on the active list has not yet been chosen, it mearly was part of * the original active child list. */ static Widget ValidChoice (chosen, candidate, action) Widget chosen, candidate; XwValidChoiceActions action; { int i; /* If candidate is already on the list, then don't reprocess it */ if (action == XwVERIFY_ONLY) { /* Don't consider it unless it has some traversable primitives */ if (XtIsSubclass(candidate, XwmanagerWidgetClass) && _XwFindTraversablePrim(candidate) == False) return (chosen); for (i = 0; i < _XwCheckListIndex; i++) { if ((_XwCheckList[i].widget == candidate) && (_XwCheckList[i].type != XwNONE)) return (chosen); } } if ((action == XwADD_TO_CHOSEN_LIST) || (action == XwADD_TO_ACTIVE_LIST)) { /* See if already on the list; then just update type field */ for (i = 0; i < _XwCheckListIndex; i++) { if (_XwCheckList[i].widget == candidate) { if (_XwCheckList[i].type != XwCHOSEN) { _XwCheckList[_XwCheckListIndex].type = (action == XwADD_TO_CHOSEN_LIST) ? XwCHOSEN : XwACTIVE; } return (candidate); } } /* See if the list needs to grow */ if (_XwCheckListIndex >= _XwCheckListSize) { _XwCheckListSize += 20; _XwCheckList = (_XwCheckListEntry *)XtRealloc((char *)_XwCheckList, (sizeof(_XwCheckListEntry) * _XwCheckListSize)); } /* Add to the checklist */ _XwCheckList[_XwCheckListIndex].widget = candidate; _XwCheckList[_XwCheckListIndex].type = (action == XwADD_TO_CHOSEN_LIST) ? XwCHOSEN : XwACTIVE; _XwCheckListIndex++; } /* Clear all entries which were not on the chosen list */ if (action == XwCLEAR_ACTIVE_LIST) { for (i = 0; i < _XwCheckListIndex; i++) { if (_XwCheckList[i].type == XwACTIVE) _XwCheckList[i].type = XwNONE; } } return (candidate); } void _XwInitCheckList() { /* Initialize the traversal checklist */ if (_XwCheckList == NULL) { _XwCheckList=(_XwCheckListEntry *)XtMalloc(sizeof(_XwCheckListEntry)*20); _XwCheckListSize = 20; } /* Always reset the checklist to the beginning */ _XwCheckListIndex = 0; } /* * This function verifies that all of the ancestors of a manager * have traversal enabled. */ static Boolean _XwManagerIsTraversable (w) XwManagerWidget w; { while (w && XtIsSubclass((Widget)w, XwmanagerWidgetClass)) { if ((w->manager.traversal_on == FALSE) || (w->core.visible == False)) return (False); w = (XwManagerWidget)w->core.parent; } return (True); } static void ClearKbdFocus (topmost_manager) Widget topmost_manager; { while ((topmost_manager->core.parent != NULL) && XtIsSubclass((Widget)(topmost_manager->core.parent), XwmanagerWidgetClass)) topmost_manager = topmost_manager->core.parent; XtSetKeyboardFocus(topmost_manager, NULL); } xcircuit-3.9.73/Xw/PopupMgr.h0000664000175000001440000000343512335667422014520 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: PopupMgr.h ** ** Project: X Widgets ** ** Description: Public include file for popup menu manager class widgets ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * Popup Menu Manager Widget (subclass of MenuMgr) * ***********************************************************************/ /* Class record constants */ extern WidgetClass XwpopupmgrWidgetClass; /* synonym added for consistent naming conventions */ extern WidgetClass XwpopupMgrWidgetClass; typedef struct _XwPopupMgrClassRec *XwPopupMgrWidgetClass; typedef struct _XwPopupMgrRec *XwPopupMgrWidget; extern void XwAppInitialize(XtAppContext); extern void XwPostPopup(Widget, Widget, Widget, Position, Position); xcircuit-3.9.73/Xw/Toggle.c0000664000175000001440000006011512335667422014161 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Toggle.c ** ** Project: X Widgets ** ** Description: Contains code for primitive widget class: Toggle ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* * Include files & Static Routine Definitions */ #include #include #include #include #include #include #include #include #include #include #include #define SPACE_FACTOR 3 #define T_BW 2 static void Redisplay(); static Boolean SetValues(); static void ClassInitialize(); static void Initialize(); static void Destroy(); static void Toggle(); static void Select(); static void Unselect(); static void DrawToggle(); static void Resize(); static void DrawDiamondButton(); static void GetSelectGC(); /*************************************<->************************************* * * * Description: default translation table for class: Toggle * ----------- * * Matches events with string descriptors for internal routines. * *************************************<->***********************************/ static char defaultTranslations[] = ": enter() \n\ : leave() \n\ : toggle() \n\ Select: toggle()"; /*************************************<->************************************* * * * Description: action list for class: Toggle * ----------- * * Matches string descriptors with internal routines. * *************************************<->***********************************/ static XtActionsRec actionsList[] = { {"toggle", (XtActionProc) Toggle}, {"select", (XtActionProc) Select}, {"unselect", (XtActionProc) Unselect}, {"enter", (XtActionProc) _XwPrimitiveEnter}, {"leave", (XtActionProc) _XwPrimitiveLeave}, }; /*************************************<->************************************* * * * Description: resource list for class: Toggle * ----------- * * Provides default resource settings for instances of this class. * To get full set of default settings, examine resouce list of super * classes of this class. * *************************************<->***********************************/ static XtResource resources[] = { { XtNsquare, XtCSquare, XtRBoolean, sizeof (Boolean), XtOffset (XwToggleWidget, toggle.square), XtRString, "True" }, { XtNselectColor, XtCForeground, XtRPixel, sizeof (Pixel), XtOffset (XwToggleWidget, toggle.select_color), XtRString, "Black" } }; /*************************************<->************************************* * * * Description: global class record for instances of class: Toggle * ----------- * * Defines default field settings for this class record. * *************************************<->***********************************/ XwToggleClassRec XwtoggleClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwbuttonClassRec, /* class_name */ "Toggle", /* widget_size */ sizeof(XwToggleRec), /* class_initialize */ ClassInitialize, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ _XwRealize, /* actions */ actionsList, /* num_actions */ XtNumber(actionsList), /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* visible_interest */ FALSE, /* destroy */ Destroy, /* resize */ Resize, /* expose */ Redisplay, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback_private */ NULL, /* tm_table */ defaultTranslations, /* query_geometry */ NULL, /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL } }; WidgetClass XwtoggleWidgetClass = (WidgetClass)&XwtoggleClassRec; /*************************************<->************************************* * * ComputeSpace (w, redisplay) * * Description: * ----------- * Compute allowable space to display label and/or toggle. * If this function is used in redisplay (i.e. redisplay * flag is true), compute space for label as well as toggle. * Compute for toggle only if redisplay flag is FALSE. * * Inputs: * ------ * w = widget instance that was selected. * redisplay = flag indicating routine is called from Redisplay() * * Outputs: * ------- * * Procedures Called * ----------------- * XClearArea() * _XwHighlightBorder() * _XwUnhighlightBorder() *************************************<->***********************************/ static void ComputeSpace(w, redisplay) Widget w; Boolean redisplay; { XwToggleWidget cbox = (XwToggleWidget)w; Boolean clipHeight, clipWidth; int x, available_width, available_height; /* COMPUTE SPACE FOR DRAWING TOGGLE */ if (redisplay) { available_width = Max(0, (int)cbox->core.width - 2* ((int)cbox->button.internal_width + cbox->primitive.highlight_thickness)); /* SEE IF WE NEED TO CLIP THIS LABEL ON RIGHT */ if (((int)cbox->button.label_width + (int)cbox->button.label_height + (int)cbox->button.label_height/SPACE_FACTOR) > available_width) clipWidth = True; else clipWidth = False; } else { available_width = Max(0,((int)cbox->core.width - 2* ((int)cbox->button.internal_width + cbox->primitive.highlight_thickness) - (int)cbox->button.label_width - (int)cbox->button.label_height/SPACE_FACTOR)); /* SEE IF WE NEED TO CLIP THIS LABEL ON RIGHT */ if ((int)cbox->button.label_height > available_width) clipWidth = True; else clipWidth = False; } available_height = Max(0, (int)cbox->core.height - 2* ((int)cbox->button.internal_height + cbox->primitive.highlight_thickness)); /* SEE IF WE NEED TO CLIP THIS LABEL ON TOP AND/OR BOTTOM */ if ((int)cbox->button.label_height > available_height) clipHeight = True; else clipHeight = False; if (clipWidth) { x = (int)cbox->core.width - cbox->primitive.highlight_thickness - (int)cbox->button.internal_width; if ((cbox->button.label_location != XwRIGHT) && redisplay) x -= Min((int)cbox->button.label_height, Max(0, (int)cbox->core.height - 2*(cbox->primitive.highlight_thickness + (int)cbox->button.internal_height))); XClearArea (XtDisplay(w), XtWindow(w), x, 0, ((int)cbox->core.width - x), cbox->core.height, FALSE); } if (clipHeight) { XClearArea (XtDisplay(w), XtWindow(w), 0,0, cbox->core.width, (cbox->primitive.highlight_thickness + cbox->button.internal_height), FALSE); XClearArea (XtDisplay(w), XtWindow(w), 0, ((int)cbox->core.height - cbox->primitive.highlight_thickness - (int)cbox->button.internal_height), cbox->core.width, (cbox->primitive.highlight_thickness + cbox->button.internal_height), FALSE); } if (cbox->primitive.highlighted) _XwHighlightBorder(w); else if (cbox->primitive.display_highlighted) _XwUnhighlightBorder(w); /* REDRAW THE TOGGLE ON LABEL LOCATION LEFT CONDITIONS AND RECURSIVELY CALL THIS FUNCTION. THIS ENSURES VISIBILITY OF THE TOGGLE */ if ((cbox->button.label_location != XwRIGHT) && redisplay) { DrawToggle(w, FALSE); ComputeSpace(w, FALSE); } } /* ComputeSpace */ /*************************************<->************************************* * * Toggle (w, event) PRIVATE * * Description: * ----------- * When this Toggle is selected, toggle the activation state * (i.e., draw it as active if it was not active and draw it as * inactive if it was active). Generate the correct callbacks * in response. * * NOTE: this code assumes that instances do not receive selection * events when insensitive. * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * DrawToggle() [Toggle.c] * ComputeSpace() [Toggle.c] * XtCallCallbacks() *************************************<->***********************************/ static void Toggle(w,event) Widget w; XEvent *event; { XwToggleWidget cbox = (XwToggleWidget)w; cbox->button.set = (cbox->button.set == TRUE) ? FALSE : TRUE; DrawToggle(w, FALSE); ComputeSpace(w, FALSE); XFlush(XtDisplay(w)); if (cbox->button.set == TRUE) XtCallCallbacks (w, XtNselect, NULL); else XtCallCallbacks (w, XtNrelease, NULL); } /*************************************<->************************************* * * Select (w, event) PRIVATE * * Description: * ----------- * Mark Toggle as selected, (i.e., draw it as active) * Generate the correct callbacks. * * NOTE: this code assumes that instances do not receive selection * events when insensitive. * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * DrawToggle() [Toggle.c] * ComputeSpace() [Toggle.c] * XtCallCallbacks() *************************************<->***********************************/ static void Select(w,event) Widget w; XEvent *event; { XwToggleWidget cbox = (XwToggleWidget)w; cbox->button.set = TRUE; DrawToggle(w, FALSE); ComputeSpace(w,FALSE); XFlush(XtDisplay(w)); XtCallCallbacks (w, XtNselect, NULL); } /*************************************<->************************************* * * Unselect (w, event) PRIVATE * * Description: * ----------- * When this Toggle is unselected draw it as inactive. * Generate the correct callbacks. * * NOTE: this code assumes that instances do not receive selection * events when insensitive. * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * DrawToggle() [Toggle.c] * ComputeSpace() [Toggle.c] * XtCallCallbacks() *************************************<->***********************************/ static void Unselect(w,event) Widget w; XEvent *event; { XwToggleWidget cbox = (XwToggleWidget)w; cbox->button.set = FALSE; DrawToggle(w, FALSE); ComputeSpace(w,FALSE); XFlush(XtDisplay(w)); XtCallCallbacks (w, XtNrelease, NULL); } /************************************************************************ * * GetSelectGC * Get the graphics context to be used to fill the interior of * a square or diamond when selected. * ************************************************************************/ static void GetSelectGC (tw) XwToggleWidget tw; { XGCValues values; values.foreground = tw -> toggle.select_color; values.background = tw -> core.background_pixel; values.fill_style = FillSolid; tw -> toggle.select_GC = XtGetGC ((Widget)tw, GCForeground | GCBackground | GCFillStyle, &values); } /*************************************<->************************************* * * Resize * * Description: * ----------- * A resize event has been generated. Recompute location of button * elements. * * Inputs: * ------ * w = widget to be resized. * *************************************<->***********************************/ static void Resize(w) Widget w; { register XwButtonWidget aButton = (XwButtonWidget) w; int direction = aButton->button.label_location; switch (direction) { case XwRIGHT: aButton->button.label_x = aButton->button.internal_width + aButton->primitive.highlight_thickness + aButton->button.label_height + aButton->button.label_height/SPACE_FACTOR; break; default: aButton->button.label_x = aButton->button.internal_width + aButton->primitive.highlight_thickness; } aButton->button.label_y = (((int)aButton->core.height - (int)aButton->button.label_height) >> 1) + aButton->button.font->max_bounds.ascent; } /*************************************<->************************************* * * Initialize * * Description: * ----------- * If the core height and width fields are set to 0, treat that as a flag * and compute the optimum size for this button. Then using what ever * the core fields are set to, compute the text placement fields. * Make sure that the label location field is properly set for the * Resize call. *************************************<->***********************************/ static void Initialize (request, new) Widget request, new; { XwToggleWidget cbox = (XwToggleWidget) new; if ((cbox->button.label_location != XwLEFT) && (cbox->button.label_location != XwRIGHT)) { cbox->button.label_location = XwLEFT; XtWarning ("XwToggle Initialize: invalid label location setting."); } if (request->core.width == 0) cbox->core.width += cbox->button.label_width + 2 * cbox->button.internal_width + /* white space */ cbox->button.label_height + /* size of box */ cbox->button.label_height/SPACE_FACTOR + /* space */ 2 * cbox->primitive.highlight_thickness; if (request->core.height == 0) cbox->core.height += cbox->button.label_height + 2 * cbox->button.internal_height + 2 * cbox->primitive.highlight_thickness; /* dana change */ if (!cbox->toggle.square) cbox->core.height += 2; GetSelectGC (new); Resize (new); } /************************************************************************ * * Destroy * Free toggle's graphic context. * ************************************************************************/ static void Destroy (tw) XwToggleWidget tw; { XtDestroyGC (tw -> toggle.select_GC); } /*************************************<->************************************* * * DrawToggle(w) * * Description: * ----------- * Depending on the state of this widget, draw the Toggle. * * * Inputs: * ------ * w = widget to be (re)displayed. * *************************************<->***********************************/ static void DrawToggle(w, all) XwToggleWidget w; Boolean all; /* redo all, or just center? */ { int x, y, edge; /*************************************************************** * Determine whether label should appear to the left or * the right of the box and set label X coordinate accordingly. ****************************************************************/ edge = Min((int)w->button.label_height, Max(0, (int)w->core.height - 2*(w->primitive.highlight_thickness + (int)w->button.internal_height))); if (w->button.label_location == XwRIGHT) x= w->button.internal_width + w->primitive.highlight_thickness; else x= Max(0, (int)w->core.width - (int)w->button.internal_width - w->primitive.highlight_thickness - edge); /* size of box */ y= Max(0, ((int)w->core.height - edge) / 2); if (w->toggle.square) { _XwDrawBox (XtDisplay (w), XtWindow (w), w -> button.normal_GC, T_BW, x, y, edge, edge); if (edge > 6) XFillRectangle (XtDisplay ((Widget) w), XtWindow ((Widget) w), ((w->button.set) ? w -> toggle.select_GC : w -> button.inverse_GC), x+3, y+3, edge-6, edge-6); } else DrawDiamondButton ((XwButtonWidget) w, x-1, y-1, edge+2, w -> button.normal_GC, ((w->button.set) ? w -> toggle.select_GC : w -> button.inverse_GC)); } /*************************************<->************************************* * * ClassInitialize * * Description: * ----------- * Set fields in primitive class part of our class record so that * the traversal code can invoke our button select procedures. * *************************************<->***********************************/ static void ClassInitialize() { XwtoggleClassRec.primitive_class.select_proc = (XwEventProc) Select; XwtoggleClassRec.primitive_class.release_proc = (XwEventProc) Unselect; XwtoggleClassRec.primitive_class.toggle_proc = (XwEventProc) Toggle; } /*************************************<->************************************* * * Redisplay (w, event) * * Description: * ----------- * Cause the widget, identified by w, to be redisplayed. * * * Inputs: * ------ * w = widget to be redisplayed; * event = event structure identifying need for redisplay on this * widget. * * Outputs: * ------- * * Procedures Called * ----------------- * XDrawString() * DrawToggle() [Toggle.c] * ComputeSpace() [Toggle.c] *************************************<->***********************************/ static void Redisplay(w, event) Widget w; XEvent *event; { register XwToggleWidget cbox = (XwToggleWidget) w; if (cbox->button.label_len > 0) XDrawString( XtDisplay(w), XtWindow(w), cbox->button.normal_GC, cbox->button.label_x, cbox->button.label_y, cbox->button.label, cbox->button.label_len); DrawToggle(cbox, TRUE); ComputeSpace(w, TRUE); } /*************************************<->************************************* * * SetValues(current, request, new) * * Description: * ----------- * This is the set values procedure for the Toggle class. It is * called last (the set values rtnes for its superclasses are called * first). * * * Inputs: * ------ * current = original widget; * request = copy of current (?); * new = copy of request which reflects changes made to it by * set values procedures of its superclasses; * * *************************************<->***********************************/ static Boolean SetValues(current, request, new) Widget current, request, new; { XwToggleWidget curcbox = (XwToggleWidget) current; XwToggleWidget newcbox = (XwToggleWidget) new; Boolean flag = FALSE; /* our return value */ /********************************************************************** * Calculate the window size: The assumption here is that if * the width and height are the same in the new and current instance * record that those fields were not changed with set values. Therefore * its okay to recompute the necessary width and height. However, if * the new and current do have different width/heights then leave them * alone because that's what the user wants. *********************************************************************/ if ((curcbox->core.width == newcbox->core.width) && (_XwRecomputeSize(current, new))) { newcbox->core.width = newcbox->button.label_width +2*newcbox->button.internal_width + newcbox->button.label_height + newcbox->button.label_height/SPACE_FACTOR + 2 * newcbox->primitive.highlight_thickness; flag = TRUE; } if ((curcbox->core.height == newcbox->core.height) && (_XwRecomputeSize(current, new))) { newcbox->core.height = newcbox->button.label_height + 2*newcbox->button.internal_height + 2 * newcbox->primitive.highlight_thickness; flag = TRUE; } if (curcbox -> toggle.select_color != newcbox -> toggle.select_color) { XtDestroyGC (newcbox -> toggle.select_GC); GetSelectGC (newcbox); flag = True; } if (curcbox -> toggle.square != newcbox -> toggle.square) { flag = True; } Resize(new); /* fix label x and label y positioning */ return(flag); } /************************************************************************ * * DrawDiamondButton() * The dimond drawing routine. Used in place of primitives * draw routine when toggle's square flag is False. * ************************************************************************/ static void DrawDiamondButton (bw, x, y, size, borderGC, centerGC) XwButtonWidget bw; int x, y, size; GC borderGC, centerGC; { XSegment seg[8]; XPoint pt[5]; int midX, midY; if (size % 2 == 0) size--; midX = x + (size + 1) / 2; midY = y + (size + 1) / 2; /* The top segments */ seg[0].x1 = x; /* 1 */ seg[0].y1 = midY - 1; seg[0].x2 = midX - 1; /* 2 */ seg[0].y2 = y; seg[1].x1 = x + 1; /* 3 */ seg[1].y1 = midY - 1; seg[1].x2 = midX - 1; /* 4 */ seg[1].y2 = y + 1; seg[2].x1 = midX - 1; /* 5 */ seg[2].y1 = y; seg[2].x2 = x + size - 1; /* 6 */ seg[2].y2 = midY - 1; seg[3].x1 = midX - 1; /* 7 */ seg[3].y1 = y + 1; seg[3].x2 = x + size - 2; /* 8 */ seg[3].y2 = midY - 1; /* The bottom segments */ seg[4].x1 = x; /* 9 */ seg[4].y1 = midY - 1; seg[4].x2 = midX - 1; /* 10 */ seg[4].y2 = y + size - 1; seg[5].x1 = x + 1; /* 11 */ seg[5].y1 = midY - 1; seg[5].x2 = midX - 1; /* 12 */ seg[5].y2 = y + size - 2; seg[6].x1 = midX - 1; /* 13 */ seg[6].y1 = y + size - 1; seg[6].x2 = x + size - 1; /* 14 */ seg[6].y2 = midY - 1; seg[7].x1 = midX - 1; /* 15 */ seg[7].y1 = y + size - 2; seg[7].x2 = x + size - 2; /* 16 */ seg[7].y2 = midY - 1; XDrawSegments (XtDisplay ((Widget) bw), XtWindow ((Widget) bw), borderGC, &seg[2], 2); XDrawSegments (XtDisplay ((Widget) bw), XtWindow ((Widget) bw), borderGC, &seg[4], 4); XDrawSegments (XtDisplay ((Widget) bw), XtWindow ((Widget) bw), borderGC, &seg[0], 2); pt[0].x = x + 3; pt[0].y = midY - 1; pt[1].x = midX - 1; pt[1].y = y + 3; pt[2].x = x + size - 4; pt[2].y = midY - 1; pt[3].x = midX - 2; pt[3].y = y + size - 4; XFillPolygon (XtDisplay ((Widget) bw), XtWindow ((Widget) bw), centerGC, pt, 4, Convex, CoordModeOrigin); } xcircuit-3.9.73/Xw/ToggleP.h0000664000175000001440000000513412335667422014306 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: ToggleP.h ** ** Project: X Widgets ** ** Description: Private include file for Toggle class, used by ** widgets which are subclasses of the toggle widget ** or which need to get direct access to the instance ** and class fields of the toggle widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /******************************************** * * No new fields need to be defined * for the Toggle widget class record * ********************************************/ typedef struct {int foo;} XwToggleClassPart; /**************************************************** * * Full class record declaration for Toggle class * ****************************************************/ typedef struct _XwToggleClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwButtonClassPart button_class; XwToggleClassPart toggle_class; } XwToggleClassRec; extern XwToggleClassRec XwtoggleClassRec; /******************************************** * * No new fields needed for instance record * ********************************************/ typedef struct _XwTogglePart { Boolean square; Pixel select_color; GC select_GC; } XwTogglePart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwToggleRec { CorePart core; XwPrimitivePart primitive; XwButtonPart button; XwTogglePart toggle; } XwToggleRec; xcircuit-3.9.73/Xw/MenuBtn.h0000664000175000001440000000350612335667422014316 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: MenuBtn.h ** ** Project: X Widgets ** ** Description: Public include file for MenuButton class widgets ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /*********************************************************************** * * MenuButton Widget * ***********************************************************************/ extern WidgetClass XwmenubuttonWidgetClass; /* synonym added for consistent naming conventions */ extern WidgetClass XwmenuButtonWidgetClass; typedef struct _XwMenuButtonClassRec *XwMenuButtonWidgetClass; typedef struct _XwMenuButtonRec *XwMenuButtonWidget; /******************** * * CascadeUnselect callback data typedef * ********************/ typedef struct { Dimension rootX; Dimension rootY; Boolean remainHighlighted; } XwunselectParams; xcircuit-3.9.73/Xw/MenuBtn.c0000664000175000001440000020723512335667422014316 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: MenuBtn.c ** ** Project: X Widgets ** ** Description: Contains code for primitive widget class: MenuButton ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* *#define DEBUG TRUE */ #undef NLS16 /* * Include files & Static Routine Definitions */ #include #include #include #include #include #include #include #include #include #include #ifdef NLS16 #include #endif #ifndef XtRWidget #define XtRWidget XtRPointer #endif static void Redisplay(); static Boolean SetValues(); static void ClassPartInitialize(); static void Inverted(); static void NonInverted(); static void Select(); static void Enter(); static void Leave(); static void Moved(); static void Initialize(); static void Destroy(); static void Realize(); static void Resize(); static void IdealWidth(); static void Unhighlight(); static void Highlight(); static void SetCascadeEnabled(); static void ClearCascadeEnabled(); static void EnterParentsWindow(); static void SetTraversalType(); static void TraverseLeft(); static void TraverseRight(); static void TraverseNext(); static void TraversePrev(); static void TraverseHome(); static void TraverseUp(); static void TraverseDown(); static void TraverseNextTop(); static void Unmap(); static void Visibility(); Boolean _XwUniqueEvent(); /*************************************<->************************************* * * * Description: default translation table for class: MenuButton * ----------- * * Matches events with string descriptors for internal routines. * *************************************<->***********************************/ static char defaultTranslations[] = ": select()\n\ : visibility()\n\ : unmap()\n\ : enter()\n\ : leave()\n\ : moved()\n\ Select: select()\n\ Left: traverseLeft()\n\ Up: traverseUp()\n\ Right: traverseRight()\n\ Down: traverseDown()\n\ Prior: traversePrev()\n\ Next: traverseNext()\n\ KP_Enter: traverseNextTop()\n\ Home: traverseHome()"; /*************************************<->************************************* * * * Description: action list for class: MenuButton * ----------- * * Matches string descriptors with internal routines. * *************************************<->***********************************/ static XtActionsRec actionsList[] = { {"select", (XtActionProc) Select}, {"visibility", (XtActionProc) Visibility}, {"unmap", (XtActionProc) Unmap}, {"enter", (XtActionProc) Enter}, {"leave", (XtActionProc) Leave}, {"moved", (XtActionProc) Moved}, {"traverseLeft", (XtActionProc) TraverseLeft }, {"traverseRight", (XtActionProc) TraverseRight }, {"traverseNext", (XtActionProc) TraverseNext }, {"traversePrev", (XtActionProc) TraversePrev }, {"traverseHome", (XtActionProc) TraverseHome }, {"traverseUp", (XtActionProc) TraverseUp }, {"traverseDown", (XtActionProc) TraverseDown }, {"traverseNextTop", (XtActionProc) TraverseNextTop }, }; /*************************************<->************************************* * * * Description: resource list for class: MenuButton * ----------- * * Provides default resource settings for instances of this class. * To get full set of default settings, examine resouce list of super * classes of this class. * *************************************<->***********************************/ static XtResource resources[] = { { XtNborderWidth, XtCBorderWidth,XtRDimension, sizeof(Dimension), XtOffset(XwMenuButtonWidget, core.border_width), XtRString, "0" }, { XtNlabelType, XtCLabelType, XtRLabelType, sizeof(int), XtOffset(XwMenuButtonWidget, menubutton.labelType), XtRString, "string" }, { XtNlabelImage, XtCLabelImage, XtRImage, sizeof(XImage *), XtOffset(XwMenuButtonWidget, menubutton.labelImage), XtRImage, NULL }, { XtNrectColor, XtCRectColor, XtRPixel, sizeof(Pixel), XtOffset(XwMenuButtonWidget, menubutton.rectColor), XtRString, "white" }, { XtNrectStipple, XtCRectStipple, XtRPixmap, sizeof(Pixmap), XtOffset(XwMenuButtonWidget, menubutton.rectStipple), XtRPixmap, NULL }, { XtNcascadeImage, XtCCascadeImage, XtRImage, sizeof(XImage *), XtOffset(XwMenuButtonWidget, menubutton.cascadeImage), XtRImage, NULL }, { XtNmarkImage, XtCMarkImage, XtRImage, sizeof(XImage *), XtOffset(XwMenuButtonWidget, menubutton.markImage), XtRImage, NULL }, { XtNsetMark, XtCSetMark, XtRBoolean, sizeof(Boolean), XtOffset(XwMenuButtonWidget, menubutton.setMark), XtRString, "FALSE" }, { XtNnoPad, XtCNoPad, XtRBoolean, sizeof(Boolean), XtOffset(XwMenuButtonWidget, menubutton.noPad), XtRString, "FALSE" }, { XtNcascadeOn, XtCCascadeOn, XtRWidget, sizeof(Widget), XtOffset(XwMenuButtonWidget, menubutton.cascadeOn), XtRWidget, NULL }, { XtNkbdAccelerator, XtCKbdAccelerator, XtRString, sizeof(caddr_t), XtOffset(XwMenuButtonWidget, menubutton.accelerator), XtRString, NULL }, { XtNhint, XtCHint, XtRString, sizeof(caddr_t), XtOffset(XwMenuButtonWidget, menubutton.hint), XtRString, NULL }, { XtNhintProc, XtCHintProc, XtRFunction, sizeof(XwStrProc), XtOffset(XwMenuButtonWidget, menubutton.hintProc), XtRFunction, NULL }, { XtNmgrOverrideMnemonic, XtCMgrOverrideMnemonic, XtRBoolean, sizeof(Boolean), XtOffset(XwMenuButtonWidget, menubutton.mgrOverrideMnemonic), XtRString, "FALSE" }, { XtNmnemonic, XtCMnemonic, XtRString, sizeof(caddr_t), XtOffset(XwMenuButtonWidget, menubutton.mnemonic), XtRString, NULL }, { XtNhighlightStyle, XtCHighlightStyle, XtRHighlightStyle, sizeof (int), XtOffset (XwPrimitiveWidget, primitive.highlight_style), XtRString, "widget_defined" }, { XtNcascadeSelect, XtCCallback, XtRCallback, sizeof(caddr_t), XtOffset (XwMenuButtonWidget, menubutton.cascadeSelect), XtRPointer, (caddr_t) NULL }, { XtNcascadeUnselect, XtCCallback, XtRCallback, sizeof(caddr_t), XtOffset (XwMenuButtonWidget, menubutton.cascadeUnselect), XtRPointer, (caddr_t) NULL }, { XtNmenuMgrId, XtCMenuMgrId, XtRWidget, sizeof(Widget), XtOffset (XwMenuButtonWidget, menubutton.menuMgr), XtRWidget, NULL }, }; /*************************************<->************************************* * * * Description: global class record for instances of class: MenuButton * ----------- * * Defines default field settings for this class record. * *************************************<->***********************************/ XwMenuButtonClassRec XwmenubuttonClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) &XwbuttonClassRec, /* class_name */ "XwMenuButton", /* widget_size */ sizeof(XwMenuButtonRec), /* class_initialize */ NULL, /* class_part_init */ ClassPartInitialize, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ Realize, /* actions */ actionsList, /* num_actions */ XtNumber(actionsList), /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterlv */ TRUE, /* FIX ME LATER */ /* visible_interest */ FALSE, /* destroy */ Destroy, /* resize */ Resize, /* expose */ Redisplay, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* cb List */ NULL, /* tm_table */ defaultTranslations, /* query_geometry */ NULL, /* FIX ME LATER */ /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { /* primitive class fields */ /* border_highlight */ Inverted, /* border_unhighlight */ NonInverted, /* select_proc */ Select, /* release_proc */ NULL, /* toggle_proc */ NULL, /* translations */ NULL, }, { /* button class fields */ 0, }, { /* menubutton class fields */ /* ideal width proc */ IdealWidth, /* unhighlight proc */ Unhighlight, /* highlight proc */ Highlight, /* cascade selected */ SetCascadeEnabled, /* cascade unselected*/ ClearCascadeEnabled, /* enter parents win */ EnterParentsWindow, /* cascadeSelectProc */ NULL, /* cascadeUnselectProc */ NULL, /* setTraversalType */ SetTraversalType } }; WidgetClass XwmenubuttonWidgetClass = (WidgetClass)&XwmenubuttonClassRec; WidgetClass XwmenuButtonWidgetClass = (WidgetClass)&XwmenubuttonClassRec; /*************************************<->************************************* * * SetCascadeEnabled (mbutton) * * Description: * ----------- * This routine is called by the Menu Manager to force the menubutton into * thinking that the cascade select callbacks have been recently called. * * Inputs: * ------ * mbutton = this menubutton widget * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetCascadeEnabled (mbutton) XwMenuButtonWidget mbutton; { mbutton->menubutton.cascadeEnabled = TRUE; } /*************************************<->************************************* * * ClearCascadeEnabled (mbutton) * * Description: * ----------- * This routine is called by the Menu Manager to force the menubutton into * thinking that the cascade unselect callbacks have been recently called. * * Inputs: * ------ * mbutton = this menubutton widget * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClearCascadeEnabled (mbutton) XwMenuButtonWidget mbutton; { mbutton->menubutton.cascadeEnabled = FALSE; } /*************************************<->************************************* * * ClassPartInitialize (parameters) * * Description: * ----------- * * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ClassPartInitialize (wc) register XwMenuButtonWidgetClass wc; { register XwMenuButtonWidgetClass super = (XwMenuButtonWidgetClass) wc->core_class.superclass; if (wc->menubutton_class.idealWidthProc == XtInheritIdealWidthProc) wc->menubutton_class.idealWidthProc = super->menubutton_class.idealWidthProc; if (wc->menubutton_class.unhighlightProc == XtInheritUnhighlightProc) wc->menubutton_class.unhighlightProc = super->menubutton_class.unhighlightProc; if (wc->menubutton_class.highlightProc == XtInheritHighlightProc) wc->menubutton_class.highlightProc = super->menubutton_class.highlightProc; if (wc->menubutton_class.setCascadeProc == XtInheritSetCascadeProc) wc->menubutton_class.setCascadeProc = super->menubutton_class.setCascadeProc; if (wc->menubutton_class.clearCascadeProc == XtInheritClearCascadeProc) wc->menubutton_class.clearCascadeProc = super->menubutton_class.clearCascadeProc; if (wc->menubutton_class.enterParentProc == XtInheritEnterParentProc) wc->menubutton_class.enterParentProc = super->menubutton_class.enterParentProc; if (wc->menubutton_class.cascadeSelectProc == XtInheritCascadeSelectProc) wc->menubutton_class.cascadeSelectProc = super->menubutton_class.cascadeSelectProc; if (wc->menubutton_class.cascadeUnselectProc == XtInheritCascadeUnselectProc) wc->menubutton_class.cascadeUnselectProc = super->menubutton_class.cascadeUnselectProc; if (wc->menubutton_class.setTraversalType == XtInheritSetTraversalTypeProc) wc->menubutton_class.setTraversalType = super->menubutton_class.setTraversalType; } /*************************************<->************************************* * * ComputeHeight (mbutton) * * Description: * ----------- * Returns the ideal height of the menubutton by considering whether the * label is text or image. * * Inputs: * ------ * mbutton = widget to compute height of * * Outputs: * ------- * returns the ideal height of mbutton * * Procedures Called * ----------------- * *************************************<->***********************************/ static Dimension ComputeHeight(mbutton) XwMenuButtonWidget mbutton; { Dimension max = 0; if (mbutton->menubutton.labelType == XwSTRING) max = mbutton->button.label_height; if ((mbutton->menubutton.labelType == XwIMAGE) && (mbutton->menubutton.labelImage->height > max)) max = mbutton->menubutton.labelImage->height; if (mbutton->menubutton.markImage->height > max) max = mbutton->menubutton.markImage->height; if (mbutton->menubutton.cascadeImage->height > max) max = mbutton->menubutton.cascadeImage->height; return (max + 2 * mbutton->button.internal_height + 2 * mbutton->primitive.highlight_thickness); } /*************************************<->************************************* * * ComputeVertical * * Description: * ----------- * Computes the values for mark_y, label_y and cascade_y. * * Inputs: * ------ * mbutton = menubutton to compute and set values for * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void ComputeVertical (mbutton) XwMenuButtonWidget mbutton; { Dimension string_y; string_y = (mbutton->core.height - mbutton->button.label_height)/2 + mbutton->button.font->max_bounds.ascent; if (mbutton->menubutton.labelType == XwSTRING) mbutton->button.label_y = string_y; else if (mbutton->menubutton.labelImage) mbutton->button.label_y = (mbutton->core.height - mbutton->menubutton.labelImage->height) / 2; mbutton->menubutton.mark_y = (mbutton->core.height - mbutton->menubutton.markImage->height)/2; mbutton->menubutton.cascade_y = (mbutton->core.height - mbutton->menubutton.cascadeImage->height)/2; } /*************************************<->************************************* * * SetUnderline (mbutton) * * Description: * ----------- * Set the underline parameters underline_width and underline_y. * * Inputs: * ------ * mbutton = menubutton * * Outputs: * ------- * * Procedures Called * ----------------- * XTextWidth () * XGetFontProperty () * *************************************<->***********************************/ static void SetUnderline (mbutton) XwMenuButtonWidget mbutton; { int i, temp; if ((!mbutton->menubutton.mgrOverrideMnemonic) && (mbutton->menubutton.mnemonic)) { mbutton->menubutton.mnemonicMatch = FALSE; temp = XwStrlen (mbutton->button.label); for (i = 0; i < temp;) { #ifdef NLS16 if (XHPIs16bitCharacter (mbutton->button.font->fid, mbutton->button.label[i], mbutton->button.label[i+1]) == NULL) { #endif if (*mbutton->menubutton.mnemonic == (char) mbutton->button.label[i]) { unsigned long bval; mbutton->menubutton.mnemonicMatch = TRUE; mbutton->menubutton.underline_width = XTextWidth(mbutton->button.font, mbutton->button.label+i, 1); mbutton->menubutton.underline_x = XTextWidth(mbutton->button.font, mbutton->button.label, i) + mbutton->primitive.highlight_thickness + 4 * mbutton->button.internal_width + XwMARKWIDTH; if (XGetFontProperty(mbutton->button.font, XA_UNDERLINE_POSITION, &bval) == 0) mbutton->menubutton.underline_y = mbutton->button.font->descent +1; else mbutton->menubutton.underline_y = (Dimension) bval; mbutton->menubutton.underline_y += mbutton->button.label_y; break; } else i += 1; #ifdef NLS16 } else i += 2; #endif } } else mbutton->menubutton.mnemonicMatch = FALSE; } /*************************************<->************************************* * * GetGC (mbutton) * * Description: * ----------- * Creates image_GC * * Inputs: * ------ * mbutton = menubutton * * Outputs: * ------- * * Procedures Called * ----------------- * XtGetGC() * *************************************<->***********************************/ static void GetGC (mbutton) XwMenuButtonWidget mbutton; { XGCValues values; unsigned long dostipple = 0; values.function = GXcopy; values.plane_mask = AllPlanes; values.subwindow_mode = ClipByChildren; values.clip_x_origin = 0; values.clip_y_origin = 0; values.clip_mask = None; values.fill_style = FillSolid; values.graphics_exposures = True; values.foreground = mbutton->primitive.foreground; values.background = mbutton->core.background_pixel; mbutton->menubutton.defPixmap_GC = XtGetGC ((Widget) mbutton, GCFunction | GCPlaneMask | GCSubwindowMode | GCGraphicsExposures | GCClipXOrigin | GCClipYOrigin | GCClipMask | GCForeground | GCBackground, &values); values.foreground = mbutton->core.background_pixel; values.background = mbutton->primitive.foreground; mbutton->menubutton.invertPixmap_GC = XtGetGC ((Widget) mbutton, GCFunction | GCPlaneMask | GCSubwindowMode | GCGraphicsExposures | GCClipXOrigin | GCClipYOrigin | GCClipMask | GCForeground | GCBackground, &values); values.background = mbutton->core.background_pixel; values.stipple = mbutton->menubutton.rectStipple; if (values.stipple != (Pixmap)NULL) { dostipple = GCStipple; values.fill_style = FillOpaqueStippled; values.foreground = mbutton->primitive.foreground; } else values.foreground = mbutton->menubutton.rectColor; mbutton->menubutton.rect_GC = XtGetGC ((Widget) mbutton, GCFunction | GCPlaneMask | GCSubwindowMode | GCGraphicsExposures | GCClipXOrigin | GCClipYOrigin | GCClipMask | GCForeground | GCBackground | dostipple | GCFillStyle, &values); } /*************************************<->************************************* * * GetDefImages * * Description: * ----------- * * Inputs: * ------ * mbutton = menubutton * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void GetDefImages (mbutton) XwMenuButtonWidget mbutton; { static unsigned char defMarkData[] = { 0x00, 0x10, 0x00, 0x38, 0x00, 0x7c, 0x00, 0x3c, 0x00, 0x1e, 0x00, 0x0e, 0x00, 0x07, 0x00, 0x07, 0x8c, 0x03, 0x8e, 0x01, 0xde, 0x01, 0xdc, 0x00, 0xd8, 0x00, 0x70, 0x00, 0x70, 0x00, 0x20, 0x00, }; static unsigned char defCascadeData[] = { 0x80, 0x00, 0x80, 0x01, 0x80, 0x03, 0x80, 0x07, 0x80, 0x0f, 0xfe, 0x1f, 0xfe, 0x3f, 0xfe, 0x7f, 0xfe, 0x3f, 0xfe, 0x1f, 0x80, 0x0f, 0x80, 0x07, 0x80, 0x03, 0x80, 0x01, 0x80, 0x00, 0x00, 0x00 }; mbutton->menubutton.defMarkImage = XCreateImage (XtDisplay(mbutton), CopyFromParent, 1, XYBitmap, 0, defMarkData, 16, 16, 8, 2); mbutton->menubutton.defMarkImage->byte_order = MSBFirst; mbutton->menubutton.defMarkImage->bitmap_bit_order = LSBFirst; mbutton->menubutton.defMarkImage->bitmap_unit = 8; mbutton->menubutton.defCascadeImage = XCreateImage (XtDisplay(mbutton), CopyFromParent, 1, XYBitmap, 0, defCascadeData, 16, 16, 8, 2); mbutton->menubutton.defCascadeImage->byte_order = MSBFirst; mbutton->menubutton.defCascadeImage->bitmap_bit_order = LSBFirst; mbutton->menubutton.defCascadeImage->bitmap_unit = 8; } /*************************************<->************************************* * * CreatePixmap * * Description: * ----------- * * Inputs: * ------ * mbutton = menubutton * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void CreatePixmap (mbutton, image, pix, invertedPix) XwMenuButtonWidget mbutton; XImage * image; Pixmap * pix; Pixmap * invertedPix; { if (*pix != (Pixmap)NULL) XFreePixmap (XtDisplay(mbutton), *pix); if (*invertedPix != (Pixmap)NULL) XFreePixmap (XtDisplay(mbutton), *invertedPix); if (image) { *pix = XCreatePixmap (XtDisplay(mbutton), RootWindowOfScreen(XtScreen(mbutton)), image->width, image->height, DefaultDepthOfScreen(XtScreen(mbutton))); XPutImage (XtDisplay(mbutton), *pix, mbutton->menubutton.defPixmap_GC, image, 0, 0, 0, 0, image->width, image->height); if (image->format == XYBitmap) { *invertedPix = XCreatePixmap (XtDisplay(mbutton), RootWindowOfScreen(XtScreen(mbutton)), image->width, image->height, DefaultDepthOfScreen(XtScreen(mbutton))); XPutImage (XtDisplay(mbutton), *invertedPix, mbutton->menubutton.invertPixmap_GC, image, 0, 0, 0, 0, image->width, image->height); } } else { *pix = (Pixmap)NULL; *invertedPix = (Pixmap)NULL; } } /*************************************<->************************************* * * IdealWidth * * Description: * ----------- * NOTE!!! This should be eventually replaced by a QueryProc. * * Inputs: * ------ * w = menubutton widget * * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void IdealWidth (w, width) Widget w; Dimension * width; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget) w; *width = 2 * mbutton->primitive.highlight_thickness + 2 * (XwMENUBTNPAD + mbutton->button.internal_width) + XwMARKWIDTH + XwCASCADEWIDTH; if (mbutton->menubutton.labelType == XwSTRING) *width += mbutton->button.label_width; else if (mbutton->menubutton.labelType == XwIMAGE) *width += mbutton->menubutton.labelImage->width; } /*************************************<->************************************* * * Initialize (request, new) * * Description: * ----------- * This is the menubutton instance initialize procedure. * * * Inputs: * ------ * request = original instance record; * * new = instance record with modifications induced by * other initialize routines, changes are made to this * record; * * args = argument list specified in XtCreateWidget; * * num_args = argument count; * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Initialize (request, new) Widget request, new; { Dimension dim; KeySym tempKeysym; XwMenuButtonWidget mbutton = (XwMenuButtonWidget) new; /* Augment our translations to include the traversal actions */ XtAugmentTranslations ((Widget)mbutton, XwprimitiveClassRec.primitive_class.translations); /* * Always disable traversal in a menubutton. Since the traversal * state is inherited from the menu manager, we will let it control * our traversal state. */ mbutton->primitive.traversal_type = XwHIGHLIGHT_OFF; mbutton->menubutton.cascadeEnabled = FALSE; mbutton->menubutton.inverted = FALSE; mbutton->menubutton.labelPixmap = mbutton->menubutton.markPixmap = mbutton->menubutton.cascadePixmap = mbutton->menubutton.invertLabelPixmap = mbutton->menubutton.invertMarkPixmap = mbutton->menubutton.invertCascadePixmap = (Pixmap)NULL; GetDefImages(mbutton); GetGC(mbutton); /* * If the menuMgr field has not been set up, check if in a menu system * (menu manager as ancestor). */ if (mbutton->menubutton.menuMgr == NULL) { if ((XtIsSubclass (XtParent (mbutton), XwmenupaneWidgetClass)) && (XtIsSubclass (XtParent (XtParent (mbutton)), shellWidgetClass)) && (XtIsSubclass (XtParent (XtParent (XtParent (mbutton))), XwmenumgrWidgetClass))) { mbutton->menubutton.menuMgr = (Widget) XtParent (XtParent (XtParent(mbutton))); } } /* * We need to malloc space for the strings and copy them to our * space. The toolkit simply copies the pointer to the string. */ if ((mbutton->menubutton.accelerator) && (_XwMapKeyEvent (mbutton->menubutton.accelerator, &mbutton->menubutton.accelEventType, &tempKeysym, &mbutton->menubutton.accelModifiers))) { mbutton->menubutton.accelDetail = XKeysymToKeycode (XtDisplay(mbutton), tempKeysym); mbutton->menubutton.accelerator = strcpy(XtMalloc((unsigned)(XwStrlen(mbutton->menubutton.accelerator)+1)), mbutton->menubutton.accelerator); } else { if (mbutton->menubutton.accelerator) XtWarning ("MenuButton: Invalid accelerator; disabling feature"); mbutton->menubutton.accelerator = NULL; mbutton->menubutton.accelEventType = 0; mbutton->menubutton.accelDetail = 0; mbutton->menubutton.accelModifiers = 0; } if (mbutton->menubutton.hint) mbutton->menubutton.hint = strcpy(XtMalloc((unsigned)(XwStrlen(mbutton->menubutton.hint)+1)), mbutton->menubutton.hint); /* * malloc space for mnemonic. Only take 1st character & null */ if ((mbutton->menubutton.mnemonic) && (*(mbutton->menubutton.mnemonic) != '\0')) { char mne = mbutton->menubutton.mnemonic[0]; mbutton->menubutton.mnemonic = (String) XtMalloc(2); mbutton->menubutton.mnemonic[0] = mne; mbutton->menubutton.mnemonic[1] = '\0'; } else if (mbutton->menubutton.mnemonic) XtWarning ("MenuButton: Invalid mnemonic; disabling feature"); if (mbutton->menubutton.labelImage) CreatePixmap(mbutton, mbutton->menubutton.labelImage, &mbutton->menubutton.labelPixmap, &mbutton->menubutton.invertLabelPixmap); if (!mbutton->menubutton.markImage) mbutton->menubutton.markImage = mbutton->menubutton.defMarkImage; CreatePixmap(mbutton, mbutton->menubutton.markImage, &mbutton->menubutton.markPixmap, &mbutton->menubutton.invertMarkPixmap); if (!mbutton->menubutton.cascadeImage) mbutton->menubutton.cascadeImage = mbutton->menubutton.defCascadeImage; CreatePixmap(mbutton, mbutton->menubutton.cascadeImage, &mbutton->menubutton.cascadePixmap, &mbutton->menubutton.invertCascadePixmap); if (request->core.height <= 0) mbutton->core.height = ComputeHeight(mbutton); ComputeVertical(mbutton); SetUnderline(mbutton); if (request->core.width <= 0) IdealWidth(mbutton, &mbutton->core.width); } /*************************************<->************************************* * * Destroy * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Destroy (mbutton) XwMenuButtonWidget mbutton; { if (mbutton->menubutton.accelerator) XtFree (mbutton->menubutton.accelerator); XtDestroyGC (mbutton->menubutton.defPixmap_GC); XtDestroyGC (mbutton->menubutton.inverted_GC); XtDestroyGC (mbutton->menubutton.invertPixmap_GC); XtDestroyGC (mbutton->menubutton.rect_GC); mbutton->menubutton.defMarkImage->data = NULL; XDestroyImage (mbutton->menubutton.defMarkImage); mbutton->menubutton.defCascadeImage->data = NULL; XDestroyImage (mbutton->menubutton.defCascadeImage); XtRemoveAllCallbacks ((Widget)mbutton, XtNcascadeSelect); XtRemoveAllCallbacks ((Widget)mbutton, XtNcascadeUnselect); XFreePixmap (XtDisplay(mbutton), mbutton->menubutton.markPixmap); XFreePixmap (XtDisplay(mbutton), mbutton->menubutton.cascadePixmap); if (mbutton->menubutton.labelPixmap) XFreePixmap (XtDisplay(mbutton), mbutton->menubutton.labelPixmap); } /*************************************<->************************************* * * Realize * * Description: * ----------- * Creates the window for this menubutton instance. Sets bit gravity * so that on resize the menubutton is repainted. * * * Inputs: * ------ * w = widget to be realized. * * valueMask = contains event mask for this window/widget. * * attributes = window attributes for this window/widget. * * Outputs: * ------- * * Procedures Called * ----------------- * XtCreateWindow() *************************************<->***********************************/ static void Realize(w, p_valueMask, attributes) Widget w; XtValueMask * p_valueMask; XSetWindowAttributes * attributes; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget) w; XtValueMask valueMask = *p_valueMask; valueMask |= CWBitGravity; attributes->bit_gravity = ForgetGravity; XtCreateWindow ((Widget)mbutton, InputOutput, (Visual *) CopyFromParent, valueMask, attributes); _XwRegisterName (mbutton); } /* Realize */ /*************************************<->************************************* * * Select (w, event) PRIVATE * * Description: * ----------- * Mark menubutton as selected, (i.e., draw it as active) * Generate the correct callbacks. * * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * XtCallCallbacks() *************************************<->***********************************/ static void Select(w,event) Widget w; XEvent *event; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget) w; /* Don't do anything if its not sensitive. */ if (XtIsSensitive((Widget)mbutton)) { /* * if there is a menu manager, call the process select routine to * determine if the event is valid for the menu system. */ if (mbutton->menubutton.menuMgr) { if ((*(((XwMenuMgrWidgetClass) XtClass(mbutton->menubutton.menuMgr))-> menu_mgr_class.processSelect)) (mbutton->menubutton.menuMgr, mbutton, event) == FALSE) { return; } } XtCallCallbacks ((Widget)mbutton, XtNselect, NULL); } } /*************************************<->************************************* * * DrawLabelMarkCascade (mbutton) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void DrawLabelMarkCascade (mbutton) XwMenuButtonWidget mbutton; { Dimension labelStarts; GC theGC; Pixmap thePixmap; if (mbutton->menubutton.inverted) theGC = mbutton->button.inverse_GC; else theGC = mbutton->button.normal_GC; if (mbutton->menubutton.noPad == True) labelStarts = mbutton->primitive.highlight_thickness + mbutton->button.internal_width; else labelStarts = mbutton->primitive.highlight_thickness + mbutton->button.internal_width + XwMENUBTNPAD + XwMARKWIDTH; /* * Draw the label with its underline if needed. */ if (mbutton->menubutton.labelType == XwSTRING) { XDrawString( XtDisplay(mbutton), XtWindow(mbutton), theGC, labelStarts, mbutton->button.label_y, mbutton->button.label, (int) mbutton->button.label_len); if ((!mbutton->menubutton.mgrOverrideMnemonic) && (mbutton->menubutton.mnemonicMatch)) XDrawLine( XtDisplay(mbutton), XtWindow(mbutton), theGC, mbutton->menubutton.underline_x, mbutton->menubutton.underline_y, mbutton->menubutton.underline_x + mbutton->menubutton.underline_width, mbutton->menubutton.underline_y); } else if (mbutton->menubutton.labelType == XwRECT) { /* Draw a colored or stippled rectangle with a border around it */ if (mbutton->menubutton.noPad == True) { XFillRectangle( XtDisplay(mbutton), XtWindow(mbutton), mbutton->menubutton.rect_GC, 2, 2, mbutton->menubutton.labelImage->width - 1, mbutton->menubutton.labelImage->height - 1); XDrawRectangle( XtDisplay(mbutton), XtWindow(mbutton), theGC, 2, 2, mbutton->menubutton.labelImage->width - 1, mbutton->menubutton.labelImage->height - 1); } else { XFillRectangle( XtDisplay(mbutton), XtWindow(mbutton), mbutton->menubutton.rect_GC, XwMARKWIDTH + 3, 3, mbutton->core.width - XwMARKWIDTH - 6, mbutton->core.height - 6); XDrawRectangle( XtDisplay(mbutton), XtWindow(mbutton), theGC, XwMARKWIDTH + 3, 3, mbutton->core.width - XwMARKWIDTH - 6, mbutton->core.height - 6); } } else { if ((mbutton->menubutton.inverted) && (mbutton->menubutton.invertLabelPixmap)) thePixmap = mbutton->menubutton.invertLabelPixmap; else thePixmap = mbutton->menubutton.labelPixmap; XCopyArea (XtDisplay(mbutton), thePixmap, XtWindow(mbutton), mbutton->menubutton.defPixmap_GC, 0, 0, mbutton->menubutton.labelImage->width, mbutton->menubutton.labelImage->height, labelStarts, mbutton->button.label_y); } /* * If the mark is set, display the mark. */ if (mbutton->menubutton.setMark) { if ((mbutton->menubutton.inverted) && (mbutton->menubutton.invertMarkPixmap)) thePixmap = mbutton->menubutton.invertMarkPixmap; else thePixmap = mbutton->menubutton.markPixmap; XCopyArea (XtDisplay(mbutton), thePixmap, XtWindow(mbutton), mbutton->menubutton.defPixmap_GC, 0, 0, mbutton->menubutton.markImage->width, mbutton->menubutton.markImage->height, mbutton->button.internal_width + mbutton->primitive.highlight_thickness, mbutton->menubutton.mark_y); } /* * If the cascade is set, display it. */ if (mbutton->menubutton.cascadeOn) { if ((mbutton->menubutton.inverted) && (mbutton->menubutton.invertCascadePixmap)) thePixmap = mbutton->menubutton.invertCascadePixmap; else thePixmap = mbutton->menubutton.cascadePixmap; XCopyArea (XtDisplay(mbutton), thePixmap, XtWindow(mbutton), mbutton->menubutton.defPixmap_GC, 0, 0, mbutton->menubutton.cascadeImage->width, mbutton->menubutton.cascadeImage->height, mbutton->core.width - XwCASCADEWIDTH - mbutton->primitive.highlight_thickness - mbutton->button.internal_width, mbutton->menubutton.cascade_y); } } /*************************************<->************************************* * * Inverted (mbutton) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XFillRectangle * DrawLabelMarkCascade * *************************************<->***********************************/ static void Inverted (mw) XwMenuButtonWidget mw; { mw -> menubutton.inverted = TRUE; XFillRectangle (XtDisplay (mw), XtWindow (mw), mw->button.normal_GC, mw -> primitive.highlight_thickness + 1, mw -> primitive.highlight_thickness + 1, mw -> core.width - 2 * (mw -> primitive.highlight_thickness + 1), mw -> core.height - 2 * (mw -> primitive.highlight_thickness + 1)); DrawLabelMarkCascade (mw); } /*************************************<->************************************* * * NonInverted (mbutton) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XClearWindow * DrawLabelMarkCascade * *************************************<->***********************************/ static void NonInverted (mbutton) XwMenuButtonWidget mbutton; { mbutton->menubutton.inverted = FALSE; XClearWindow (XtDisplay(mbutton), XtWindow(mbutton)); DrawLabelMarkCascade (mbutton); } /*************************************<->************************************* * * Highlight(mbutton) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * Moved * Inverted * *************************************<->***********************************/ static void Highlight (mbutton) XwMenuButtonWidget mbutton; { /* if (mbutton->primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL) _XwHighlightBorder(mbutton); else */ Inverted (mbutton); } /*************************************<->************************************* * * Unhighlight (mbutton) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * Moved * Inverted * *************************************<->***********************************/ static void Unhighlight (mbutton) XwMenuButtonWidget mbutton; { /* if (mbutton->primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL) _XwUnhighlightBorder(mbutton); else */ NonInverted (mbutton); mbutton->menubutton.cascadeEnabled = FALSE; } /*************************************<->************************************* * * Enter (w, event) PRIVATE * * Description: * ----------- * * Inputs: * ------ * w = widget instance that was selected. * event = event record * * Outputs: * ------- * * Procedures Called * ----------------- * Moved * Inverted * *************************************<->***********************************/ static void Enter(w,event) Widget w; XEvent *event; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget)w; #ifdef DEBUG printf ("Enter %s\n", w->core.name); #endif if ((mbutton->menubutton.menuMgr == NULL) || ((*(((XwMenuMgrWidgetClass) XtClass (mbutton->menubutton.menuMgr))->menu_mgr_class.validEvent)) (mbutton->menubutton.menuMgr, mbutton, event))) { /* * Check on cascade indicator */ Moved (w, event); /* * if (mbutton->primitive.traversal_type != XwHIGHLIGHT_TRAVERSAL) */ Inverted(mbutton); } /* to-do: if no hintProc is specified, should generate a hint tag */ if ((mbutton->menubutton.hint != NULL) && (mbutton->menubutton.hintProc != NULL)) { mbutton->menubutton.hintProc(mbutton->menubutton.hint); } } /*************************************<->************************************* * * EnterParentsWindow (menupane, mbutton,event) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void EnterParentsWindow (menupane, mbutton, event) Widget menupane; XwMenuButtonWidget mbutton; XEvent * event; { Boolean remainHighlighted; XwunselectParams params; XEnterWindowEvent * entEvent = (XEnterWindowEvent *) event; #ifdef DEBUG printf ("EnterParents %s %s ", menupane->core.name, mbutton->core.name); #endif /* * if outside of the menubutton, bring down submenu. I am assuming that * the x parameters are okay. This means that entering my parents borders * on the correct y parameters will not cause the unselects to be called. */ if ((entEvent->y < mbutton->core.y) || (entEvent->y > mbutton->core.y + mbutton->core.height + 2 * mbutton->core.border_width)) { params.rootX = entEvent->x_root; params.rootY = entEvent->y_root; params.remainHighlighted = FALSE; #ifdef DEBUG printf ("rootX %d rootY %d\n", params.rootX, params.rootY); printf ("disabled\n"); #endif XtCallCallbacks ((Widget)mbutton, XtNcascadeUnselect, ¶ms); mbutton->menubutton.cascadeEnabled = params.remainHighlighted; if (mbutton->menubutton.cascadeEnabled == FALSE) Unhighlight (mbutton); } /* else * Moved (mbutton, event); */ #ifdef DEBUG printf ("\n"); #endif XtRemoveEventHandler (menupane, EnterWindowMask, FALSE, (XtEventHandler)EnterParentsWindow, mbutton); } /*************************************<->************************************* * * Leave (w, event) PRIVATE * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XtCallCallbacks * NonInverted * *************************************<->***********************************/ static void Leave(w,event) Widget w; XEvent *event; { XwunselectParams params; XwMenuButtonWidget mbutton = (XwMenuButtonWidget)w; XLeaveWindowEvent * lEvent = (XLeaveWindowEvent *) event; params.rootX = lEvent->x_root; params.rootY = lEvent->y_root; if ((mbutton->menubutton.menuMgr == NULL) || ((*(((XwMenuMgrWidgetClass) XtClass (mbutton->menubutton.menuMgr))->menu_mgr_class.validEvent)) (mbutton->menubutton.menuMgr, mbutton, event))) { if (mbutton->menubutton.cascadeEnabled) { params.remainHighlighted = FALSE; XtCallCallbacks ((Widget)mbutton, XtNcascadeUnselect, ¶ms); mbutton->menubutton.cascadeEnabled = params.remainHighlighted; if (mbutton->menubutton.cascadeEnabled) { XtAddEventHandler (XtParent(mbutton), EnterWindowMask, FALSE, (XtEventHandler)EnterParentsWindow, mbutton); return; } } if (mbutton->menubutton.inverted) NonInverted(mbutton); } if ((mbutton->menubutton.hint != NULL) && (mbutton->menubutton.hintProc != NULL)) { mbutton->menubutton.hintProc(""); } } /*************************************<->************************************* * * Moved * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * XQueryPointer * XtCallCallbacks * *************************************<->***********************************/ static void Moved (w,event) Widget w; XEvent * event; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget)w; int xPosition, yPosition; int xroot, yroot; Window root, child; unsigned int mask; XwunselectParams params; XButtonPressedEvent * buttonEvent = (XButtonPressedEvent *) event; #ifdef DEBUG printf ("Moved %s\n", w->core.name); #endif /* * only do this if I have a cascade showing */ if ((mbutton->menubutton.cascadeOn) && (mbutton->primitive.traversal_type == XwHIGHLIGHT_OFF)) { /* * if there is a menu manager and the cascade has not been popped up, * then ask the menu manager if it should be popped up */ if ((mbutton->menubutton.menuMgr == NULL) || (mbutton->menubutton.cascadeEnabled == TRUE) || (*(((XwMenuMgrWidgetClass) XtClass(mbutton->menubutton.menuMgr))->menu_mgr_class.doICascade)) (mbutton->menubutton.menuMgr, mbutton)) { /* * check if the event appears to have occurred in the cascade area */ if ((mbutton->menubutton.cascadeEnabled) || ((buttonEvent->y > 0) && (buttonEvent->y < mbutton->core.height + 2 * mbutton->core.border_width) && (buttonEvent->x < mbutton->core.width + 2 * mbutton->core.border_width) && (buttonEvent->x > mbutton->core.width + 2 * mbutton->core.border_width - XwCASCADEWIDTH - mbutton->primitive.highlight_thickness - mbutton->button.internal_width))) { /* * Verify that its really in the cascade area */ XQueryPointer (XtDisplay(mbutton), mbutton->core.window, &root, &child, &xroot, &yroot, &xPosition, &yPosition, &mask); if ((yPosition > 0) && (yPosition < mbutton->core.height + 2 * mbutton->core.border_width) && (xPosition < mbutton->core.width + 2 * mbutton->core.border_width) && (xPosition > mbutton->core.width + 2 * mbutton->core.border_width - XwCASCADEWIDTH - mbutton->primitive.highlight_thickness - mbutton->button.internal_width)) { if (!mbutton->menubutton.cascadeEnabled) { XtCallCallbacks ((Widget)mbutton, XtNcascadeSelect, NULL); #ifdef DEBUG printf ("enabled\n"); #endif mbutton->menubutton.cascadeEnabled = TRUE; } } else if (mbutton->menubutton.cascadeEnabled) { params.rootX = xroot; params.rootY = yroot; params.remainHighlighted = FALSE; #ifdef DEBUG printf ("Moved rootX %d rootY %d\n", params.rootX, params.rootY); #endif XtCallCallbacks ((Widget)mbutton, XtNcascadeUnselect, ¶ms); mbutton->menubutton.cascadeEnabled = params.remainHighlighted; } } } } } /*************************************<->************************************* * * Redisplay (w, event) * * Description: * ----------- * Cause the widget, identified by w, to be redisplayed. * * Inputs: * ------ * w = widget to be redisplayed; * event = event structure identifying need for redisplay on this * widget. * * Outputs: * ------- * * Procedures Called * ----------------- * Inverted * NonInverted * _XwHighlightBorder * _XwUnhighlightBorder * *************************************<->***********************************/ static void Redisplay(w, event) Widget w; XEvent *event; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget) w; /* * if the highlight state has changed since the last redisplay, * update the window and set the font GC. */ if (mbutton->menubutton.inverted) Inverted(mbutton); else NonInverted(mbutton); if (mbutton->primitive.highlighted) _XwHighlightBorder(mbutton); else if (mbutton->primitive.display_highlighted) _XwUnhighlightBorder(mbutton); } /*************************************<->************************************* * * SetValues(urrent, request, new) * * Description: * ----------- * This is the set values procedure for the menubutton class. It is * called last (the set values rtnes for its superclasses are called * first). * * * Inputs: * ------ * current = original widget; * request = copy of current (?); * new = copy of request which reflects changes made to it by * set values procedures of its superclasses; * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static Boolean SetValues (current, request, new) Widget current, request, new; { XtWidgetGeometry reqGeo; XtWidgetGeometry replyGeo; XwMenuButtonWidget curmbutton = (XwMenuButtonWidget) current; XwMenuButtonWidget newmbutton = (XwMenuButtonWidget) new; Boolean flag = FALSE; /* our return value */ Dimension dim; KeySym tempKeysym; /* We never allow our traversal state to change using SetValues() */ newmbutton->primitive.traversal_type = curmbutton->primitive.traversal_type; /* * If the accelerator string changed, malloc space for the string * and copy it to our space. The old string must be freed. */ if (curmbutton->menubutton.accelerator != newmbutton->menubutton.accelerator) { if (newmbutton->menubutton.accelerator) { if (_XwMapKeyEvent (newmbutton->menubutton.accelerator, &newmbutton->menubutton.accelEventType, &tempKeysym, &newmbutton->menubutton.accelModifiers) == FALSE) { /* Invalid string; revert to previous one */ XtWarning ("MenuButton: Invalid accelerator; using previous setting"); newmbutton->menubutton.accelerator = curmbutton->menubutton.accelerator; newmbutton->menubutton.accelEventType = curmbutton->menubutton.accelEventType; newmbutton->menubutton.accelDetail = curmbutton->menubutton.accelDetail; newmbutton->menubutton.accelModifiers = curmbutton->menubutton.accelModifiers; } else { /* valid string */ newmbutton->menubutton.accelDetail = XKeysymToKeycode ( XtDisplay(newmbutton), tempKeysym); newmbutton->menubutton.accelerator = strcpy(XtMalloc((unsigned) (XwStrlen(newmbutton->menubutton.accelerator)+1)), newmbutton->menubutton.accelerator); if (newmbutton->menubutton.menuMgr) (*(((XwMenuMgrWidgetClass) XtClass (newmbutton->menubutton.menuMgr))-> menu_mgr_class.setSelectAccelerator)) (newmbutton->menubutton.menuMgr, (Widget)newmbutton, newmbutton->menubutton.accelerator, newmbutton->menubutton.accelEventType, newmbutton->menubutton.accelDetail, newmbutton->menubutton.accelModifiers); if (curmbutton->menubutton.accelerator) XtFree ((char *) curmbutton->menubutton.accelerator); } } else if (curmbutton->menubutton.accelerator) { if (curmbutton->menubutton.menuMgr) (*(((XwMenuMgrWidgetClass) XtClass(curmbutton->menubutton.menuMgr))-> menu_mgr_class.clearSelectAccelerator)) (curmbutton->menubutton.menuMgr, (Widget)curmbutton); XtFree ((char *) curmbutton->menubutton.accelerator); } } /* * Determine if the mnemonic changed, verify and malloc space. * Notify menuMgr of the change. */ if (curmbutton->menubutton.mnemonic != newmbutton->menubutton.mnemonic) { if (newmbutton->menubutton.mnemonic) { if (*(newmbutton->menubutton.mnemonic) == '\0') { XtWarning ("MenuButton: Invalid mnemonic; using previous setting"); newmbutton->menubutton.mnemonic = curmbutton->menubutton.mnemonic; } else { char mne = newmbutton->menubutton.mnemonic[0]; newmbutton->menubutton.mnemonic = (String)XtMalloc(2); newmbutton->menubutton.mnemonic[0] = mne; newmbutton->menubutton.mnemonic[1] = '\0'; if (newmbutton->menubutton.menuMgr) (*(((XwMenuMgrWidgetClass) XtClass (newmbutton->menubutton.menuMgr))-> menu_mgr_class.setSelectMnemonic)) (newmbutton->menubutton.menuMgr, (Widget)newmbutton, newmbutton->menubutton.mnemonic); XtFree (curmbutton->menubutton.mnemonic); } } else { if (newmbutton->menubutton.menuMgr) (*(((XwMenuMgrWidgetClass) XtClass (curmbutton->menubutton.menuMgr))-> menu_mgr_class.clearSelectMnemonic)) (curmbutton->menubutton.menuMgr, (Widget)curmbutton); XtFree(curmbutton->menubutton.mnemonic); } } /* * recalculate the underline parameters if mnemonic or font changes */ if ((newmbutton->menubutton.mnemonic != curmbutton->menubutton.mnemonic) || (newmbutton->button.font != curmbutton->button.font)) { SetUnderline (newmbutton); flag = TRUE; } /* * If the foreground or background changed, or the color or stipple * declaration was changed, recreate the GC's */ if ((newmbutton->primitive.foreground != curmbutton->primitive.foreground) || (newmbutton->core.background_pixel != curmbutton->core.background_pixel) || (newmbutton->menubutton.rectColor != curmbutton->menubutton.rectColor) || (newmbutton->menubutton.rectStipple != curmbutton->menubutton.rectStipple)) { GetGC (newmbutton); XtDestroyGC (curmbutton->menubutton.defPixmap_GC); XtDestroyGC (curmbutton->menubutton.invertPixmap_GC); } /* * If the GCs are new, or the images are new, create new pixmaps */ if ((newmbutton->menubutton.markImage != curmbutton->menubutton.markImage) || (newmbutton->primitive.foreground != curmbutton->primitive.foreground) || (newmbutton->core.background_pixel != curmbutton->core.background_pixel)) { if (!newmbutton->menubutton.markImage) newmbutton->menubutton.markImage = newmbutton->menubutton.defMarkImage; CreatePixmap(newmbutton, newmbutton->menubutton.markImage, &newmbutton->menubutton.markPixmap, &newmbutton->menubutton.invertMarkPixmap); flag = TRUE; } if ((newmbutton->menubutton.cascadeImage != curmbutton->menubutton.cascadeImage) || (newmbutton->primitive.foreground != curmbutton->primitive.foreground) || (newmbutton->core.background_pixel != curmbutton->core.background_pixel)) { if (!newmbutton->menubutton.cascadeImage) newmbutton->menubutton.cascadeImage = newmbutton->menubutton.defCascadeImage; CreatePixmap(newmbutton, newmbutton->menubutton.cascadeImage, &newmbutton->menubutton.cascadePixmap, &newmbutton->menubutton.invertCascadePixmap); flag = TRUE; } if ((newmbutton->menubutton.labelImage != curmbutton->menubutton.labelImage) || (newmbutton->primitive.foreground != curmbutton->primitive.foreground) || (newmbutton->core.background_pixel != curmbutton->core.background_pixel)) { CreatePixmap(newmbutton, newmbutton->menubutton.labelImage, &newmbutton->menubutton.labelPixmap, &newmbutton->menubutton.invertLabelPixmap); if (newmbutton->menubutton.labelType == XwIMAGE) flag = TRUE; } if ((newmbutton->core.sensitive != curmbutton->core.sensitive) || (newmbutton->core.ancestor_sensitive != curmbutton->core.ancestor_sensitive)) { if (curmbutton->menubutton.menuMgr) { (*(((XwMenuMgrWidgetClass) XtClass(curmbutton->menubutton.menuMgr))-> menu_mgr_class.btnSensitivityChanged)) (curmbutton->menubutton.menuMgr, (Widget)newmbutton); } } /* * fields that change that cause a redraw */ if ((newmbutton->menubutton.labelType != curmbutton->menubutton.labelType) || (newmbutton->menubutton.setMark != curmbutton->menubutton.setMark) || (newmbutton->menubutton.cascadeOn != curmbutton->menubutton.cascadeOn) || (newmbutton->menubutton.mgrOverrideMnemonic != curmbutton->menubutton.mgrOverrideMnemonic) || (newmbutton->menubutton.rectColor != curmbutton->menubutton.rectColor) || (newmbutton->menubutton.rectStipple != curmbutton->menubutton.rectStipple)) flag = TRUE; /********************************************************************** * Calculate the window size: The assumption here is that if * the width and height are the same in the new and current instance * record that those fields were not changed with set values. Therefore * its okay to recompute the necessary width and height. However, if * the new and current do have different width/heights then leave them * alone because that's what the user wants. *********************************************************************/ /* "noPad" option prevents button from resizing itself 2/24/00 --Tim */ if (curmbutton->core.width == request->core.width && curmbutton->menubutton.noPad == False) { IdealWidth (newmbutton, &newmbutton->core.width); flag = TRUE; } else if (request->core.width <= 0) { XtWarning ("MenuButton: Invalid width; using previous setting"); newmbutton->core.width = curmbutton->core.width; } if (curmbutton->core.height == request->core.height && curmbutton->menubutton.noPad == False) { newmbutton->core.height = ComputeHeight(newmbutton); flag = TRUE; } else if (request->core.height <= 0) { XtWarning ("MenuButton: Invalid height; using previous setting"); newmbutton->core.height = curmbutton->core.height; } return (flag); } /*************************************<->************************************* * * Resize(w) * * Description: * ----------- * A resize event has been generated. Recompute location of button * elements. * * Inputs: * ------ * w = widget to be resized. * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Resize(w) Widget w; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget) w; ComputeVertical(mbutton); SetUnderline(mbutton); } /*************************************<->************************************* * * SetTraversalType(w) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void SetTraversalType (w, highlight_mode) Widget w; int highlight_mode; { XwMenuButtonWidget mbutton = (XwMenuButtonWidget) w; mbutton->primitive.traversal_type = highlight_mode; if (highlight_mode == XwHIGHLIGHT_TRAVERSAL) { XtAugmentTranslations (w, XwprimitiveClassRec.primitive_class. translations); w->core.widget_class->core_class.visible_interest = True; } } /*************************************<->************************************* * * TraverseRight(w, event) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseRight (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse to the next menupane, if we * have a cascade. */ if ((w->menubutton.cascadeOn) && (w->menubutton.menuMgr) && (w->primitive.I_have_traversal) && (_XwUniqueEvent (event))) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseRight)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraverseLeft(w, event) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseLeft (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse to the previous menupane. */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseLeft)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraverseNext(w, event) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseNext (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse to the previous menupane. */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseNext)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraversePrev(w, event) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraversePrev (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse to the previous menupane. */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traversePrev)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraverseHome(w) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseHome (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse to the first menupane. */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseHome)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraverseUp(w) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseUp (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse up one menu button */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseUp)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraverseDown(w) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseDown (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse down one menu button */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseDown)) (w->menubutton.menuMgr, event); } } /*************************************<->************************************* * * TraverseNextTop(w) * * Description: * ----------- * * Inputs: * ------ * * Outputs: * ------- * * Procedures Called * ----------------- * *************************************<->***********************************/ static void TraverseNextTop (w, event) XwMenuButtonWidget w; XEvent * event; { /* * Ask the menu manager to traverse to the next top level menupane */ if ((w->menubutton.menuMgr) && (_XwUniqueEvent (event)) && (w->primitive.I_have_traversal)) { (*(((XwMenuMgrWidgetClass) XtClass(w->menubutton.menuMgr))->menu_mgr_class.traverseNextTop)) (w->menubutton.menuMgr, event); } } /************************************************************************ * * _XwExtractTime * Extract the time field from the event structure. * ************************************************************************/ static Time _XwExtractTime (event) XEvent * event; { if ((event->type == ButtonPress) || (event->type == ButtonRelease)) return (event->xbutton.time); if ((event->type == KeyPress) || (event->type == KeyRelease)) return (event->xkey.time); return ((Time) 0); } Boolean _XwUniqueEvent (event) XEvent * event; { static unsigned long serial = 0; static Time time = 0; static int type = 0; Time newTime; /* * Ignore duplicate events, caused by an event being dispatched * to both the focus widget and the spring-loaded widget, where * these map to the same widget (menus). */ if ((time != (newTime = _XwExtractTime (event))) || (type != event->type) || (serial != event->xany.serial)) { /* Save the fingerprints for the new event */ type = event->type; serial = event->xany.serial; time = newTime; return (TRUE); } return (FALSE); } /*************************************<->************************************* * * Visibility(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Visibility (widget, event) Widget widget; XEvent * event; { /* * Noop; purpose is to prevent Primitive's translation from * taking effect. */ } /*************************************<->************************************* * * Unmap(parameters) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ static void Unmap (widget, event) Widget widget; XEvent * event; { /* * Noop; purpose is to prevent Primitive's translation from * taking effect. */ } xcircuit-3.9.73/Xw/sub.c0000664000175000001440000007773112335667422013545 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: sub.c ** ** Project: X Widgets ** ** Description: Code for TextEdit widget ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1987, 1988 by Digital Equipment Corporation, Maynard, ** Massachusetts, and the Massachusetts Institute of Technology, ** Cambridge, Massachusetts ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard, Digital or M.I.T. not be used in advertising or ** publicity pertaining to distribution of the software without ** written prior permission. ** ** DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ** ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL ** DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ** ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS ** SOFTWARE. ** ***************************************************************************** *************************************<+>*************************************/ /***************************************************************************** * * Procedures declared in this file * ****************************************************************************** */ static void InsertCursor () ; static void _XtTextNeedsUpdating() ; static XwTextPosition PositionForXY () ; static int LineForPosition () ; static int LineAndXYForPosition () ; static void BuildLineTable () ; static XwTextLineRange UpdateLineTable () ; static void ForceBuildLineTable() ; static void _XtTextScroll() ; static XwEditResult ReplaceText () ; static void DisplayText() ; static void ClearWindow () ; static void ClearText () ; static void DisplayAllText () ; static void CheckResizeOrOverflow() ; static void ProcessExposeRegion() ; static void _XtTextPrepareToUpdate() ; static void FlushUpdate() ; static void _XtTextShowPosition() ; static void _XtTextExecuteUpdate() ; /* * Procedure to manage insert cursor visibility for editable text. It uses * the value of ctx->insertPos and an implicit argument. In the event that * position is immediately preceded by an eol graphic, then the insert cursor * is displayed at the beginning of the next line. */ /*--------------------------------------------------------------------------+*/ static void InsertCursor (ctx, state) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwInsertState state; { Position x, y; int dy, line, visible; XwTextBlock text; if (ctx->text.lt.lines < 1) return; visible = LineAndXYForPosition(ctx, ctx->text.insertPos, &line, &x, &y); if (line < ctx->text.lt.lines) dy = (ctx->text.lt.info[line + 1].y - ctx->text.lt.info[line].y) + 1; else dy = (ctx->text.lt.info[line].y - ctx->text.lt.info[line - 1].y) + 1; /** If the insert position is just after eol then put it on next line **/ if (x > ctx->text.leftmargin && ctx->text.insertPos > 0 && ctx->text.insertPos >= GETLASTPOS(ctx)) { /* reading the source is bogus and this code should use scan */ (*(ctx->text.source->read)) (ctx->text.source, ctx->text.insertPos - 1, &text, 1); if (text.ptr[0] == '\n') { x = ctx->text.leftmargin; y += dy; } } y += dy; if (visible) (*(ctx->text.sink->insertCursor))(ctx, x, y, state); } /* * Procedure to register a span of text that is no longer valid on the display * It is used to avoid a number of small, and potentially overlapping, screen * updates. [note: this is really a private procedure but is used in * multiple modules]. */ /*--------------------------------------------------------------------------+*/ static void _XtTextNeedsUpdating(ctx, left, right) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition left, right; { int i; if (left < right) { for (i = 0; i < ctx->text.numranges; i++) { if (left <= ctx->text.updateTo[i] && right >= ctx->text.updateFrom[i]) { ctx->text.updateFrom[i] = min(left, ctx->text.updateFrom[i]); ctx->text.updateTo[i] = max(right, ctx->text.updateTo[i]); return; } } ctx->text.numranges++; if (ctx->text.numranges > ctx->text.maxranges) { ctx->text.maxranges = ctx->text.numranges; i = ctx->text.maxranges * sizeof(XwTextPosition); ctx->text.updateFrom = (XwTextPosition *) XtRealloc((char *)ctx->text.updateFrom, (unsigned) i * sizeof(XwTextPosition)); ctx->text.updateTo = (XwTextPosition *) XtRealloc((char *)ctx->text.updateTo, (unsigned) i * sizeof(XwTextPosition)); } ctx->text.updateFrom[ctx->text.numranges - 1] = left; ctx->text.updateTo[ctx->text.numranges - 1] = right; } } /* * This routine maps an x and y position in a window that is displaying text * into the corresponding position in the source. */ /*--------------------------------------------------------------------------+*/ static XwTextPosition PositionForXY (ctx, x, y) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; Position x,y; { /* it is illegal to call this routine unless there is a valid line table! */ int width, fromx, line; XwTextPosition position, resultstart, resultend; XwTextPosition lastpos = GETLASTPOS(ctx); /*** figure out what line it is on ***/ for (line = 0; line < ctx->text.lt.lines - 1; line++) { if (y <= ctx->text.lt.info[line + 1].y) break; } position = ctx->text.lt.info[line].position; if (position >= lastpos) return lastpos; fromx = ctx->text.lt.info[line].x; /* starting x in line */ width = x - fromx; /* num of pix from starting of line */ (*(ctx->text.sink->resolve)) (ctx, position, fromx, width, &resultstart, &resultend); if (resultstart >= ctx->text.lt.info[line + 1].position) resultstart = (*(ctx->text.source->scan))(ctx->text.source, ctx->text.lt.info[line + 1].position, XwstPositions, XwsdLeft, 1, TRUE); return resultstart; } /* * This routine maps a source position in to the corresponding line number * of the text that is displayed in the window. */ /*--------------------------------------------------------------------------+*/ static int LineForPosition (ctx, position) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition position; /* it is illegal to call this routine unless there is a valid line table!*/ { int line; if (position <= ctx->text.lt.info[0].position) return 0; for (line = 0; line < ctx->text.lt.lines; line++) if (position < ctx->text.lt.info[line + 1].position) break; return line; } /* * This routine maps a source position into the corresponding line number * and the x, y coordinates of the text that is displayed in the window. */ /*--------------------------------------------------------------------------+*/ static int LineAndXYForPosition (ctx, pos, line, x, y) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition pos; int *line; Position *x, *y; /* it is illegal to call this routine unless there is a valid line table!*/ { XwTextPosition linePos, endPos; int visible, realW, realH; *line = 0; *x = ctx->text.leftmargin; *y = ctx->text.topmargin; visible = IsPositionVisible(ctx, pos); if (visible) { *line = LineForPosition(ctx, pos); *y = ctx->text.lt.info[*line].y; *x = ctx->text.lt.info[*line].x; linePos = ctx->text.lt.info[*line].position; (*(ctx->text.sink->findDistance))(ctx, linePos, *x, pos, &realW, &endPos, &realH); *x = *x + realW; } return visible; } /* * This routine builds a line table. It does this by starting at the * specified position and measuring text to determine the staring position * of each line to be displayed. It also determines and saves in the * linetable all the required metrics for displaying a given line (e.g. * x offset, y offset, line length, etc.). */ /*--------------------------------------------------------------------------+*/ static void BuildLineTable (self, position) /*--------------------------------------------------------------------------+*/ XwTextEditWidget self; XwTextPosition position; { XwTextPosition line, lines; Boolean rebuild; XwLineTableEntryPtr lp ; rebuild = (Boolean) (position != self->text.lt.top); lines= applyDisplay(maxLines)(self) ; /**************** * * RBM * * Don't allow a 0-line widget - let clipping occur * * NOTE: THE MAXINT CLIPPING IS AN UGLY HACK THAT NEEDS TO BE FIXED * WITH A CAST!! ****************/ if ((lines < 1) || (lines > 32767)) lines = 1; if (self->text.lt.info != NULL && lines != self->text.lt.lines) { XtFree((char *) self->text.lt.info); self->text.lt.info = NULL; } if (self->text.lt.info == NULL) { self->text.lt.info = (XwLineTableEntry *) XtCalloc(lines + 1, (unsigned)sizeof(XwLineTableEntry)); self->text.lt.lines = lines ; for (line = 0, lp = &(self->text.lt.info[0]) ; line < lines; line++, lp++) { lp->position = lp->drawPos = 0 ; lp->x = lp->y = 0 ; } rebuild = TRUE; } self->text.lt.top = position ; if (rebuild) UpdateLineTable ( self , position , 0 , self->core.width - self->text.leftmargin - self->text.rightmargin , 0 , FALSE ) ; } /*--------------------------------------------------------------------------+*/ static XwTextLineRange UpdateLineTable (self, pos0, posF, width, line0, updateMode) /*--------------------------------------------------------------------------+*/ XwTextEditWidget self ; XwTextPosition pos0, posF ; Dimension width ; XwTextPosition line0 ; int updateMode ; { XwLineTableEntryPtr currLine ; XwLineTablePtr lt ; XwTextPosition line, nLines ; Dimension x0, y ; int reqW, reqH ; TextFit (*textFitFn)(); int wrapEnabled, breakOnWhiteSpace ; XwTextPosition fitPos, drawPos, nextPos ; textFitFn = self->text.sink->textFitFn ; lt = &(self->text.lt) ; nLines = lt->lines ; x0 = self->text.leftmargin ; y = updateMode ? lt->info[line0].y : self->text.topmargin ; reqH = 0 ; wrapEnabled = (int) self->text.wrap_mode ; breakOnWhiteSpace = wrapEnabled && (self->text.wrap_break == XwWrapWhiteSpace) ; for (line = line0; line <= nLines; line++) { currLine = &(lt->info[line]) ; currLine->x = x0; currLine->y = y; currLine->position = pos0; if (pos0 <= GETLASTPOS(self)) { currLine->fit = (*textFitFn) ( self , pos0 , x0 , width , wrapEnabled , breakOnWhiteSpace , &fitPos , &drawPos , &nextPos , &reqW , &reqH ) ; currLine->drawPos = drawPos ; currLine->endX = x0 + reqW ; pos0 = nextPos; /* In update mode we must go through the last line which had a character replaced in it before terminating on a mere position match. Starting position (of replacement) would be sufficient only if we know the font is fixed width. (Good place to optimize someday, huh?) */ if (updateMode && (nextPos > posF) && (nextPos == lt->info[line+1].position)) { break ; } } else { currLine->endX = x0; currLine->fit = tfEndText ; } y += reqH; } ; return ( (line < nLines) ? line : nLines - 1 ) ; } /* * This routine is used to re-display the entire window, independent of * its current state. */ /*--------------------------------------------------------------------------+*/ static void ForceBuildLineTable(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { XwTextPosition position; position = ctx->text.lt.top; ctx->text.lt.top++; /* ugly, but it works */ BuildLineTable(ctx, position); } /* * The routine will scroll the displayed text by lines. If the arg is * positive, move up; otherwise, move down. [note: this is really a private * procedure but is used in multiple modules]. */ /*--------------------------------------------------------------------------+*/ static void _XtTextScroll(ctx, n) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; int n; { register XwTextEditPart *text = (XwTextEditPart *) &(ctx->text); register XwLineTablePtr lt = &(text->lt); XwTextPosition top, target, lastpos = GETLASTPOS(ctx); Dimension textwidth = ctx->core.width - (text->leftmargin + text->rightmargin); Dimension ypos; if (n >= 0) { top = min(lt->info[n].position, lastpos); BuildLineTable(ctx, top); if (top >= lastpos) DisplayAllText(ctx); else { XCopyArea(XtDisplay(ctx), XtWindow(ctx), XtWindow(ctx), text->gc, text->leftmargin, /* 0, */ lt->info[n].y, textwidth, /* 9999, */ ctx->core.height - lt->info[n].y - text->bottommargin, text->leftmargin, /* 0, */ lt->info[0].y); ypos = lt->info[0].y + ctx->core.height - lt->info[n].y; (*(text->sink->clearToBackground)) (ctx, text->leftmargin, /* 0, */ ypos, /* lt->info[0].y + ctx->core.height - lt->info[n].y, */ textwidth, /* 9999, */ ctx->core.height - (ypos + text->bottommargin) /* 9999 */ ); if (n < lt->lines) n++; _XtTextNeedsUpdating(ctx, lt->info[lt->lines - n].position, lastpos); } } else { Dimension tempHeight; n = -n; target = lt->top; top = (*(text->source->scan))(text->source, target, XwstEOL, XwsdLeft, n+1, FALSE); tempHeight = lt->info[lt->lines-n].y - text->topmargin; BuildLineTable(ctx, top); if (lt->info[n].position == target) { XCopyArea(XtDisplay(ctx), XtWindow(ctx), XtWindow(ctx), text->gc, text->leftmargin, /* 0, */ lt->info[0].y, textwidth, /* 9999, */ tempHeight, text->leftmargin, /* 0, */ lt->info[n].y); _XtTextNeedsUpdating(ctx, lt->info[0].position, lt->info[n].position); } else if (lt->top != target) DisplayAllText(ctx); } } /* * This internal routine deletes the text from pos1 to pos2 in a source and * then inserts, at pos1, the text that was passed. As a side effect it * "invalidates" that portion of the displayed text (if any). */ /*--------------------------------------------------------------------------+*/ static XwEditResult ReplaceText (ctx, pos1, pos2, text, verify) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition pos1, pos2; XwTextBlock *text; Boolean verify; /* it is illegal to call this routine unless there is a valid line table!*/ { int i, line1, line2, visible, delta; XwEditResult error; Position x, y; XwTextPosition startPos, endPos, updateFrom, lastpos; XwTextVerifyCD cbdata; XwTextBlock newtxtblk; newtxtblk.ptr = (unsigned char*) XtMalloc(text->length); newtxtblk.firstPos = text->firstPos; newtxtblk.length = text->length; strncpy(newtxtblk.ptr, text->ptr, text->length); cbdata.operation = modVerify; cbdata.doit = TRUE; cbdata.currInsert = ctx->text.insertPos; cbdata.newInsert = ctx->text.insertPos; cbdata.startPos = pos1; cbdata.endPos = pos2; cbdata.text = &newtxtblk; if (verify) { XtCallCallbacks((Widget)ctx, XtNmodifyVerification, &cbdata); if (!cbdata.doit) { text->length = 0; /* Necessary inorder to return to initial state */ return XweditReject; } /* Extract any new data changed by the verification callback */ /* newtxtblk is used in the actual replace call later */ pos1 = cbdata.startPos; pos2 = cbdata.endPos; ctx->text.insertPos = cbdata.newInsert; } /* the insertPos may not always be set to the right spot in XwtextAppend */ if ((pos1 == ctx->text.insertPos) && ((*(ctx->text.source->editType))(ctx->text.source) == XwtextAppend)) { ctx->text.insertPos = GETLASTPOS(ctx); pos2 = pos2 - pos1 + ctx->text.insertPos; pos1 = ctx->text.insertPos; } updateFrom = (*(ctx->text.source->scan)) (ctx->text.source, pos1, XwstWhiteSpace, XwsdLeft, 1, TRUE); updateFrom = (*(ctx->text.source->scan)) (ctx->text.source, updateFrom, XwstPositions, XwsdLeft, 1, TRUE); startPos = max(updateFrom, ctx->text.lt.top); visible = LineAndXYForPosition(ctx, startPos, &line1, &x, &y); error = (*(ctx->text.source->replace)) (ctx->text.source, pos1, pos2, &newtxtblk, &delta); XtFree(newtxtblk.ptr); if (error) return error; lastpos = GETLASTPOS(ctx); if (ctx->text.lt.top >= lastpos) { BuildLineTable(ctx, lastpos); /* ClearWindow(ctx); */ ClearText(ctx); return error; } if (delta < lastpos) { for (i = 0; i < ctx->text.numranges; i++) { if (ctx->text.updateFrom[i] > pos1) ctx->text.updateFrom[i] += delta; if (ctx->text.updateTo[i] >= pos1) ctx->text.updateTo[i] += delta; } } line2 = LineForPosition(ctx, pos1); /* * fixup all current line table entries to reflect edit. * BUG: it is illegal to do arithmetic on positions. This code should * either use scan or the source needs to provide a function for doing * position arithmetic. */ for (i = line2 + 1; i <= ctx->text.lt.lines; i++) ctx->text.lt.info[i].position += delta; endPos = pos1; /* * Now process the line table and fixup in case edits caused * changes in line breaks. If we are breaking on word boundaries, * this code checks for moving words to and from lines. */ if (visible) { XwTextLineRange lastChangedLine ; if (line1) line1-- ; /* force check for word moving to prev line */ lastChangedLine = UpdateLineTable (ctx , ctx->text.lt.info[line1].position , pos2 + delta , ctx->core.width - ctx->text.leftmargin - ctx->text.rightmargin , line1 , TRUE ) ; endPos = ctx->text.lt.info[lastChangedLine+1].position ; } lastpos = GETLASTPOS(ctx); if (delta >= lastpos) endPos = lastpos; if (delta >= lastpos || pos2 >= ctx->text.lt.top) _XtTextNeedsUpdating(ctx, updateFrom, endPos); return error; } /* * This routine will display text between two arbitrary source positions. * In the event that this span contains highlighted text for the selection, * only that portion will be displayed highlighted. */ /*--------------------------------------------------------------------------+*/ static void DisplayText(ctx, pos1, pos2) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; XwTextPosition pos1, pos2; /* it is illegal to call this routine unless there is a valid line table!*/ { Position x, y, xlimit, tempx; Dimension height; int line, i, visible; XwTextPosition startPos, endPos, lastpos = GETLASTPOS(ctx); if (pos1 < ctx->text.lt.top) pos1 = ctx->text.lt.top; if (pos2 > lastpos) pos2 = lastpos; if (pos1 >= pos2) return; visible = LineAndXYForPosition(ctx, pos1, &line, &x, &y); if (!visible) return; startPos = pos1; xlimit = ctx->core.width - ctx->text.rightmargin + 1 ; height = ctx->text.lt.info[1].y - ctx->text.lt.info[0].y; for (i = line; i < ctx->text.lt.lines; i++) { endPos = ctx->text.lt.info[i].drawPos + 1; if (endPos > pos2) endPos = pos2; if (endPos > startPos) { /* We know this should not be necessary!!!! if (x == ctx->text.leftmargin) (*(ctx->text.sink->clearToBackground))(ctx, 0, y, ctx->text.leftmargin, height); */ if (startPos >= ctx->text.s.right || endPos <= ctx->text.s.left) { (*(ctx->text.sink->display))(ctx, x, y, startPos, endPos, FALSE); } else if (startPos >= ctx->text.s.left && endPos <= ctx->text.s.right) { (*(ctx->text.sink->display))(ctx, x, y, startPos, endPos, TRUE); } else { DisplayText(ctx, startPos, ctx->text.s.left); DisplayText(ctx, max(startPos, ctx->text.s.left), min(endPos, ctx->text.s.right)); DisplayText(ctx, ctx->text.s.right, endPos); } } startPos = ctx->text.lt.info[i + 1].position; height = ctx->text.lt.info[i + 1].y - ctx->text.lt.info[i].y; tempx = ctx->text.lt.info[i].endX; (*(ctx->text.sink->clearToBackground))(ctx, tempx, y, xlimit - tempx, height); x = ctx->text.leftmargin; y = ctx->text.lt.info[i + 1].y; if ((endPos == pos2) && (endPos != lastpos)) break; } } /* * Clear the window to background color. */ /*--------------------------------------------------------------------------+*/ static void ClearWindow (ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { (*(ctx->text.sink->clearToBackground))(ctx, 0, 0, ctx->core.width, ctx->core.height); } /* * Clear the portion of the window that the text in drawn in, or that is * don't clear the margins */ /*--------------------------------------------------------------------------+*/ static void ClearText (ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { register XwTextEditPart *text = (XwTextEditPart *) &(ctx->text); (*(text->sink->clearToBackground)) (ctx, 0, 0, ctx->core.width, ctx->core.height); } /* * Internal redisplay entire window. */ /*--------------------------------------------------------------------------+*/ static void DisplayAllText (w) /*--------------------------------------------------------------------------+*/ Widget w; { XwTextEditWidget ctx = (XwTextEditWidget) w; if (!XtIsRealized((Widget)ctx)) return; ClearText(ctx); /* ClearWindow(ctx); */ /* BuildLineTable(ctx, ctx->text.lt.top); */ _XtTextNeedsUpdating(ctx, zeroPosition, GETLASTPOS(ctx)); } /* * This routine checks to see if the window should be resized (grown or * shrunk) or scrolled then text to be painted overflows to the right or * the bottom of the window. It is used by the keyboard input routine. */ /*--------------------------------------------------------------------------+*/ static void CheckResizeOrOverflow(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { XwTextLineRange i, nLines ; Dimension width; XtWidgetGeometry rbox; XtGeometryResult reply; XwLineTableEntryPtr lp ; XwLineTablePtr lt ; XwTextEditPart *tp ; tp = &(ctx->text) ; lt = &(tp->lt) ; nLines = lt->lines ; if (tp->grow_state & XwGrowHorizontal) { UpdateLineTable ( ctx, lt->top, 0, INFINITE_WIDTH, 0, FALSE) ; width = 0 ; for (i=0, lp = &(lt->info[0]) ; i < nLines ; i++, lp++) { if (width < lp->endX) width = lp->endX ; } ; width += ctx->text.rightmargin; if (width > ctx->core.width) { rbox.request_mode = CWWidth; rbox.width = width; reply = XtMakeGeometryRequest((Widget)ctx, &rbox, &rbox); if (reply == XtGeometryAlmost) reply = XtMakeGeometryRequest((Widget)ctx, &rbox, NULL); /* NOTE: following test is expected to be a fall-through from previous. Should not be an else if. */ if (reply == XtGeometryYes) ctx->core.width = rbox.width; else /* if request not satisfied, disallow future attempts */ { tp->grow_state &= ~XwGrowHorizontal ; UpdateLineTable ( ctx, lt->top, 0, ctx->core.width - ctx->text.leftmargin - ctx->text.rightmargin, 0, FALSE); } } } ; if ((tp->grow_state & XwGrowVertical) && ( ! (lt->info[nLines].fit & tfEndText) || (lt->info[nLines].drawPos > lt->info[nLines].position)) ) { rbox.request_mode = CWHeight; rbox.height = (*(ctx->text.sink->maxHeight)) (ctx, nLines + 1) + tp->topmargin + tp->bottommargin ; reply = XtMakeGeometryRequest((Widget)ctx, &rbox, &rbox); if (reply == XtGeometryAlmost) reply = XtMakeGeometryRequest((Widget)ctx, &rbox, NULL); if (reply == XtGeometryYes) ctx->core.height = rbox.height; else /* if request not satisfied, disallow future attempts */ { tp->grow_state &= ~XwGrowVertical ; } } ; } /* * This routine processes all "expose region" XEvents. In general, its job * is to the best job at minimal re-paint of the text, displayed in the * window, that it can. */ /*--------------------------------------------------------------------------+*/ static void ProcessExposeRegion(w, event) /*--------------------------------------------------------------------------+*/ Widget w; XEvent *event; { XwTextEditWidget ctx = (XwTextEditWidget) w; XwTextPosition pos1, pos2, resultend; int line; int x = event->xexpose.x; int y = event->xexpose.y; int width = event->xexpose.width; int height = event->xexpose.height; XwLineTableEntryPtr info; _XtTextPrepareToUpdate(ctx); if (x < ctx->text.leftmargin) /* stomp on caret tracks */ (*(ctx->text.sink->clearToBackground))(ctx, x, y, width, height); /* figure out starting line that was exposed */ line = LineForPosition(ctx, PositionForXY(ctx, x, y)); while (line < ctx->text.lt.lines && ctx->text.lt.info[line + 1].y < y) line++; while (line < ctx->text.lt.lines) { info = &(ctx->text.lt.info[line]); if (info->y >= y + height) break; (*(ctx->text.sink->resolve))(ctx, info->position, info->x, x - info->x, &pos1, &resultend); (*(ctx->text.sink->resolve))(ctx, info->position, info->x, x + width - info->x, &pos2, &resultend); pos2 = (*(ctx->text.source->scan))(ctx->text.source, pos2, XwstPositions, XwsdRight, 1, TRUE); _XtTextNeedsUpdating(ctx, pos1, pos2); line++; } _XtTextExecuteUpdate(ctx); } /* * This routine does all setup required to syncronize batched screen updates */ /*--------------------------------------------------------------------------+*/ static void _XtTextPrepareToUpdate(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { if ((ctx->text.oldinsert < 0) && ctx->text.update_flag) { InsertCursor(ctx, XwisOff); ctx->text.numranges = 0; ctx->text.showposition = FALSE; ctx->text.oldinsert = ctx->text.insertPos; } } /* * This is a private utility routine used by _XtTextExecuteUpdate. It * processes all the outstanding update requests and merges update * ranges where possible. */ /*--------------------------------------------------------------------------+*/ static void FlushUpdate(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { int i, w; XwTextPosition updateFrom, updateTo; while (ctx->text.numranges > 0) { updateFrom = ctx->text.updateFrom[0]; w = 0; for (i=1 ; itext.numranges ; i++) { if (ctx->text.updateFrom[i] < updateFrom) { updateFrom = ctx->text.updateFrom[i]; w = i; } } updateTo = ctx->text.updateTo[w]; ctx->text.numranges--; ctx->text.updateFrom[w] = ctx->text.updateFrom[ctx->text.numranges]; ctx->text.updateTo[w] = ctx->text.updateTo[ctx->text.numranges]; for (i=ctx->text.numranges-1 ; i>=0 ; i--) { while (ctx->text.updateFrom[i] <= updateTo && i < ctx->text.numranges) { updateTo = ctx->text.updateTo[i]; ctx->text.numranges--; ctx->text.updateFrom[i] = ctx->text.updateFrom[ctx->text.numranges]; ctx->text.updateTo[i] = ctx->text.updateTo[ctx->text.numranges]; } } DisplayText(ctx, updateFrom, updateTo); } } /* * This is a private utility routine used by _XtTextExecuteUpdate. This routine * worries about edits causing new data or the insertion point becoming * invisible (off the screen). Currently it always makes it visible by * scrolling. It probably needs generalization to allow more options. */ /*--------------------------------------------------------------------------+*/ static void _XtTextShowPosition(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { XwTextPosition top, first, second, insertPos ; XwTextPosition lastpos = GETLASTPOS(ctx); XwTextEditPart *text = &(ctx->text) ; XwLineTablePtr lt = &(text->lt) ; short hScroll ; /* NOTE: Following code relies on current assumption that horizontal scrolling will be enabled only when there is only one display line. */ insertPos = text->insertPos ; if ( insertPos < lt->top || insertPos >= lt->info[lt->lines].position || (hScroll = ((text->scroll_state & XwAutoScrollHorizontal) && (insertPos > lt->info[0].drawPos) && ( lt->info[0].drawPos + 1 < lastpos)) ? 1 : 0 ) ) { if ( lt->lines > 0 && (insertPos < lt->top || lt->info[lt->lines].position <= lastpos || hScroll) ) { first = lt->top; second = lt->info[1].position; /* if (insertPos < first) top = (*(text->source->scan))( text->source, insertPos, XwstEOL, XwsdLeft, 1, FALSE); else top = (*(text->source->scan))( text->source, insertPos, XwstEOL, XwsdLeft, lt->lines, FALSE); BuildLineTable(ctx, top); while (insertPos >= lt->info[lt->lines].position) { if (lt->info[lt->lines].position > lastpos) break; BuildLineTable(ctx, lt->info[1].position); } */ if (text->scroll_state & XwAutoScrollHorizontal) { if ((insertPos > lt->info[0].drawPos) && (lt->info[0].drawPos + 1 < lastpos)) { /* smooth scroll: scroll by one character at a time */ XwTextPosition delta = 0 ; top = insertPos - (lt->info[0].drawPos - lt->info[0].position) - 1; while (insertPos > lt->info[0].drawPos+1) { BuildLineTable (ctx, top += delta) ; delta = (insertPos - top) >> 2 ; } first = -1 ; /* prevent scroll down by one line */ } else if (insertPos < first) { /* Do the same as above, for traveling to the left */ XwTextPosition delta = 0 ; if (insertPos < 0) insertPos = 0; top = insertPos; if (top < 0) top = 0; BuildLineTable (ctx, top); while (insertPos < lt->top) { top -= delta; if (top < 0) top = 0; BuildLineTable (ctx, top); delta = (insertPos - top) >> 2; } first = -1 ; /* prevent scroll down by one line */ } } if (lt->top == second && lt->lines > 1) { BuildLineTable(ctx, first); _XtTextScroll(ctx, 1); } else if (lt->info[1].position == first && lt->lines > 1) { BuildLineTable(ctx, first); _XtTextScroll(ctx, -1); } else { text->numranges = 0; if (lt->top != first) DisplayAllText(ctx); } } } } /* * This routine causes all batched screen updates to be performed */ /*--------------------------------------------------------------------------+*/ static void _XtTextExecuteUpdate(ctx) /*--------------------------------------------------------------------------+*/ XwTextEditWidget ctx; { if ((ctx->text.oldinsert >= 0) && ctx->text.update_flag) { if (ctx->text.oldinsert != ctx->text.insertPos || ctx->text.showposition) _XtTextShowPosition(ctx); FlushUpdate(ctx); InsertCursor(ctx, XwisOn); ctx->text.oldinsert = -1; } } xcircuit-3.9.73/Xw/FormP.h0000664000175000001440000001074412335667422013773 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: FormP.h ** ** Project: X Widgets ** ** Description: Private include file for the Form class ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /* Form constraint rec */ typedef struct _XwFormConstraintRec { String x_ref_name; /* the name of the widget to reference */ Widget x_ref_widget; /* the widget to reference */ int x_offset; /* the offset (pixels) from the reference */ Boolean x_add_width; /* add width of the reference to x coord */ Boolean x_vary_offset; /* able to vary the seperation */ Boolean x_resizable; /* able to resize in x direction */ Boolean x_attach_right; /* attached to the right edge of the form */ int x_attach_offset; /* offset (pixels) from attached edge */ String y_ref_name; /* y constraints are the same as x */ Widget y_ref_widget; int y_offset; Boolean y_add_height; Boolean y_vary_offset; Boolean y_resizable; Boolean y_attach_bottom; int y_attach_offset; Boolean managed; /* whether the widget is managed or not */ int x, y; /* location after constraint processing */ Dimension width, height; /* size after constraint processing */ int set_x; /* original y */ int set_y; /* original x */ Dimension set_width; /* original or set values width of widget */ Dimension set_height; /* original or set values height of widget */ Dimension width_when_unmanaged; Dimension height_when_unmanaged; } XwFormConstraintRec; /* Form class structure */ typedef struct _XwFormClassPart { int foo; /* No new fields needed */ } XwFormClassPart; /* Full class record declaration for Form class */ typedef struct _XwFormClassRec { CoreClassPart core_class; CompositeClassPart composite_class; ConstraintClassPart constraint_class; XwManagerClassPart manager_class; XwFormClassPart form_class; } XwFormClassRec; extern XwFormClassRec XwformClassRec; /* The Form tree structure used for containing the constraint tree */ struct _XwFormRef { Widget this; /* the widget these constaints are for */ Widget ref; /* the widget this constraint is for */ int offset; /* offset (pixels) from parent ref */ Boolean add; /* add (width or height) of parent ref */ Boolean vary; /* able to vary the seperation */ Boolean resizable; /* able to resize */ Boolean attach; /* attached to the edge (right or bottom) */ int attach_offset; /* offset (pixels) from attached edge */ int set_loc; /* the initial or set value location */ int set_size; /* the initial or set value size */ struct _XwFormRef ** ref_to; /* child references */ int ref_to_count; /* number of child references */ }; typedef struct _XwFormRef XwFormRef; typedef struct _XwFormProcess { XwFormRef * ref; int loc; int size; Boolean leaf; } XwFormProcess; /* The Form instance record */ typedef struct _XwFormPart { XwFormRef * width_tree; XwFormRef * height_tree; } XwFormPart; /* Full instance record declaration */ typedef struct _XwFormRec { CorePart core; CompositePart composite; ConstraintPart constraint; XwManagerPart manager; XwFormPart form; } XwFormRec; xcircuit-3.9.73/Xw/Manager.c0000664000175000001440000006404412335667422014317 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: Manager.c ** ** Project: X Widgets ** ** Description: This file contains source for the Manager Meta Widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ #include #include #include #include #include #include #include #include #include static Boolean XwFocusIsHere(); static void MgrDestroy(); static void MgrClassPartInit(); static void ClassInitialize(); static void Initialize(); static Boolean SetValues(); /*************************************<->************************************* * * Default translations for all subclasses of Manager * ----------- * Note, if a manager subclass has additional translations it * will have to duplicate this set as well. *************************************<->***********************************/ static char defaultTranslations[] = ": enter() \n\ : leave() \n\ : visible() \n\ : focusIn()"; /*************************************<->************************************* * * Default actions for all subclasses of Manager * ----------- * *************************************<->***********************************/ static XtActionsRec actionsList[] = { {"enter", (XtActionProc) _XwManagerEnter}, {"leave", (XtActionProc) _XwManagerLeave}, {"focusIn", (XtActionProc) _XwManagerFocusIn}, {"visible", (XtActionProc) _XwManagerVisibility}, }; /* * Resource definitions for Subclasses of Manager */ static XtResource resources[] = { { XtNforeground, XtCForeground, XtRPixel, sizeof (Pixel), XtOffset (XwManagerWidget, manager.foreground), XtRString, "XtDefaultForeground" }, { XtNbackgroundTile, XtCBackgroundTile, XtRTileType, sizeof (int), XtOffset (XwManagerWidget, manager.background_tile), XtRString, "background" }, { XtNhighlightThickness, XtCHighlightThickness, XtRInt, sizeof (int), XtOffset (XwManagerWidget, manager.highlight_thickness), XtRString, "0" }, { XtNtraversalOn, XtCTraversalOn, XtRBoolean, sizeof (Boolean), XtOffset (XwManagerWidget, manager.traversal_on), XtRString, "False" }, { XtNlayout, XtCLayout, XtRLayout, sizeof(int), XtOffset(XwManagerWidget, manager.layout), XtRString, "minimize" }, { XtNnextTop, XtCCallback, XtRCallback, sizeof(caddr_t), XtOffset (XwManagerWidget, manager.next_top), XtRPointer, (caddr_t) NULL }, }; /****************************************************************** * The Manager class record definition ******************************************************************/ XwManagerClassRec XwmanagerClassRec = { { (WidgetClass) &constraintClassRec, /* superclass */ "XwManager", /* class_name */ sizeof(XwManagerRec), /* widget_size */ ClassInitialize, /* class_initialize */ MgrClassPartInit, /* class part initialize */ FALSE, /* class_inited */ Initialize, /* initialize */ NULL, /* initialize hook */ NULL, /* realize */ actionsList, /* actions */ XtNumber(actionsList), /* num_actions */ resources, /* resources */ XtNumber(resources), /* num_resources */ NULLQUARK, /* xrm_class */ TRUE, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress enterleave */ FALSE, /* visible_interest */ MgrDestroy, /* destroy */ NULL, /* resize */ NULL, /* expose */ SetValues, /* set_values */ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ NULL, /* accept_focus */ XtVersion, /* version */ NULL, /* callback private */ NULL, /* tm_table */ NULL, /* query geometry */ /* display_accelerator */ XtInheritDisplayAccelerator, /* extension */ NULL }, { /* Composite class */ NULL, /* Geometry Manager */ NULL, /* Change Managed */ _XwManagerInsertChild, /* Insert Child */ XtInheritDeleteChild, /* Delete Child */ NULL, }, { /* constraint class fields */ NULL, 0, 0, NULL, NULL, NULL, NULL, }, { (XwTraversalProc) mgr_traversal, /* Mgr class traversal handler */ NULL, /* default translations */ } }; WidgetClass XwmanagerWidgetClass = (WidgetClass) &XwmanagerClassRec; /************************************************************************ * * ClassInitialize * Initialize the manager class structure. This is called only the * first time a manager widget is created. * * * After class init, the "translations" variable will contain the compiled * translations to be used to augment a widget's translation * table if they wish to have keyboard traversal on. * ************************************************************************/ static void ClassInitialize() { XwRegisterConverters(); /* Register Library Conversion Rtnes */ XwmanagerClassRec.manager_class.translations = XtParseTranslationTable(defaultTranslations); } /************************************************************************ * * MgrClassPartInit * * Used by subclasses of manager to inherit class record procedures. * ************************************************************************/ static void MgrClassPartInit(w) WidgetClass w; { XwManagerWidgetClass mw= (XwManagerWidgetClass) w; if (mw->manager_class.traversal_handler == XtInheritTraversalProc) mw->manager_class.traversal_handler = (XwTraversalProc) mgr_traversal; } /************************************************************************ * * Initialize * The main widget instance initialization routine. * ************************************************************************/ static void Initialize (request, new) Widget request, new; { XwManagerWidget mw = (XwManagerWidget) new; Arg args[1]; if ((mw->manager.layout < XwIGNORE) || (mw->manager.layout > XwSWINDOW)) { mw->manager.layout = XwMINIMIZE; XtWarning("Manager: Invalid layout setting."); } mw -> manager.managed_children = (WidgetList) XtMalloc (XwBLOCK * sizeof(Widget)); mw -> manager.num_slots = XwBLOCK; mw -> manager.num_managed_children = 0; mw -> manager.active_child = NULL; mw -> composite.children = (WidgetList) XtMalloc (XwBLOCK * sizeof(Widget)); mw -> composite.num_slots = XwBLOCK; mw -> composite.num_children = 0; /* mw -> composite.num_mapped_children = 0; for R3 */ mw -> composite.insert_position = (XtOrderProc) _XwInsertOrder; /* Verify the highlight and tiling resources */ if (mw -> manager.background_tile != XwBACKGROUND) { XtWarning("Manager: Incorrect background tile."); mw -> manager.background_tile = XwBACKGROUND; } /* If this widget is requesting traversal then augment its * translation table with some additional events. */ if (mw->manager.traversal_on == True) { XtAugmentTranslations((Widget) mw, XwmanagerClassRec.manager_class.translations); mw->core.widget_class->core_class.visible_interest = True; } } /********************************************************************* * * _XwManagerInsertChild * ********************************************************************/ /* ARGSUSED */ void _XwManagerInsertChild(w) Widget w; { Cardinal position; Cardinal i; CompositeWidget cw; cw = (CompositeWidget) w->core.parent; if (cw -> composite.insert_position != NULL) position = (*cw->composite.insert_position)((Widget)cw); else position = cw->composite.num_children; /************************************************* * Allocate another block of space if needed *************************************************/ if ((cw -> composite.num_children + 1) > cw -> composite.num_slots) { cw -> composite.num_slots += XwBLOCK; cw -> composite.children = (WidgetList) XtRealloc ((caddr_t) cw -> composite.children, (cw -> composite.num_slots * sizeof(Widget))); } /******************************************************** * Ripple children up one space from "position" *********************************************************/ for (i = cw->composite.num_children; i > position; i--) { cw->composite.children[i] = cw->composite.children[i-1]; } cw->composite.children[position] = w; cw->composite.num_children++; } /*************************************************************************** * * Cardinal * _XwInsertOrder (cw) * ************************************************************************/ Cardinal _XwInsertOrder (cw) CompositeWidget cw; /* Composite widget being inserted into */ { Cardinal position = cw->composite.num_children; return (position); } /********************************************************************** * * _XwReManageChildren * * This procedure will be called by the ChangeManged procedure of * each manager. It will reassemble the currently managed children * into the "manager.managed_children" list. * ********************************************************************/ void _XwReManageChildren(mw) XwManagerWidget mw; { int i; /* Put "managed children" info together again */ mw -> manager.num_managed_children = 0; for (i=0; i < mw->composite.num_children; i++) { if (mw -> composite.children[i]->core.managed) { if ((mw -> manager.num_managed_children + 1) > mw -> manager.num_slots) { mw -> manager.num_slots += XwBLOCK; mw -> manager.managed_children = (WidgetList) XtRealloc ((caddr_t) mw -> manager.managed_children, (mw -> manager.num_slots * sizeof(Widget))); } mw -> manager.managed_children [mw -> manager.num_managed_children++] = mw -> composite.children[i]; } } } /************************************************************************ * * SetValues * Perform and updating necessary for a set values call. * ************************************************************************/ static Boolean SetValues (current, request, new, last) Widget current, request, new; Boolean last; { Boolean returnFlag = False; Boolean tempTrav, tempVisible, tempSensitive; Boolean tempAnSensitive, tempMapped; XwManagerWidget curmw = (XwManagerWidget) current; XwManagerWidget reqmw = (XwManagerWidget) request; XwManagerWidget newmw = (XwManagerWidget) new; Widget tempoldActive, old_active; XwManagerWidget parent; Boolean traversalIsHere = False; Boolean parentIsMgr = False; /* Verify correct new values. */ if (newmw -> manager.traversal_on != True && newmw -> manager.traversal_on != False) newmw -> manager.traversal_on = curmw -> manager.traversal_on; /* Process the change in values */ if ((curmw->core.mapped_when_managed != newmw->core.mapped_when_managed) || (curmw->core.sensitive != newmw->core.sensitive) || (curmw->core.ancestor_sensitive != newmw->core.ancestor_sensitive) || (curmw->core.visible != newmw-> core.visible) || (curmw->manager.traversal_on != newmw->manager.traversal_on)) { returnFlag = TRUE; if (XwFocusIsHere(curmw)) { tempTrav= curmw->manager.traversal_on; tempVisible = curmw->core.visible; tempSensitive = curmw->core.sensitive; tempAnSensitive = curmw->core.ancestor_sensitive; tempMapped = curmw->core.mapped_when_managed; curmw->manager.traversal_on = newmw->manager.traversal_on; curmw->core.ancestor_sensitive = newmw->core.ancestor_sensitive; curmw->core.sensitive = newmw->core.sensitive; curmw->core.visible = newmw->core.visible; curmw->core.mapped_when_managed = newmw->core.mapped_when_managed; XwProcessTraversal (curmw, XwTRAVERSE_HOME, FALSE); curmw->manager.traversal_on = tempTrav; curmw->core.visible = tempVisible; curmw->core.sensitive = tempSensitive; curmw->core.ancestor_sensitive = tempAnSensitive; curmw->core.mapped_when_managed = tempMapped; } else { traversalIsHere = False; parentIsMgr = False; /* There are special cases if we are the highest Xw mgr widget */ if (XtIsSubclass((Widget)(parent = (XwManagerWidget)XtParent(newmw)), XwmanagerWidgetClass)) { parentIsMgr = True; if (parent->manager.active_child == (Widget)curmw) traversalIsHere = True; } else if (newmw->manager.active_child) traversalIsHere = True; if (traversalIsHere) { /* Clear the active child path, from us down */ old_active = newmw->manager.active_child; newmw->manager.active_child = NULL; if (parentIsMgr) parent->manager.active_child = NULL; while (old_active != NULL) { if (!XtIsSubclass(old_active, XwmanagerWidgetClass)) old_active = NULL; else { tempoldActive = ((XwManagerWidget)old_active)->manager. active_child; ((XwManagerWidget)old_active)->manager.active_child = NULL; old_active = tempoldActive; } } /* Find the top most manager */ if (parentIsMgr) { while ((parent->core.parent != NULL) && (XtIsSubclass(parent->core.parent, XwmanagerWidgetClass))) parent = (XwManagerWidget)parent->core.parent; } else parent = curmw; /* Clear the toolkit kbd focus */ XtSetKeyboardFocus((Widget)parent, NULL); } } } if (newmw->manager.layout != curmw->manager.layout) { if ((newmw->manager.layout < XwIGNORE) || (newmw->manager.layout > XwSWINDOW)) { newmw->manager.layout = curmw->manager.layout; XtWarning("Manager: Invalid layout setting."); } else returnFlag = True; } if (newmw -> manager.highlight_thickness < 0) { XtWarning ("Manager: Invalid highlight thickness."); newmw -> manager.highlight_thickness = curmw -> manager.highlight_thickness; } if (newmw -> manager.background_tile != XwBACKGROUND) { XtWarning("Manager: Incorrect background tile."); newmw -> manager.background_tile = curmw -> manager.background_tile; } /* Set the widget's background tile */ if (newmw -> manager.background_tile != curmw -> manager.background_tile || newmw -> manager.foreground != curmw -> manager.foreground || newmw -> core.background_pixel != curmw -> core.background_pixel) { Mask valueMask; XSetWindowAttributes attributes; if (newmw -> manager.background_tile == XwFOREGROUND) { valueMask = CWBackPixel; attributes.background_pixel = newmw -> manager.foreground; } else { valueMask = CWBackPixel; attributes.background_pixel = newmw -> core.background_pixel; } if (XtIsRealized ((Widget)newmw)) XChangeWindowAttributes (XtDisplay(newmw), newmw -> core.window, valueMask, &attributes); returnFlag = TRUE; } /* Check the geometry in relationship to the highlight thickness */ if ((request -> core.width == 0) && (current -> core.width == 0)) newmw -> core.width += newmw -> manager.highlight_thickness * 2; if ((request -> core.height == 0) && (current -> core.height == 0)) newmw -> core.height += newmw -> manager.highlight_thickness * 2; /* If this widget is requesting traversal then augment its * translation table with some additional events. */ if ((newmw->manager.traversal_on != curmw->manager.traversal_on) && (newmw->manager.traversal_on == True)) { /* XXX this was a hard bug! where were the XXX's? * * In R2 we could not pass newmw to this toolkit call! But I * have found the bug!!!! In R2 it was a temporary structure (stack) * but now curmw is the temporary one and newmw is real! * I can see why they were worried before. Now there is no worry. * Go ahead and pass newmw! */ XtAugmentTranslations((Widget) newmw, XwmanagerClassRec.manager_class.translations); newmw->core.widget_class->core_class.visible_interest = True; } /* Return flag to indicate if redraw is needed. */ return (returnFlag); } /************************************************************************ * * Enter, FocusIn and Leave Window procs * * These two procedures handle traversal activation and deactivation * for manager widgets. They are invoked directly throught the * the action table of a widget. * ************************************************************************/ void _XwManagerEnter (mw, event) XwManagerWidget mw; XEvent * event; { XPoint ul,lr; ul.x = ul.y = lr.x = lr.y = 0; /* Only the top level manager should invoke a traversal handler*/ if (!XtIsSubclass (mw -> core.parent, XwmanagerWidgetClass)) { /* * All external entry points into the traversal code must take * care of initializing the traversal list. */ _XwInitCheckList(); (*(((XwManagerWidgetClass) mw -> core.widget_class) -> manager_class.traversal_handler)) ((Widget)mw, ul, lr, XwTRAVERSE_CURRENT); } return; } void _XwManagerFocusIn (mw, event) XwManagerWidget mw; XEvent * event; { _XwManagerEnter (mw, event); return; } void _XwManagerLeave (mw, event) XwManagerWidget mw; XEvent * event; { XwManagerWidget tw; /* if my parent is NOT a subclass of XwManager then I will assume that I have left the traversal hierarchy. For the time being I will set the focus back to pointer root--I should not have to do this if the window manager people can come to an agreement on conventions for focus change. */ if (!XtIsSubclass (mw -> core.parent, XwmanagerWidgetClass)) XSetInputFocus (XtDisplay (mw->core.parent), PointerRoot, RevertToNone, CurrentTime); } /************************************************************************ * * Find a Traversable Primitive * This functions is used by manager widget's traversal handlers * to determine if there is a primitive in their hierarchy which * can be traversed to. * ************************************************************************/ Boolean _XwFindTraversablePrim (cw) CompositeWidget cw; { register int i; WidgetList wList; Widget w; wList = cw -> composite.children; for (i = 0; i < cw -> composite.num_children; i++) { w = *wList++; if (XtIsSubclass(w, XwmanagerWidgetClass) && ((((XwManagerWidget)w)->manager.traversal_on == False) || (w->core.visible == FALSE))) { continue; } if (XtIsSubclass (w, compositeWidgetClass) && w -> core.managed == True) { if (_XwFindTraversablePrim ((CompositeWidget) w)) { return (True); } } else if (XtIsSubclass (w, XwprimitiveWidgetClass)) { if (w -> core.sensitive == True && w -> core.ancestor_sensitive == True && w -> core.visible == True && w -> core.managed == True && w -> core.mapped_when_managed == True && w -> core.being_destroyed == False && ((XwPrimitiveWidget) w)->primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL) { return (True); } } else /* Check for non - primitive class primitives?? */ { } } return (False); } /*************************************<->************************************* * * Boolean * XwTestTraversability(widget, widgetType) * * Description: * ----------- * xxxxxxxxxxxxxxxxxxxxxxx * * * Inputs: * ------ * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Outputs: * ------- * xxxxxxxxxxxx = xxxxxxxxxxxxx * * Procedures Called * ----------------- * *************************************<->***********************************/ Boolean XwTestTraversability(widget, widgetType) Widget widget; int * widgetType; { Boolean returnFlag=FALSE; if (XtIsSubclass (widget, XwprimitiveWidgetClass)) { *widgetType = XwPRIMITIVE; if (((XwPrimitiveWidget) widget)->primitive.traversal_type == XwHIGHLIGHT_TRAVERSAL) returnFlag = TRUE; } else if (XtIsSubclass (widget, XwmanagerWidgetClass)) { *widgetType = XwMANAGER; if (((XwManagerWidget)widget) -> manager.traversal_on) returnFlag = TRUE; } else *widgetType = 0; if (widget-> core.sensitive != True || widget-> core.ancestor_sensitive != True || widget-> core.visible != True || widget-> core.managed != True || widget-> core.mapped_when_managed != True || widget-> core.being_destroyed == True) returnFlag = FALSE; return(returnFlag); } static Boolean XwFocusIsHere(mw) XwManagerWidget mw; { while (1) { if (mw->manager.active_child == NULL) return(FALSE); if (XtIsSubclass(mw->manager.active_child, XwmanagerWidgetClass)) mw= (XwManagerWidget)mw->manager.active_child; else if (XtIsSubclass(mw->manager.active_child, XwprimitiveWidgetClass)) { if (((XwPrimitiveWidget)mw->manager.active_child) ->primitive.I_have_traversal) return(TRUE); else return(FALSE); } } } /*************************************<->************************************* * * MgrDestroy (w) * * Description: * ----------- * Free up space allocated to track managed children. * * Inputs: * ------ * w = manager subclass to be destroyed. * * *************************************<->***********************************/ static void MgrDestroy(w) XwManagerWidget w; { XwManagerWidget parent; /* * If we are in the traversal focus path, then we need to clean * things up. */ if (XwFocusIsHere(w)) XwProcessTraversal(w, XwTRAVERSE_HOME, FALSE); else if ((XtIsSubclass((Widget)(parent = (XwManagerWidget)XtParent(w)), XwmanagerWidgetClass)) && (parent->manager.active_child == (Widget)w)) { parent->manager.active_child = NULL; } XtRemoveCallbacks ((Widget)w, XtNnextTop, w -> manager.next_top); XtFree((char *) w->manager.managed_children); } /************************************************************************ * * Visibility * Track whether a widget is visible. * ***********************************************************************/ void _XwManagerVisibility (mw, event) XwManagerWidget mw; XEvent * event; { XVisibilityEvent * vEvent = (XVisibilityEvent *)event; if (vEvent->state == VisibilityFullyObscured) { mw->core.visible = False; if (XwFocusIsHere(mw)) XwProcessTraversal (mw, XwTRAVERSE_HOME, FALSE); } else mw->core.visible = True; } /************************************************************************ * * Unmap * Track whether a widget is visible. * ***********************************************************************/ void _XwManagerUnmap (mw, event) XwManagerWidget mw; XEvent * event; { mw->core.visible = False; if (XwFocusIsHere(mw)) XwProcessTraversal (mw, XwTRAVERSE_HOME, FALSE); } xcircuit-3.9.73/Xw/PButtonP.h0000664000175000001440000000510112335667422014452 0ustar timusers/*************************************<+>************************************* ***************************************************************************** ** ** File: PButtonP.h ** ** Project: X Widgets ** ** Description: Private include file for widgets which are ** subclasses of push button or which need to ** access directly the instance and class fields ** of the pushbutton widget. ** ***************************************************************************** ** ** Copyright (c) 1988 by Hewlett-Packard Company ** Copyright (c) 1988 by the Massachusetts Institute of Technology ** ** Permission to use, copy, modify, and distribute this software ** and its documentation for any purpose and without fee is hereby ** granted, provided that the above copyright notice appear in all ** copies and that both that copyright notice and this permission ** notice appear in supporting documentation, and that the names of ** Hewlett-Packard or M.I.T. not be used in advertising or publicity ** pertaining to distribution of the software without specific, written ** prior permission. ** ***************************************************************************** *************************************<+>*************************************/ /******************************************** * * No new fields need to be defined * for the PushButton widget class record * ********************************************/ typedef struct {int foo;} XwPushButtonClassPart; /**************************************************** * * Full class record declaration for PushButton class * ****************************************************/ typedef struct _XwPushButtonClassRec { CoreClassPart core_class; XwPrimitiveClassPart primitive_class; XwButtonClassPart button_class; XwPushButtonClassPart pushbutton_class; } XwPushButtonClassRec; extern XwPushButtonClassRec XwpushButtonClassRec; /******************************************** * * No new fields needed for instance record * ********************************************/ typedef struct _XwPushButtonPart{ Boolean toggle; } XwPushButtonPart; /**************************************************************** * * Full instance record declaration * ****************************************************************/ typedef struct _XwPushButtonRec { CorePart core; XwPrimitivePart primitive; XwButtonPart button; XwPushButtonPart pushbutton; } XwPushButtonRec; xcircuit-3.9.73/menucalls.c0000664000175000001440000014604012703200647014316 0ustar timusers/*----------------------------------------------------------------------*/ /* menucalls.c --- callback routines from the menu buttons, and */ /* associated routines (either Tcl/Tk routines or */ /* non-specific; Xt routines split off in file */ /* xtfuncs.c 3/28/06) */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*----------------------------------------------------------------------*/ #include #include #include #include #include #include #include #ifndef XC_WIN32 #include #include #include #endif #ifdef TCL_WRAPPER #include #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* External Variable definitions */ /*----------------------------------------------------------------------*/ extern char _STR2[250]; extern char _STR[150]; /* Generic multipurpose string */ extern xcWidget top; extern Display *dpy; extern Globaldata xobjs; extern XCWindowData *areawin; extern int number_colors; extern colorindex *colorlist; extern ApplicationData appdata; extern Cursor appcursors[NUM_CURSORS]; extern fontinfo *fonts; extern short fontcount; #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #endif /*----------------------------------------------------------------------*/ /* Local Variable definitions */ /*----------------------------------------------------------------------*/ u_short *fontnumbers; u_char nfontnumbers; /*----------------------------------------------*/ /* Set Poly and Arc line styles and fill styles */ /*----------------------------------------------*/ #define BORDERS (NOBORDER | DOTTED | DASHED) #define ALLFILLS (FILLSOLID | FILLED) /*----------------------------------------------------------------*/ /* setgrid, getgridspace are for grid and snap spacing sizes; */ /* include routines to parse fractions */ /*----------------------------------------------------------------*/ void setgrid(xcWidget w, float *dataptr) { float oldvalue = *dataptr; float oscale, iscale = (float)xobjs.pagelist[areawin->page]->drawingscale.y / (float)xobjs.pagelist[areawin->page]->drawingscale.x; float fval; /* For now, assume that the value is in the current display style. */ /* Might be nice in the future to make it accept any input. . . */ switch (xobjs.pagelist[areawin->page]->coordstyle) { case INTERNAL: if (sscanf(_STR2, "%f", &fval) == 0) { *dataptr = oldvalue; Wprintf("Illegal value"); } else *dataptr = fval / iscale; break; case CM: oscale = xobjs.pagelist[areawin->page]->outscale * CMSCALE; if (sscanf(_STR2, "%f", &fval) == 0) { *dataptr = oldvalue; Wprintf("Illegal value"); } else *dataptr = fval * IN_CM_CONVERT / (iscale * oscale); break; case DEC_INCH: case FRAC_INCH: { short parts; char *sptr; int f2, f3; oscale = xobjs.pagelist[areawin->page]->outscale * INCHSCALE; for (sptr = _STR2; *sptr != '\0'; sptr++) if (*sptr == '/') *sptr = ' '; parts = sscanf(_STR2, "%f %d %d", &fval, &f2, &f3); if ((parts == 0) || (parts != 1 && (fval != (float)((int)fval)))) { *dataptr = oldvalue; Wprintf("Illegal value"); break; } if (parts == 2) fval /= (float)f2; else if (parts == 3) fval += ((float)f2 / (float)f3); *dataptr = fval * 72.0 / (iscale * oscale); } break; } if (oldvalue != *dataptr) drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------*/ /* Write a measurement value into string "buffer" dependant on */ /* the current default units of measure (centimeters or inches). */ /*----------------------------------------------------------------*/ void measurestr(float value, char *buffer) { float oscale, iscale; iscale = (float)(xobjs.pagelist[areawin->page]->drawingscale.y) / (float)(xobjs.pagelist[areawin->page]->drawingscale.x); switch (xobjs.pagelist[areawin->page]->coordstyle) { case INTERNAL: sprintf(buffer, "%5.3f", value * iscale); break; case CM: oscale = xobjs.pagelist[areawin->page]->outscale * CMSCALE; sprintf(buffer, "%5.3f cm", value * iscale * oscale / IN_CM_CONVERT); break; case DEC_INCH: oscale = xobjs.pagelist[areawin->page]->outscale * INCHSCALE; sprintf(buffer, "%5.3f in", value * iscale * oscale / 72.0); break; case FRAC_INCH: oscale = xobjs.pagelist[areawin->page]->outscale * INCHSCALE; fraccalc(((value * iscale * oscale) / 72.0), buffer); strcat(buffer, " in"); break; } } /*----------------------------------------------------------------*/ /* set the global default line width. The unit used internally */ /* is twice the value passed through pointer "dataptr". */ /*----------------------------------------------------------------*/ void setwidth(xcWidget w, float *dataptr) { float oldvalue = *dataptr; if (sscanf(_STR2, "%f", dataptr) == 0) { *dataptr = oldvalue; Wprintf("Illegal value"); return; } (*dataptr) *= 2.0; if (oldvalue != *dataptr) drawarea(NULL, NULL, NULL); } /*--------------------------------------------------------------*/ /* Set text scale. */ /*--------------------------------------------------------------*/ void changetextscale(float newscale) { short *osel; labelptr settext; stringpart *strptr, *nextptr; /* In edit mode, add font scale change. */ if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); if (areawin->textpos > 0 || areawin->textpos < stringlength(settext->string, True, areawin->topinstance)) { undrawtext(settext); strptr = findstringpart(areawin->textpos - 1, NULL, settext->string, areawin->topinstance); nextptr = findstringpart(areawin->textpos, NULL, settext->string, areawin->topinstance); if (strptr->type == FONT_SCALE) strptr->data.scale = newscale; else if (nextptr && nextptr->type == FONT_SCALE) nextptr->data.scale = newscale; else labeltext(FONT_SCALE, (char *)&newscale); redrawtext(settext); } else if (stringlength(settext->string, True, areawin->topinstance) > 0) labeltext(FONT_SCALE, (char *)&newscale); else (settext->scale = newscale); } /* Change scale on all selected text objects */ else if (areawin->selects > 0) { float oldscale; Boolean waschanged = FALSE; for (osel = areawin->selectlist; osel < areawin->selectlist + areawin->selects; osel++) { if (SELECTTYPE(osel) == LABEL) { settext = SELTOLABEL(osel); oldscale = settext->scale; if (oldscale != newscale) { undrawtext(settext); settext->scale = newscale; redrawtext(settext); register_for_undo(XCF_Rescale, UNDO_MORE, areawin->topinstance, (genericptr)settext, (double)oldscale); waschanged = TRUE; } } } if (waschanged) undo_finish_series(); } } /*--------------------------------------------------------------*/ /* Auto-scale the drawing to fit the declared page size. */ /* */ /* If the page is declared encapsulated, then do nothing. */ /* If a frame box is on the page, then scale to fit the frame */ /* to the declared page size, not the whole object. */ /*--------------------------------------------------------------*/ void autoscale(int page) { float newxscale, newyscale; float scalefudge = (xobjs.pagelist[page]->coordstyle == CM) ? CMSCALE : INCHSCALE; int width, height; polyptr framebox; /* Check if auto-fit flag is selected */ if (!(xobjs.pagelist[page]->pmode & 2)) return; /* Ignore auto-fit flag in EPS mode */ if (!(xobjs.pagelist[page]->pmode & 1)) return; else if (topobject->bbox.width == 0 || topobject->bbox.height == 0) { // Wprintf("Cannot auto-fit empty page"); return; } newxscale = (xobjs.pagelist[page]->pagesize.x - (2 * xobjs.pagelist[page]->margins.x)) / scalefudge; newyscale = (xobjs.pagelist[page]->pagesize.y - (2 * xobjs.pagelist[page]->margins.y)) / scalefudge; if ((framebox = checkforbbox(topobject)) != NULL) { int i, minx, miny, maxx, maxy; minx = maxx = framebox->points[0].x; miny = maxy = framebox->points[0].y; for (i = 1; i < framebox->number; i++) { if (framebox->points[i].x < minx) minx = framebox->points[i].x; else if (framebox->points[i].x > maxx) maxx = framebox->points[i].x; if (framebox->points[i].y < miny) miny = framebox->points[i].y; else if (framebox->points[i].y > maxy) maxy = framebox->points[i].y; } width = (maxx - minx); height = (maxy - miny); } else { width = toplevelwidth(areawin->topinstance, NULL); height = toplevelheight(areawin->topinstance, NULL); } if (xobjs.pagelist[page]->orient == 0) { /* Portrait */ newxscale /= width; newyscale /= height; } else { newxscale /= height; newyscale /= width; } xobjs.pagelist[page]->outscale = min(newxscale, newyscale); } /*--------------------------------------------------------------*/ /* Parse a string for possible units of measure. Convert to */ /* current units of measure, if necessary. Return the value */ /* in current units, as a type float. */ /*--------------------------------------------------------------*/ float parseunits(char *strptr) { short curtype; Boolean inchunits = True; float pv; char units[12]; curtype = xobjs.pagelist[areawin->page]->coordstyle; if (sscanf(strptr, "%f %11s", &pv, units) < 2) return pv; else { if (!strncmp(units, "cm", 2) || !strncmp(units, "centimeters", 11)) inchunits = False; switch(curtype) { case CM: return ((inchunits) ? (pv * 2.54) : pv); default: return ((inchunits) ? pv : (pv / 2.54)); } } } /*--------------------------------------------------------------*/ /* Set the output page size, in the current unit of measure */ /* Return value: TRUE if _STR2 values were in inches, FALSE */ /* if in centimeters. */ /* XXX This API gives no good way to signal errors. */ /*--------------------------------------------------------------*/ Boolean setoutputpagesize(XPoint *dataptr) { float px, py; char units[10], *expos; #ifndef TCL_WRAPPER Arg wargs[1]; #endif strcpy(units, "in"); if (sscanf(_STR2, "%f %*c %f %9s", &px, &py, units) < 4) { if (sscanf(_STR2, "%f %*c %f", &px, &py) < 3) { if ((expos = strchr(_STR2, 'x')) == NULL) { Wprintf("Illegal Form for page size."); return FALSE; } else { *expos = '\0'; if (sscanf(_STR2, "%f", &px) == 0 || sscanf(expos + 1, "%f %9s", &py, units) == 0) { Wprintf("Illegal Form for page size."); return FALSE; } } } } /* Don't reduce page to less than the margins (1") or negative */ /* scales result. */ if ((px <= 2.0) || (py <= 2.0)) { Wprintf("Page size too small for margins."); return FALSE; } dataptr->x = (short)(px * 72.0); dataptr->y = (short)(py * 72.0); if (!strcmp(units, "cm")) { dataptr->x /= 2.54; dataptr->y /= 2.54; return FALSE; } return TRUE; } /*--------------------------------------------------------------*/ /* Get the text size (global or selected, depending on mode */ /*--------------------------------------------------------------*/ labelptr gettextsize(float **floatptr) { labelptr settext = NULL; short *osel; stringpart *strptr, *nextptr; const float f_one = 1.00; if (floatptr) *floatptr = &areawin->textscale; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { if (areawin->textpos > 0 || areawin->textpos < stringlength(settext->string, True, areawin->topinstance)) { settext = *((labelptr *)EDITPART); strptr = findstringpart(areawin->textpos - 1, NULL, settext->string, areawin->topinstance); nextptr = findstringpart(areawin->textpos, NULL, settext->string, areawin->topinstance); if (strptr->type == FONT_SCALE) { if (floatptr) *floatptr = &strptr->data.scale; } else if (nextptr && nextptr->type == FONT_SCALE) { if (floatptr) *floatptr = &nextptr->data.scale; } else if (floatptr) *floatptr = (float *)(&f_one); } else { settext = *((labelptr *)EDITPART); if (floatptr) *floatptr = &(settext->scale); } } else if (areawin->selects > 0) { for (osel = areawin->selectlist; osel < areawin->selectlist + areawin->selects; osel++) { if (SELECTTYPE(osel) == LABEL) { settext = SELTOLABEL(osel); if (floatptr) *floatptr = &(settext->scale); break; } } } return settext; } /*--------------------------------------------------------------*/ /* Set a character kern value */ /*--------------------------------------------------------------*/ void setkern(xcWidget w, stringpart *kpart) { char *sptr; short kd[2]; kd[0] = kd[1] = 0; if ((sptr = strchr(_STR2, ',')) == NULL) Wprintf("Use notation X,Y"); else { *sptr = '\0'; sscanf(_STR2, "%hd", &kd[0]); sscanf(sptr + 1, "%hd", &kd[1]); if (kpart == NULL) labeltext(KERN, (char *)kd); else { labelptr curlabel = TOLABEL(EDITPART); undrawtext(curlabel); kpart->data.kern[0] = kd[0]; kpart->data.kern[1] = kd[1]; redrawtext(curlabel); } } } /*----------------------------------------------------------------*/ /* Set the drawing scale (specified as ratio X:Y) */ /*----------------------------------------------------------------*/ void setdscale(xcWidget w, XPoint *dataptr) { char *sptr; if ((sptr = strchr(_STR2, ':')) == NULL) Wprintf("Use ratio X:Y"); else { *sptr = '\0'; sscanf(_STR2, "%hd", &(dataptr->x)); sscanf(sptr + 1, "%hd", &(dataptr->y)); Wprintf("New scale is %hd:%hd", dataptr->x, dataptr->y); W1printf(" "); } } /*----------------------------------------------------------------*/ /* Set the scale of an object or group of selected objects */ /*----------------------------------------------------------------*/ void setosize(xcWidget w, objinstptr dataptr) { float tmpres, oldsize; Boolean waschanged = FALSE; short *osel; objinstptr nsobj; int res = sscanf(_STR2, "%f", &tmpres); // Negative values are flips---deal with them independently if (tmpres < 0) tmpres = -tmpres; if (res == 0 || tmpres == 0) { Wprintf("Illegal value"); return; } for (osel = areawin->selectlist; osel < areawin->selectlist + areawin->selects; osel++) { if (SELECTTYPE(osel) == OBJINST) { nsobj = SELTOOBJINST(osel); oldsize = nsobj->scale; nsobj->scale = (oldsize < 0) ? -tmpres : tmpres; if (oldsize != tmpres) { register_for_undo(XCF_Rescale, UNDO_MORE, areawin->topinstance, SELTOGENERIC(osel), (double)oldsize); waschanged = TRUE; } } } /* unselect_all(); */ if (waschanged) undo_finish_series(); pwriteback(areawin->topinstance); drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------*/ /* Set the linewidth of all selected arcs, polygons, splines, and */ /* paths. */ /*----------------------------------------------------------------*/ void setwwidth(xcWidget w, void *dataptr) { float tmpres, oldwidth; short *osel; arcptr nsarc; polyptr nspoly; splineptr nsspline; pathptr nspath; if (sscanf(_STR2, "%f", &tmpres) == 0) { Wprintf("Illegal value"); return; } else if (areawin->selects == 0) { areawin->linewidth = tmpres; } else { for (osel = areawin->selectlist; osel < areawin->selectlist + areawin->selects; osel++) { if (SELECTTYPE(osel) == ARC) { nsarc = SELTOARC(osel); oldwidth = nsarc->width; nsarc->width = tmpres; } else if (SELECTTYPE(osel) == POLYGON) { nspoly = SELTOPOLY(osel); oldwidth = nspoly->width; nspoly->width = tmpres; } else if (SELECTTYPE(osel) == SPLINE) { nsspline = SELTOSPLINE(osel); oldwidth = nsspline->width; nsspline->width = tmpres; } else if (SELECTTYPE(osel) == PATH) { nspath = SELTOPATH(osel); oldwidth = nspath->width; nspath->width = tmpres; } if (oldwidth != tmpres) register_for_undo(XCF_Rescale, UNDO_MORE, areawin->topinstance, SELTOGENERIC(osel), (double)oldwidth); } unselect_all(); pwriteback(areawin->topinstance); drawarea(NULL, NULL, NULL); } } /*--------------------------------------------------------------*/ /* Add a new font name to the list of known fonts */ /* Register the font number for the Alt-F cycling mechanism */ /* Tcl: depends on command tag mechanism for GUI menu update. */ /*--------------------------------------------------------------*/ #ifdef TCL_WRAPPER void makenewfontbutton() { nfontnumbers++; if (nfontnumbers == 1) fontnumbers = (u_short *)malloc(sizeof(u_short)); else fontnumbers = (u_short *)realloc(fontnumbers, nfontnumbers * sizeof(u_short)); fontnumbers[nfontnumbers - 1] = fontcount - 1; } #endif /* TCL_WRAPPER */ /*---------------------------------------------------------------*/ /* Some Xcircuit routines using toggle and toggleexcl, */ /* put here because they reference the menu structures directly. */ /* */ /* Note that by bypassing addnewcolorentry(), the new colors in */ /* colorlist are NOT added to the GUI list of colors. */ /*---------------------------------------------------------------*/ void setcolorscheme(Boolean boolvalue) { int i; if (boolvalue) { colorlist[PARAMCOLOR].color.pixel = appdata.parampix; colorlist[AUXCOLOR].color.pixel = appdata.auxpix; colorlist[OFFBUTTONCOLOR].color.pixel = appdata.buttonpix; colorlist[SELECTCOLOR].color.pixel = appdata.selectpix; colorlist[GRIDCOLOR].color.pixel = appdata.gridpix; colorlist[SNAPCOLOR].color.pixel = appdata.snappix; colorlist[AXESCOLOR].color.pixel = appdata.axespix; colorlist[BACKGROUND].color.pixel = appdata.bg; colorlist[FOREGROUND].color.pixel = appdata.fg; } else { colorlist[PARAMCOLOR].color.pixel = appdata.parampix2; colorlist[AUXCOLOR].color.pixel = appdata.auxpix2; colorlist[OFFBUTTONCOLOR].color.pixel = appdata.buttonpix2; colorlist[SELECTCOLOR].color.pixel = appdata.selectpix2; colorlist[GRIDCOLOR].color.pixel = appdata.gridpix2; colorlist[SNAPCOLOR].color.pixel = appdata.snappix2; colorlist[AXESCOLOR].color.pixel = appdata.axespix2; colorlist[BACKGROUND].color.pixel = appdata.bg2; colorlist[FOREGROUND].color.pixel = appdata.fg2; } colorlist[BARCOLOR].color.pixel = appdata.barpix; colorlist[FILTERCOLOR].color.pixel = appdata.filterpix; colorlist[LOCALPINCOLOR].color.pixel = appdata.localcolor; colorlist[GLOBALPINCOLOR].color.pixel = appdata.globalcolor; colorlist[INFOLABELCOLOR].color.pixel = appdata.infocolor; colorlist[RATSNESTCOLOR].color.pixel = appdata.ratsnestcolor; colorlist[BBOXCOLOR].color.pixel = appdata.bboxpix; colorlist[CLIPMASKCOLOR].color.pixel = appdata.clipcolor; /* Fill in pixel information */ for (i = 0; i < NUMBER_OF_COLORS; i++) { unsigned short r, g, b; /* Get the color the hard way by querying the X server colormap */ xc_get_color_rgb(colorlist[i].color.pixel, &r, &g, &b); /* Store this information locally so we don't have to do */ /* the lookup the hard way in the future. */ colorlist[i].color.red = r; colorlist[i].color.green = g; colorlist[i].color.blue = b; } areawin->redraw_needed = True; drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------*/ /* Change menu selection for reported measurement units */ /*----------------------------------------------------------------*/ #ifdef TCL_WRAPPER void togglegrid(u_short type) { static char *stylenames[] = { "decimal inches", "fractional inches", "centimeters", "internal units", NULL }; XcInternalTagCall(xcinterp, 3, "config", "coordstyle", stylenames[type]); } #endif /* TCL_WRAPPER */ /*----------------------------------------------------------------*/ /* Called by setgridtype() to complete setting the reported */ /* measurement units */ /*----------------------------------------------------------------*/ void getgridtype(xcWidget button, pointertype value, caddr_t calldata) { short oldtype = xobjs.pagelist[areawin->page]->coordstyle; float scalefac = getpsscale(1.0, areawin->page) / INCHSCALE; #ifndef TCL_WRAPPER togglegridstyles(button); #endif xobjs.pagelist[areawin->page]->coordstyle = (short)value; switch(value) { case FRAC_INCH: case DEC_INCH: case INTERNAL: if (oldtype == CM) { xobjs.pagelist[areawin->page]->outscale *= scalefac; #ifndef TCL_WRAPPER /* Note: Tcl defines a method for selecting standard */ /* page sizes. We really DON'T want to reset the size */ /* just because we switched measurement formats! */ xobjs.pagelist[areawin->page]->pagesize.x = 612; xobjs.pagelist[areawin->page]->pagesize.y = 792; /* letter */ #endif } break; case CM: if (oldtype != CM) { xobjs.pagelist[areawin->page]->outscale *= scalefac; #ifndef TCL_WRAPPER xobjs.pagelist[areawin->page]->pagesize.x = 595; xobjs.pagelist[areawin->page]->pagesize.y = 842; /* A4 */ #endif } break; } if (oldtype != xobjs.pagelist[areawin->page]->coordstyle) { drawarea(NULL, NULL, NULL); W1printf(" "); } } /*------------------------------------------------------*/ /* Make new library, add new button to the "Libraries" */ /* cascaded menu, compose the library page, update the */ /* library directory, and go to that library page. */ /*------------------------------------------------------*/ void newlibrary(xcWidget w, caddr_t clientdata, caddr_t calldata) { int libnum = createlibrary(FALSE); startcatalog(w, libnum, NULL); } /*----------------------------------------------*/ /* Find an empty library, and return its page */ /* number if it exists. Otherwise, return -1. */ /* This search does not include the so-called */ /* "User Library" (last library in list). */ /*----------------------------------------------*/ int findemptylib() { int i; for (i = 0; i < xobjs.numlibs - 1; i++) { if (xobjs.userlibs[i].number == 0) return i; } return -1; } /*----------------------------------------------*/ /* Make new page; goto that page */ /* (wrapper for routine events.c:newpage()) */ /*----------------------------------------------*/ void newpagemenu(xcWidget w, pointertype value, caddr_t nulldata) { newpage((short)value); } #ifdef TCL_WRAPPER /*----------------------------------------------*/ /* Make new library and add a new button to the */ /* "Libraries" cascaded menu. */ /*----------------------------------------------*/ int createlibrary(Boolean force) { /* xcWidget libmenu, newbutton, oldbutton; (jdk) */ #ifndef TCL_WRAPPER Arg wargs[2]; #endif /* char libstring[20]; (jdk) */ int libnum; objectptr newlibobj; /* If there's an empty library, return its number */ if ((!force) && (libnum = findemptylib()) >= 0) return (libnum + LIBRARY); libnum = (xobjs.numlibs++) + LIBRARY; xobjs.libtop = (objinstptr *)realloc(xobjs.libtop, (libnum + 1) * sizeof(objinstptr)); xobjs.libtop[libnum] = xobjs.libtop[libnum - 1]; libnum--; newlibobj = (objectptr) malloc(sizeof(object)); initmem(newlibobj); xobjs.libtop[libnum] = newpageinst(newlibobj); sprintf(newlibobj->name, "Library %d", libnum - LIBRARY + 1); /* Create the library */ xobjs.userlibs = (Library *) realloc(xobjs.userlibs, xobjs.numlibs * sizeof(Library)); xobjs.userlibs[libnum + 1 - LIBRARY] = xobjs.userlibs[libnum - LIBRARY]; xobjs.userlibs[libnum - LIBRARY].library = (objectptr *) malloc(sizeof(objectptr)); xobjs.userlibs[libnum - LIBRARY].number = 0; xobjs.userlibs[libnum - LIBRARY].instlist = NULL; sprintf(_STR2, "xcircuit::newlibrarybutton \"%s\"", newlibobj->name); Tcl_Eval(xcinterp, _STR2); /* Update the library directory to include the new page */ composelib(LIBLIB); return libnum; } /*--------------------------------------------------------------*/ /* Routine called by newpage() if new button needs to be made */ /* to add to the "Pages" cascaded menu. */ /*--------------------------------------------------------------*/ void makepagebutton() { /* xcWidget pagemenu, newbutton; (jdk) */ /* char pagestring[10]; (jdk) */ /* make new entry in the menu */ sprintf(_STR2, "newpagebutton \"Page %d\"", xobjs.pages); Tcl_Eval(xcinterp, _STR2); /* Update the page directory */ composelib(PAGELIB); } /*----------------------------------------------------------------*/ /* Find the Page menu button associated with the page number */ /* (passed parameter) and set the label of that button to the */ /* object name (= page label) */ /*----------------------------------------------------------------*/ void renamepage(short pagenumber) { objinstptr thisinst = xobjs.pagelist[pagenumber]->pageinst; char *pname, *plabel; if ((pagenumber >= 0) && (pagenumber < xobjs.pages - 1) && (thisinst != NULL)) { plabel = thisinst->thisobject->name; pname = (char *)malloc(28 + strlen(plabel)); sprintf(pname, "xcircuit::renamepage %d {%s}", pagenumber + 1, plabel); Tcl_Eval(xcinterp, pname); free(pname); } } /*--------------------------------------------------------------*/ /* Same routine as above, for Library page menu buttons */ /*--------------------------------------------------------------*/ void renamelib(short libnumber) { if (libnumber <= xobjs.numlibs) return; sprintf(_STR2, "xcircuit::renamelib %d \"%s\"", libnumber - LIBRARY + 1, xobjs.libtop[libnumber]->thisobject->name); Tcl_Eval(xcinterp, _STR2); } /*--------------------------------------------------------------*/ /* Set the menu checkmarks on the color menu */ /*--------------------------------------------------------------*/ void setcolormark(int colorval) { /* Set GUI variables and execute any command tags associated */ /* with the "color" command */ #ifdef TCL_WRAPPER char cstr[6]; if (colorval != DEFAULTCOLOR) sprintf(cstr, "%5d", colorval); XcInternalTagCall(xcinterp, 3, "color", "set", (colorval == DEFAULTCOLOR) ? "inherit" : cstr); #endif } /*----------------------------------------------------------------*/ /* Set the checkmarks on the element styles menu */ /*----------------------------------------------------------------*/ void setallstylemarks(u_short styleval) { /* Execute any command tags associated */ /* with the "fill" and "border" commands. */ char fstr[10]; int fillfactor; const char *bptr; const char *borders[] = {"solid", "unbordered", "dashed", "dotted", NULL}; enum BorderIdx { SolidIdx, UnborderedIdx, DashedIdx, DottedIdx }; if (styleval & FILLED) { fillfactor = (int)(12.5 * (float)(1 + ((styleval & FILLSOLID) >> 5))); if (fillfactor < 100) sprintf(fstr, "%d", fillfactor); else strcpy(fstr, "solid"); } else strcpy(fstr, "unfilled"); switch (styleval & BORDERS) { case DASHED: bptr = borders[DashedIdx]; break; case DOTTED: bptr = borders[DottedIdx]; break; case NOBORDER: bptr = borders[UnborderedIdx]; break; default: bptr = borders[SolidIdx]; break; } XcInternalTagCall(xcinterp, 3, "fill", fstr, (styleval & OPAQUE) ? "opaque" : "transparent"); XcInternalTagCall(xcinterp, 3, "border", "bbox", (styleval & BBOX) ? "true" : "false"); XcInternalTagCall(xcinterp, 3, "border", "clipmask", (styleval & CLIPMASK) ? "true" : "false"); XcInternalTagCall(xcinterp, 2, "border", (styleval & UNCLOSED) ? "unclosed" : "closed"); XcInternalTagCall(xcinterp, 2, "border", bptr); } #endif /* TCL_WRAPPER */ /*--------------------------------------------------------------*/ /* Check for a bounding box polygon */ /*--------------------------------------------------------------*/ polyptr checkforbbox(objectptr localdata) { polyptr *cbbox; for (cbbox = (polyptr *)localdata->plist; cbbox < (polyptr *)localdata->plist + localdata->parts; cbbox++) if (IS_POLYGON(*cbbox)) if ((*cbbox)->style & BBOX) return *cbbox; return NULL; } /*--------------------------------------------------------------*/ /* Set a value for element style. "Mask" determines the bits */ /* to be affected, so that "value" may turn bits either on or */ /* off. */ /*--------------------------------------------------------------*/ int setelementstyle(xcWidget w, u_short value, u_short mask) { Boolean preselected, selected = False; short *sstyle; u_short newstyle, oldstyle; if (areawin->selects == 0) { preselected = FALSE; if (value & BBOX) checkselect(POLYGON); else checkselect(ARC | SPLINE | POLYGON | PATH); } else preselected = TRUE; if (areawin->selects > 0) { if (value & BBOX) { polyptr ckp; if (areawin->selects != 1) { Wprintf("Choose only one polygon to be the bounding box"); return -1; } else if (SELECTTYPE(areawin->selectlist) != POLYGON) { Wprintf("Bounding box can only be a polygon"); return -1; } else if (((ckp = checkforbbox(topobject)) != NULL) && (ckp != SELTOPOLY(areawin->selectlist))) { Wprintf("Only one bounding box allowed per page"); return -1; } } for (sstyle = areawin->selectlist; sstyle < areawin->selectlist + areawin->selects; sstyle++) { short stype = SELECTTYPE(sstyle); if (stype & (ARC | POLYGON | SPLINE | PATH)) { short *estyle; switch (stype) { case ARC: estyle = &((SELTOARC(sstyle))->style); break; case SPLINE: estyle = &((SELTOSPLINE(sstyle))->style); break; case POLYGON: estyle = &((SELTOPOLY(sstyle))->style); break; case PATH: estyle = &((SELTOPATH(sstyle))->style); break; } oldstyle = newstyle = *estyle; newstyle &= ~(mask); newstyle |= value; if (oldstyle != newstyle) { if ((newstyle & NOBORDER) && !(newstyle & FILLED)) { Wprintf("Must have either a border or filler"); continue; } SetForeground(dpy, areawin->gc, BACKGROUND); easydraw(*sstyle, DOFORALL); *estyle = newstyle; if (mask & BBOX) (SELTOPOLY(sstyle))->color = (value & BBOX) ? BBOXCOLOR : DEFAULTCOLOR; SetForeground(dpy, areawin->gc, SELECTCOLOR); easydraw(*sstyle, DOFORALL); #ifdef TCL_WRAPPER register_for_undo(XCF_ChangeStyle, (sstyle == areawin->selectlist + areawin->selects - 1) ? UNDO_DONE : UNDO_MORE, areawin->topinstance, SELTOGENERIC(sstyle), (int)oldstyle); #else /* Tcl version differs in that the element is not deselected after */ register_for_undo(XCF_ChangeStyle, UNDO_MORE, areawin->topinstance, SELTOGENERIC(sstyle), (int)oldstyle); #endif } selected = True; } } } if (selected) pwriteback(areawin->topinstance); else { newstyle = areawin->style; if (value & BBOX) { Wprintf("Cannot set default style to Bounding Box"); newstyle &= ~(BBOX); return -1; } else if (value & CLIPMASK) { Wprintf("Cannot set default style to Clip Mask"); newstyle &= ~(CLIPMASK); return -1; } else { newstyle &= ~mask; newstyle |= value; } if ((newstyle & NOBORDER) && !(newstyle & FILLED)) { Wprintf("Must have either a border or filler"); return -1; } areawin->style = newstyle; #ifndef TCL_WRAPPER overdrawpixmap(w); #endif } #ifndef TCL_WRAPPER setallstylemarks(newstyle); #endif if (!preselected) unselect_all(); return (int)newstyle; } /*-----------------------------------------------*/ /* Set the color value for all selected elements */ /*-----------------------------------------------*/ #ifdef TCL_WRAPPER void setcolor(xcWidget w, int cindex) { short *scolor; int *ecolor, oldcolor; Boolean selected = False; stringpart *strptr, *nextptr; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { labelptr curlabel = TOLABEL(EDITPART); strptr = findstringpart(areawin->textpos - 1, NULL, curlabel->string, areawin->topinstance); nextptr = findstringpart(areawin->textpos, NULL, curlabel->string, areawin->topinstance); if (strptr && strptr->type == FONT_COLOR) { undrawtext(curlabel); strptr->data.color = cindex; redrawtext(curlabel); } else if (nextptr && nextptr->type == FONT_COLOR) { undrawtext(curlabel); nextptr->data.color = cindex; redrawtext(curlabel); } else { sprintf(_STR2, "%d", cindex); labeltext(FONT_COLOR, (char *)&cindex); } } else if (areawin->selects > 0) { for (scolor = areawin->selectlist; scolor < areawin->selectlist + areawin->selects; scolor++) { ecolor = &(SELTOCOLOR(scolor)); oldcolor = *ecolor; *ecolor = cindex; selected = True; register_for_undo(XCF_Color, (scolor == areawin->selectlist + areawin->selects - 1) ? UNDO_DONE : UNDO_MORE, areawin->topinstance, SELTOGENERIC(scolor), (int)oldcolor); } } setcolormark(cindex); if (!selected) { if (eventmode != TEXT_MODE && eventmode != ETEXT_MODE) areawin->color = cindex; } else pwriteback(areawin->topinstance); } /*--------------------------------------------------------------*/ /* Set the menu checkmarks on the font menu */ /*--------------------------------------------------------------*/ void togglefontmark(int fontval) { if (fonts[fontval].family != NULL) XcInternalTagCall(xcinterp, 3, "label", "family", fonts[fontval].family); } /*------------------------------------------------------*/ /* Set checkmarks on label style menu */ /* fvalue is for font, jvalue is for anchoring */ /*------------------------------------------------------*/ void togglestylemark(int styleval) { char *cstyle = translatestyle(styleval); if (cstyle != NULL) XcInternalTagCall(xcinterp, 3, "label", "style", cstyle); } /*------------------------------------------------------*/ /* Set checkmarks on label encoding menu */ /*------------------------------------------------------*/ void toggleencodingmark(int encodingval) { char *cenc = translateencoding(encodingval); if (cenc != NULL) XcInternalTagCall(xcinterp, 3, "label", "encoding", cenc); } /*------------------------------------------------------*/ /* Set checkmarks on label anchoring & flags menu */ /*------------------------------------------------------*/ void toggleanchormarks(int anchorvalue) { XcInternalTagCall(xcinterp, 4, "label", "anchor", (anchorvalue & RIGHT) ? "right" : (anchorvalue & NOTLEFT) ? "center" : "left", (anchorvalue & TOP) ? "top" : (anchorvalue & NOTBOTTOM) ? "middle" : "bottom"); XcInternalTagCall(xcinterp, 3, "label", "justify", (anchorvalue & JUSTIFYRIGHT) ? "right" : (anchorvalue & TEXTCENTERED) ? "center" : (anchorvalue & JUSTIFYBOTH) ? "both" : "left"); XcInternalTagCall(xcinterp, 3, "label", "flipinvariant", (anchorvalue & FLIPINV) ? "true" : "false"); XcInternalTagCall(xcinterp, 3, "label", "latex", (anchorvalue & LATEXLABEL) ? "true" : "false"); XcInternalTagCall(xcinterp, 3, "label", "visible", (anchorvalue & PINVISIBLE) ? "true" : "false"); } /*-------------------------------------------------------------*/ /* Simultaneously set all relevant checkmarks for a text label */ /*-------------------------------------------------------------*/ void setfontmarks(short fvalue, short jvalue) { if ((fvalue >= 0) && (fvalue < fontcount)) { toggleencodingmark(fvalue); togglestylemark(fvalue); togglefontmark(fvalue); } toggleanchormarks(jvalue); } #endif /* TCL_WRAPPER */ /*--------------------------------------------------------------*/ /* Parameterize a label string (wrapper for parameterize()). */ /* Assumes that the name has been generated by the popup prompt */ /* and is therefore held in variable _STR2 */ /*--------------------------------------------------------------*/ void stringparam(xcWidget w, caddr_t clientdata, caddr_t calldata) { genericptr *settext; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = (genericptr *)EDITPART; makeparam(TOLABEL(settext), _STR2); unselect_all(); setparammarks(NULL); } else if (checkselect(LABEL)) parameterize(P_SUBSTRING, _STR2, -1); } /*--------------------------------------------------------------*/ /* Numerical parameterization (wrapper for parameterize()). */ /*--------------------------------------------------------------*/ void startparam(xcWidget w, pointertype value, caddr_t calldata) { if (value == (pointertype)P_SUBSTRING) { strcpy(_STR2, (calldata != NULL) ? (char *)calldata : "substring"); stringparam(w, NULL, NULL); } else if ((eventmode != NORMAL_MODE) || (areawin->selects > 0)) parameterize((int)value, (char *)calldata, -1); } /*---------------------------------------------------------------*/ /* Unparameterize a label string (wrapper for unparameterize()). */ /*---------------------------------------------------------------*/ void startunparam(xcWidget w, pointertype value, caddr_t calldata) { if (areawin->selects > 0) unparameterize((int)value); unselect_all(); setparammarks(NULL); } /*----------------------------------------------------------------*/ /* Set checkmarks on font menu according to the global defaults */ /*----------------------------------------------------------------*/ void setdefaultfontmarks() { setfontmarks(areawin->psfont, areawin->anchor); } /*----------------------------------------------------------------*/ /* Pick up font name from _STR2 and pass it to loadfontfile() */ /*----------------------------------------------------------------*/ void locloadfont(xcWidget w, char *value) { loadfontfile(_STR2); free(value); } /*----------------------------------------------------------------*/ /* Find the best matching font given new font, style, or encoding */ /*----------------------------------------------------------------*/ /* newfont, style, or encoding = -1 when not applicable */ /* Return the number of the best matching font. */ /*----------------------------------------------------------------*/ short findbestfont(short curfont, short newfont, short style, short encoding) { char *newfamily; short i, newstyle, newenc; if (fontcount == 0) return -1; if (curfont < 0) curfont = 0; if (newfont < 0) newfamily = fonts[curfont].family; else if (newfont >= fontcount) { /* move to next font family */ short newidx; newfont = 0; while (strcmp(fonts[fontnumbers[newfont]].family, fonts[curfont].family)) newfont++; newidx = (newfont + 1) % nfontnumbers; while (!strcmp(fonts[curfont].family, fonts[fontnumbers[newidx]].family) && newfont != newidx) newidx = (newidx + 1) % nfontnumbers; newfamily = fonts[fontnumbers[newidx]].family; newfont = fontnumbers[newidx]; } else newfamily = fonts[newfont].family; if (style < 0) newstyle = fonts[curfont].flags & 0x03; else newstyle = style & 0x03; if (encoding < 0) newenc = fonts[curfont].flags & 0xf80; else newenc = encoding << 7; /* Best position is a match on all conditions */ for (i = 0; i < fontcount; i++) if ((!strcmp(fonts[i].family, newfamily)) && ((fonts[i].flags & 0x03) == newstyle) && ((fonts[i].flags & 0xf80) == newenc)) return i; /* Fallback position 1: Match requested property and one other. */ /* order of preference: */ /* Requested property Priority 1 Priority 2 */ /* Font Style Encoding */ /* Style Font (none) */ /* Encoding Font (none) */ for (i = 0; i < fontcount; i++) { if (newfont >= 0) { if ((!strcmp(fonts[i].family, newfamily)) && (fonts[i].flags & 0x03) == newstyle) return i; } else if (style >= 0) { if (((fonts[i].flags & 0x03) == newstyle) && (!strcmp(fonts[i].family, newfamily))) return i; } else if (encoding >= 0) { if (((fonts[i].flags & 0xf80) == newenc) && (!strcmp(fonts[i].family, newfamily))) return i; } } for (i = 0; i < fontcount; i++) { if (newfont >= 0) { if ((!strcmp(fonts[i].family, newfamily)) && ((fonts[i].flags & 0xf80) >> 7) == newenc) return i; } } /* Fallback position 2: Match only the requested property. */ /* For font selection only: Don't want to select a new font */ /* just because a certain style or encoding wasn't available.*/ for (i = 0; i < fontcount; i++) { if (newfont >= 0) { if (!strcmp(fonts[i].family, newfamily)) return i; } } /* Failure to find matching font property */ if (style >= 0) { Wprintf("Font %s not available in this style", newfamily); } else { Wprintf("Font %s not available in this encoding", newfamily); } return (-1); } /*----------------------------------------------------------------*/ /* Set the font. This depends on the system state as to whether */ /* font is set at current position in label, for an entire label, */ /* or as the default font to begin new labels. */ /*----------------------------------------------------------------*/ void setfontval(xcWidget w, pointertype value, labelptr settext) { int newfont; short i, tc; stringpart *strptr; if (settext != NULL) { /* if last byte was a font designator, use it */ if (areawin->textpos > 0 || areawin->textpos < stringlength(settext->string, True, areawin->topinstance)) { strptr = findstringpart(areawin->textpos - 1, NULL, settext->string, areawin->topinstance); if (strptr->type == FONT_NAME) { tc = strptr->data.font; i = findbestfont(tc, (short)value, -1, -1); if (i >= 0) { undrawtext(settext); strptr->data.font = i; redrawtext(settext); if (w != NULL) { charreport(settext); togglefontmark(i); } } return; } } /* otherwise, look for the last style used in the string */ tc = findcurfont(areawin->textpos, settext->string, areawin->topinstance); } else tc = areawin->psfont; /* Font change command will always find a value since at least one */ /* font has to exist for the font menu button to exist. */ if ((newfont = (int)findbestfont(tc, (short)value, -1, -1)) < 0) return; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { Wprintf("Font is now %s", fonts[newfont].psname); sprintf(_STR2, "%d", newfont); labeltext(FONT_NAME, (char *)&newfont); } else { Wprintf("Default font is now %s", fonts[newfont].psname); areawin->psfont = newfont; } if (w != NULL) togglefontmark(newfont); } /*----------------------------------------------------------------*/ /* Wrapper for routine setfontval() */ /*----------------------------------------------------------------*/ void setfont(xcWidget w, pointertype value, caddr_t calldata) { short *fselect; labelptr settext; short labelcount = 0; Boolean preselected; if (eventmode == CATALOG_MODE || eventmode == FONTCAT_MODE || eventmode == EFONTCAT_MODE) return; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); setfontval(w, value, settext); charreport(settext); } else { if (areawin->selects == 0) { checkselect(LABEL); preselected = FALSE; } else preselected = TRUE; areawin->textpos = 1; for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { labelcount++; settext = SELTOLABEL(fselect); setfontval(NULL, value, settext); } } if (labelcount == 0) setfontval(w, value, NULL); else if (!preselected) unselect_all(); } } /*----------------------------------------------------------------*/ /* Set the style (bold, italic, normal) for the font, similarly */ /* to the above routine setfontval(). */ /*----------------------------------------------------------------*/ void setfontstyle(xcWidget w, pointertype value, labelptr settext) { int newfont; short i, tc; stringpart *strptr; if (settext != NULL) { /* if last byte was a font designator, use it */ if (areawin->textpos > 0 || areawin->textpos < stringlength(settext->string, True, areawin->topinstance)) { strptr = findstringpart(areawin->textpos - 1, NULL, settext->string, areawin->topinstance); if (strptr->type == FONT_NAME) { tc = strptr->data.font; /* find font which matches family and style, if available */ i = findbestfont(tc, -1, (short)value, -1); if (i >= 0) { undrawtext(settext); strptr->data.font = i; redrawtext(settext); if (w != NULL) { charreport(settext); #ifndef TCL_WRAPPER togglefontstyles(w); #endif } } return; } } /* Otherwise, look for the last font used in the string */ /* Fix by Dimitri Princen. Was areawin->textpos - 2; was there a */ /* reason for that? */ tc = findcurfont(areawin->textpos, settext->string, areawin->topinstance); } else tc = areawin->psfont; if ((newfont = (int)findbestfont(tc, -1, (short)value, -1)) < 0) return; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { Wprintf("Font is now %s", fonts[newfont].psname); sprintf(_STR2, "%d", newfont); labeltext(FONT_NAME, (char *)&newfont); } else { Wprintf("Default font is now %s", fonts[newfont].psname); areawin->psfont = newfont; } #ifdef TCL_WRAPPER toggleencodingmark(value); #else togglefontstyles(w); #endif } /*----------------------------------------------------------------*/ /* Wrapper for routine setfontstyle() */ /*----------------------------------------------------------------*/ void fontstyle(xcWidget w, pointertype value, caddr_t nulldata) { short *fselect; labelptr settext; short labelcount = 0; Boolean preselected; if (eventmode == CATALOG_MODE || eventmode == FONTCAT_MODE || eventmode == EFONTCAT_MODE) return; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); setfontstyle(w, value, settext); charreport(settext); } else { if (areawin->selects == 0) { checkselect(LABEL); preselected = FALSE; } else preselected = TRUE; areawin->textpos = 1; for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { labelcount++; settext = SELTOLABEL(fselect); setfontstyle(NULL, value, settext); } } if (labelcount == 0) setfontstyle(w, value, NULL); else if (!preselected) unselect_all(); } } /*----------------------------------------------------------------*/ /* Set the encoding (standard, ISO-Latin1, special) for the font, */ /* similarly to the above routine setfontval(). */ /*----------------------------------------------------------------*/ void setfontencoding(xcWidget w, pointertype value, labelptr settext) { int newfont; short i, tc; stringpart *strptr; if (settext != NULL) { /* if last byte was a font designator, use it */ if (areawin->textpos > 0 || areawin->textpos < stringlength(settext->string, True, areawin->topinstance)) { strptr = findstringpart(areawin->textpos - 1, NULL, settext->string, areawin->topinstance); if (strptr->type == FONT_NAME) { tc = strptr->data.font; i = findbestfont(tc, -1, -1, (short)value); if (i >= 0) { undrawtext(settext); strptr->data.font = i; redrawtext(settext); if (w != NULL) { charreport(settext); #ifdef TCL_WRAPPER toggleencodingmark(value); #else toggleencodings(w); #endif } } return; } } /* otherwise, look for the last style used in the string */ tc = findcurfont(areawin->textpos - 2, settext->string, areawin->topinstance); } else tc = areawin->psfont; if ((newfont = (int)findbestfont(tc, -1, -1, (short)value)) < 0) return; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { Wprintf("Font is now %s", fonts[newfont].psname); sprintf(_STR2, "%d", newfont); labeltext(FONT_NAME, (char *)&newfont); } else { Wprintf("Default font is now %s", fonts[newfont].psname); areawin->psfont = newfont; } #ifndef TCL_WRAPPER toggleencodings(w); #endif } /*----------------------------------------------------------------*/ /* Wrapper for routine setfontencoding() */ /*----------------------------------------------------------------*/ void fontencoding(xcWidget w, pointertype value, caddr_t nulldata) { short *fselect; labelptr settext; short labelcount = 0; Boolean preselected; if (eventmode == CATALOG_MODE || eventmode == FONTCAT_MODE || eventmode == EFONTCAT_MODE) return; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); setfontencoding(w, value, settext); charreport(settext); } else { if (areawin->selects == 0) { checkselect(LABEL); preselected = FALSE; } else preselected = TRUE; areawin->textpos = 1; for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { labelcount++; settext = SELTOLABEL(fselect); setfontencoding(NULL, value, settext); } } if (labelcount == 0) setfontencoding(w, value, NULL); else if (!preselected) unselect_all(); } } /*----------------------------------------------*/ /* Generate the table of special characters */ /* */ /* Return FALSE if the edited label is LaTeX- */ /* compatible, since LaTeX text does not */ /* usually contain special characters, but it */ /* does contain a lot of backslashes. */ /*----------------------------------------------*/ Boolean dospecial() { labelptr curlabel; int cfont; curlabel = TOLABEL(EDITPART); if (curlabel->anchor & LATEXLABEL) return False; cfont = findcurfont(areawin->textpos, curlabel->string, areawin->topinstance); composefontlib(cfont); startcatalog(NULL, FONTLIB, NULL); return True; } /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/VERSION0000664000175000001440000000000713267552761013244 0ustar timusers3.9.73 xcircuit-3.9.73/w32x11.c0000664000175000001440000002203512335667423013307 0ustar timusers#include #include #include #include #include #include #include extern Tcl_Interp *xcinterp; extern XCWindowData *areawin; extern char* TkKeysymToString(KeySym ks); static void unimplemented(const char *str) { printf(">>>>>>>>> Unimplemented: %s\n", str); } typedef struct font_item { Tk_Font tkfont; Font fid; struct font_item *next; }; static struct font_item *font_map = NULL; static void add_tkfont(Tk_Font tkfont, Font fid) { struct font_item *item = (struct font_item*)malloc(sizeof(struct font_item)); item->next = font_map; font_map = item; item->tkfont = tkfont; item->fid = fid; } static Tk_Font get_tkfont(Font fid) { struct font_item *item = font_map; while (item != NULL) { if (item->fid == fid) return item->tkfont; item = item->next; } fprintf(stderr, "Font not found: ID=%d\n", fid); return (Tk_Font)NULL; } #ifndef STATIC_BUILD int XDrawPoint(Display *dpy, Drawable d, GC gc, int x, int y) { HDC hdc; HWND hwnd; hwnd = Tk_GetHWND(d); if (IsWindow(hwnd)) { hdc = GetDC(hwnd); SetPixelV(hdc, x, y, gc->foreground); ReleaseDC(hwnd, hdc); hdc = NULL; } else { /* This is pretty slow when called a lot hdc = CreateCompatibleDC(NULL); SelectObject(hdc, hwnd); SetPixelV(hdc, x, y, gc->foreground); DeleteDC(hdc); */ } return 1; } #endif int XClearArea(Display *dpy, Window w, int x, int y, unsigned int width, unsigned int height, Bool exposures) { HWND hnd; RECT r; HDC hdc; int oldROP; hnd = Tk_GetHWND(w); hdc = GetDC(hnd); oldROP = SetROP2(hdc, R2_COPYPEN); GetClientRect(hnd, &r); if (width != 0 || height != 0) { r.left = x; r.top = y; r.right = x+width; r.bottom = y+height; FillRect(hdc, &r, (HBRUSH)(COLOR_WINDOW+1)); } SetROP2(hdc, oldROP); ReleaseDC(hnd, hdc); return 1; } Pixmap XCreatePixmap(Display *dpy, Drawable d, unsigned int width, unsigned int height, unsigned int depth) { return Tk_GetPixmap(dpy, d, width, height, depth); } int XLookupString(XKeyEvent *event, char *buf, int buflen, KeySym *keysym, XComposeStatus *status) { #if 0 printf("code : %04x\n", event->keycode); printf("state: %04x\n", event->state); #endif switch (event->keycode) { case VK_NUMPAD0: case VK_NUMPAD1: case VK_NUMPAD2: case VK_NUMPAD3: case VK_NUMPAD4: case VK_NUMPAD5: case VK_NUMPAD6: case VK_NUMPAD7: case VK_NUMPAD8: case VK_NUMPAD9: *keysym = XK_KP_0 + (event->keycode - VK_NUMPAD0); event->state |= ShiftMask; break; default: *keysym = XKeycodeToKeysym(NULL, event->keycode, event->state); break; } return 1; } Bool XCheckWindowEvent(Display *dpy, Window w, long event_mask, XEvent *event) { unimplemented("XCheckWindowEvent"); return False; } int XTextWidth(XFontStruct *font, char *string, int len) { Tk_Font tkfont = get_tkfont(font->fid); return Tk_TextWidth(tkfont, string, len); } int XDrawString(Display *dpy, Drawable d, GC gc, int x, int y, char *string, int len) { Tk_Font tkfont = get_tkfont(gc->font); Tk_DrawChars(dpy, d, gc, tkfont, string, len, x, y); return 1; } int XFreePixmap(Display *dpy, Pixmap pix) { Tk_FreePixmap(dpy, pix); return 1; } #ifndef STATIC_BUILD int XPutImage(Display *dpy, Drawable d, GC gc, XImage *img, int src_x, int src_y, int dest_x, int dest_y, unsigned int width, unsigned int height) { // unimplemented("XPutImage"); TkPutImage(NULL, 0, dpy, d, gc, img, src_x, src_y, dest_x, dest_y, width, height); return 1; } #endif // The following two functions may be defined as macros. . . #ifndef XSync int XSync(Display *dpy, Bool discard) { unimplemented("XSync"); return 1; } #endif #ifndef XFlush int XFlush(Display *dpy) { unimplemented("XFlush"); return 1; } #endif #ifndef STATIC_BUILD Cursor XCreateFontCursor(Display *dpy, unsigned int shape) { Tk_Window win = Tk_MainWindow(xcinterp); switch (shape) { case XC_xterm: return (Cursor)Tk_GetCursor(xcinterp, win, "xterm"); case XC_watch: return (Cursor)Tk_GetCursor(xcinterp, win, "watch"); default: return (Cursor)NULL; } } #endif void XDefineCursor_TkW32(Display *dpy, Window w, Cursor c) { Tk_DefineCursor(Tk_IdToWindow(dpy, w), (Tk_Cursor)c); } static u_char reverse_byte(u_char c) { u_char rc = 0; int i; for (i=(sizeof(char)*8-1); i>=0; i--, c>>=1) rc |= (c&0x01) << i; return rc; } static void compute_cursor_src_mask(u_char *src, u_char *mask) { u_char pixsrc = *src, pixmask = *mask; *src = ~(reverse_byte(pixmask)); *mask = reverse_byte(~pixsrc & pixmask); } typedef struct tkw32cursor { struct tkcursor { Tk_Cursor cursor; Display *display; int resourceCount; int objRefCount; Tcl_HashTable *otherTable; Tcl_HashEntry *hashPtr; Tcl_HashEntry *idHashPtr; struct tkcursor *nextPtr; } info; HCURSOR winCursor; int system; } w32cursor; static Cursor Tk_GetCursorFromData_TkW32(Tcl_Interp *interp, Tk_Window w, u_char *src, u_char *mask, int width, int height, int xhot, int yhot, Tk_Uid fg, Tk_Uid bg) { w32cursor *wcursor; wcursor = (w32cursor*)ckalloc(sizeof(w32cursor)); wcursor->info.cursor = (Tk_Cursor)wcursor; wcursor->winCursor = NULL; wcursor->system = 0; wcursor->winCursor = CreateCursor(Tk_GetHINSTANCE(), xhot, yhot, width, height, src, mask); if (wcursor->winCursor == NULL) { ckfree((char*)wcursor); return (Cursor)NULL; } return (Cursor)wcursor; } Cursor CreateW32Cursor(Tcl_Interp *interp, Tk_Window w, u_char *src, u_char *mask, int width, int height, int xhot, int yhot, Tk_Uid fg, Tk_Uid bg) { u_char *new_src, *new_mask; int nb = (width-1)/(8*sizeof(char))+1; int nb2 = (GetSystemMetrics(SM_CXCURSOR)-1)/(8*sizeof(char))+1, height2 = GetSystemMetrics(SM_CYCURSOR); int i, j, idx1 = 0, idx2 = 0; Cursor cursor; new_src = (u_char*)malloc(sizeof(char)*nb2*height2); new_mask = (u_char*)malloc(sizeof(char)*nb2*height2); for (j=0; jarea : NULL), cname); if (c != NULL) { screen_return->pixel = c->pixel; exact_return->pixel = c->pixel; return True; } return False; } Status XLookupColor_TkW32(Display *dpy, Colormap cmap, const char *name, XColor *cvcolor, XColor *cvexact) { if (XParseColor(dpy, cmap, name, cvcolor)) { return True; } else { return False; } } int XQueryColors_TkW32(Display *dpy, Colormap cmap, XColor *colors, int ncolors) { int i; for (i=0; i>8); colors[i].blue = ((pixel&0x00ff0000)>>8)|((pixel&0x00ff0000)>>16); } return 1; } Bool XQueryPointer_TkW32(Display *dpy, Window w, Window *root_return, Window *child_return, int *root_x, int *root_y, int *win_x, int *win_y, unsigned int *mask) { POINT p; GetCursorPos(&p); *root_x = p.x; *root_y = p.y; ScreenToClient(Tk_GetHWND(w), &p); *win_x = p.x; *win_y = p.y; *mask = 0; return True; } Colormap XCopyColormapAndFree(Display *dpy, Colormap cmap) { unimplemented("XCopyColormapAndFree"); return cmap; } char* XDisplayString(Display *dpy) { /*printf("XDisplayString\n");*/ return "localhost:0.0\n"; } char* XKeysymToString_TkW32(KeySym ks) { return TkKeysymToString(ks); } XFontStruct* XLoadQueryFont(Display *dpy, char *fontname) { Tk_Font tkfont; Tk_FontMetrics tkfm; XFontStruct *fs; tkfont = Tk_GetFont(xcinterp, Tk_MainWindow(xcinterp), fontname); if (tkfont != NULL) { fs = (XFontStruct*)malloc(sizeof(XFontStruct)); fs->fid = Tk_FontId(tkfont); Tk_GetFontMetrics(tkfont, &tkfm); fs->ascent = tkfm.ascent; fs->descent = tkfm.descent; add_tkfont(tkfont, fs->fid); return fs; } else return NULL; } DIR* opendir(const char *name) { DIR *d = (DIR*)malloc(sizeof(DIR)); static char buffer[MAX_PATH]; strncpy(buffer, name, MAX_PATH); strncat(buffer, "\\*", MAX_PATH); d->hnd = FindFirstFile(buffer, &(d->fd)); if (d->hnd == INVALID_HANDLE_VALUE) return NULL; d->dirty = 1; return d; } void closedir(DIR *d) { free(d); } struct direct* readdir(DIR *d) { if (!d->dirty) { if (!FindNextFile(d->hnd, &(d->fd))) return NULL; } d->d.d_name = d->fd.cFileName; d->dirty = 0; return &(d->d); } xcircuit-3.9.73/xcwin32.c0000664000175000001440000025447112337444526013651 0ustar timusers#define WINVER 0x0500 #define _WIN32_WINNT 0x0500 #include #include #include #include "xcwin32.h" #include "xcircuit.h" #include "colordefs.h" #include "resource.h" #include "menudep.h" #include "prototypes.h" #include "tool_bar.h" #include "xcwin32-colors.h" #ifndef MK_XBUTTON1 #define MK_XBUTTON1 32 #define MK_XBUTTON2 64 #endif #if 0 #define W32DEBUG(x) printf##x #else #define W32DEBUG(x) #endif extern XCWindowData *areawin; extern Globaldata xobjs; extern char _STR2[250]; extern Pixmap STIPPLE[STIPPLES]; /* Polygon fill-style stipple patterns */ static char STIPDATA[STIPPLES][4] = { "\000\004\000\001", "\000\005\000\012", "\001\012\005\010", "\005\012\005\012", "\016\005\012\007", "\017\012\017\005", "\017\012\017\016", "\000\000\000\000" }; extern xcWidget top, message2, message3; extern ApplicationData appdata; extern int number_colors; extern colorindex *colorlist; extern menustruct TopButtons[]; extern short maxbuttons; extern xcWidget menuwidgets[MaxMenuWidgets]; extern Display *dpy; extern toolbarstruct ToolBar[]; extern short toolbuttons; extern Pixmap dbuf, helppix; extern Dimension helpwidth, helpheight; extern int helptop; extern GC hgc; #define MAXPROPS 7 extern propstruct okstruct[MAXPROPS], fpokstruct; static HWND corner = NULL, statusBar = NULL; static Widget toolBar = NULL; static int statusBarWidth[2] = { 100, -1 }; HWND topwin = NULL; /* LRESULT CALLBACK XcStaticProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam); LRESULT CALLBACK XcEditProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam); LRESULT CALLBACK XcButtonProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam); LRESULT CALLBACK XcToggleProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam); LRESULT CALLBACK XcPopupProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam); */ INT_PTR CALLBACK OutputDlgProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam); void updatename(xcWidget button, xcWidgetList callstruct, caddr_t calldata); void linkset(xcWidget button, propstruct *callstruct, caddr_t calldata); extern int COM_initialize(); extern int COM_terminate(); #define WIN_WIDGET 0 #define WIN_MENUITEM 1 #define WIN_MENU 2 #define WIN_STATUS 3 #define WIN_TOOLITEM 4 #define IS_WIDGET(w) (w->type == WIN_WIDGET) #define IS_MENU(w) (w->type == WIN_MENU) #define IS_MENUITEM(w) (w->type == WIN_MENUITEM) #define IS_STATUS(w) (w->type == WIN_STATUS) #define IS_TOOLITEM(w) (w->type == WIN_TOOLITEM) #define TOWIDGET(w) ((Widget)w) #define TOMENU(w) ((Menu)w) #define TOMENUITEM(w) ((MenuItem)w) #define TOSTATUS(w) ((StatusItem)w) #define TOTOOLITEM(w) ((ToolItem)w) #define STATUSBAR_ID 10000 #define TOOLBAR_ID 10001 typedef struct __WinCallback { int action; void(*proc)(); void* data; struct __WinCallback *next; } WinCallback; typedef WinCallback WinEventHandler; struct __WinWidget { int type; HWND handle; char *name; WinCallback *callbacks; WinEventHandler *handlers; int handler_mask; HBITMAP buffer; HDC bufhdc; WNDPROC wndproc; }; #define HAS_HANDLER(win,themask) (win->handler_mask & themask) #define WM_BITBLT (WM_USER+1) struct __WinMenu { int type; HMENU handle; }; struct __WinMenuItem { int type; struct __WinMenu *parentMenu; struct __WinMenu *popup; int ID; int position; char *name; WinCallback *callbacks; int menudata; int toolbar_idx; }; struct __WinStatusItem { int type; HWND handle; int position; }; struct __WinToolItem { int type; struct __WinWidget *toolbar; int ID; char *name; WinCallback *callbacks; }; typedef struct __WinMenu* Menu; typedef struct __WinMenuItem* MenuItem; typedef struct __WinStatusItem* StatusItem; typedef struct __WinToolItem* ToolItem; void execute_callback(int action, Widget w, void *calldata) { WinCallback *cb; switch (w->type) { case WIN_WIDGET: cb = w->callbacks; break; case WIN_MENUITEM: cb = ((MenuItem)w)->callbacks; break; case WIN_TOOLITEM: cb = ((ToolItem)w)->callbacks; break; default: return; } while (cb != NULL) { if (cb->action == action) { (*cb->proc)(w, cb->data, calldata); } cb = cb->next; } } void execute_handler(int mask, Widget w, void *calldata) { WinCallback *h = w->handlers; if (!HAS_HANDLER(w,mask)) return; while (h != NULL) { if (h->action & mask) (*h->proc)(w, h->data, calldata); h = h->next; } } void update_event_mask(Widget win) { WinEventHandler *h = win->handlers; win->handler_mask = 0; for (; h!= NULL; h=h->next) win->handler_mask |= h->action; } Widget get_widget(HWND win) { /* int nbytes = GetClassLong(win, GCL_CBWNDEXTRA); if (nbytes >= sizeof(Widget)) return (Widget)GetWindowLong(win, nbytes-sizeof(Widget)); else return NULL; */ return (Widget)GetWindowLong(win, GWL_USERDATA); } static void get_value(Widget w, Arg *a) { RECT rect; switch (a->type) { case XtNwidth: if (w->type == WIN_STATUS) { StatusItem item = (StatusItem)w; if (item->position < 1) *(int*)(a->data) = statusBarWidth[item->position]; else { GetClientRect(w->handle, &rect); *(int*)(a->data) = rect.right - rect.left - statusBarWidth[0]; } } else { if (GetClientRect(w->handle, &rect)) *(int*)(a->data) = rect.right - rect.left; } break; case XtNheight: if (GetClientRect(w->handle, &rect)) *(int*)(a->data) = rect.bottom - rect.top; break; case XtNrectColor: case XtNrectStipple: if (w->type == WIN_MENUITEM) { *(int*)(a->data) = ((MenuItem)w)->menudata; break; } goto GETDEFAULT; GETDEFAULT: default: W32DEBUG(("Unsupported get value: %d\n", a->type)); break; } } static void set_value(Widget w, Arg *a) { switch (a->type) { case XtNstring: switch (w->type) { case WIN_STATUS: SendMessage(TOSTATUS(w)->handle, SB_SETTEXT, TOSTATUS(w)->position, (LPARAM)(char*)a->data); break; case WIN_WIDGET: SetWindowText(w->handle, (char*)a->data); break; default: goto SETDEFAULT; } break; case XtNsetMark: switch (w->type) { case WIN_MENUITEM: CheckMenuItem(TOMENUITEM(w)->parentMenu->handle, TOMENUITEM(w)->position, MF_BYPOSITION|(a->data == NULL ? MF_UNCHECKED : MF_CHECKED)); break; default: goto SETDEFAULT; } break; case XtNlabel: switch (w->type) { case WIN_MENUITEM: { MENUITEMINFO mi_info; ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); mi_info.fMask = MIIM_STRING; mi_info.dwTypeData = a->data; SetMenuItemInfo(TOMENUITEM(w)->parentMenu->handle, TOMENUITEM(w)->position, MF_BYPOSITION, &mi_info); break; } case WIN_WIDGET: SetWindowText(w->handle, (char*)a->data); break; default: goto SETDEFAULT; } break; case XtNfont: switch (w->type) { case WIN_WIDGET: SendMessage(w->handle, WM_SETFONT, (WPARAM)((XFontStruct*)a->data)->fid, MAKELONG(TRUE, 0)); break; default: goto SETDEFAULT; } break; case XtNset: switch (w->type) { case WIN_WIDGET: SendMessage(w->handle, BM_SETCHECK, ((int)a->data == True ? BST_CHECKED : BST_UNCHECKED), 0); break; default: goto SETDEFAULT; } break; case XtNborderColor: switch (w->type) { case WIN_TOOLITEM: if ((int)a->data == RATSNESTCOLOR) { W32DEBUG(("Check button: %s\n", ((ToolItem)w)->name)); SendMessage(TOTOOLITEM(w)->toolbar->handle, TB_CHECKBUTTON, TOTOOLITEM(w)->ID, MAKELONG(TRUE, 0)); } else { W32DEBUG(("Uncheck button: %s\n", ((ToolItem)w)->name)); SendMessage(TOTOOLITEM(w)->toolbar->handle, TB_CHECKBUTTON, TOTOOLITEM(w)->ID, MAKELONG(FALSE, 0)); } break; default: goto SETDEFAULT; } break; SETDEFAULT: default: W32DEBUG(("Unsupported set value: %d\n", a->type)); /*exit(-1);*/ break; } } void WinGetValues(Widget w, Arg *args, int n) { int i; if (w != NULL) for (i=0; itype) { case WIN_WIDGET: return (Widget)get_widget(GetParent(child->handle)); case WIN_MENUITEM: return (Widget)((MenuItem)child)->parentMenu; case WIN_TOOLITEM: return (Widget)((ToolItem)child)->toolbar; } return NULL; } void WinFreePixmap(Pixmap pix) { DeleteObject(pix); } void WinDestroyImage(XImage *img) { if (img->handle != NULL) DeleteObject(img->handle); free(img->data); free(img); } XImage* WinCreateImage(int width, int height) { HWND h = GetDesktopWindow(); HDC hdc = GetDC(h); XImage *img = (XImage*)malloc(sizeof(XImage)); img->bits_per_pixel = GetDeviceCaps(hdc, BITSPIXEL); img->bytes_per_line = width * img->bits_per_pixel / 8; img->width = width; img->height = height; img->data = NULL; ReleaseDC(h, hdc); return img; } int WinGetPixel(XImage *img, int x, int y) { unsigned char *src; if (img->bits_per_pixel != 32) { W32DEBUG(("WinGetPixel only supported on 32bpp\n")); return -1; } src = img->data + (y * img->bytes_per_line) + (x * img->bits_per_pixel) / 8; return RGB(src[0], src[1], src[2]); } void WinPutPixel(XImage *img, int x, int y, Pixel pix) { unsigned char *src; if (img->bits_per_pixel != 32) { W32DEBUG(("WinPutPixel only supported on 32bpp\n")); return; } src = img->data + (y * img->bytes_per_line) + (x * img->bits_per_pixel) / 8; src[0] = GetRValue(pix); src[1] = GetGValue(pix); src[2] = GetBValue(pix); } DIR* opendir(const char *name) { DIR *d = (DIR*)malloc(sizeof(DIR)); static char buffer[MAX_PATH]; strncpy(buffer, name, MAX_PATH); strncat(buffer, "\\*", MAX_PATH); d->hnd = FindFirstFile(buffer, &(d->fd)); if (d->hnd == INVALID_HANDLE_VALUE) return NULL; d->dirty = 1; return d; } void closedir(DIR *d) { free(d); } struct direct* readdir(DIR *d) { if (!d->dirty) { if (!FindNextFile(d->hnd, &(d->fd))) return NULL; } d->d.d_name = d->fd.cFileName; d->dirty = 0; return &(d->d); } int WinDesktopWidth(void) { RECT r; GetWindowRect(GetDesktopWindow(), &r); return r.right-r.left; } int WinDesktopHeight(void) { RECT r; GetWindowRect(GetDesktopWindow(), &r); return r.bottom-r.top; } void WinSetCursor(HWND win, HCURSOR cursor) { SetClassLong(win, GCL_HCURSOR, (LONG)cursor); } HDC cached_hdc = NULL; HWND cached_win = NULL; static HPEN create_pen(GC gc) { HPEN hPen = NULL; if (gc->line_style != LineSolid && gc->line_dash_len > 0 && gc->line_dash != NULL) { DWORD *dashes = NULL; DWORD style = 0; LOGBRUSH logBrush; int i; logBrush.lbStyle = BS_SOLID; logBrush.lbColor = gc->foreground; logBrush.lbHatch = 0; style |= PS_GEOMETRIC | PS_USERSTYLE | gc->line_cap | gc->line_join; dashes = (DWORD*)malloc(sizeof(DWORD)*gc->line_dash_len); for (i=0; iline_dash_len; i++) dashes[i] = gc->line_dash[i]; hPen = ExtCreatePen(PS_GEOMETRIC | PS_USERSTYLE | gc->line_cap | gc->line_join, gc->line_width, &logBrush, gc->line_dash_len, dashes); free(dashes); } else { hPen = CreatePen(PS_SOLID, gc->line_width, gc->foreground); } return hPen; } static HBRUSH create_brush(GC gc) { LOGBRUSH logBrush; logBrush.lbStyle = (gc->fill_style == FillSolid ? BS_SOLID : BS_PATTERN); logBrush.lbColor = gc->foreground; logBrush.lbHatch = (LONG)(gc->fill_style != FillSolid ? gc->fill_stipple : NULL); return CreateBrushIndirect(&logBrush); } static HDC get_hdc(HWND win, GC gc) { HDC hdc; if (IsWindow(win)) { Widget winwidget = (Widget)get_widget(win); if (winwidget == NULL || winwidget->buffer == NULL) hdc = GetDC(win); else hdc = winwidget->bufhdc; } else if (win == cached_win && cached_hdc != NULL) { hdc = cached_hdc; } else { hdc = CreateCompatibleDC(NULL); SelectObject(hdc, win); if (cached_hdc != NULL) DeleteDC(cached_hdc); cached_hdc = hdc; cached_win = win; } if (gc != NULL) { SetROP2(hdc, gc->function); SetBkColor(hdc, gc->background); SetTextColor(hdc, gc->foreground); SetBkMode(hdc, TRANSPARENT); SelectObject(hdc, create_pen(gc)); SelectObject(hdc, create_brush(gc)); SelectObject(hdc, gc->font); } return hdc; } static release_hdc(HWND win, HDC hdc) { DeleteObject(SelectObject(hdc, GetStockObject(BLACK_PEN))); DeleteObject(SelectObject(hdc, GetStockObject(NULL_BRUSH))); if (IsWindow(win)) { Widget winwidget = (Widget)get_widget(win); if (winwidget == NULL || winwidget->buffer == NULL) ReleaseDC(win, hdc); else PostMessage(win, WM_BITBLT, 0, 0); } else { //DeleteDC(hdc); } } void WinDrawLine(HWND win, GC gc, int x1, int y1, int x2, int y2) { HDC hdc = get_hdc(win, gc); MoveToEx(hdc, x1, y1, NULL); LineTo(hdc, x2, y2); release_hdc(win, hdc); } void WinFillPolygon(HWND win, GC gc, XPoint* pathlist, int number) { LPPOINT pts = (LPPOINT)malloc(sizeof(POINT)*number); HDC hdc = get_hdc(win, gc); RECT rect = { 0x0000ffff, 0x0000ffff, -0x0000ffff, -0x0000ffff }; int i; DeleteObject(SelectObject(hdc, CreatePen(PS_NULL, 0, 0))); for (i=0; ifill_style == FillStippled) { int width = rect.right-rect.left, height = rect.bottom-rect.top; HDC tmphdc = CreateCompatibleDC(hdc); HBITMAP tmpbmp = CreateCompatibleBitmap(hdc, width, height); HBRUSH tmpbrush = CreateSolidBrush(gc->foreground); SelectObject(tmphdc, tmpbmp); SelectObject(tmphdc, tmpbrush); SetROP2(tmphdc, gc->function); BitBlt(tmphdc, 0, 0, width, height, hdc, rect.left, rect.top, SRCCOPY); for (i=0; ifunction = op; } void WinSetForeground(GC gc, int color) { gc->foreground = color; } void WinSetBackground(GC gc, int rgb) { gc->background = rgb; } void WinCopyArea(Pixmap pix, HWND win, GC gc, int x, int y, int width, int height, int offx, int offy) { HDC pixhdc = get_hdc((HWND)pix, gc), hdc = get_hdc(win, gc); BitBlt(hdc, offx, offy, width, height, pixhdc, x, y, SRCCOPY); release_hdc((HWND)pix, pixhdc); release_hdc(win, hdc); } void WinDrawPoint(HWND win, GC gc, int x, int y) { HDC hdc = get_hdc(win, gc); SetPixelV(hdc, x, y, gc->foreground); release_hdc(win, hdc); } void WinSetLineAttributes(GC gc, int width, int style, int capstyle, int joinstyle) { gc->line_style = style; gc->line_width = width; gc->line_cap = capstyle; gc->line_join = joinstyle; } void WinWarpPointer(HWND w, int x, int y) { POINT pt; pt.x = x; pt.y = y; ClientToScreen(w, &pt); SetCursorPos(pt.x, pt.y); } void WinDrawLines(HWND win, GC gc, XPoint* pathlist, int number) { LPPOINT pts = (LPPOINT)malloc(sizeof(POINT)*number); HDC hdc = get_hdc(win, gc); int i; for (i=0; iforeground = RGB(0, 0, 0); gc->background = RGB(255, 255, 255); gc->function = R2_COPYPEN; gc->font = NULL; gc->graphics_exposures = False; gc->fill_style = BS_SOLID; gc->fill_stipple = NULL; gc->line_width = 0; gc->line_style = PS_SOLID; gc->line_cap = PS_ENDCAP_ROUND; gc->line_join = PS_JOIN_BEVEL; gc->line_dash_len = 0; gc->line_dash = NULL; gc->clipMask = NULL; if (mask & GCForeground) gc->foreground = values->foreground; if (mask & GCBackground) gc->background = values->background; if (mask & GCFont) gc->font = values->font; if (mask & GCFunction) gc->function = values->function; if (mask & GCGraphicsExposures) gc->graphics_exposures = values->graphics_exposures; return gc; } void WinFreeGC(GC gc) { free(gc); } void WinSetDashes(GC gc, int offset, char *dash, int n) { if (gc->line_dash) { free(gc->line_dash); gc->line_dash = NULL; gc->line_dash_len = 0; } if (n > 0 && dash != NULL) { gc->line_dash = (char*)malloc(sizeof(char)*n); memcpy(gc->line_dash, dash+offset, n); gc->line_dash_len = n; } } void WinSetFillStyle(GC gc, int style) { gc->fill_style = style; } void WinSetStipple(GC gc, Pixmap pattern) { gc->fill_stipple = pattern; } HCURSOR WinCreateStandardCursor(char *cur) { return LoadCursor(NULL, cur); } void WinDrawString(HWND win, GC gc, int x, int y, const char *str, int len) { HDC hdc = get_hdc(win, gc); SIZE sz; RECT r; /* GetTextExtentPoint32(hdc, str, len, &sz); r.left = x; r.right = x+sz.cx; r.top = y-sz.cy; r.bottom = y; TextOut(hdc, r.left, r.top, str, len); */ SetTextAlign(hdc, TA_LEFT|TA_BASELINE); TextOut(hdc, x, y, str, len); release_hdc(win, hdc); } int WinTextWidth(XFontStruct *fn, char *s, int len) { HWND w = GetDesktopWindow(); HDC hdc = GetDC(w); SIZE sz; SelectObject(hdc, fn->fid); GetTextExtentPoint32(hdc, s, len, &sz); ReleaseDC(w, hdc); return sz.cx; } void WinTextExtents(XFontStruct *fn, char *str, int len, int *width, int *height) { HWND w = GetDesktopWindow(); HDC hdc = GetDC(w); SIZE sz; SelectObject(hdc, fn->fid); GetTextExtentPoint32(hdc, str, len, &sz); ReleaseDC(w, hdc); *width = sz.cy; *height = 0; } #define DUPBITS(x) (((x)<<8)|(x)) void WinQueryColors(XColor *colors, int n) { int i; for (i=0; ihandle); ShowWindow(top->handle, SW_SHOWNORMAL); while ((bRet = GetMessage(&msg, NULL, 0, 0)) != 0) { if (bRet == -1) { W32DEBUG(("Loop error\n")); break; } else { if (GetAncestor(msg.hwnd, GA_ROOT) != topwin) { TranslateMessage(&msg); } DispatchMessage(&msg); } } #ifdef USE_WIN32_COM COM_terminate(); #endif } void WinPutImage(HWND win, GC gc, XImage *img, int srcx, int srcy, int destx, int desty, int width, int height) { HDC pixhdc, hdc; if (img->handle == NULL) { W32DEBUG(("Invalid image handle\n")); return; } pixhdc = get_hdc((HWND)img->handle, gc); hdc = get_hdc(win, gc); if (gc->clipMask == NULL) BitBlt(hdc, destx, desty, width, height, pixhdc, srcx, srcy, SRCCOPY); else MaskBlt(hdc, destx, desty, width, height, pixhdc, srcx, srcy, gc->clipMask, 0, 0, SRCCOPY); release_hdc((HWND)img->handle, pixhdc); release_hdc(win, hdc); } void WinSetClipMask(GC gc, Pixmap pix) { gc->clipMask = pix; } typedef struct __win32_timer { int ID; void(*proc)(); void *data; struct __win32_timer *next; } win32_timer; static win32_timer *timers = NULL; VOID CALLBACK WinTimerProc(HWND hwnd, UINT umsg, UINT id, DWORD dwtime) { win32_timer *t = timers, *prev = NULL; for (; t!=NULL && t->ID != id; prev=t, t=t->next); if (t == NULL) { W32DEBUG(("Timer %d not found\n", id)); return; } if (prev == NULL) timers = t->next; else prev->next = t->next; KillTimer(NULL, t->ID); (*t->proc)(t->data, &(t->ID)); free(t); } int WinAddTimeOut(int delay, void(*proc)(), void *data) { win32_timer* t = (win32_timer*)malloc(sizeof(win32_timer)); t->proc = proc; t->data = data; t->ID = SetTimer(NULL, 0, delay, WinTimerProc); if (t->ID == 0) { free(t); return -1; } else { t->next = timers; timers = t; return t->ID; } } void WinRemoveTimeOut(int id) { win32_timer *t = timers, *prev = NULL; for (; t!=NULL && t->ID != id; prev=t, t=t->next); if (t == NULL) { return; } if (prev == NULL) timers = t->next; else prev->next = t->next; KillTimer(NULL, t->ID); free(t); } void WinTranslateCoords(Widget win, short x, short y, short *rx, short *ry) { POINT pt; pt.x = x; pt.y = y; ClientToScreen(win->handle, &pt); *rx = pt.x; *ry = pt.y; } typedef struct { char *request; char *current; } InputDlgData; BOOL CALLBACK InputDlgProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { switch (msg) { case WM_INITDIALOG: { RECT r1, r2; int w1, w2, h1, h2; SetDlgItemText(hwnd, IDC_EDIT1, ((InputDlgData*)lParam)->current); SetDlgItemText(hwnd, IDC_INFOTEXT, ((InputDlgData*)lParam)->request); GetWindowRect(GetParent(hwnd), &r1); GetWindowRect(hwnd, &r2); w1 = r1.right-r1.left; w2 = r2.right-r2.left; h1 = r1.bottom-r1.top; h2 = r2.bottom-r2.top; SetWindowPos(hwnd, HWND_TOP, r1.left+(w1-w2)/2, r1.top+(h1-h2)/2, 0, 0, SWP_NOSIZE); SendMessage(GetDlgItem(hwnd, IDC_EDIT1), EM_SETSEL, 0, -1); SetFocus(GetDlgItem(hwnd, IDC_EDIT1)); return FALSE; } case WM_COMMAND: if (HIWORD(wParam) == BN_CLICKED) switch (LOWORD(wParam)) { case IDOK: GetDlgItemText(hwnd, IDC_EDIT1, _STR2, sizeof(_STR2)); EndDialog(hwnd, 1); return TRUE; case IDCANCEL: EndDialog(hwnd, 0); return TRUE; } break; } return FALSE; } #define HELP_MARGIN 10 BOOL CALLBACK HelpDlgProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { switch (msg) { case WM_INITDIALOG: { RECT br, r, cr, pr, pcr; int sbwidth; GetWindowRect(hwnd, &r); GetClientRect(hwnd, &cr); GetClientRect(GetDlgItem(hwnd, IDOK), &br); GetWindowRect(GetDlgItem(hwnd, IDC_HELPPIX), &pr); GetClientRect(GetDlgItem(hwnd, IDC_HELPPIX), &pcr); sbwidth = (pr.right-pr.left)-(pcr.right-pcr.left); SetWindowPos(hwnd, HWND_TOP, 0, 0, sbwidth+helpwidth+2*HELP_MARGIN+(r.right-r.left)-(cr.right-cr.left), r.bottom-r.top, SWP_NOMOVE); GetClientRect(hwnd, &cr); SetWindowPos(GetDlgItem(hwnd, IDC_HELPPIX), HWND_TOP, HELP_MARGIN, HELP_MARGIN, helpwidth+sbwidth, (cr.bottom-cr.top)-(br.bottom-br.top)-3*HELP_MARGIN, 0); SetWindowPos(GetDlgItem(hwnd, IDOK), HWND_TOP, HELP_MARGIN+((cr.right-cr.left)-(br.right-br.left))/2, cr.bottom-HELP_MARGIN-(br.bottom-br.top), br.right-br.left, br.bottom-br.top, 0); SetFocus(GetDlgItem(hwnd, IDC_HELPPIX)); } return FALSE; case WM_COMMAND: if (HIWORD(wParam) == BN_CLICKED) switch (LOWORD(wParam)) { case IDCANCEL: case IDOK: EndDialog(hwnd, 1); return TRUE; } break; default: break; } return FALSE; } void popupprompt(Widget button, char *request, char *current, void (*function)(), buttonsave *datastruct, const char *filter) { if (current != NULL && filter == NULL) { InputDlgData data; data.request = request; data.current = current; if (DialogBoxParam(GetModuleHandle(NULL), MAKEINTRESOURCE(IDD_INPUTDIALOG), areawin->window, InputDlgProc, (LPARAM)&data)) (*function)(button, (datastruct != NULL ? datastruct->dataptr : NULL)); } else if (filter != NULL) { OPENFILENAME ofn; char filename[1024] = {0}; char filterspec[1024] = {0}; ZeroMemory(&ofn, sizeof(ofn)); ofn.lStructSize = sizeof(ofn); ofn.hwndOwner = areawin->window; if (*filter) { _snprintf(filterspec, 1024, "Enable Filter (*%s)%c*%s%cDisable Filter (*.*)%c*.*%c%c%c", filter, 0, filter, 0, 0, 0, 0, 0); ofn.lpstrFilter = filterspec; } else ofn.lpstrFilter = "All Files (*.*)\000*.*\000\000\000"; ofn.lpstrFile = filename; ofn.nMaxFile = 1024; if (GetOpenFileName(&ofn)) { char *c; strcpy(_STR2, ofn.lpstrFile); for (c=_STR2; *c; c++) if (*c == '\\') *c = '/'; (*function)(button, datastruct->dataptr); } } else { if (MessageBox(areawin->window, request, "XCircuit", MB_YESNO|MB_ICONQUESTION) == IDYES) (*function)(button, datastruct->dataptr); } if (datastruct != NULL) free(datastruct); } static void get_vkey_name(int key, char *str, int len) { UINT scan = MapVirtualKey(key, 0); scan = (scan&0xff)<<16; switch (key) { case VK_HOME: case VK_PRIOR: case VK_NEXT: case VK_END: case VK_DELETE: case VK_INSERT: case VK_LEFT: case VK_RIGHT: case VK_UP: case VK_DOWN: scan |= (1<<24); break; case VK_CLEAR: memcpy(str, "CLEAR", 5); return; default: break; } GetKeyNameText(scan, str, len); } char *WinKeyToString(int key) { static char buffer[1024]; memset(buffer, 0, 1024); if (key >= XK_a && key <= XK_z) buffer[0] = (char)key; else if (key >= XK_A && key <= XK_Z) buffer[0] = (char)key; else { int offset = 0; if (key & KPMOD) { strcpy(buffer, "Keypad_"); offset = 7; } if (key & VKMOD) get_vkey_name(key&0x00ff, buffer+offset, 1024-offset); else buffer[offset] = key&0x00ff; } return buffer; } int WinStringToKey(const char *str) { int key; char buf[256]; for (key=1; key<256; key++) { memset(buf, 0, 256); get_vkey_name(key, buf, 256); if (strcmp(str, buf) == 0) return key; } return 0; } static Widget WndFound; BOOL CALLBACK WndLookupProc(HWND hwnd, LPARAM lParam) { Widget w = (Widget)get_widget(hwnd); if (w != NULL && strcmp((char*)lParam, w->name) == 0) { WndFound = w; W32DEBUG(("widget name: '%s'\n", w->name)); return FALSE; } W32DEBUG(("widget name: '%s' (%p)\n", (w ? w->name : (char*)w))); return TRUE; } const char* WinName(Widget w) { switch (w->type) { case WIN_WIDGET: return w->name; case WIN_MENUITEM: return TOMENUITEM(w)->name; case WIN_TOOLITEM: return TOTOOLITEM(w)->name; default: return NULL; } } Widget WinNameToWindow(Widget parent, const char *name) { W32DEBUG(("Looking for '%s' in %p\n", name, parent)); WndFound = NULL; if (parent != NULL) switch (parent->type) { case WIN_WIDGET: if (parent == toolBar) { TBBUTTON tb; int nbuttons = SendMessage(toolBar->handle, TB_BUTTONCOUNT, 0, 0), i; for (i=0; ihandle, TB_GETBUTTON, i, (LPARAM)&tb); if (tb.dwData != 0) { ToolItem item = (ToolItem)tb.dwData; if (item->name && strcmp(item->name, name) == 0) { WndFound = (Widget)item; break; } } } } else EnumChildWindows(parent->handle, WndLookupProc, (LPARAM)name); break; case WIN_MENUITEM: if (TOMENUITEM(parent)->popup != NULL) parent = (Widget)TOMENUITEM(parent)->popup; else break; case WIN_MENU: { int i, n = GetMenuItemCount((HMENU)parent->handle); MENUITEMINFO mi_info; ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); mi_info.fMask = MIIM_DATA; for (i=0; ihandle, i, MF_BYPOSITION, &mi_info) && mi_info.dwItemData && ((MenuItem)mi_info.dwItemData)->name && strcmp(((MenuItem)mi_info.dwItemData)->name, name) == 0) { WndFound = (Widget)mi_info.dwItemData; break; } } } break; } return WndFound; } void outputpopup(Widget button, caddr_t clientdata, caddr_t calldata) { if (is_page(topobject) == -1) { Wprintf("Can only save a top-level page!"); return; } DialogBox(GetModuleHandle(NULL), MAKEINTRESOURCE(IDD_OUTPUTDLG), top->handle, OutputDlgProc); } typedef struct { char *bits; int width, height; } cursor_bits; static u_char reverse_byte(u_char c) { u_char rc = 0; int i; for (i=(sizeof(char)*8-1); i>=0; i--, c>>=1) rc |= (c&0x01) << i; return rc; } static void compute_cursor_src_mask(u_char *src, u_char *mask) { u_char pixsrc = *src, pixmask = *mask; *src = ~(reverse_byte(pixmask)); *mask = reverse_byte((u_char)((~pixsrc&0xff)&pixmask)); } static HBITMAP create_stipple(char *stipdata) { HBITMAP hBitmap; BYTE data[8]; int i; for (i=0; i<4; i++) { data[2*i] = 0xff & ~reverse_byte(stipdata[i]); } hBitmap = CreateBitmap(4, 4, 1, 1, data); return hBitmap; } HBITMAP WinCreateBitmapFromData(HWND w, char *data, int width, int height) { if (width == 4 && height == 4) { return create_stipple(data); } else { cursor_bits *cbits = (cursor_bits*)malloc(sizeof(cursor_bits)); cbits->bits = data; cbits->width = width; cbits->height = height; return (HBITMAP)cbits; } } HCURSOR WinCreateCursor(HBITMAP _src, HBITMAP _mask, int xhot, int yhot) { HCURSOR hCursor = NULL; u_char *src = ((cursor_bits*)_src)->bits, *mask = ((cursor_bits*)_mask)->bits; u_char *new_src, *new_mask; int width = ((cursor_bits*)_src)->width, height = ((cursor_bits*)_src)->height; int nb = (width-1)/(8*sizeof(char))+1; int nb2 = (GetSystemMetrics(SM_CXCURSOR)-1)/(8*sizeof(char))+1, height2 = GetSystemMetrics(SM_CYCURSOR); int i, j, idx1 = 0, idx2 = 0; new_src = (u_char*)malloc(sizeof(char)*nb2*height2); new_mask = (u_char*)malloc(sizeof(char)*nb2*height2); for (j=0; jtype = WIN_WIDGET; w->handle = handle; w->name = strdup(name); if (strcmp(name, "Area") == 0) { RECT r; GetWindowRect(handle, &r); w->buffer = WinCreatePixmap(handle, r.right-r.left, r.bottom-r.top); w->bufhdc = CreateCompatibleDC(NULL); SelectObject(w->bufhdc, w->buffer); } SetWindowLong(handle, GWL_USERDATA, (LONG)w); return w; } static void destroy_widget(HWND handle) { Widget w = (Widget)get_widget(handle); WinCallback *cb = w->callbacks, *free_cb; WinEventHandler *eh = w->handlers, *free_eh; free(w->name); while (cb != NULL) { free_cb = cb; cb = cb->next; free(free_cb); } while (eh != NULL) { free_eh = eh; eh = eh->next; free(free_eh); } if (w->wndproc != NULL) SetWindowLong(handle, GWL_WNDPROC, (LONG)w->wndproc); free(w); } LRESULT CALLBACK XcTopWindowProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { switch (msg) { case WM_CLOSE: quitcheck(NULL, NULL, NULL); return 0; case WM_ACTIVATE: if (wParam != 0) { XCWindowData *w; for (w=xobjs.windowlist; w!=NULL; w=w->next) if (GetAncestor(w->window, GA_ROOT) == hwnd) break; if (w != NULL && areawin != w) { areawin = w; top = get_widget(GetAncestor(areawin->window, GA_ROOT)); topwin = top->handle; toolBar = get_widget(GetDlgItem(topwin, TOOLBAR_ID)); statusBar = GetDlgItem(topwin, STATUSBAR_ID); { MENUITEMINFO mi_info; HMENU hMenu = GetMenu(hwnd); int i; ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); for (i=0; iwindow); } return 0; case WM_SIZE: { int width = LOWORD(lParam), th, sh, height = HIWORD(lParam), nbrows = 1; DWORD sz; RECT sr; SetWindowPos(toolBar->handle, HWND_TOP, 0, 0, width, 25, 0); sz = SendMessage(toolBar->handle, TB_GETBUTTONSIZE, 0, 0); nbrows = SendMessage(toolBar->handle, TB_GETROWS, 0, 0); th = nbrows*HIWORD(sz)+6; GetWindowRect(statusBar, &sr); sh = sr.bottom-sr.top; SetWindowPos(areawin->area->handle, HWND_TOP, SBARSIZE, th, width-SBARSIZE, height-sh-th-SBARSIZE, 0); SetWindowPos(areawin->scrollbarh->handle, HWND_TOP, SBARSIZE, height-sh-SBARSIZE, width-SBARSIZE, SBARSIZE, 0); SetWindowPos(areawin->scrollbarv->handle, HWND_TOP, 0, th, SBARSIZE, height-sh-th-SBARSIZE, 0); SetWindowPos(corner, HWND_TOP, 0, height-sh-SBARSIZE, 0, 0, SWP_NOSIZE); SetWindowPos(statusBar, HWND_TOP, 0, height-sh, width, sh, 0); InvalidateRect(statusBar, NULL, FALSE); SetWindowPos(toolBar->handle, HWND_TOP, 0, 0, width, th, 0); InvalidateRect(toolBar->handle, NULL, FALSE); } return DefWindowProc(hwnd, msg, wParam, lParam); case WM_MENUCOMMAND: { MENUITEMINFO mi_info; MenuItem item; ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); mi_info.fMask = MIIM_DATA; GetMenuItemInfo((HMENU)lParam, wParam, MF_BYPOSITION, &mi_info); if ((item = (MenuItem)mi_info.dwItemData) != NULL && item->callbacks != NULL) { W32DEBUG(("Calling callback\n")); execute_callback(XtNselect, (Widget)item, NULL); } } return 0; case WM_COMMAND: if ((HWND)lParam == toolBar->handle) { TBBUTTONINFO tbi; ZeroMemory(&tbi, sizeof(tbi)); tbi.cbSize = sizeof(tbi); tbi.dwMask = TBIF_LPARAM; if (SendMessage(toolBar->handle, TB_GETBUTTONINFO, LOWORD(wParam), (LPARAM)&tbi) != -1) { ToolItem item = (ToolItem)tbi.lParam; W32DEBUG(("Tool button: %s\n", item->name)); execute_callback(XtNselect, (Widget)item, NULL); } } return 0; default: return DefWindowProc(hwnd, msg, wParam, lParam); } } void button_event(Widget win, int type, int button, short x, short y) { XButtonEvent event; event.type = type; event.x = x; event.y = y; event.button = (button & MK_LBUTTON ? Button1 : 0) | (button & MK_RBUTTON ? Button3 : 0) | (button & MK_MBUTTON ? Button2 : 0) | (button & MK_XBUTTON1 ? Button4 : 0) | (button & MK_XBUTTON2 ? Button5 : 0); event.state = (GetKeyState(VK_CONTROL) & 0x8000 ? ControlMask : 0) | (GetKeyState(VK_SHIFT) & 0x8000 ? ShiftMask : 0) | (GetKeyState(VK_MENU) & 0x8000 ? Mod1Mask : 0); if (win == areawin->scrollbarh || win == areawin->scrollbarv) if (type == ButtonPress) SetCapture(win->handle); else if (type == ButtonRelease) ReleaseCapture(); switch (type) { case ButtonPress: execute_callback(XtNselect, win, &event); break; case ButtonRelease: execute_callback(XtNrelease, win, &event); break; case MotionNotify: if (event.button && HAS_HANDLER(win, ButtonMotionMask)) execute_handler(ButtonMotionMask, win, &event); if ((event.button & Button1Mask) && HAS_HANDLER(win, Button1MotionMask)) execute_handler(Button1MotionMask, win, &event); if ((event.button & Button2Mask) && HAS_HANDLER(win, Button2MotionMask)) execute_handler(Button2MotionMask, win, &event); if (HAS_HANDLER(win, PointerMotionMask)) execute_handler(PointerMotionMask, win, &event); break; } } void key_event(Widget win, int type, int key, int scan) { POINT pt; static BYTE keys[256]; WORD c = 0x0000; XKeyEvent event; GetCursorPos(&pt); ScreenToClient(win->handle, &pt); event.type = type; event.x = pt.x; event.y = pt.y; event.state = 0; event.keycode = 0; GetKeyboardState(keys); if (keys[VK_CONTROL] & 0x80) { event.state |= ControlMask; keys[VK_CONTROL] &= ~0x80; } if (keys[VK_MENU] & 0x80) { event.state |= Mod1Mask; keys[VK_MENU] &= ~0x80; } keys[VK_NUMLOCK] &= 0x01; if (ToAscii(key, scan, keys, &c, 0) == 1 && c >= ' ' && c <= '~') { W32DEBUG(("char: %c (%08x)\n", c, c)); event.keycode = 0xff & c; switch (c) { case '/': if (scan & 0x1000000) event.keycode |= KPMOD; break; case '*': case '-': case '+': if ((VkKeyScan(c)&0xff) != key) event.keycode |= KPMOD; break; default: break; } } else { if (keys[VK_SHIFT] & 0x80) event.state |= ShiftMask; event.keycode |= VKMOD; switch (key) { case VK_RETURN: if (scan & 0x1000000) event.keycode |= KPMOD; else event.keycode |= VKMOD; break; case VK_HOME: case VK_UP: case VK_PRIOR: case VK_LEFT: case VK_RIGHT: case VK_END: case VK_DOWN: case VK_NEXT: case VK_DELETE: if (!(scan & 0x1000000)) event.keycode |= KPMOD; else event.keycode |= VKMOD; break; case VK_CLEAR: if (scan == 0x004c0001 || scan == 0xc04c0001) event.keycode |= KPMOD; break; default: event.keycode |= VKMOD; break; } event.keycode |= key; W32DEBUG(("non char: %d\n", event.keycode)); } switch (type) { case KeyPress: execute_callback(XtNkeyDown, win, &event); break; case KeyRelease: execute_callback(XtNkeyUp, win, &event); break; } } LRESULT CALLBACK XcWidgetProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget win = (Widget)get_widget(hwnd); switch (msg) { case WM_DESTROY: destroy_widget(hwnd); return 0; case WM_PAINT: { RECT r; GetUpdateRect(hwnd, &r, FALSE); if (win != NULL) execute_callback(XtNexpose, win, NULL); ValidateRect(hwnd, &r); } return 0; case WM_SIZE: InvalidateRect(hwnd, NULL, FALSE); if (win != NULL) { execute_callback(XtNresize, win, NULL); if (win->buffer != NULL) { WinFreePixmap(win->buffer); win->buffer = WinCreatePixmap(hwnd, LOWORD(lParam), HIWORD(lParam)); SelectObject(win->bufhdc, win->buffer); } } return 0; case WM_CHAR: W32DEBUG(("WM_CHAR: %08x %08x\n", wParam, lParam)); return 0; case WM_SYSKEYDOWN: if (wParam == VK_MENU || (wParam == VK_F4 && GetKeyState(VK_MENU) && 0x8000)) return DefWindowProc(hwnd, msg, wParam, lParam); case WM_KEYDOWN: W32DEBUG(("WM_KEYDOWN: %08x %08x %08x\n", wParam, lParam, MapVirtualKey((0x00ff0000&lParam)>>16, 1))); key_event(win, KeyPress, MapVirtualKey((0x00ff0000&lParam)>>16, 1), lParam); return 0; case WM_SYSKEYUP: if (wParam == VK_MENU) return DefWindowProc(hwnd, msg, wParam, lParam); case WM_KEYUP: W32DEBUG(("WM_KEYUP: %08x %08x\n", wParam, lParam)); key_event(win, KeyRelease, MapVirtualKey((0x00ff0000&lParam)>>16, 1), lParam); return 0; case WM_MOUSEMOVE: button_event(win, MotionNotify, wParam, LOWORD(lParam), HIWORD(lParam)); return 0; case WM_RBUTTONDOWN: case WM_MBUTTONDOWN: case WM_LBUTTONDOWN: button_event(win, ButtonPress, wParam, LOWORD(lParam), HIWORD(lParam)); return 0; case WM_RBUTTONUP: button_event(win, ButtonRelease, MK_RBUTTON, LOWORD(lParam), HIWORD(lParam)); return 0; case WM_MBUTTONUP: button_event(win, ButtonRelease, MK_MBUTTON, LOWORD(lParam), HIWORD(lParam)); return 0; case WM_LBUTTONUP: button_event(win, ButtonRelease, MK_LBUTTON, LOWORD(lParam), HIWORD(lParam)); return 0; case WM_MOUSEWHEEL: { SHORT delta = HIWORD(wParam); panbutton((delta > 0 ? 3 : 4), 0, 0, 0.05); refresh(NULL, NULL, NULL); } return 0; case WM_HSCROLL: switch (LOWORD(wParam)) { case SB_LINELEFT: panbutton(1, 0, 0, 0.03); break; case SB_LINERIGHT: panbutton(2, 0, 0, 0.03); break; } refresh(NULL, NULL, NULL); return 0; default: if (msg == WM_BITBLT && win != NULL && win->buffer != NULL) { HDC winhdc = GetDC(hwnd); RECT r; MSG pmsg; while (PeekMessage(&pmsg, hwnd, WM_BITBLT, WM_BITBLT, PM_REMOVE)); GetWindowRect(hwnd, &r); BitBlt(winhdc, 0, 0, r.right-r.left, r.bottom-r.top, win->bufhdc, 0, 0, SRCCOPY); ReleaseDC(hwnd, winhdc); return 0; } else return DefWindowProc(hwnd, msg, wParam, lParam); } } LRESULT CALLBACK XcHelppixProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { switch (msg) { case WM_GETDLGCODE: return DLGC_WANTARROWS; case WM_CREATE: if (helppix == NULL) printhelppix(); helptop = 0; return 0; case WM_SIZE: { SCROLLINFO si; si.cbSize = sizeof(SCROLLINFO); si.fMask = SIF_ALL; si.nMin = 0; si.nMax = (helpheight-HIWORD(lParam)+400-1); si.nPage = 400; si.nPos = 0; SetScrollInfo(hwnd, SB_VERT, &si, TRUE); return 0; } case WM_PAINT: { HDC hdc, pixhdc; PAINTSTRUCT ps; RECT r; hdc = BeginPaint(hwnd, &ps); pixhdc = get_hdc(helppix, hgc); GetClientRect(hwnd, &r); BitBlt(hdc, 0, 0, r.right-r.left, r.bottom-r.top, pixhdc, 0, helptop, SRCCOPY); release_hdc(helppix, pixhdc); EndPaint(hwnd, &ps); return 0; } break; case WM_VSCROLL: { SCROLLINFO si; int pos; si.cbSize = sizeof(si); si.fMask = SIF_ALL; GetScrollInfo(hwnd, SB_VERT, &si); switch (LOWORD(wParam)) { case SB_PAGEUP: si.nPos -= si.nPage; break; case SB_PAGEDOWN: si.nPos += si.nPage; break; case SB_LINEUP: si.nPos -= 15; break; case SB_LINEDOWN: si.nPos += 15; break; case SB_THUMBTRACK: si.nPos = si.nTrackPos; break; } si.fMask = SIF_POS; SetScrollInfo(hwnd, SB_VERT, &si, TRUE); GetScrollInfo(hwnd, SB_VERT, &si); helptop = si.nPos; InvalidateRect(hwnd, NULL, FALSE); } return 0; case WM_KEYDOWN: switch (wParam) { case VK_NEXT: SendMessage(hwnd, WM_VSCROLL, MAKELONG(SB_PAGEDOWN, 0), 0); break; case VK_PRIOR: SendMessage(hwnd, WM_VSCROLL, MAKELONG(SB_PAGEUP, 0), 0); break; case VK_DOWN: SendMessage(hwnd, WM_VSCROLL, MAKELONG(SB_LINEDOWN, 0), 0); break; case VK_UP: SendMessage(hwnd, WM_VSCROLL, MAKELONG(SB_LINEUP, 0), 0); break; } return 0; default: return DefWindowProc(hwnd, msg, wParam, lParam); } } static XFontStruct* create_font_struct(HFONT hFont) { TEXTMETRIC tm; XFontStruct *fs = NULL; HDC hdc = GetDC(NULL); SelectObject(hdc, hFont); if (GetTextMetrics(hdc, &tm)) { fs = (XFontStruct*)malloc(sizeof(XFontStruct)); fs->ascent = tm.tmAscent; fs->descent = tm.tmDescent; fs->fid = hFont; } else { W32DEBUG(("Failed to create font structure\n")); } ReleaseDC(NULL, hdc); return fs; } static menuID = 100; static Menu create_win_menu(HMENU menu) { Menu wmenu = (Menu)malloc(sizeof(struct __WinMenu)); MENUINFO minfo; wmenu->type = WIN_MENU; wmenu->handle = menu; minfo.cbSize = sizeof(MENUINFO); minfo.fMask = MIM_MENUDATA | MIM_STYLE; minfo.dwStyle = MNS_NOTIFYBYPOS; minfo.dwMenuData = (DWORD)wmenu; SetMenuInfo(menu, &minfo); return wmenu; } static MenuItem insert_win_menuitem(Menu menu, MENUITEMINFO* mi_info, menustruct *ms, int pos) { MenuItem item = (MenuItem)malloc(sizeof(struct __WinMenuItem)); ZeroMemory(item, sizeof(struct __WinMenuItem)); item->type = WIN_MENUITEM; item->parentMenu = menu; if (mi_info->fMask & MIIM_SUBMENU && mi_info->hSubMenu != NULL) { MENUINFO popup_info; ZeroMemory(&popup_info, sizeof(popup_info)); popup_info.cbSize = sizeof(popup_info); popup_info.fMask = MIM_MENUDATA; if (GetMenuInfo(mi_info->hSubMenu, &popup_info)) item->popup = (Menu)popup_info.dwMenuData; } else if (mi_info->fMask & MIIM_ID) { item->ID = mi_info->wID; menuwidgets[mi_info->wID-100] = (Widget)item; } else if (!(mi_info->fMask & MIIM_FTYPE && mi_info->fType == MFT_SEPARATOR)){ } if (ms != NULL) { if (ms->func != NULL && ms->func != DoNothing) WinAddCallback((Widget)item, XtNselect, ms->func, ms->passeddata); item->name = strdup(ms->name); } if (pos < 0) pos = GetMenuItemCount(menu->handle); item->position = pos; item->menudata = mi_info->dwItemData; mi_info->fMask |= MIIM_DATA; mi_info->dwItemData = (DWORD)item; InsertMenuItem(menu->handle, item->position, MF_BYPOSITION, mi_info); for (pos++; poshandle); pos++) { MENUITEMINFO info; ZeroMemory(&info, sizeof(info)); info.cbSize = sizeof(info); info.fMask = MIIM_DATA; GetMenuItemInfo(menu->handle, pos, MF_BYPOSITION, &info); TOMENUITEM(info.dwItemData)->position = pos; } return item; } #if 0 #define MENUICON_WIDTH GetSystemMetrics(SM_CXMENUCHECK) #define MENUICON_HEIGHT GetSystemMetrics(SM_CYMENUCHECK) #else #define MENUICON_WIDTH 12 #define MENUICON_HEIGHT 12 #endif static HBITMAP create_color_icon(int color, int width, int height) { HDC hdc = GetDC(NULL); HBITMAP hBitmap = CreateCompatibleBitmap(hdc, width, height); HBRUSH hBrush = CreateSolidBrush(color); RECT r = {0, 0}; ReleaseDC(NULL, hdc); r.right = width; r.bottom = height; hdc = CreateCompatibleDC(NULL); SelectObject(hdc, hBitmap); FillRect(hdc, &r, hBrush); DeleteObject(hBrush); DeleteDC(hdc); return hBitmap; } static HBITMAP create_stipple_icon(int stipdata, int width, int height) { HDC hdc = GetDC(NULL); HBITMAP hBitmap = CreateCompatibleBitmap(hdc, width, height); HBRUSH hBrush = CreatePatternBrush(STIPPLE[stipdata]); RECT r = {0, 0}; ReleaseDC(NULL, hdc); r.right = width; r.bottom = height; hdc = CreateCompatibleDC(NULL); SelectObject(hdc, hBitmap); FillRect(hdc, &r, hBrush); DeleteObject(hBrush); DeleteDC(hdc); return hBitmap; } static char* color_string(int c) { static char buf[256]; char *cname = WinColorName(c); if (cname) _snprintf(buf, 256, " %s", cname); else _snprintf(buf, 256, " %3d, %3d, %3d", GetRValue(c), GetGValue(c), GetBValue(c)); return buf; } static void makesubmenu(Menu menu, menustruct *items, int n); static void make_color_submenu(Menu menu, menustruct *items, int n) { if (dpy == NULL) makesubmenu(menu, items, n); else { int i; MENUITEMINFO mi_info; MenuItem item; makesubmenu(menu, items, 3); menuID += (n-3); for (i=0; iname = strdup(mi_info.dwTypeData); WinAddCallback((Widget)item, XtNselect, (XtCallbackProc)setcolor, NULL); } } } static void makesubmenu(Menu menu, menustruct *items, int n) { int i; MENUITEMINFO mi_info; int is_color = -1; MenuItem mitem; for (i=0; i>5, MENUICON_WIDTH, MENUICON_HEIGHT); mi_info.fMask = MIIM_BITMAP | MIIM_STRING | MIIM_ID; mi_info.wID = menuID++; mi_info.hbmpItem = hBitmap; mi_info.dwTypeData = items[i].name; mi_info.dwItemData = (DWORD)items[i].passeddata; } else { mi_info.fMask = MIIM_STRING | MIIM_ID; mi_info.wID = menuID++; mi_info.dwTypeData = items[i].name; } } else { Menu popup = create_win_menu(CreatePopupMenu()); if (strncmp(items[i].name, "Color", 5) == 0) make_color_submenu(popup, items[i].submenu, items[i].size); else makesubmenu(popup, items[i].submenu, items[i].size); mi_info.fMask = MIIM_SUBMENU | MIIM_STRING; mi_info.hSubMenu = popup->handle; mi_info.dwTypeData = items[i].name; } mitem = insert_win_menuitem(menu, &mi_info, &items[i], -1); if (is_color != -1 && dpy == NULL) addtocolorlist((Widget)mitem, is_color); } } static HMENU create_menus() { Menu menu; MENUITEMINFO mi_info; int i; menuID = 100; menu = create_win_menu(CreateMenu()); for (i=0; ihandle; mi_info.dwTypeData = TopButtons[i].name; } insert_win_menuitem(menu, &mi_info, &TopButtons[i], -1); } return menu->handle; } static void create_statusbar() { HDC hdc; SIZE sz; StatusItem msg2, msg3; hdc = GetDC(NULL); GetTextExtentPoint32(hdc, "Editing: filename (Page 1)", 26, &sz); statusBarWidth[0] = sz.cx; ReleaseDC(NULL, hdc); statusBar = CreateWindow(STATUSCLASSNAME, "", WS_CHILD|WS_VISIBLE|SBARS_SIZEGRIP, 0, 0, 100, 100, top->handle, (HMENU)STATUSBAR_ID, NULL, NULL); SendMessage(statusBar, SB_SETPARTS, 2, (LPARAM)statusBarWidth); SendMessage(statusBar, SB_SETTEXT, 0, (LPARAM)"Editing: Page 1"); SendMessage(statusBar, SB_SETTEXT, 1, (LPARAM)"Don't Panic"); msg2 = (StatusItem)malloc(sizeof(struct __WinStatusItem)); msg2->handle = statusBar; msg2->type = WIN_STATUS; msg2->position = 0; message2 = (Widget)msg2; msg3 = (StatusItem)malloc(sizeof(struct __WinStatusItem)); msg3->handle = statusBar; msg3->type = WIN_STATUS; msg3->position = 1; message3 = (Widget)msg3; } typedef struct { int c; RGBQUAD color; } xpm_color; static HBITMAP create_bitmap_from_xpm(char **xpm) { int width, height, ncolors, nchar; int i, j, k; BITMAPINFO *bmi; HBITMAP hBitmap = NULL; xpm_color *colors; BYTE *data; HDC hdc; if (sscanf(xpm[0], "%d %d %d %d", &width, &height, &ncolors, &nchar) != 4) return NULL; if (nchar != 1) { W32DEBUG(("(XPM) Unsupported number of char per data\n")); return NULL; } colors = (xpm_color*)malloc(sizeof(xpm_color)*ncolors); for (i=0; i>8); strncpy(snum, str, 4); snum[4] = 0; str+=4; colors[i].color.rgbGreen = 0xff&(strtol(snum, NULL, 16)>>8); strncpy(snum, str, 4); snum[4] = 0; str+=4; colors[i].color.rgbBlue = 0xff&(strtol(snum, NULL, 16)>>8); } else { COLORREF cr = WinNamedColor(str); colors[i].color.rgbRed = GetRValue(cr); colors[i].color.rgbGreen = GetGValue(cr); colors[i].color.rgbBlue = GetBValue(cr); } } data = (BYTE*)malloc(sizeof(BYTE)*width*height); for (j=k=0; jbmiHeader.biSize = sizeof(BITMAPINFOHEADER); bmi->bmiHeader.biWidth = width; bmi->bmiHeader.biHeight = -height; bmi->bmiHeader.biPlanes = 1; bmi->bmiHeader.biBitCount = 8; bmi->bmiHeader.biCompression = BI_RGB; bmi->bmiHeader.biClrUsed = ncolors; for (i=0; ibmiColors+i, &colors[i].color, sizeof(RGBQUAD)); hdc = GetDC(NULL); hBitmap = CreateDIBitmap(hdc, &bmi->bmiHeader, CBM_INIT, data, bmi, DIB_RGB_COLORS); ReleaseDC(NULL, hdc); free(bmi); free(colors); return hBitmap; } static void create_toolbar() { TBBUTTON *buttons; TBADDBITMAP bitmap; int i; toolBar = create_widget(CreateWindow(TOOLBARCLASSNAME, NULL, WS_CHILD|WS_VISIBLE|TBSTYLE_FLAT|TBSTYLE_WRAPABLE, 0, 0, 0, 0, top->handle, (HMENU)TOOLBAR_ID, NULL, NULL), "ToolBar"); SendMessage(toolBar->handle, TB_BUTTONSTRUCTSIZE, sizeof(TBBUTTON), 0); SendMessage(toolBar->handle, TB_SETBITMAPSIZE, 0, MAKELONG(20, 20)); buttons = (TBBUTTON*)malloc(sizeof(TBBUTTON) * toolbuttons); for (i=0; ihandle, TB_ADDBITMAP, 1, (LPARAM)&bitmap); item = (ToolItem)malloc(sizeof(struct __WinToolItem)); ZeroMemory(item, sizeof(struct __WinToolItem)); item->type = WIN_TOOLITEM; item->toolbar = toolBar; item->ID = buttons[i].idCommand; item->name = strdup(ToolBar[i].name); buttons[i].dwData = (DWORD)item; menuwidgets[item->ID-100] = (Widget)item; XtAddCallback((Widget)item, XtNselect, (XtCallbackProc)ToolBar[i].func, ToolBar[i].passeddata); /* if (ToolBar[i].func == changetool || ToolBar[i].func == exec_or_changetool) buttons[i].fsStyle |= TBSTYLE_CHECK; */ } SendMessage(toolBar->handle, TB_ADDBUTTONS, toolbuttons, (LPARAM)buttons); free(buttons); } static void register_win32_classes() { WNDCLASS wndClass; /* Top-level window */ ZeroMemory(&wndClass, sizeof(wndClass)); wndClass.lpfnWndProc = XcTopWindowProc; wndClass.lpszClassName = "XcTopLevel"; wndClass.hIcon = LoadIcon(GetModuleHandle(NULL), "xcircuit"); RegisterClass(&wndClass); /* Main area */ ZeroMemory(&wndClass, sizeof(wndClass)); wndClass.lpfnWndProc = XcWidgetProc; wndClass.lpszClassName = "XcWidget"; wndClass.cbWndExtra = sizeof(void*); RegisterClass(&wndClass); /* Scroll bar */ ZeroMemory(&wndClass, sizeof(wndClass)); wndClass.lpfnWndProc = XcWidgetProc; wndClass.lpszClassName = "XcScrollBar"; wndClass.hCursor = LoadCursor(NULL, IDC_ARROW); wndClass.cbWndExtra = sizeof(void*); RegisterClass(&wndClass); /* Help widget */ ZeroMemory(&wndClass, sizeof(wndClass)); wndClass.lpfnWndProc = XcHelppixProc; wndClass.lpszClassName = "XcHelp"; RegisterClass(&wndClass); /* Popup */ /* ZeroMemory(&wndClass, sizeof(wndClass)); wndClass.lpfnWndProc = XcPopupProc; wndClass.lpszClassName = "XcPopup"; wndClass.hbrBackground = (HBRUSH)(COLOR_BACKGROUND); wndClass.hCursor = LoadCursor(NULL, IDC_ARROW); RegisterClass(&wndClass); */ } XCWindowData* GUI_init(int argc, char *argv[]) { int i; XGCValues values; Arg wargs[2]; RECT clientRect = { 0, 0, 0, 0 }; XCWindowData *newwin; #if 0 && defined(USE_WIN32_COM) for (i=0; ihandle; dpy = XtDisplay(top); newwin = create_new_window(); newwin->scrollbarv = create_widget(CreateWindow("XcScrollBar", "SBV", WS_VISIBLE|WS_CHILD, 0, 0, SBARSIZE, appdata.height-SBARSIZE, top->handle, 0, NULL, NULL), "SBV"); newwin->scrollbarh = create_widget(CreateWindow("XcScrollBar", "SBH", WS_VISIBLE|WS_CHILD, SBARSIZE, appdata.height-SBARSIZE, appdata.width-SBARSIZE, SBARSIZE, top->handle, 0, NULL, NULL), "SBH"); newwin->area = create_widget(CreateWindow("XcWidget", "Area", WS_VISIBLE|WS_CHILD, SBARSIZE, 0, appdata.width, appdata.height, top->handle, 0, NULL, NULL), "Area"); newwin->window = newwin->area->handle; corner = CreateWindow("BUTTON", "", WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON|BS_FLAT, 0, appdata.height-SBARSIZE, SBARSIZE, SBARSIZE, top->handle, NULL, NULL, NULL); create_statusbar(); create_toolbar(); XtAddCallback(newwin->area, XtNexpose, (XtCallbackProc)drawarea, NULL); XtAddCallback(newwin->area, XtNresize, (XtCallbackProc)resizearea, NULL); XtAddCallback(newwin->area, XtNselect, (XtCallbackProc)buttonhandler, NULL); XtAddCallback(newwin->area, XtNrelease, (XtCallbackProc)buttonhandler, NULL); XtAddCallback(newwin->area, XtNkeyDown, (XtCallbackProc)keyhandler, NULL); XtAddCallback(newwin->area, XtNkeyUp, (XtCallbackProc)keyhandler, NULL); XtAddEventHandler(newwin->area, Button1MotionMask | Button2MotionMask, False, (XtEventHandler)xlib_drag, NULL); XtAddEventHandler(newwin->scrollbarh, ButtonMotionMask, False, (XtEventHandler)panhbar, NULL); XtAddEventHandler(newwin->scrollbarv, ButtonMotionMask, False, (XtEventHandler)panvbar, NULL); XtAddCallback(newwin->scrollbarh, XtNrelease, (XtCallbackProc)endhbar, NULL); XtAddCallback(newwin->scrollbarv, XtNrelease, (XtCallbackProc)endvbar, NULL); XtAddCallback(newwin->scrollbarh, XtNexpose, (XtCallbackProc)drawhbar, NULL); XtAddCallback(newwin->scrollbarv, XtNexpose, (XtCallbackProc)drawvbar, NULL); XtAddCallback(newwin->scrollbarh, XtNresize, (XtCallbackProc)drawhbar, NULL); XtAddCallback(newwin->scrollbarv, XtNresize, (XtCallbackProc)drawvbar, NULL); values.foreground = RGB(0, 0, 0); values.background = RGB(255, 255, 255); values.font = appdata.xcfont->fid; newwin->gc = XCreateGC(dpy, newwin->window, GCForeground | GCBackground | GCFont, &values); XtSetArg(wargs[0], XtNwidth, &newwin->width); XtSetArg(wargs[1], XtNheight, &newwin->height); XtGetValues(newwin->area, wargs, 2); SendMessage(((ToolItem)WireToolButton)->toolbar->handle, TB_CHECKBUTTON, ((ToolItem)WireToolButton)->ID, MAKELONG(TRUE, 0)); #ifdef USE_WIN32_COM if (!COM_initialize()) printf("Failed to initialize COM interface\n"); #endif return newwin; } void WinAddEventHandler(Widget win, int event, void(*proc)(), void *data) { WinEventHandler *h = win->handlers; if (win->type != WIN_WIDGET) { W32DEBUG(("Can't add event handler to non widget\n")); return; } while (h != NULL) { if (h->proc == proc && h->data == data) { h->action |= event; break; } else h = h->next; } if (h == NULL) { h = (WinEventHandler*)malloc(sizeof(WinEventHandler)); h->action = event; h->proc = proc; h->data = data; h->next = win->handlers; win->handlers = h; } update_event_mask(win); } void WinRemoveEventHandler(Widget win, int event, void(*proc)(), void *data) { WinEventHandler *h, *prev = NULL; if (win->type != WIN_WIDGET) { W32DEBUG(("Can't remove event handler from non widget\n")); return; } h = win->handlers; for (; h!=NULL;) if ((h->action & event) && h->proc == proc && h->data == data) { h->action &= ~event; if (h->action == 0) { WinEventHandler *old_h = h; if (prev == NULL) win->handlers = h = h->next; else prev->next = h = h->next; free(old_h); } } else { prev = h; h = h->next; } update_event_mask(win); } void WinAddCallback(Widget win, int event, void(*proc)(), void *data) { WinCallback *cb, **root, *prev = NULL; if (win == NULL) return; switch (win->type) { case WIN_MENUITEM: if (TOMENUITEM(win)->popup != NULL) { Wprintf("Trying to add a callback to a popup menu"); return; } root = &((MenuItem)win)->callbacks; break; case WIN_TOOLITEM: root = &((ToolItem)win)->callbacks; break; default: root = &win->callbacks; break; } cb = *root; while (cb) { prev = cb; cb = cb->next; } cb = (WinCallback*)malloc(sizeof(WinCallback)); cb->action = event; cb->proc = proc; cb->data = data; cb->next = NULL; if (prev) prev->next = cb; else *root = cb; } int WinFindCallback(Widget win, int event, void(**proc)(), void **data) { WinCallback *cb; if (win == NULL) return 0; switch (win->type) { case WIN_MENUITEM: cb = TOMENUITEM(win)->callbacks; break; case WIN_TOOLITEM: cb = TOTOOLITEM(win)->callbacks; break; default: cb = win->callbacks; break; } while (cb) { if (cb->action == event) { if (proc == NULL || *proc == NULL || *proc == cb->proc) { if (proc != NULL) *proc = cb->proc; if (data != NULL) *data = cb->data; return 1; } } cb = cb->next; } return 0; } void WinRemoveCallback(Widget win, int event, void(*proc)(), void *data) { WinCallback *cb; WinCallback *prev = NULL, **root; if (win == NULL) return; switch (win->type) { case WIN_MENUITEM: cb = ((MenuItem)win)->callbacks; root = &((MenuItem)win)->callbacks; break; case WIN_TOOLITEM: cb = ((ToolItem)win)->callbacks; root = &((ToolItem)win)->callbacks; break; default: cb = win->callbacks; root = &win->callbacks; break; } while (cb != NULL) { if (cb->action == event && (proc == NULL || (cb->proc == proc && cb->data == data))) { WinCallback *old_cb = cb; if (prev == NULL) *root = cb = cb->next; else prev->next = cb = cb->next; free(old_cb); } else { prev = cb; cb = cb->next; } } } void WinRemoveAllCallbacks(Widget win, int event) { if (win == NULL) return; WinRemoveCallback(win, event, NULL, NULL); } static Arg* look_arg(Arg *args, int type, int n) { int i; for (i=0; ix = (int)args[i].data; break; case XtNy: if (pt) pt->y = (int)args[i].data; break; case XtNwidth: if (sz) sz->cx = (int)args[i].data; break; case XtNheight: if (sz) sz->cy = (int)args[i].data; break; } } Widget WinCreateWidget(const char *name, int cls, Widget parent, Arg *args, int n, int show) { int i; Widget win; switch (cls) { case XwcascadeWidgetClass: { MENUITEMINFO mi_info; MenuItem item; Menu popup = create_win_menu(CreatePopupMenu()); Arg *a; int pos = -1; ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); mi_info.fMask = MIIM_SUBMENU | MIIM_STRING; mi_info.hSubMenu = popup->handle; mi_info.dwTypeData = (char*)name; if (IS_MENUITEM(parent)) parent = (Widget)TOMENUITEM(parent)->popup; if ((a = look_arg(args, XtNattachTo, n)) != NULL) { Widget after = WinNameToWindow(parent, (char*)a->data); if (after != NULL) pos = TOMENUITEM(after)->position + 1; } item = insert_win_menuitem((Menu)parent, &mi_info, NULL, pos); item->name = strdup(name); DrawMenuBar(topwin); return (Widget)item; } case XwmenubuttonWidgetClass: { MENUITEMINFO mi_info; Arg *a; MenuItem item; int pos = -1; ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); if ((a=look_arg(args, XtNrectColor, n)) != NULL) { HBITMAP hBitmap = create_color_icon((int)a->data, MENUICON_WIDTH, MENUICON_HEIGHT); mi_info.fMask = MIIM_BITMAP | MIIM_STRING /*| MIIM_FTYPE*/; /*mi_info.fType = MFT_OWNERDRAW*/; mi_info.hbmpItem = hBitmap; mi_info.dwTypeData = color_string((int)a->data); mi_info.dwItemData = (int)a->data; } else { mi_info.fMask = MIIM_STRING; mi_info.dwTypeData = (char*)name; } if (IS_MENUITEM(parent)) parent = (Widget)TOMENUITEM(parent)->popup; if ((a = look_arg(args, XtNattachTo, n)) != NULL) { Widget after = WinNameToWindow(parent, (char*)a->data); if (after != NULL) pos = TOMENUITEM(after)->position + 1; } item = insert_win_menuitem((Menu)parent, &mi_info, NULL, pos); item->name = strdup(name); DrawMenuBar(topwin); return (Widget)item; } break; /* case XwstaticTextWidgetClass: { POINT pt = {CW_USEDEFAULT, CW_USEDEFAULT}; get_window_location(args, n, &pt, NULL); win = create_widget(CreateWindow("STATIC", "", WS_CHILD|WS_VISIBLE, pt.x, pt.y, CW_USEDEFAULT, CW_USEDEFAULT, parent->handle, NULL, NULL, NULL), (char*)name); win->wndproc = (WNDPROC)SetWindowLong(win->handle, GWL_WNDPROC, (LONG)XcStaticProc); WinSetValues(win, args, n); } break; case XwtextEditWidgetClass: { POINT pt = {CW_USEDEFAULT, CW_USEDEFAULT}; SIZE sz = {CW_USEDEFAULT, CW_USEDEFAULT}; get_window_location(args, n, &pt, &sz); win = create_widget(CreateWindow("EDIT", "", WS_BORDER|WS_CHILD|WS_VISIBLE|ES_AUTOHSCROLL|WS_TABSTOP, pt.x, pt.y, sz.cx, sz.cy, parent->handle, NULL, NULL, NULL), (char*)name); //win->wndproc = (WNDPROC)SetWindowLong(win->handle, GWL_WNDPROC, (LONG)XcEditProc); } break; case XwpushButtonWidgetClass: case XwmenuButtonWidgetClass: { POINT pt = {CW_USEDEFAULT, CW_USEDEFAULT}; get_window_location(args, n, &pt, NULL); win = create_widget(CreateWindow("BUTTON", name, BS_PUSHBUTTON|WS_CHILD|WS_VISIBLE, pt.x, pt.y, CW_USEDEFAULT, CW_USEDEFAULT, parent->handle, NULL, NULL, NULL), (char*)name); win->wndproc = (WNDPROC)SetWindowLong(win->handle, GWL_WNDPROC, (LONG)XcButtonProc); WinSetValues(win, args, n); } break; case XwtoggleWidgetClass: { POINT pt = {CW_USEDEFAULT, CW_USEDEFAULT}; get_window_location(args, n, &pt, NULL); win = create_widget(CreateWindow("BUTTON", name, BS_CHECKBOX|WS_CHILD|WS_VISIBLE, pt.x, pt.y, CW_USEDEFAULT, CW_USEDEFAULT, parent->handle, NULL, NULL, NULL), (char*)name); win->wndproc = (WNDPROC)SetWindowLong(win->handle, GWL_WNDPROC, (LONG)XcToggleProc); WinSetValues(win, args, n); } break; case XwbulletinWidgetClass: win = parent; break; */ default: W32DEBUG(("Should create widget: %02x, %s\n", cls, name)); win = NULL; break; } if (show) ShowWindow(win->handle, SW_SHOW); else ShowWindow(win->handle, SW_HIDE); return win; } Widget WinCreatePopup(const char *name, Arg *args, int n) { HWND hwnd; hwnd = CreateWindow("XcPopup", name, WS_TILEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 300, 200, NULL, NULL, NULL, NULL); return create_widget(hwnd, (char*)name); } void WinPopup(Widget popup) { ShowWindow(popup->handle, SW_SHOWNORMAL); } char* WinGetText(Widget win) { static char buffer[1024]; GetWindowText(win->handle, buffer, 1024); return buffer; } void WinClearText(Widget win) { SetWindowText(win->handle, ""); } int WinNamedColor(const char *cname) { int i; for (i=0; X11Colors[i].name; i++) { if (_stricmp(X11Colors[i].name, cname) == 0) return RGB(X11Colors[i].red, X11Colors[i].green, X11Colors[i].blue); } W32DEBUG(("Unknown color: %s\n", cname)); return -1; } int WinLookupColor(const char *cname, XColor *color) { int cval = WinNamedColor(cname); if (cval == -1) return 0; else { color->pixel = cval; WinQueryColors(color, 1); return 1; } } char *WinColorName(int c) { int red = GetRValue(c), green = GetGValue(c), blue = GetBValue(c); int i; for (i=0; X11Colors[i].name; i++) if (red == X11Colors[i].red && green == X11Colors[i].green && blue == X11Colors[i].blue) return X11Colors[i].name; return NULL; } HWND WinWindow(Widget w) { return (w ? w->handle : NULL); } void WinManageChild(Widget w) { if (w != NULL) ShowWindow(w->handle, SW_SHOW); } void WinUnmanageChild(Widget w) { if (w != NULL) ShowWindow(w->handle, SW_HIDE); } void WinDebug(char *c) { W32DEBUG(("%s", c)); } void WinLookupString(XKeyEvent *event, KeySym *key) { XKeyEvent *kevent = (XKeyEvent*)event; int vk = kevent->keycode & 0xff; if (vk == 0) *key = 0; else { W32DEBUG(("Translating key event: %d\n", vk)); *key = kevent->keycode; } } void WinPostPopup(Widget _menu, Widget _button, int dx, int dy) { Menu menu = (Menu)_menu; ToolItem button = (ToolItem)_button; RECT bRect = { 0, 0, 0, 0 }; POINT pt; SendMessage(button->toolbar->handle, TB_GETRECT, button->ID, (LPARAM)&bRect); pt.x = bRect.left; pt.y = bRect.bottom; ClientToScreen(button->toolbar->handle, &pt); SendMessage(button->toolbar->handle, TB_CHECKBUTTON, button->ID, MAKELONG(TRUE, 0)); TrackPopupMenu(menu->handle, TPM_LEFTALIGN|TPM_TOPALIGN, pt.x, pt.y, 0, top->handle, NULL); SendMessage(button->toolbar->handle, TB_CHECKBUTTON, button->ID, MAKELONG(FALSE, 0)); } void overdrawpixmap(Widget button) { MenuItem mitem = (MenuItem)button; ToolItem titem = NULL; int idx; if (button == NULL) return; idx = mitem->toolbar_idx; if (mitem->parentMenu == ((MenuItem)ColorInheritColorButton)->parentMenu) titem = (ToolItem)ColorsToolButton; else if (mitem->parentMenu == ((MenuItem)FillBlackButton)->parentMenu) titem = (ToolItem)FillsToolButton; else return; if (idx == 0) { if (mitem == (MenuItem)ColorInheritColorButton) { idx = ((ToolItem)ColorsToolButton)->ID-((ToolItem)PanToolButton)->ID; } else if (mitem == (MenuItem)FillWhiteButton) { idx = ((ToolItem)FillsToolButton)->ID-((ToolItem)PanToolButton)->ID; } else { HBITMAP hBitmap = NULL; TBADDBITMAP tb; if (titem == (ToolItem)ColorsToolButton) hBitmap = create_color_icon(mitem->menudata, 20, 20); else { if (mitem->menudata == (OPAQUE | FILLED | FILLSOLID)) hBitmap = create_color_icon(RGB(0, 0, 0), 20, 20); else if (mitem != (MenuItem)FillOpaqueButton && mitem != (MenuItem)FillTransparentButton) hBitmap = create_stipple_icon((mitem->menudata & FILLSOLID) >> 5, 20, 20); } if (hBitmap != NULL) { tb.hInst = NULL; tb.nID = (INT_PTR)hBitmap; idx = mitem->toolbar_idx = SendMessage(titem->toolbar->handle, TB_ADDBITMAP, 1, (LPARAM)&tb); } } } W32DEBUG(("%s: %d\n", titem->name, idx)); if (idx > 0) { SendMessage(titem->toolbar->handle, TB_CHANGEBITMAP, titem->ID, MAKELPARAM(idx, 0)); } } void starthelp(xcWidget button, caddr_t clientdata, caddr_t calldata) { DialogBoxParam(GetModuleHandle(NULL), MAKEINTRESOURCE(IDD_HELPDLG), areawin->window, HelpDlgProc, (LPARAM)NULL); } /* static void get_text_size(HWND hwnd, HFONT hfont, SIZE *sz) { HDC hdc = GetDC(hwnd); char str[64]; int n; SelectObject(hdc, hfont); n = GetWindowText(hwnd, str, 64); GetTextExtentPoint32(hdc, str, n, sz); ReleaseDC(hwnd, hdc); } LRESULT CALLBACK XcStaticProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget w = (Widget)GetWindowLong(hwnd, GWL_USERDATA); switch (msg) { case WM_SETFONT: { SIZE sz; get_text_size(hwnd, (HFONT)wParam, &sz); SetWindowPos(hwnd, HWND_TOP, 0, 0, sz.cx, sz.cy, SWP_NOMOVE); } break; } return CallWindowProc(w->wndproc, hwnd, msg, wParam, lParam); } LRESULT CALLBACK XcEditProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget w = (Widget)GetWindowLong(hwnd, GWL_USERDATA); switch (msg) { case WM_KEYDOWN: if (wParam == VK_RETURN) { execute_callback(XtNexecute, w, NULL); return 0; } break; } return CallWindowProc(w->wndproc, hwnd, msg, wParam, lParam); } LRESULT CALLBACK XcButtonProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget w = (Widget)GetWindowLong(hwnd, GWL_USERDATA); switch (msg) { case WM_SETFONT: { SIZE sz; get_text_size(hwnd, (HFONT)wParam, &sz); printf("%d %d\n", sz.cx, sz.cy); SetWindowPos(hwnd, HWND_TOP, 0, 0, sz.cx+20, sz.cy+10, SWP_NOMOVE); } break; case WM_SETTEXT: { LRESULT result = CallWindowProc(w->wndproc, hwnd, msg, wParam, lParam); SIZE sz; get_text_size(hwnd, (HFONT)SendMessage(hwnd, WM_GETFONT, 0, 0), &sz); SetWindowPos(hwnd, HWND_TOP, 0, 0, sz.cx+20, sz.cy+10, SWP_NOMOVE); return result; } case WM_LBUTTONDOWN: execute_callback(XtNselect, w, NULL); break; } return CallWindowProc(w->wndproc, hwnd, msg, wParam, lParam); } LRESULT CALLBACK XcToggleProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget w = (Widget)GetWindowLong(hwnd, GWL_USERDATA); switch (msg) { case WM_SETFONT: { SIZE sz; get_text_size(hwnd, (HFONT)wParam, &sz); SetWindowPos(hwnd, HWND_TOP, 0, 0, sz.cx+20, sz.cy+10, SWP_NOMOVE); } break; case WM_LBUTTONUP: { LRESULT result = CallWindowProc(w->wndproc, hwnd, msg, wParam, lParam); if (SendMessage(hwnd, BM_GETCHECK, 0, 0) == BST_CHECKED) execute_callback(XtNselect, w, NULL); else execute_callback(XtNrelease, w, NULL); } break; } return CallWindowProc(w->wndproc, hwnd, msg, wParam, lParam); } LRESULT CALLBACK XcPopupProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { return DefDlgProc(hwnd, msg, wParam, lParam); } */ static void change_char(char *str, char cfrom, char cto) { char *c = str; for (; *c; c++) if (*c == cfrom) *c = cto; } LRESULT CALLBACK OutputDlgEditProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget win = get_widget (hwnd); switch (msg) { case WM_GETDLGCODE: if (lParam) { MSG *message = (MSG*)lParam; if (message->message == WM_KEYDOWN && message->wParam == VK_RETURN) return DLGC_WANTMESSAGE; } break; case WM_KEYDOWN: switch (wParam) { case VK_RETURN: execute_callback(XtNexecute, win, NULL); break; } break; } return CallWindowProc(win->wndproc, hwnd, msg, wParam, lParam); } LRESULT CALLBACK OutputDlgProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) { Widget popup = get_widget(hwnd); switch (msg) { case WM_INITDIALOG: { RECT r, pr; Widget win; Pagedata *curpage; Widget *entertext; int i; void (*function[MAXPROPS])() = { setfilename, setpagelabel, setfloat, setscalex, setscaley, setorient, setpmode }; void (*update[MAXPROPS])() = { updatename, NULL, updatetext, updatetext, updatetext, updatetext, NULL }; char statics[MAXPROPS][50], edit[MAXPROPS][75], request[150]; void *data[MAXPROPS]; struct {int edit; int apply; int label;} ID[MAXPROPS] = { { IDC_FILENAME, IDC_APPLY1, IDC_STATIC1 }, { IDC_PAGELABEL, IDC_APPLY2, IDC_STATIC2 }, { IDC_SCALE, IDC_APPLY3, IDC_STATIC3 }, { IDC_WIDTH, IDC_APPLY4, IDC_STATIC4 }, { IDC_HEIGHT, IDC_APPLY5, IDC_STATIC5 }, { IDC_ORIENTATION, -1, IDC_STATIC6 }, { IDC_MODE, -1, IDC_STATIC7 } }; struct stat statbuf; GetWindowRect(GetParent(hwnd), &pr); GetWindowRect(hwnd, &r); SetWindowPos(hwnd, HWND_TOP, pr.left+((pr.right-pr.left)-(r.right-r.left))/2, pr.top+((pr.bottom-pr.top)-(r.bottom-r.top))/2, 0, 0, SWP_NOSIZE); SendDlgItemMessage(hwnd, IDC_ORIENTATION, CB_ADDSTRING, 0, (LPARAM)"Landscape"); SendDlgItemMessage(hwnd, IDC_ORIENTATION, CB_ADDSTRING, 0, (LPARAM)"Portrait"); SendDlgItemMessage(hwnd, IDC_MODE, CB_ADDSTRING, 0, (LPARAM)"Embedded (EPS)"); SendDlgItemMessage(hwnd, IDC_MODE, CB_ADDSTRING, 0, (LPARAM)"Full page"); curpage = xobjs.pagelist[areawin->page]; entertext = (Widget*)malloc(sizeof(Widget)*MAXPROPS); memset(okstruct, 0, sizeof(propstruct)*MAXPROPS); sprintf(edit[0], "%s", curpage->filename); sprintf(edit[1], "%s", topobject->name); calcbbox(areawin->topinstance); if (curpage->pmode & 2) autoscale(areawin->page); writescalevalues(edit[2], edit[3], edit[4]); sprintf(edit[5], "%s", (curpage->orient == 0) ? "Portrait" : "Landscape"); sprintf(edit[6], "%s", (curpage->pmode & 1) ? "Full page" : "Embedded (EPS)"); data[0] = &(curpage->filename); data[1] = topobject->name; data[2] = data[3] = data[4] = &(curpage->outscale); data[5] = &(curpage->orient); data[6] = &(curpage->pmode); popup = create_widget(hwnd, "outputpopup"); popup->bufhdc = (HDC)entertext; create_widget(GetDlgItem(hwnd, IDOK), "Write File"); create_widget(GetDlgItem(hwnd, IDCANCEL), "Close"); sprintf(request, "PostScript output properties (Page %d):", areawin->page + 1); sprintf(statics[0], "Filename:"); sprintf(statics[1], "Page label:"); sprintf(statics[2], "Scale:"); if (curpage->coordstyle == CM) { sprintf(statics[3], "X Size (cm):"); sprintf(statics[4], "Y Size (cm):"); } else { sprintf(statics[3], "X Size (in):"); sprintf(statics[4], "Y Size (in):"); } sprintf(statics[5], "Orientation:"); sprintf(statics[6], "Mode:"); SetDlgItemText(hwnd, IDC_PSINFO, request); strcpy(request, edit[0]); if (strstr(request, ".") == NULL) strcat(request, ".ps"); if (stat(request, &statbuf) == 0) { SetWindowText(GetDlgItem(hwnd, IDOK), "Overwrite File"); Wprintf(" Warning: File exists"); } else { if (errno == ENOTDIR) Wprintf("Error: Incorrect pathname"); else if (errno == EACCES) Wprintf("Error: Path not readable"); else Wprintf(" "); } for (i=0; ihandle, edit[i]); WinAddCallback(okstruct[i].buttonw, XtNselect, getproptext, &okstruct[i]); WinAddCallback(okstruct[i].textw, XtNexecute, getproptext, &okstruct[i]); if (update[i] != NULL) { WinAddCallback(okstruct[i].buttonw, XtNselect, update[i], entertext); WinAddCallback(okstruct[i].textw, XtNexecute, update[i], entertext); } okstruct[i].textw->wndproc = (WNDPROC)SetWindowLong(okstruct[i].textw->handle, GWL_WNDPROC, (LONG)OutputDlgEditProc); } else { entertext[i] = create_widget(GetDlgItem(hwnd, ID[i].edit), "Toggle"); SendMessage(entertext[i]->handle, CB_SELECTSTRING, -1, (LPARAM)edit[i]); WinAddCallback(entertext[i], XtNselect, function[i], data[i]); if (update[i] != NULL) WinAddCallback(entertext[i], XtNselect, update[i], entertext); } } sprintf(request, "%d Pages", pagelinks(areawin->page)); win = create_widget(GetDlgItem(hwnd, IDC_PAGENUM), "LToggle"); SetWindowText(win->handle, request); CheckDlgButton(hwnd, IDC_PAGENUM, BST_CHECKED); WinAddCallback(win, XtNrelease, linkset, &okstruct[0]); win = create_widget(GetDlgItem(hwnd, IDC_AUTOFIT), "Auto-fit"); SendMessage(win->handle, BM_SETCHECK, (curpage->pmode & 2 ? BST_CHECKED : BST_UNCHECKED), 0); WinAddCallback(win, XtNselect, autoset, entertext); WinAddCallback(win, XtNrelease, autostop, NULL); if (curpage->coordstyle == CM) { sprintf(request, "%3.2f x %3.2f cm", (float)curpage->pagesize.x / IN_CM_CONVERT, (float)curpage->pagesize.y / IN_CM_CONVERT); } else { sprintf(request, "%3.2f x %3.2f in", (float)curpage->pagesize.x / 72.0, (float)curpage->pagesize.y / 72.0); } fpokstruct.textw = create_widget(GetDlgItem(hwnd, IDC_FPEDIT), "fpedit"); SetWindowText(fpokstruct.textw->handle, request); fpokstruct.buttonw = create_widget(GetDlgItem(hwnd, IDC_APPLY6), "fpokay"); fpokstruct.setvalue = setpagesize; fpokstruct.dataptr = &(curpage->pagesize); WinAddCallback(fpokstruct.buttonw, XtNselect, getproptext, &fpokstruct); WinAddCallback(fpokstruct.buttonw, XtNselect, updatetext, entertext); WinAddCallback(fpokstruct.textw, XtNexecute, getproptext, &fpokstruct); WinAddCallback(fpokstruct.textw, XtNexecute, updatetext, entertext); WinAddCallback(get_widget(GetDlgItem(hwnd, IDOK)), XtNselect, setfile, entertext[0]); if (curpage->pmode > 0) { XtManageChild(get_widget(GetDlgItem(hwnd, IDC_AUTOFIT))); XtManageChild(fpokstruct.textw); XtManageChild(fpokstruct.buttonw); } if (pagelinks(areawin->page) > 1) XtManageChild(get_widget(GetDlgItem(hwnd, IDC_PAGENUM))); SetFocus(entertext[0]->handle); } return FALSE; case WM_DESTROY: if (popup->bufhdc) free((Widget*)popup->bufhdc); destroy_widget(hwnd); { int ID[] = { IDOK, IDCANCEL, IDC_APPLY1, IDC_FILENAME, IDC_APPLY2, IDC_PAGELABEL, IDC_APPLY3, IDC_SCALE, IDC_APPLY4, IDC_WIDTH, IDC_APPLY5, IDC_HEIGHT, IDC_PAGENUM, IDC_AUTOFIT, IDC_FPEDIT, -1 }; int i; for (i=0; ID[i]!=-1; i++) destroy_widget(GetDlgItem(hwnd, ID[i])); } return FALSE; case WM_COMMAND: switch (LOWORD(wParam)) { case IDOK: if (HIWORD(wParam) == BN_CLICKED) { execute_callback(XtNselect, get_widget((HWND)lParam), NULL); EndDialog(hwnd, 1); } break; case IDCANCEL: if (HIWORD(wParam) == BN_CLICKED) EndDialog(hwnd, 0); break; case IDC_FILEOPEN: { OPENFILENAME ofn; int len; ZeroMemory(&ofn, sizeof(ofn)); ofn.lStructSize = sizeof(ofn); ofn.hwndOwner = hwnd; ofn.lpstrFile = _STR2; ofn.nMaxFile = 250; ofn.lpstrFilter = "XCircuit Files (*.ps;*.eps)\000*.ps;*.eps\000All Files (*.*)\000*.*\000\000\000"; GetDlgItemText(hwnd, IDC_FILENAME, _STR2, 250); change_char(_STR2, '/', '\\'); if (strstr(_STR2, ".") == NULL) strncat(_STR2, ".ps", 250); if (GetSaveFileName(&ofn)) { change_char(_STR2, '\\', '/'); len = strlen(_STR2); if (len >= 3 && strncmp(_STR2+len-3, ".ps", 3) == 0) _STR2[len-3] = '\0'; SetDlgItemText(hwnd, IDC_FILENAME, _STR2); SendDlgItemMessage(hwnd, IDC_APPLY1, BM_CLICK, 0, 0); } } break; case IDC_APPLY1: case IDC_APPLY2: case IDC_APPLY3: case IDC_APPLY4: case IDC_APPLY5: case IDC_APPLY6: if (HIWORD(wParam) == BN_CLICKED) execute_callback(XtNselect, get_widget((HWND)lParam), NULL); break; case IDC_PAGENUM: case IDC_AUTOFIT: if (HIWORD(wParam) == BN_CLICKED) { if (SendMessage((HWND)lParam, BM_GETCHECK, 0, 0) == BST_CHECKED) execute_callback(XtNselect, get_widget((HWND)lParam), NULL); else execute_callback(XtNrelease, get_widget((HWND)lParam), NULL); } break; case IDC_MODE: if (HIWORD(wParam) == CBN_SELENDOK) execute_callback(XtNselect, get_widget((HWND)lParam), NULL); break; } break; default: return FALSE; } return TRUE; } extern int main(int argc, char **argv); int WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR cmdLine, int cmdShow) { LPWSTR *wargv; char **argv; int argc, i; wargv = CommandLineToArgvW(GetCommandLineW(), &argc); argv = (char**)malloc(sizeof(char*)*argc); for (i=0; ihandle); ZeroMemory(&mi_info, sizeof(mi_info)); mi_info.cbSize = sizeof(mi_info); mi_info.fMask = MIIM_DATA; for (i=0; found == NULL && ihandle, i, MF_BYPOSITION, &mi_info) && (item = (MenuItem)mi_info.dwItemData) != NULL) { if (item->name && strcmp(item->name, name) == 0) found = (Widget)item; else if (item->popup != NULL) found = find_menu_from_name(item->popup, name); } } return found; } Widget WinGetMenu(const char *name) { MENUINFO minfo; ZeroMemory(&minfo, sizeof(minfo)); minfo.cbSize = sizeof(minfo); minfo.fMask = MIM_MENUDATA; if (GetMenuInfo(GetMenu(topwin), &minfo)) { Menu menu = (Menu)minfo.dwMenuData; if (name == NULL || *name == '\0') return (Widget)menu; else return find_menu_from_name(menu, name); } return NULL; } int WinIsPopupMenu(Widget w) { if (IS_MENU(w) || (IS_MENUITEM(w) && TOMENUITEM(w)->popup != NULL)) return 1; return 0; } void exec_script_command(void *button, void *data) { #ifdef USE_WIN32_COM COM_execute(_STR2); #endif } void docommand() { popupprompt(NULL, "Enter command to execute:", "", exec_script_command, NULL, NULL); } #ifdef USE_WIN32_COM void win32_comscript() { COM_runscript(_STR2); } void win32_comdotnet() { COM_load_dotnet(_STR2); } #endif void win32_new_window(Widget w, void *clientData, void *callData) { XCWindowData *newwin = GUI_init(0, NULL); newwin->page = areawin->page; newwin->vscale = areawin->vscale; newwin->pcorner = areawin->pcorner; newwin->topinstance = areawin->topinstance; areawin = newwin; ShowWindow(top->handle, SW_SHOW); } xcircuit-3.9.73/xcircuit.h0000664000175000001440000015422713066337666014217 0ustar timusers/*----------------------------------------------------------------------*/ /* xcircuit.h */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* written by Tim Edwards, 8/20/93 */ /*----------------------------------------------------------------------*/ #ifndef HAVE_U_CHAR typedef unsigned char u_char; typedef unsigned short u_short; typedef unsigned int u_int; typedef unsigned long u_long; typedef unsigned long long u_long_long; #endif #ifdef XC_WIN32 #ifdef TCL_WRAPPER #include "tkwin32.h" #else #include "xcwin32.h" #endif #endif #ifdef HAVE_CAIRO #include #endif /*----------------------------------------------------------------------*/ /* portable definition to prevent unused variables warning */ /*----------------------------------------------------------------------*/ #define UNUSED(x) (void) x /*----------------------------------------------------------------------*/ /* Graphics functions defined for X11 */ /*----------------------------------------------------------------------*/ #ifdef HAVE_CAIRO #define SetForeground(display, gc, fg) xc_cairo_set_color(fg) typedef cairo_surface_t xcImage; #else /* !HAVE_CAIRO */ typedef XImage xcImage; #define DrawLine XDrawLine #define DrawLines XDrawLines #define DrawPoint XDrawPoint #define FillPolygon XFillPolygon #define SetForeground(dpy, gc, fg) XSetForeground(dpy, gc, colorlist[fg].color.pixel) #define SetBackground(dpy, gc, bg) XSetBackground(dpy, gc, colorlist[bg].color.pixel) #define SetThinLineAttributes XSetLineAttributes #define SetLineAttributes(a, b, c, d, e, f) \ XSetLineAttributes(a, b, ((c) >= 1.55 ? (int)(c + 0.45) : 0), d, e, f) #define SetDashes XSetDashes #define SetFillStyle XSetFillStyle #define SetStipple(a,b,c) XSetStipple(a,b,STIPPLE[c]) #endif /* !HAVE_CAIRO */ #define flusharea() /*----------------------------------------------------------------------*/ /* Redefinition of fprintf() allows redirection of output to a console */ /* in the Tcl interpreter-based version. */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER #define Fprintf tcl_printf #define Flush tcl_stdflush #else #define Fprintf fprintf #define Flush fflush #endif #ifdef TCL_WRAPPER #define malloc Tcl_Alloc /* (see definition of my_calloc in the asg subdirectory) */ /* #define calloc(a,b) Tcl_Alloc(a * b) */ #define free(a) Tcl_Free((char *)(a)) #define realloc(a,b) Tcl_Realloc((char *)(a), b) #undef strdup #define strdup Tcl_Strdup extern char *Tcl_Strdup(const char *); #endif /*----------------------------------------------------------------------*/ /* Deal with 32/64 bit processors based on autoconf results. */ /*----------------------------------------------------------------------*/ #ifndef SIZEOF_VOID_P #error "SIZEOF_VOID_P undefined!" #endif #ifndef SIZEOF_UNSIGNED_INT #error "SIZEOF_UNSIGNED_INT undefined!" #endif #ifndef SIZEOF_UNSIGNED_LONG #error "SIZEOF_UNSIGNED_LONG undefined!" #endif #ifndef SIZEOF_UNSIGNED_LONG_LONG #error "SIZEOF_UNSIGNED_LONG_LONG undefined!" #endif #if SIZEOF_VOID_P == SIZEOF_UNSIGNED_INT #define Number(a) (void *)((u_int) a) typedef u_int pointertype; #elif SIZEOF_VOID_P == SIZEOF_UNSIGNED_LONG #define Number(a) (void *)((u_long) a) typedef u_long pointertype; #elif SIZEOF_VOID_P == SIZEOF_UNSIGNED_LONG_LONG #define Number(a) (void *)((u_long_long) a) typedef u_long_long pointertype; #else ERROR: Cannot compile without knowing the size of a pointer. See xcircuit.h. #endif /*----------------------------------------------------------------------*/ /* Basic element types */ /* */ /* These values determine how a genericptr should be cast into one of */ /* labelptr, polyptr, etc. To query the element type, use the macros */ /* ELEMENTTYPE(), IS_LABEL(), IS_POLYGON(), etc. These macros mask the */ /* bit field. Note that an element marked with REMOVE_TAG will not be */ /* recognized as any valid element, but otherwise, querying the type is */ /* transparent to other bit settings (such as NETLIST_INVALID). */ /*----------------------------------------------------------------------*/ /* Single-bit flags */ #define OBJINST 0x01 #define LABEL 0x02 #define POLYGON 0x04 #define ARC 0x08 #define SPLINE 0x10 #define PATH 0x20 #define GRAPHIC 0x40 #define ARRAY 0x80 /* reserved; unused, for now. */ #define REMOVE_TAG 0x100 /* element to be removed from netlist */ #define NETLIST_INVALID 0x200 /* this element invalidates the netlist */ #define SELECT_HIDE 0x400 /* this element cannot be selected */ #define DRAW_HIDE 0x800 /* this element is not drawn. */ /* Bit fields */ #define ALL_TYPES (OBJINST | LABEL | POLYGON | ARC | SPLINE | PATH \ | GRAPHIC | ARRAY) #define VALID_TYPES (REMOVE_TAG | ALL_TYPES) /*----------------------------------------------------------------------*/ /* Definition shortcuts */ /*----------------------------------------------------------------------*/ #define XtnSetArg(a,b) XtSetArg(wargs[n], a, b); n++ #define abs(a) ((a) < 0 ? -(a) : (a)) #define sign(a) ((a) <= 0 ? -1 : 1) #ifndef min #define max(a,b) ((a) < (b) ? (b) : (a)) #define min(a,b) ((a) < (b) ? (a) : (b)) #endif /*----------------------------------------------------------------------*/ /* Lengthier define constructs */ /*----------------------------------------------------------------------*/ /* Names used for convenience throughout the source code */ #define eventmode areawin->event_mode #define topobject areawin->topinstance->thisobject #define hierobject areawin->hierstack->thisinst->thisobject #define PLIST_INCR(a) \ (a)->plist = (genericptr *) realloc ((a)->plist, \ ((a)->parts + 1) * sizeof(genericptr)) #define ENDPART topobject->plist + topobject->parts - 1 #define EDITPART topobject->plist + *areawin->selectlist /* Type checks (argument "a" is type genericptr) */ #define ELEMENTTYPE(a) ((a)->type & VALID_TYPES) #define IS_POLYGON(a) (ELEMENTTYPE(a) == POLYGON) #define IS_LABEL(a) (ELEMENTTYPE(a) == LABEL) #define IS_OBJINST(a) (ELEMENTTYPE(a) == OBJINST) #define IS_ARC(a) (ELEMENTTYPE(a) == ARC) #define IS_SPLINE(a) (ELEMENTTYPE(a) == SPLINE) #define IS_PATH(a) (ELEMENTTYPE(a) == PATH) #define IS_GRAPHIC(a) (ELEMENTTYPE(a) == GRAPHIC) #define IS_ARRAY(a) (ELEMENTTYPE(a) == ARRAY) /* Conversions from generic to specific types */ /* specifically, from type (genericptr *) to type (polyptr), etc. */ #define TOPOLY(a) (*((polyptr *)(a))) #define TOLABEL(a) (*((labelptr *)(a))) #define TOOBJINST(a) (*((objinstptr *)(a))) #define TOARC(a) (*((arcptr *)(a))) #define TOSPLINE(a) (*((splineptr *)(a))) #define TOPATH(a) (*((pathptr *)(a))) #define TOGRAPHIC(a) (*((graphicptr *)(a))) #define TOGENERIC(a) (*((genericptr *)(a))) /* conversions from a selection to a specific type */ #define SELTOGENERICPTR(a) ((areawin->hierstack == NULL) ? \ (topobject->plist + *(a)) : \ (hierobject->plist + *(a))) #define SELTOPOLY(a) TOPOLY(SELTOGENERICPTR(a)) #define SELTOLABEL(a) TOLABEL(SELTOGENERICPTR(a)) #define SELTOOBJINST(a) TOOBJINST(SELTOGENERICPTR(a)) #define SELTOARC(a) TOARC(SELTOGENERICPTR(a)) #define SELTOSPLINE(a) TOSPLINE(SELTOGENERICPTR(a)) #define SELTOPATH(a) TOPATH(SELTOGENERICPTR(a)) #define SELTOGRAPHIC(a) TOGRAPHIC(SELTOGENERICPTR(a)) #define SELTOGENERIC(a) TOGENERIC(SELTOGENERICPTR(a)) #define SELECTTYPE(a) ((SELTOGENERIC(a))->type & ALL_TYPES) #define SELTOCOLOR(a) ((SELTOGENERIC(a))->color) /* creation of new elements */ #define NEW_POLY(a,b) \ PLIST_INCR(b); \ a = (polyptr *)b->plist + b->parts; \ *a = (polyptr) malloc(sizeof(polygon)); \ b->parts++; \ (*a)->type = POLYGON #define NEW_LABEL(a,b) \ PLIST_INCR(b); \ a = (labelptr *)b->plist + b->parts; \ *a = (labelptr) malloc(sizeof(label)); \ b->parts++; \ (*a)->type = LABEL #define NEW_OBJINST(a,b) \ PLIST_INCR(b); \ a = (objinstptr *)b->plist + b->parts; \ *a = (objinstptr) malloc(sizeof(objinst)); \ b->parts++; \ (*a)->type = OBJINST #define NEW_ARC(a,b) \ PLIST_INCR(b); \ a = (arcptr *)b->plist + b->parts; \ *a = (arcptr) malloc(sizeof(arc)); \ b->parts++; \ (*a)->type = ARC #define NEW_SPLINE(a,b) \ PLIST_INCR(b); \ a = (splineptr *)b->plist + b->parts; \ *a = (splineptr) malloc(sizeof(spline)); \ b->parts++; \ (*a)->type = SPLINE #define NEW_PATH(a,b) \ PLIST_INCR(b); \ a = (pathptr *)b->plist + b->parts; \ *a = (pathptr) malloc(sizeof(path)); \ b->parts++; \ (*a)->type = PATH #define NEW_GRAPHIC(a,b) \ PLIST_INCR(b); \ a = (graphicptr *)b->plist + b->parts; \ *a = (graphicptr) malloc(sizeof(graphic)); \ b->parts++; \ (*a)->type = GRAPHIC /*----------------------------------------------------------------------*/ typedef struct { float x, y; } XfPoint; typedef struct { long x, y; } XlPoint; typedef struct { short width, ascent, descent, base; int maxwidth; } TextExtents; typedef struct { float *padding; /* Allocated array of padding info per line */ XPoint *tbreak; /* Position in text to stop */ short dostop; /* Location (index) in text to stop */ short line; /* Stop line number, if using dostop or tbreak. */ } TextLinesInfo; /*----------------------------------------------------------------------*/ /* Implementation-specific definitions */ /*----------------------------------------------------------------------*/ #define LIBS 5 /* initial number of library pages */ #define PAGES 10 /* default number of top-level pages */ #define SCALEFAC 1.5 /* zoom in/out scaling multiplier */ #define SUBSCALE 0.67 /* ratio of subscript size to normal script size */ #define SBARSIZE 13 /* Pixel size of the scrollbar */ #define RSTEPS 72 /* Number of points defining a circle approx. */ #define SPLINESEGS 20 /* Number of points per spline approximation */ #define DELBUFSIZE 10 /* Number of delete events to save for undeleting */ #define MINAUTOSCALE 0.75 /* Won't automatically scale closer than this */ #define MAXCHANGES 20 /* Number of changes to induce a temp file save */ #define STIPPLES 8 /* Number of predefined stipple patterns */ #define PADSPACE 10 /* Spacing of pinlabels from their origins */ #ifdef HAVE_XPM #define TBBORDER 1 /* border around toolbar buttons */ #endif #define TOPLEVEL 0 #define SINGLE 1 #define INTSEGS (SPLINESEGS - 2) #define LASTSEG (SPLINESEGS - 3) #define NOFILENAME (char *)(-1) #define FONTHEIGHT(y) (y->ascent + y->descent + 6) #define ROWHEIGHT FONTHEIGHT(appdata.xcfont) #define FILECHARASCENT (appdata.filefont->ascent) #define FILECHARHEIGHT (FILECHARASCENT + appdata.filefont->descent) #define LISTHEIGHT 200 #define TEXTHEIGHT 28 /* Height of xcircuit vectored font at nominal size */ #define BASELINE 40 /* Height of baseline */ #define DEFAULTGRIDSPACE 32 #define DEFAULTSNAPSPACE 16 /*----------------------------------------------------------------------*/ #define RADFAC 0.0174532925199 /* (pi / 180) */ #define INVRFAC 57.295779 /* (180 / pi) */ /*----------------------------------------------------------------------*/ #define INCHSCALE 0.375 /* Scale of .25 inches to PostScript units */ #define CMSCALE 0.35433071 /* Scale of .5 cm to PostScript units */ #define IN_CM_CONVERT 28.3464567 /* 72 (in) / 2.54 (cm/in) */ /*----------------------------------------------------------------------*/ /* Event mode definitions (state of drawing area) */ /*----------------------------------------------------------------------*/ typedef enum editmode { NORMAL_MODE = 0, /* On the drawing page, none of the situations below */ UNDO_MODE, /* In the process of an undo/redo operation */ MOVE_MODE, /* In the process of moving elements */ COPY_MODE, /* In the process of copying elements */ PAN_MODE, /* In the process of panning to follow the cursor */ SELAREA_MODE, /* Area selection box */ RESCALE_MODE, /* Interactive element rescaling box */ CATALOG_MODE, /* On a library page, library directory, or page directory */ CATTEXT_MODE, /* Editing an existing object name in the library */ FONTCAT_MODE, /* Accessing the font character page from TEXT_MODE */ EFONTCAT_MODE, /* Accessing the font character page from ETEXT_MODE */ TEXT_MODE, /* Creating a new label */ WIRE_MODE, /* Creating a new polygon (wire) */ BOX_MODE, /* Creating a new box */ ARC_MODE, /* Creating a new arc */ SPLINE_MODE, /* Creating a new spline */ ETEXT_MODE, /* Editing an exiting label */ EPOLY_MODE, /* Editing an existing polygon */ EARC_MODE, /* Editing an existing arc */ ESPLINE_MODE, /* Editing an existing spline */ EPATH_MODE, /* Editing an existing path */ EINST_MODE, /* Editing an instance (from the level above) */ ASSOC_MODE, /* Choosing an associated schematic or symbol */ CATMOVE_MODE /* Moving objects in or between libraries */ } event_mode_t; /*----------------------------------------------------------------------*/ /* File loading modes */ /*----------------------------------------------------------------------*/ enum loadmodes {IMPORT = 1, PSBKGROUND, SCRIPT, RECOVER, #ifdef ASG IMPORTSPICE, #endif #ifdef HAVE_CAIRO IMPORTGRAPHIC, #endif LOAD_MODES }; /*----------------------------------------------------------------------*/ /* Text anchoring styles and other parameters (bitmask) */ /*----------------------------------------------------------------------*/ #define NOTLEFT 1 /* Center or right anchoring */ #define RIGHT 2 /* Right anchoring */ #define NOTBOTTOM 4 /* Middle or top anchoring */ #define TOP 8 /* Top anchoring */ #define FLIPINV 16 /* 1 if text is flip-invariant */ #define PINVISIBLE 32 /* 1 if pin visible outside of object */ #define PINNOOFFSET 64 /* 0 if pin label offset from position */ #define LATEXLABEL 128 /* 1 if label is in LaTeX syntax */ #define JUSTIFYRIGHT 256 /* Right text justification */ #define JUSTIFYBOTH 512 /* Right and left text justification */ #define TEXTCENTERED 1024 /* Centered text */ #define RLANCHORFIELD 3 /* right-left anchoring bit field */ #define TBANCHORFIELD 12 /* top-bottom anchoring bit field */ #define NONANCHORFIELD 2032 /* everything but anchoring fields */ #define NONJUSTIFFIELD 255 /* everything but justification fields */ /*----------------------------------------------------------------------*/ /* Text string part: types */ /*----------------------------------------------------------------------*/ #define TEXT_STRING 0 /* data is a text string */ #define SUBSCRIPT 1 /* start subscript; no data */ #define SUPERSCRIPT 2 /* start superscript; no data */ #define NORMALSCRIPT 3 /* stop super-/subscript; no data */ #define UNDERLINE 4 /* start underline; no data */ #define OVERLINE 5 /* start overline; no data */ #define NOLINE 6 /* stop over-/underline; no data */ #define TABSTOP 7 /* insert tab stop position */ #define TABFORWARD 8 /* insert tab stop position */ #define TABBACKWARD 9 /* insert tab stop position */ #define HALFSPACE 10 /* insert half-space; no data */ #define QTRSPACE 11 /* insert quarter space; no data */ #define RETURN 12 /* carriage-return character; no data */ #define FONT_NAME 13 /* inline font designator; data = font name */ #define FONT_SCALE 14 /* font scale change; data = scale */ #define FONT_COLOR 15 /* font color change; data = color */ #define MARGINSTOP 16 /* declare a width limit for the text */ #define KERN 17 /* set new kern values; data = kern x, y */ #define PARAM_START 18 /* bounds a parameter; data = param key */ #define PARAM_END 19 /* bounds a parameter; no data */ /* Actions translated to keystates (numbering continues from above) */ #define TEXT_RETURN 20 #define TEXT_HOME 21 #define TEXT_END 22 #define TEXT_SPLIT 23 #define TEXT_DOWN 24 #define TEXT_UP 25 #define TEXT_LEFT 26 #define TEXT_RIGHT 27 #define TEXT_DELETE 28 #define TEXT_DEL_PARAM 29 #define SPECIAL 63 /* used only when called from menu */ #define NULL_TYPE 255 /* used as a placeholder */ /*----------------------------------------------------------------------*/ /* Reset modes */ /*----------------------------------------------------------------------*/ #define SAVE 1 #define DESTROY 2 /*----------------------------------------------------------------------*/ /* Coordinate display types */ /*----------------------------------------------------------------------*/ #define DEC_INCH 0 #define FRAC_INCH 1 #define CM 2 #define INTERNAL 3 /*----------------------------------------------------------------------*/ /* Library types */ /*----------------------------------------------------------------------*/ #define FONTENCODING -1 /* Used only by libopen() */ #define FONTLIB 0 #define PAGELIB 1 #define LIBLIB 2 #define LIBRARY 3 #define USERLIB (xobjs.numlibs + LIBRARY - 1) /*----------------------------------------------------------------------*/ /* Object instance styles */ /*----------------------------------------------------------------------*/ #define LINE_INVARIANT 1 /* Linewidth is invariant w.r.t. scale */ /*----------------------------------------------------------------------*/ /* Box styles */ /*----------------------------------------------------------------------*/ #define NORMAL 0 #define UNCLOSED 1 #define DASHED 2 #define DOTTED 4 #define NOBORDER 8 #define FILLED 16 #define STIP0 32 #define STIP1 64 #define STIP2 128 #define FILLSOLID 224 /* = 32 + 64 + 128 */ #ifdef OPAQUE #undef OPAQUE #endif #define OPAQUE 256 #define BBOX 512 #define SQUARECAP 1024 #define CLIPMASK 2048 /*----------------------------------------------------------------------*/ /* Box edit styles */ /*----------------------------------------------------------------------*/ #define NONE 0 #define MANHATTAN 1 #define RHOMBOIDX 2 #define RHOMBOIDY 4 #define RHOMBOIDA 8 /*----------------------------------------------------------------------*/ /* Path edit styles */ /*----------------------------------------------------------------------*/ #define TANGENTS 1 /* (NORMAL = 0) */ /*----------------------------------------------------------------------*/ /* Cycle points (selected points) (flag bits, can be OR'd together) */ /*----------------------------------------------------------------------*/ #define EDITX 0x01 #define EDITY 0x02 #define LASTENTRY 0x04 #define PROCESS 0x08 #define REFERENCE 0x10 #define ANTIXY 0x20 /* For matched-tangent curves */ /*----------------------------------------------------------------------*/ /* Arc creation and edit styles */ /*----------------------------------------------------------------------*/ #define CENTER 1 #define RADIAL 2 /*----------------------------------------------------------------------*/ /* Delete/undelete draw-mode styles */ /*----------------------------------------------------------------------*/ #define ERASE 1 #define DRAW 1 /*----------------------------------------------------------------------*/ /* Schematic object types and pin label types */ /*----------------------------------------------------------------------*/ #define PRIMARY 0 /* Primary (master) schematic page */ #define SECONDARY 1 /* Secondary (slave) schematic page */ #define TRIVIAL 2 /* Symbol as non-schematic element */ #define SYMBOL 3 /* Symbol associated with a schematic */ #define FUNDAMENTAL 4 /* Standalone symbol */ #define NONETWORK 5 /* Do not netlist this object */ #define GLYPH 6 /* Symbol is a font glyph */ #define LOCAL 1 #define GLOBAL 2 #define INFO 3 #define HIERARCHY_LIMIT 256 /* Stop if recursion goes this deep */ /*----------------------------------------------------------------------*/ /* Save types. This list incorporates "ALL_PAGES", below. */ /*----------------------------------------------------------------------*/ #define CURRENT_PAGE 0 /* Current page + all associated pages */ #define NO_SUBCIRCUITS 1 /* Current page w/o subcircuit pages */ /*----------------------------------------------------------------------*/ /* Modes used when ennumerating page totals. */ /*----------------------------------------------------------------------*/ #define INDEPENDENT 0 #define DEPENDENT 1 #define TOTAL_PAGES 2 #define LINKED_PAGES 3 #define PAGE_DEPEND 4 #define ALL_PAGES 5 /*----------------------------------------------------------------------*/ /* Color scheme styles (other than NORMAL) */ /*----------------------------------------------------------------------*/ #define INVERSE 1 /*----------------------------------------------------------------------*/ /* Cursor definitions */ /*----------------------------------------------------------------------*/ #define NUM_CURSORS 11 #define ARROW appcursors[0] #define CROSS appcursors[1] #define SCISSORS appcursors[2] #define COPYCURSOR appcursors[3] #define ROTATECURSOR appcursors[4] #define EDCURSOR appcursors[5] #define TEXTPTR appcursors[6] #define CIRCLE appcursors[7] #define QUESTION appcursors[8] #define WAITFOR appcursors[9] #define HAND appcursors[10] #define DEFAULTCURSOR (*areawin->defaultcursor) /*----------------------------------------------------------------------*/ /* integer and floating-point coordinate list structures */ /*----------------------------------------------------------------------*/ typedef XPoint* pointlist; typedef XfPoint* fpointlist; /*----------------------------------------------------------------------*/ /* Allowed parameterization types */ /*----------------------------------------------------------------------*/ enum paramwhich { P_NUMERIC = 0, /* uncommitted numeric parameter */ P_SUBSTRING, P_POSITION_X, P_POSITION_Y, P_STYLE, P_ANCHOR, P_ANGLE1, P_ANGLE2, P_RADIUS, P_MINOR_AXIS, P_ROTATION, P_SCALE, P_LINEWIDTH, P_COLOR, P_EXPRESSION, P_POSITION, /* mode only, not a real parameter */ NUM_PARAM_TYPES }; /*----------------------------------------------------------------------*/ /* Labels are constructed of strings and executables */ /*----------------------------------------------------------------------*/ typedef struct _stringpart *stringptr; typedef struct _stringpart { stringptr nextpart; u_char type; union { u_char *string; int color; int font; int width; int flags; float scale; short kern[2]; } data; } stringpart; /*----------------------------------------------------------------------*/ /* structures of all main elements which can be displayed & manipulated */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* Object & object instance parameter structure */ /* (Add types as necessary) */ /*----------------------------------------------------------------------*/ enum paramtypes {XC_INT = 0, XC_FLOAT, XC_STRING, XC_EXPR}; /* Object parameters: general key:value parameter model */ /* Note that this really should be a hash table, not a linked list. . . */ typedef struct _oparam *oparamptr; typedef struct _oparam { char * key; /* name of the parameter */ u_char type; /* type is from paramtypes list above */ u_char which; /* what the parameter represents (P_*) */ union { stringpart *string; /* xcircuit label type */ char *expr; /* TCL (string) expression */ int ivalue; /* also covers type short int by typecasting */ float fvalue; } parameter; /* default or substitution value */ oparamptr next; /* next parameter in linked list */ } oparam; /* Element parameters: reference back to the object's parameters */ /* These parameters are forward-substituted when descending into */ /* an object instance. */ /* Note that this really should be a hash table, not a linked list. . . */ typedef struct _eparam *eparamptr; typedef struct _eparam { char * key; /* name of the parameter */ u_char flags; /* namely, bit declaring an indirect parameter */ union { int pointno; /* point number in point array, for polygons */ short pathpt[2]; /* element number and point number, for paths */ char *refkey; /* parameter reference key, for instances */ } pdata; eparamptr next; /* next parameter in linked list */ } eparam; #define P_INDIRECT 0x01 /* indirect parameter indicator */ /*----------------------------------------------------------------------*/ /* Generic element type is a superset of all elements. */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; /* type is LABEL, POLYGON, etc., from below */ int color; eparamptr passed; } generic, *genericptr; /* (convenience function for retypecasting) */ /*----------------------------------------------------------------------*/ /* selection-mechanism structures */ /*----------------------------------------------------------------------*/ typedef struct { short number; genericptr *element; short *idx; } uselection; typedef struct { short number; u_char flags; } pointselect; /*----------------------------------------------------------------------*/ /* Bounding box */ /*----------------------------------------------------------------------*/ typedef struct { XPoint lowerleft; Dimension width, height; } BBox; /*----------------------------------------------------------------------*/ /* Object instance type */ /*----------------------------------------------------------------------*/ typedef struct _xcobject *objectptr; typedef struct { u_short type; int color; eparamptr passed; /* numerical parameters passed from above */ u_short style; XPoint position; float rotation; float scale; objectptr thisobject; oparamptr params; /* parameter substitutions for this instance */ BBox bbox; /* per-instance bounding box information */ BBox *schembbox; /* Extra bounding box for pin labels */ } objinst, *objinstptr; /* Linked-list for objects */ typedef struct _objlist *objlistptr; typedef struct _objlist { int libno; /* library in which object appears */ objectptr thisobject; /* pointer to the object */ objlistptr next; } objlist; /* Linked-list for object instances */ typedef struct _pushlist *pushlistptr; typedef struct _pushlist { objinstptr thisinst; char *clientdata; /* general-purpose record */ pushlistptr next; } pushlist; /* Same as above, but for the list of instances in a library, so it */ /* needs an additional record showing whether or not the instance is */ /* "virtual" (not the primary library instance of the object) */ typedef struct _liblist *liblistptr; typedef struct _liblist { objinstptr thisinst; u_char virtual; liblistptr next; } liblist; /*----------------------------------------------------------------------*/ /* Generalized graphic object (Tcl/Tk only) */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; int color; /* foreground, for bitmaps only */ eparamptr passed; /* numerical parameters passed from above */ XPoint position; float rotation; float scale; xcImage *source; /* source data */ #ifndef HAVE_CAIRO xcImage *target; /* target (scaled) data */ float trot; /* target rotation */ float tscale; /* target scale (0 = uninitialized) */ Pixmap clipmask; /* clipmask for non-manhattan rotations */ Boolean valid; /* does target need to be regenerated? */ #endif /* !HAVE_CAIRO */ } graphic, *graphicptr; /*----------------------------------------------------------------------*/ /* Label */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; int color; eparamptr passed; /* numerical parameters passed from above */ pointselect *cycle; /* Edit position(s), or NULL */ XPoint position; float rotation; float scale; u_short anchor; u_char pin; stringpart *string; } label, *labelptr; /*----------------------------------------------------------------------*/ /* Polygon */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; int color; eparamptr passed; /* numerical parameters passed from above */ u_short style; float width; pointselect *cycle; /* Edit position(s), or NULL */ short number; pointlist points; } polygon, *polyptr; /*----------------------------------------------------------------------*/ /* Bezier Curve */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; int color; eparamptr passed; /* numerical parameters passed from above */ u_short style; float width; pointselect *cycle; /* Edit position(s), or NULL */ XPoint ctrl[4]; /* the following are for rendering only */ XfPoint points[INTSEGS]; } spline, *splineptr; /*----------------------------------------------------------------------*/ /* Arc */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; int color; eparamptr passed; /* numerical parameters passed from above */ u_short style; float width; pointselect *cycle; /* Edit position(s), or NULL */ short radius; /* x-axis radius */ short yaxis; /* y-axis radius */ float angle1; /* endpoint angles, in degrees */ float angle2; XPoint position; /* the following are for rendering only */ short number; XfPoint points[RSTEPS + 1]; } arc, *arcptr; /*----------------------------------------------------------------------*/ /* Path */ /*----------------------------------------------------------------------*/ typedef struct { u_short type; int color; eparamptr passed; /* numerical parameters passed from above */ u_short style; float width; short parts; genericptr *plist; /* to be retypecast to polygon, arc, or spline */ } path, *pathptr; /*----------------------------------------------------------------------*/ /* selection from top-level object */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* Undo mechanism definitions */ /*----------------------------------------------------------------------*/ enum UNDO_MODES {UNDO_DONE = 0, UNDO_MORE, MODE_CONNECT, MODE_RECURSE_WIDE, MODE_RECURSE_NARROW}; typedef struct _selection *selectionptr; typedef struct _selection { int selects; short *selectlist; objinstptr thisinst; selectionptr next; } selection; #define select_element(a) recurse_select_element(a, UNDO_MORE) #define select_add_element(a) recurse_select_element(a, UNDO_DONE) #define easydraw(a, b) geneasydraw(a, b, topobject, areawin->topinstance) /*----------------------------------------------------------------------*/ /* Netlist structures for schematic capture */ /*----------------------------------------------------------------------*/ /* Structure to hold net and subnet IDs for a bus */ typedef struct { int netid; int subnetid; } buslist; /* Structure mimicking the top part of a Polylist or Labellist */ /* when we just want the netlist information and don't care */ /* which one we're looking at. */ typedef struct { union { int id; buslist *list; } net; int subnets; } Genericlist; /* Linked polygon list */ typedef struct _Polylist *PolylistPtr; typedef struct _Polylist { union { int id; /* A single net ID, if subnets == 0 */ buslist *list; /* List of net and subnet IDs for a bus */ } net; int subnets; /* Number of subnets; 0 if no subnets */ objectptr cschem; /* Schematic containing the polygon */ polyptr poly; PolylistPtr next; /* Next polygon in the linked list */ } Polylist; /* Linked label list */ typedef struct _Labellist *LabellistPtr; typedef struct _Labellist { union { int id; /* A single net ID, if subnets == 0 */ buslist *list; /* List of net and subnet IDs for a bus */ } net; int subnets; /* Number of subnets; 0 if no subnets */ objectptr cschem; /* Schematic containing the label */ objinstptr cinst; /* Specific label instance, if applicable */ labelptr label; LabellistPtr next; } Labellist; /* List of object's networks by (flattened) name */ typedef struct _Netname *NetnamePtr; typedef struct _Netname { int netid; stringpart *localpin; NetnamePtr next; } Netname; /* List of object's I/O ports */ typedef struct _Portlist *PortlistPtr; typedef struct _Portlist { int portid; int netid; PortlistPtr next; } Portlist; /* List of calls to instances of objects */ /* or subcircuit objects. */ typedef struct _Calllist *CalllistPtr; typedef struct _Calllist { objectptr cschem; /* Schematic containing the instance called */ objinstptr callinst; /* Instance called */ objectptr callobj; /* Object of instance called */ char *devname; /* if non-null, name of device in netlist */ int devindex; /* if non-negative, index of device in netlist */ PortlistPtr ports; CalllistPtr next; } Calllist; /* PCB netlist structures */ struct Pnet { int numnets; int *netidx; struct Pnet *next; }; struct Pstr { stringpart *string; struct Pstr *next; }; struct Ptab { objectptr cschem; struct Pnet *nets; struct Pstr *pins; struct Ptab *next; }; /*----------------------------------------------------------------------*/ /* Information needed to highlight a net */ /*----------------------------------------------------------------------*/ typedef struct { Genericlist *netlist; objinstptr thisinst; } Highlight; /*----------------------------------------------------------------------*/ /* Main object structure */ /*----------------------------------------------------------------------*/ typedef struct _xcobject { char name[80]; u_short changes; /* Number of unsaved changes to object */ Boolean hidden; float viewscale; XPoint pcorner; /* position relative to window */ BBox bbox; /* bounding box information (excluding */ /* parameterized elements) */ short parts; genericptr *plist; /* to be retypecast to label, polygon, etc. */ oparamptr params; /* list of parameters, with default values */ Highlight highlight; /* net to be highlighted on redraw */ u_char schemtype; objectptr symschem; /* schematic page support */ Boolean valid; /* Is current netlist valid? */ Boolean traversed; /* Flag to indicate object was processed */ LabellistPtr labels; /* Netlist pins */ PolylistPtr polygons; /* Netlist wires */ PortlistPtr ports; /* Netlist ports */ CalllistPtr calls; /* Netlist subcircuits and connections */ Boolean infolabels; /* TRUE if object contains info-labels */ NetnamePtr netnames; /* Local names for flattening */ /* (this probably shouldn't be here. . .) */ } object; /*----------------------------------------------------------------------*/ /* Transformation matrices */ /* Works like this (see also PostScript reference manual): */ /* [x' y' 1] = [x y 1] * | a d 0 | */ /* | b e 0 | */ /* | c f 1 | */ /*----------------------------------------------------------------------*/ typedef struct _matrix *Matrixptr; typedef struct _matrix { float a, b, c, d, e, f; Matrixptr nextmatrix; } Matrix; /*----------------------------------------------------------------------*/ /* Some convenience functions for matrix manipulation */ /*----------------------------------------------------------------------*/ #define DCTM areawin->MatStack /*----------------------------------------------------------------------*/ /* button tap/press definitions */ /*----------------------------------------------------------------------*/ #define PRESSTIME 200 /* milliseconds of push to be a "press" */ /*----------------------------------------------------------------------*/ /* object name alias structures */ /*----------------------------------------------------------------------*/ typedef struct _stringlist *slistptr; typedef struct _stringlist { char *alias; slistptr next; } stringlist; typedef struct _alias *aliasptr; typedef struct _alias { objectptr baseobj; /* pointer to object (actual name) */ slistptr aliases; /* linked list of alias names */ aliasptr next; } alias; /*----------------------------------------------------------------------*/ /* To facilitate compiling the Tcl/Tk version, we make some convenient */ /* definitions for types "xc..." and "Xc..." which can be mapped both */ /* to X and Xt or to Tk functions and types. */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER #define xcWidget Tk_Window #define xcWidgetList Tk_Window * #define xcAddEventHandler(a,b,c,d,e) Tk_CreateEventHandler(a,b,d,e) #define xcRemoveEventHandler(a,b,c,d,e) Tk_DeleteEventHandler(a,b,d,e) #define xcEventHandler Tk_EventProc * #define xcWindow Tk_WindowId #define xcIsRealized Tk_IsMapped /* not sure this is right */ #define xcScreen Tk_Screen #define xcParent Tk_Parent #define xcDispatchEvent(a) Tk_HandleEvent(a) #define xcAddTimeOut(a, b, c, d) Tcl_CreateTimerHandler((int)(b), c, d) #define xcRemoveTimeOut Tcl_DeleteTimerHandler #define xcTimeOutProc Tcl_TimerProc * #define xcIntervalId Tcl_TimerToken #else #define xcWidget Widget #define xcWidgetList WidgetList #define xcAddEventHandler XtAddEventHandler #define xcRemoveEventHandler XtRemoveEventHandler #define xcEventHandler XtEventHandler #define xcWindow XtWindow #define xcIsRealized XtIsRealized #define xcScreen XtScreen #define xcParent XtParent #define xcDispatchEvent(a) XtDispatchEvent(a) #define xcAddTimeOut XtAppAddTimeOut #define xcRemoveTimeOut XtRemoveTimeOut #define xcTimeOutProc XtTimerCallbackProc #define xcIntervalId XtIntervalId #ifndef ClientData #define ClientData XtPointer #endif #endif /*----------------------------------------------------------------------*/ /* structures for managing the popup prompt widgets */ /*----------------------------------------------------------------------*/ typedef struct { xcWidget button; int foreground; void (*buttoncall)(); void *dataptr; } buttonsave; typedef struct { xcWidget popup; /* Popup widget */ xcWidget textw; /* Text entry widget */ xcWidget filew; /* File list window */ xcWidget scroll; /* Scrollbar widget */ void (*setvalue)(); /* Callback function */ buttonsave *buttonptr; /* Button widget calling popup */ char *filter; /* Extension filter for highlighting */ /* files. NULL for no file window. */ /* NULL-string for no highlights. */ } popupstruct; typedef struct { xcWidget textw; xcWidget buttonw; void (*setvalue)(); void *dataptr; } propstruct; typedef struct { char *filename; int filetype; } fileliststruct; enum {DIRECTORY = 0, MATCH, NONMATCH}; /* file types */ /*----------------------------------------------------------------------*/ /* Initial Resource Management */ /*----------------------------------------------------------------------*/ typedef struct { /* schematic layout colors */ Pixel globalcolor, localcolor, infocolor, ratsnestcolor; /* non-schematic layout color(s) */ Pixel bboxpix, clipcolor; /* color scheme 1 */ Pixel fg, bg; Pixel gridpix, snappix, selectpix, axespix; Pixel buttonpix, filterpix, auxpix, barpix, parampix; /* color scheme 2 */ Pixel fg2, bg2; Pixel gridpix2, snappix2, selectpix2, axespix2; Pixel buttonpix2, auxpix2, parampix2; int width, height, timeout; XFontStruct *filefont; #ifndef TCL_WRAPPER XFontStruct *xcfont, *textfont, *titlefont, *helpfont; #endif } ApplicationData, *ApplicationDataPtr; /*----------------------------------------------------------------------*/ /* Macros for GC color and function handling */ /*----------------------------------------------------------------------*/ #define XTopSetForeground(a) if (a == DEFAULTCOLOR) SetForeground(dpy, \ areawin->gc, FOREGROUND); else SetForeground(dpy, areawin->gc, a) #define XcTopSetForeground(z) XTopSetForeground(z); areawin->gccolor = \ ((z) == DEFAULTCOLOR) ? FOREGROUND : (z) #define XcSetForeground(z) SetForeground(dpy, areawin->gc, z); \ areawin->gccolor = z /*----------------------------------------------------------------------*/ /* Structure for maintaining list of colors */ /*----------------------------------------------------------------------*/ typedef struct { xcWidget cbutton; XColor color; } colorindex; /*----------------------------------------------------------------------*/ /* Font information structure */ /*----------------------------------------------------------------------*/ /* Flags: bit description */ /* 0 bold = 1, normal = 0 */ /* 1 italic = 1, normal = 0 */ /* 2 */ /* 3 drawn = 1, PostScript = 0 */ /* 4 */ /* 5 special encoding = 1, Standard Encoding = 0 */ /* 6 ISOLatin1 = 2, ISOLatin2 = 3 */ /* 7+ */ /*----------------------------------------------------------------------*/ typedef struct { char *psname; char *family; float scale; u_short flags; objectptr *encoding; #ifdef HAVE_CAIRO const char **utf8encoding; cairo_font_face_t *font_face; unsigned long glyph_index[256]; double glyph_top[256]; double glyph_bottom[256]; double glyph_advance[256]; #endif /* HAVE_CAIRO */ } fontinfo; /*----------------------------------------------------------------------*/ typedef struct { char *name; BBox bbox; } psbkground; /*----------------------------------------------------------------------*/ /* Key macro information */ /*----------------------------------------------------------------------*/ typedef struct _keybinding *keybindingptr; typedef struct _keybinding { xcWidget window; /* per-window function, or NULL */ int keywstate; int function; short value; keybindingptr nextbinding; } keybinding; /*----------------------------------------------------------------------*/ /* Enumeration of functions available for binding to keys/buttons */ /* IMPORTANT! Do not alter this list without also fixing the text */ /* in keybindings.c! */ /*----------------------------------------------------------------------*/ enum { XCF_ENDDATA = -2, XCF_SPACER /* -1 */, XCF_Page /* 0 */, XCF_Anchor /* 1 */, XCF_Superscript /* 2 */, XCF_Subscript /* 3 */, XCF_Normalscript /* 4 */, XCF_Font /* 5 */, XCF_Boldfont /* 6 */, XCF_Italicfont /* 7 */, XCF_Normalfont /* 8 */, XCF_Underline /* 9 */, XCF_Overline /* 10 */, XCF_ISO_Encoding /* 11 */, XCF_Halfspace /* 12 */, XCF_Quarterspace /* 13 */, XCF_Special /* 14 */, XCF_TabStop /* 15 */, XCF_TabForward /* 16 */, XCF_TabBackward /* 17 */, XCF_Text_Return /* 18 */, XCF_Text_Delete /* 19 */, XCF_Text_Right /* 20 */, XCF_Text_Left /* 21 */, XCF_Text_Up /* 22 */, XCF_Text_Down /* 23 */, XCF_Text_Split /* 24 */, XCF_Text_Home /* 25 */, XCF_Text_End /* 26 */, XCF_Linebreak /* 27 */, XCF_Parameter /* 28 */, XCF_Edit_Param /* 29 */, XCF_ChangeStyle /* 30 */, XCF_Edit_Delete /* 31 */, XCF_Edit_Insert /* 32 */, XCF_Edit_Append /* 33 */, XCF_Edit_Next /* 34 */, XCF_Attach /* 35 */, XCF_Next_Library /* 36 */, XCF_Library_Directory /* 37 */, XCF_Library_Move /* 38 */, XCF_Library_Copy /* 39 */, XCF_Library_Edit /* 40 */, XCF_Library_Delete /* 41 */, XCF_Library_Duplicate /* 42 */, XCF_Library_Hide /* 43 */, XCF_Library_Virtual /* 44 */, XCF_Page_Directory /* 45 */, XCF_Library_Pop /* 46 */, XCF_Virtual /* 47 */, XCF_Help /* 48 */, XCF_Redraw /* 49 */, XCF_View /* 50 */, XCF_Zoom_In /* 51 */, XCF_Zoom_Out /* 52 */, XCF_Pan /* 53 */, XCF_Double_Snap /* 54 */, XCF_Halve_Snap /* 55 */, XCF_Write /* 56 */, XCF_Rotate /* 57 */, XCF_Flip_X /* 58 */, XCF_Flip_Y /* 59 */, XCF_Snap /* 60 */, XCF_SnapTo /* 61 */, XCF_Pop /* 62 */, XCF_Push /* 63 */, XCF_Delete /* 64 */, XCF_Select /* 65 */, XCF_Box /* 66 */, XCF_Arc /* 67 */, XCF_Text /* 68 */, XCF_Exchange /* 69 */, XCF_Copy /* 70 */, XCF_Move /* 71 */, XCF_Join /* 72 */, XCF_Unjoin /* 73 */, XCF_Spline /* 74 */, XCF_Edit /* 75 */, XCF_Undo /* 76 */, XCF_Redo /* 77 */, XCF_Select_Save /* 78 */, XCF_Unselect /* 79 */, XCF_Dashed /* 80 */, XCF_Dotted /* 81 */, XCF_Solid /* 82 */, XCF_Prompt /* 83 */, XCF_Dot /* 84 */, XCF_Wire /* 85 */, XCF_Cancel /* 86 */, XCF_Nothing /* 87 */, XCF_Exit /* 88 */, XCF_Netlist /* 89 */, XCF_Swap /* 90 */, XCF_Pin_Label /* 91 */, XCF_Pin_Global /* 92 */, XCF_Info_Label /* 93 */, XCF_Graphic /* 94 */, XCF_SelectBox /* 95 */, XCF_Connectivity /* 96 */, XCF_Continue_Element /* 97 */, XCF_Finish_Element /* 98 */, XCF_Continue_Copy /* 99 */, XCF_Finish_Copy /* 100 */, XCF_Finish /* 101 */, XCF_Cancel_Last /* 102 */, XCF_Sim /* 103 */, XCF_SPICE /* 104 */, XCF_PCB /* 105 */, XCF_SPICEflat /* 106 */, XCF_Rescale /* 107 */, XCF_Reorder /* 108 */, XCF_Color /* 109 */, XCF_Margin_Stop /* 110 */, XCF_Text_Delete_Param /* 111 */, NUM_FUNCTIONS }; /*----------------------------------------------------------------------*/ /* Per-drawing-page parameters */ /*----------------------------------------------------------------------*/ typedef struct { /* per-drawing-page parameters */ objinstptr pageinst; char *filename; /* file to save as */ u_char idx; /* page index */ psbkground background; /* background rendered file info */ float wirewidth; float outscale; float gridspace; float snapspace; short orient; short pmode; short coordstyle; XPoint drawingscale; XPoint pagesize; /* size of page to print on */ XPoint margins; } Pagedata; /*----------------------------------------------------------------------*/ /* Structure holding information about graphic images used. These hold */ /* the original data for the images, and may be shared. */ /*----------------------------------------------------------------------*/ typedef struct { xcImage *image; int refcount; char *filename; } Imagedata; /*----------------------------------------------------------------------*/ /* The main globally-accessible data structure. This structure holds */ /* all the critical data needed by the drawing window */ /*----------------------------------------------------------------------*/ typedef struct _windowdata *XCWindowDataPtr; typedef struct _windowdata { XCWindowDataPtr next; /* next window in list */ /* widgets and X11 parameters */ xcWidget area; xcWidget scrollbarh, scrollbarv; int panx, pany; Window window; GC gc; #ifndef HAVE_CAIRO Pixmap clipmask; Pixmap pbuf; /* clipmask buffer for hierarchical clipping */ signed char clipped; GC cmgc; #endif /* !HAVE_CAIRO */ int gccolor; xcIntervalId time_id; Boolean redraw_needed; Boolean redraw_ongoing; #ifdef HAVE_CAIRO cairo_surface_t *surface; cairo_t *cr; /* cairo_drawing context */ cairo_pattern_t *fixed_pixmap; /* pixmap holding the background data of */ /* all fixed element. ie. not including the */ /* element currently being edited. */ #else /* HAVE_CAIRO */ Pixmap fixed_pixmap; #endif /* HAVE_CAIRO */ /* global page parameters */ short width, height; short page; float vscale; /* proper scale */ XPoint pcorner; /* page position */ /* global option defaults */ float textscale; float linewidth; float zoomfactor; short psfont; u_short anchor; u_short style; int color; short filter; /* selection filter */ Boolean manhatn; Boolean boxedit; Boolean pathedit; Boolean snapto; Boolean bboxon; Boolean center; Boolean gridon; Boolean axeson; Boolean invert; Boolean mapped; /* indicates if window is drawable */ char buschar; /* Character indicating vector notation */ Boolean editinplace; Boolean pinpointon; Boolean pinattach; /* keep wires attached to pins when moving objinsts */ Boolean showclipmasks; /* draw clipmask shape outlines */ #ifndef TCL_WRAPPER #ifdef HAVE_XPM Boolean toolbar_on; #endif #endif /* buffers and associated variables */ XPoint save, origin; short selects; short *selectlist; short attachto; short lastlibrary; short textpos; short textend; objinstptr topinstance; objectptr editstack; Matrixptr MatStack; pushlistptr stack; pushlistptr hierstack; event_mode_t event_mode; char *lastbackground; Cursor *defaultcursor; } XCWindowData; /* Record for undo function */ typedef struct _undostack *Undoptr; typedef struct _undostack { Undoptr next; /* next record in undo stack */ Undoptr last; /* double-linked for "redo" function */ u_int type; /* type of event */ short idx; /* counter for undo event */ objinstptr thisinst; /* instance of object in which event occurred */ XCWindowData *window;/* window in which event occurred */ int idata; /* simple undedicated integer datum */ char *undodata; /* free space to be malloc'd */ /* (size dependent on "type") */ } Undostack; /* This whole thing needs to be cleaned up. . . now I've got objects in */ /* "library" which are repeated both in the "instlist" pair and the */ /* "thisobject" pointer in each instance. The instance is repeated on */ /* the library page. Ideally, the instance list should only exist on */ /* the library page, and not be destroyed on every call to "composelib" */ typedef struct { short number; objectptr *library; liblistptr instlist; /* List of instances */ } Library; typedef struct _Technology *TechPtr; typedef struct _Technology { u_char flags; /* Flags for library page (changed, read-only) */ char *technology; /* Namespace name (without the "::") */ char *filename; /* Library file associated with technology */ TechPtr next; /* Linked list */ } Technology; /* Known flags for library pages */ #define TECH_CHANGED 0x01 #define TECH_READONLY 0x02 /* Technology file not writable */ #define TECH_IMPORTED 0x04 /* Loaded only part of file */ #define TECH_REPLACE 0x08 /* Replace instances when reading */ #define TECH_REPLACE_TEMP 0x10 /* Temporary store */ #define TECH_USED 0x20 /* Temporary marker flag */ /*----------------------------------------------------------------------*/ /* A convenient structure for holding all the object lists */ /*----------------------------------------------------------------------*/ typedef struct { char *libsearchpath; /* list of directories to search */ char *filesearchpath; /* list of directories to search */ char *tempfile; char *tempdir; Boolean retain_backup; xcIntervalId timeout_id; int save_interval; Boolean filefilter; /* Is the file list filtered? */ Boolean hold; /* allow HOLD modifiers on buttons */ Boolean showtech; /* Write technology names in library */ u_short new_changes; signed char suspend; /* suspend graphics updates if TRUE */ short numlibs; short pages; Pagedata **pagelist; Undoptr undostack; /* actions to undo */ Undoptr redostack; /* actions to redo */ Library fontlib; Library *userlibs; TechPtr technologies; objinstptr *libtop; Imagedata *imagelist; short images; XCWindowData *windowlist; /* linked list of known windows */ } Globaldata; /*-------------------------------------------------------------------------*/ /* Track state of the ghostscript renderer */ /*-------------------------------------------------------------------------*/ typedef enum { GS_INIT, /* Initial state; gs is idle. */ GS_PENDING, /* Drawing in progress; gs is busy. */ GS_READY /* Drawing done; gs is waiting for "next". */ } gs_state_t; /*-------------------------------------------------------------------------*/ /* For the eventmodes (ARC_MODE, EARC_MODE, SPLINE_MODE, etc) the drawing */ /* and/or redrawing of the elements is centralized in functions */ /* corresponding to the eventmode name (arc_mode_draw, spline_mode_draw, */ /* etc.). Depending on the state these functions clear, draw or whatever */ /* is needed. A description of the options follows below */ /* fixed_pixmap refers to the background pixmap without the element(s) */ /* currently being edited. */ /*-------------------------------------------------------------------------*/ typedef enum { xcDRAW_INIT, /* Initalize fixed_pixmap and draw the element(s) */ /* element(s) currently being edited, including */ /* edit lines. */ xcDRAW_EDIT, /* Draw the currently edited element(s), including */ /* edit lines. */ xcDRAW_FINAL, /* Draw the finalized element(s), without edit */ /* lines to the fixed_pixmap */ xcDRAW_EMPTY, /* Refresh the screen by drawing the fixed_pixmap */ /* This essentially clear the edited elements */ xcREDRAW_FORCED /* Redraws everything, including edit lines. Only */ /* used in drawarea. This one should be called */ /* when something has changed (eg. zoom). */ /* It will redraw the fixed_pixmap */ } xcDrawType; /*----------------------------------------------------------------------*/ /* structures previously defined in menudefs.h */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* Menu Definitions for hierarchical pulldown menus */ /*----------------------------------------------------------------------*/ #ifndef TCL_WRAPPER typedef struct _menustruct *menuptr; typedef struct _menustruct { char *name; menuptr submenu; short size; XtCallbackProc func; void *passeddata; } menustruct; /*----------------------------------------------------------------------*/ /* Structure for calling routines from the Toolbar icons */ /*----------------------------------------------------------------------*/ typedef struct _toolbarstruct *toolbarptr; typedef struct _toolbarstruct { char *name; char **icon_data; XtCallbackProc func; void *passeddata; char *hint; } toolbarstruct; #endif /* Menus and Toolbars are taken care of entirely by scripts in the Tcl/ */ /* Tk version of xcircuit. */ /*----------------------------------------------------------------------*/ xcircuit-3.9.73/TODO0000664000175000001440000000510612335667422012665 0ustar timusersXcircuit v3.x Things To Do (file TODO) ---------------------------------------------------------------------- Bugs to fix: 1) Positional parameters cause incorrect redisplay during polygon/path edit (display reverts to original value). Insertion of points must renumber parameterized points. 2) Position parameters have serious consequences for netlisting, in that they can cause an object's netlist to change on a per-instance basis. This should be either dealt with or prevented. 3) Substring selection in labels is backwards when the "flip invariance" feature has rotated the text string 180 degrees. 4) Colormap installation may be incomplete if xcircuit runs out of colors in the middle of running the program (minor problem; unlikely to happen). 5) Color and Page menus run off the top and bottom of the screen if the lists get to be too long. ---------------------------------------------------------------------- Features to add or change: 1) Graphic element, still to be addressed: A) Incorporate raw PostScript by using ghostscript to generate PPM data, and handling it like a PPM file, but treating it in file input/output as an encapsulated PostScript block. This should replace the current background rendering code. B) Rewrite the image processing routines to clip the size of the target image when outside screen bounds. Cropped images must be declared invalid on pan operations. C) Page saves for backup should not write the graphic image, or at least should not write it more than once (write it to a separate file?) 2) Create a Tcl command to return the value of countchanges(), and make "quitcheck" a Tcl script, avoiding all the Tcl_Eval() calls there. 3) Allow page label to be changed from the label on the bottom message bar. 4) Vectored font output in PostScript. 5) Proper cornering on dot/dashed boxes (maybe easier to do in xcircuit and enforce WYSIWYG in PostScript?) 6) Switch to all-floating-point internal units? ---probably not necessary, but converting all XPoints to structures with ints would be helpful. 7) Comprehensive dependency list for allowing/disallowing menu functions (key function dependencies have been dealt with). 8) Page indices need to be separated from the pagelist indices, so that schematic library objects can be loaded and manipulated without having to be displayed in the page list. 9) Need to translate the Python routines for handling the "generic" netlist output to Tcl. ---------------------------------------------------------------------- xcircuit-3.9.73/resources.rc0000664000175000001440000000574112335667423014543 0ustar timusers#include #include "resource.h" ///////////////////////////////////////////////////////////////////////////// // // Icons // xcircuit ICON DISCARDABLE "lib\\pixmaps\\xcircuit.ico" ///////////////////////////////////////////////////////////////////////////// // // Dialog // IDD_INPUTDIALOG DIALOG DISCARDABLE 0, 0, 186, 63 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION CAPTION "XCircuit" FONT 8, "MS Sans Serif" BEGIN DEFPUSHBUTTON "OK",IDOK,7,42,50,14 PUSHBUTTON "Cancel",IDCANCEL,129,42,50,14 LTEXT "Static",IDC_INFOTEXT,7,7,172,8 EDITTEXT IDC_EDIT1,7,20,172,12,ES_AUTOHSCROLL END IDD_HELPDLG DIALOG DISCARDABLE 0, 0, 186, 332 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU CAPTION "Help" FONT 8, "MS Sans Serif" BEGIN DEFPUSHBUTTON "OK",IDOK,67,311,50,14 CONTROL "",IDC_HELPPIX,"XcHelp",WS_VSCROLL,7,7,160,297 END IDD_OUTPUTDLG DIALOG DISCARDABLE 0, 0, 272, 193 STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU CAPTION "Output" FONT 8, "MS Sans Serif" BEGIN DEFPUSHBUTTON "Write File",IDOK,206,172,59,14 PUSHBUTTON "Cancel",IDCANCEL,7,172,50,14 LTEXT "Postscript output properties:",IDC_PSINFO,7,7,127,12, SS_CENTERIMAGE CONTROL "Pages",IDC_PAGENUM,"Button",BS_AUTOCHECKBOX | NOT WS_VISIBLE | WS_TABSTOP,144,7,74,12 EDITTEXT IDC_FILENAME,49,27,146,12,ES_AUTOHSCROLL LTEXT "Filename:",IDC_STATIC1,7,29,41,8 PUSHBUTTON "Apply",IDC_APPLY1,215,26,50,14 EDITTEXT IDC_PAGELABEL,49,47,158,12,ES_AUTOHSCROLL LTEXT "Page label:",IDC_STATIC2,7,49,41,8 PUSHBUTTON "Apply",IDC_APPLY2,215,46,50,14 EDITTEXT IDC_SCALE,49,67,158,12,ES_AUTOHSCROLL LTEXT "Scale:",IDC_STATIC3,7,69,40,8 PUSHBUTTON "Apply",IDC_APPLY3,215,66,50,14 EDITTEXT IDC_WIDTH,49,87,158,12,ES_AUTOHSCROLL LTEXT "Width:",IDC_STATIC4,7,89,40,8 PUSHBUTTON "Apply",IDC_APPLY4,215,86,50,14 EDITTEXT IDC_HEIGHT,49,107,158,12,ES_AUTOHSCROLL LTEXT "Height:",IDC_STATIC5,7,109,40,8 PUSHBUTTON "Apply",IDC_APPLY5,215,106,50,14 LTEXT "Orientation:",IDC_STATIC6,7,130,42,8 COMBOBOX IDC_ORIENTATION,49,128,77,52,CBS_DROPDOWNLIST | CBS_SORT | WS_TABSTOP CONTROL "Auto-fit",IDC_AUTOFIT,"Button",BS_AUTOCHECKBOX | NOT WS_VISIBLE | WS_TABSTOP,135,129,38,10 LTEXT "Mode:",IDC_STATIC7,7,149,41,8 COMBOBOX IDC_MODE,49,147,77,52,CBS_DROPDOWNLIST | CBS_SORT | WS_TABSTOP PUSHBUTTON "Apply",IDC_APPLY6,215,146,50,14,NOT WS_VISIBLE EDITTEXT IDC_FPEDIT,135,147,72,12,ES_AUTOHSCROLL | NOT WS_VISIBLE PUSHBUTTON "...",IDC_FILEOPEN,195,27,12,12,NOT WS_TABSTOP END ///////////////////////////////////////////////////////////////////////////// // // REGISTRY // #ifdef USE_WIN32_COM 1 TYPELIB "XCCom.tlb" #endif xcircuit-3.9.73/selection.c0000664000175000001440000014357013134756465014342 0ustar timusers/*-------------------------------------------------------------------------*/ /* selection.c --- xcircuit routines handling element selection etc. */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* written by Tim Edwards, 8/13/93 */ /*-------------------------------------------------------------------------*/ #include #include #include #include #ifndef XC_WIN32 #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #endif #endif /*-------------------------------------------------------------------------*/ /* Local includes */ /*-------------------------------------------------------------------------*/ #include "xcircuit.h" #include "colordefs.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* Exported Variable definitions */ /*----------------------------------------------------------------------*/ extern Display *dpy; extern Cursor appcursors[NUM_CURSORS]; extern XCWindowData *areawin; extern Globaldata xobjs; extern char _STR[150]; extern int number_colors; extern colorindex *colorlist; #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #endif /*----------------------------------------------------------------------*/ /* Prevent a list of elements from being selected. */ /*----------------------------------------------------------------------*/ void disable_selects(objectptr thisobject, short *selectlist, int selects) { genericptr genptr; short *i; for (i = selectlist; i < selectlist + selects; i++) { genptr = *(thisobject->plist + *i); genptr->type |= SELECT_HIDE; } } /*----------------------------------------------------------------------*/ /* Allow a list of elements to be selected, if they were disabled using */ /* the disable_selects() routine. */ /*----------------------------------------------------------------------*/ void enable_selects(objectptr thisobject, short *selectlist, int selects) { genericptr genptr; short *i; for (i = selectlist; i < selectlist + selects; i++) { genptr = *(thisobject->plist + *i); genptr->type &= ~(SELECT_HIDE); } } /*----------------------------------------------------------------------*/ /* Change filter to determine what types can be selected */ /*----------------------------------------------------------------------*/ void selectfilter(xcWidget w, pointertype value, caddr_t calldata) { short bitwise = (short)value; Boolean bval = (areawin->filter & bitwise) ? True : False; if (bval) areawin->filter &= ~bitwise; else areawin->filter |= bitwise; #ifndef TCL_WRAPPER toggle(w, (pointertype)&bval, calldata); #endif } /*----------------------------------------------------------------------*/ /* Look at select stack to see if there are any selects; call select, */ /* if not. If draw_selected is True, then the selected items are drawn */ /* in the select color. Otherwise, they are not redrawn. */ /*----------------------------------------------------------------------*/ Boolean checkselect_draw(short value, Boolean draw_selected) { short *check; value &= areawin->filter; /* apply the selection filter */ if (areawin->selects == 0) { if (draw_selected) select_element(value); else { Boolean save_redraw = areawin->redraw_needed; select_element(value); areawin->redraw_needed = save_redraw; } } if (areawin->selects == 0) return False; for (check = areawin->selectlist; check < areawin->selectlist + areawin->selects; check++) if (SELECTTYPE(check) & value) break; if (check == areawin->selectlist + areawin->selects) return False; else return True; } /*----------------------------------------------------------------------------*/ /* Look at select stack to see if there are any selects; call select, if not. */ /*----------------------------------------------------------------------------*/ Boolean checkselect(short value) { return checkselect_draw(value, False); } /*--------------------------------------------------------------*/ /* Select list numbering revision when an element is deleted */ /* from an object. */ /*--------------------------------------------------------------*/ void reviseselect(short *slist, int selects, short *removed) { short *chkselect; for (chkselect = slist; chkselect < slist + selects; chkselect++) if (*chkselect > *removed) (*chkselect)--; } /*----------------------*/ /* Draw a selected item */ /*----------------------*/ void geneasydraw(short instance, int mode, objectptr curobj, objinstptr curinst) { genericptr elementptr = *(curobj->plist + instance); #ifdef HAVE_CAIRO cairo_save(areawin->cr); cairo_reset_clip(areawin->cr); #else // Note: Setting areawin->clipped to -1 prevents the clipmask from being // applied to elements, areawin->clipped = -1; #endif /* HAVE_CAIRO */ switch (ELEMENTTYPE(*(curobj->plist + instance))) { case ARC: UDrawArc((arcptr)elementptr, xobjs.pagelist[areawin->page]->wirewidth); break; case POLYGON: UDrawPolygon((polyptr)elementptr, xobjs.pagelist[areawin->page]->wirewidth); break; case SPLINE: UDrawSpline((splineptr)elementptr, xobjs.pagelist[areawin->page]->wirewidth); break; case PATH: UDrawPath((pathptr)elementptr, xobjs.pagelist[areawin->page]->wirewidth); break; case LABEL: UDrawString((labelptr)elementptr, mode, curinst); break; case OBJINST: UDrawObject((objinstptr)elementptr, SINGLE, mode, xobjs.pagelist[areawin->page]->wirewidth, NULL); break; case GRAPHIC: UDrawGraphic((graphicptr)elementptr); break; } #ifdef HAVE_CAIRO cairo_restore(areawin->cr); #else areawin->clipped = 0; #endif /* HAVE_CAIRO */ } /*-------------------------------------------------*/ /* Draw a selected item, including selection color */ /*-------------------------------------------------*/ void gendrawselected(short *newselect, objectptr curobj, objinstptr curinst) { if (*newselect >= curobj->parts) return; // Safety check XcSetForeground(SELECTCOLOR); geneasydraw(*newselect, DOFORALL, curobj, curinst); SetForeground(dpy, areawin->gc, AUXCOLOR); indicateparams(*(curobj->plist + *newselect)); SetForeground(dpy, areawin->gc, areawin->gccolor); } /*---------------------------------------------------*/ /* Allocate or reallocate memory for a new selection */ /*---------------------------------------------------*/ short *allocselect() { short *newselect; if (areawin->selects == 0) areawin->selectlist = (short *) malloc(sizeof(short)); else areawin->selectlist = (short *) realloc(areawin->selectlist, (areawin->selects + 1) * sizeof(short)); newselect = areawin->selectlist + areawin->selects; areawin->selects++; return newselect; } /*-------------------------------------------------*/ /* Set Options menu according to 1st selection */ /*-------------------------------------------------*/ void setoptionmenu() { short *mselect; labelptr mlabel; if (areawin->selects == 0) { setallstylemarks(areawin->style); setcolormark(areawin->color); setdefaultfontmarks(); setparammarks(NULL); return; } for (mselect = areawin->selectlist; mselect < areawin->selectlist + areawin->selects; mselect++) { setcolormark(SELTOCOLOR(mselect)); setparammarks(SELTOGENERIC(mselect)); switch(SELECTTYPE(mselect)) { case ARC: setallstylemarks(SELTOARC(mselect)->style); return; case POLYGON: setallstylemarks(SELTOPOLY(mselect)->style); return; case SPLINE: setallstylemarks(SELTOSPLINE(mselect)->style); return; case PATH: setallstylemarks(SELTOPATH(mselect)->style); return; case LABEL: mlabel = SELTOLABEL(mselect); setfontmarks(mlabel->string->data.font, mlabel->anchor); return; } } } /*-------------------------------------*/ /* Test of point being inside of a box */ /*-------------------------------------*/ int test_insideness(int tx, int ty, XPoint *boxpoints) { int i, stval = 0; XPoint *pt1, *pt2; int stdir; for (i = 0; i < 4; i++) { pt1 = boxpoints + i; pt2 = boxpoints + ((i + 1) % 4); stdir = (pt2->x - pt1->x) * (ty - pt1->y) - (pt2->y - pt1->y) * (tx - pt1->x); stval += sign(stdir); } return (abs(stval) == 4) ? 1 : 0; } /*--------------------------------------------*/ /* Search for selection among path components */ /*--------------------------------------------*/ #define RANGE_NARROW 11.5 #define RANGE_WIDE 50 Boolean pathselect(genericptr *curgen, short class, float range) { /*----------------------------------------------------------------------*/ /* wirelim is the distance, in user-space units, at which an element is */ /* considered for selection. */ /* */ /* wirelim = A + B / (scale + C) */ /* */ /* where A = minimum possible distance (expands range at close scale) */ /* C = minimum possible scale (contract range at far scale) */ /* B makes wirelim approx. 25 at default scale of 0.5, which */ /* is an empirical result. */ /*----------------------------------------------------------------------*/ float wirelim = 2 + range / (areawin->vscale + 0.05); long sqrwirelim = (int)(wirelim * wirelim); long newdist; Boolean selected = False; class &= areawin->filter; /* apply the selection filter */ if ((*curgen)->type == (class & ARC)) { /* look among the arcs */ fpointlist currentpt; XPoint nearpt[3]; nearpt[2].x = nearpt[0].x = (short)(TOARC(curgen)->points[0].x); nearpt[2].y = nearpt[0].y = (short)(TOARC(curgen)->points[0].y); for (currentpt = TOARC(curgen)->points + 1; currentpt < TOARC(curgen)->points + TOARC(curgen)->number; currentpt++) { nearpt[1].x = nearpt[0].x; nearpt[1].y = nearpt[0].y; nearpt[0].x = (short)(currentpt->x); nearpt[0].y = (short)(currentpt->y); newdist = finddist(&nearpt[0], &nearpt[1], &areawin->save); if (newdist <= sqrwirelim) break; } if ((!(TOARC(curgen)->style & UNCLOSED)) && (newdist > sqrwirelim)) newdist = finddist(&nearpt[0], &nearpt[2], &areawin->save); if (newdist <= sqrwirelim) selected = True; } else if ((*curgen)->type == (class & SPLINE)) { /* look among the splines --- look at polygon representation */ fpointlist currentpt; XPoint nearpt[2]; nearpt[0].x = (short)(TOSPLINE(curgen)->points[0].x); nearpt[0].y = (short)(TOSPLINE(curgen)->points[0].y); newdist = finddist(&(TOSPLINE(curgen)->ctrl[0]), &(nearpt[0]), &areawin->save); if (newdist > sqrwirelim) { for (currentpt = TOSPLINE(curgen)->points; currentpt < TOSPLINE(curgen)->points + INTSEGS; currentpt++) { nearpt[1].x = nearpt[0].x; nearpt[1].y = nearpt[0].y; nearpt[0].x = (short)(currentpt->x); nearpt[0].y = (short)(currentpt->y); newdist = finddist(&nearpt[0], &nearpt[1], &areawin->save); if (newdist <= sqrwirelim) break; } if (newdist > sqrwirelim) { newdist = finddist(&nearpt[0], &(TOSPLINE(curgen)->ctrl[3]), &areawin->save); if ((!(TOSPLINE(curgen)->style & UNCLOSED)) && (newdist > sqrwirelim)) newdist = finddist(&(TOSPLINE(curgen)->ctrl[0]), &(TOSPLINE(curgen)->ctrl[3]), &areawin->save); } } if (newdist <= sqrwirelim) selected = True; } else if ((*curgen)->type == (class & POLYGON)) { /* finally, look among the polygons */ pointlist currentpt; for (currentpt = TOPOLY(curgen)->points; currentpt < TOPOLY(curgen) ->points + TOPOLY(curgen)->number - 1; currentpt++) { newdist = finddist(currentpt, currentpt + 1, &areawin->save); if (newdist <= sqrwirelim) break; } if ((!(TOPOLY(curgen)->style & UNCLOSED)) && (newdist > sqrwirelim)) newdist = finddist(currentpt, TOPOLY(curgen)->points, &areawin->save); if (newdist <= sqrwirelim) selected = True; } return selected; } /*------------------------------------------------------*/ /* Check to see if any selection has registered cycles */ /*------------------------------------------------------*/ Boolean checkforcycles(short *selectlist, int selects) { genericptr pgen; pointselect *cycptr; short *ssel; for (ssel = selectlist; ssel < selectlist + selects; ssel++) { pgen = SELTOGENERIC(ssel); switch(pgen->type) { case POLYGON: cycptr = ((polyptr)pgen)->cycle; break; case ARC: cycptr = ((arcptr)pgen)->cycle; break; case SPLINE: cycptr = ((splineptr)pgen)->cycle; break; case LABEL: cycptr = ((labelptr)pgen)->cycle; break; } if (cycptr != NULL) if (cycptr->number != -1) return True; } return False; } /*--------------------------------------------------------------*/ /* Copy a cycle selection list from one element to another */ /*--------------------------------------------------------------*/ void copycycles(pointselect **new, pointselect **old) { pointselect *pptr; short cycles = 0; if (*old == NULL) { *new = NULL; return; } for (pptr = *old; !(pptr->flags & LASTENTRY); pptr++, cycles++); cycles += 2; *new = (pointselect *)malloc(cycles * sizeof(pointselect)); memcpy(*new, *old, cycles * sizeof(pointselect)); } /*--------------------------------------------------------------*/ /* Create a selection record of selected points in an element. */ /* If a record already exists, and "cycle" is not already in */ /* the list, add it. */ /* "flags" may be set to EDITX or EDITY. If "flags" is zero, */ /* then flags = EDITX | EDITY is assumed. */ /*--------------------------------------------------------------*/ pointselect *addcycle(genericptr *pgen, short cycle, u_char flags) { polyptr ppoly; arcptr parc; splineptr pspline; labelptr plabel; pointselect *pptr, **cycptr; short cycles = 0; switch((*pgen)->type) { case POLYGON: ppoly = TOPOLY(pgen); cycptr = &ppoly->cycle; break; case ARC: parc = TOARC(pgen); cycptr = &parc->cycle; break; case SPLINE: pspline = TOSPLINE(pgen); cycptr = &pspline->cycle; break; case LABEL: plabel = TOLABEL(pgen); cycptr = &plabel->cycle; break; } switch((*pgen)->type) { case POLYGON: case ARC: case SPLINE: case LABEL: // To-do: Handle labels separately if (*cycptr == NULL) { *cycptr = (pointselect *)malloc(sizeof(pointselect)); pptr = *cycptr; pptr->number = cycle; pptr->flags = (flags == 0) ? EDITX | EDITY : flags; pptr->flags |= LASTENTRY; } else { for (pptr = *cycptr; !(pptr->flags & LASTENTRY); pptr++, cycles++) { if (pptr->number == cycle) break; pptr->flags &= ~LASTENTRY; } if (pptr->number != cycle) { pptr->flags &= ~LASTENTRY; *cycptr = (pointselect *)realloc(*cycptr, (cycles + 2) * sizeof(pointselect)); pptr = *cycptr + cycles + 1; pptr->number = cycle; pptr->flags = (flags == 0) ? EDITX | EDITY : flags; pptr->flags |= LASTENTRY; } else { pptr->flags |= (flags == 0) ? EDITX | EDITY : flags; } } break; } return pptr; } /*--------------------------------------------------------------*/ /* If we edit the position of a control point, and the global */ /* pathedit mode is set to TANGENTS, then we track the angle of */ /* the adjoining curve, if there is one, by settings its cycle */ /* flags to ANTIXY. */ /*--------------------------------------------------------------*/ void addanticycle(pathptr thispath, splineptr thisspline, short cycle) { genericptr *ggen, *rgen; splineptr otherspline; if (areawin->pathedit == TANGENTS) { for (ggen = thispath->plist; ggen < thispath->plist + thispath->parts; ggen++) if (*ggen == (genericptr)thisspline) break; if (*ggen != (genericptr)thisspline) return; /* Something went wrong */ if (cycle == 1) { if (ggen > thispath->plist) { if (ELEMENTTYPE(*(ggen - 1)) == SPLINE) { addcycle(ggen - 1, 2, ANTIXY); } } else if (!(thispath->style & UNCLOSED)) { rgen = thispath->plist + thispath->parts - 1; if (ELEMENTTYPE(*rgen) == SPLINE) { otherspline = TOSPLINE(rgen); if (thisspline->ctrl[0].x == otherspline->ctrl[3].x && thisspline->ctrl[0].y == otherspline->ctrl[3].y) addcycle(rgen, 2, ANTIXY); } } } else if (cycle == 2) { /* cycle should be only 1 or 2 */ if (ggen < thispath->plist + thispath->parts - 1) { if (ELEMENTTYPE(*(ggen + 1)) == SPLINE) { addcycle(ggen + 1, 1, ANTIXY); } } else if (!(thispath->style & UNCLOSED)) { rgen = thispath->plist; if (ELEMENTTYPE(*rgen) == SPLINE) { otherspline = TOSPLINE(rgen); if (thisspline->ctrl[3].x == otherspline->ctrl[0].x && thisspline->ctrl[3].y == otherspline->ctrl[0].y) addcycle(rgen, 1, ANTIXY); } } } } } /*--------------------------------------------------------------*/ /* Find the cycle numbered "cycle", and mark it as the */ /* reference point. */ /*--------------------------------------------------------------*/ void makerefcycle(pointselect *cycptr, short cycle) { pointselect *pptr, *sptr; for (pptr = cycptr;; pptr++) { if (pptr->flags & REFERENCE) { pptr->flags &= ~REFERENCE; break; } if (pptr->flags & LASTENTRY) break; } for (sptr = cycptr;; sptr++) { if (sptr->number == cycle) { sptr->flags |= REFERENCE; break; } if (sptr->flags & LASTENTRY) break; } /* If something went wrong, revert to the original reference */ if (!(sptr->flags & REFERENCE)) { pptr->flags |= REFERENCE; } } /* Original routine, used 1st entry as reference (deprecated) */ void makefirstcycle(pointselect *cycptr, short cycle) { pointselect *pptr, tmpp; for (pptr = cycptr;; pptr++) { if (pptr->number == cycle) { /* swap with first entry */ tmpp = *cycptr; *cycptr = *pptr; *pptr = tmpp; if (cycptr->flags & LASTENTRY) { cycptr->flags &= ~LASTENTRY; pptr->flags |= LASTENTRY; } return; } if (pptr->flags & LASTENTRY) break; } } /*------------------------------------------------------------------------------*/ /* Advance a cycle (point) selection from value "cycle" to value "newvalue" */ /* If "newvalue" is < 0 then remove the cycle. */ /* */ /* If there is only one cycle point on the element, then advance its point */ /* number. If there are multiple points on the element, then change the */ /* reference point by moving the last item in the list to the front. */ /*------------------------------------------------------------------------------*/ void advancecycle(genericptr *pgen, short newvalue) { polyptr ppoly; arcptr parc; splineptr pspline; labelptr plabel; pointselect *pptr, *endptr, *fcycle, **cycptr, tmpcyc; short cycles = 0; if (newvalue < 0) { removecycle(pgen); return; } switch((*pgen)->type) { case POLYGON: ppoly = TOPOLY(pgen); cycptr = &ppoly->cycle; break; case ARC: parc = TOARC(pgen); cycptr = &parc->cycle; break; case SPLINE: pspline = TOSPLINE(pgen); cycptr = &pspline->cycle; break; case LABEL: plabel = TOLABEL(pgen); cycptr = &plabel->cycle; break; } if (*cycptr == NULL) return; /* Remove any cycles that have only X or Y flags set. */ /* "Remove" them by shuffling them to the end of the list, */ /* and marking the one in front as the last entry. */ for (endptr = *cycptr; !(endptr->flags & LASTENTRY); endptr++); pptr = *cycptr; while (pptr < endptr) { if ((pptr->flags & (EDITX | EDITY)) != (EDITX | EDITY)) { tmpcyc = *endptr; *endptr = *pptr; *pptr = tmpcyc; pptr->flags &= ~LASTENTRY; endptr->number = -1; endptr--; endptr->flags |= LASTENTRY; } else pptr++; } if (pptr->flags & LASTENTRY) { if ((pptr->flags & (EDITX | EDITY)) != (EDITX | EDITY)) { pptr->flags &= ~LASTENTRY; pptr->number = -1; endptr--; endptr->flags |= LASTENTRY; } } /* Now advance the cycle */ pptr = *cycptr; if (pptr->flags & LASTENTRY) { pptr->number = newvalue; } else { fcycle = *cycptr; for (pptr = fcycle + 1;; pptr++) { if (pptr->flags & (EDITX | EDITY)) fcycle = pptr; if (pptr->flags & LASTENTRY) break; } makerefcycle(*cycptr, fcycle->number); } } /*--------------------------------------*/ /* Remove a cycle (point) selection */ /*--------------------------------------*/ void removecycle(genericptr *pgen) { polyptr ppoly; pathptr ppath; arcptr parc; splineptr pspline; labelptr plabel; pointselect *pptr, **cycptr = NULL; genericptr *pathgen; switch((*pgen)->type) { case POLYGON: ppoly = TOPOLY(pgen); cycptr = &ppoly->cycle; break; case ARC: parc = TOARC(pgen); cycptr = &parc->cycle; break; case SPLINE: pspline = TOSPLINE(pgen); cycptr = &pspline->cycle; break; case LABEL: plabel = TOLABEL(pgen); cycptr = &plabel->cycle; break; case PATH: ppath = TOPATH(pgen); for (pathgen = ppath->plist; pathgen < ppath->plist + ppath->parts; pathgen++) removecycle(pathgen); break; } if (cycptr == NULL) return; if (*cycptr == NULL) return; free(*cycptr); *cycptr = NULL; } /*--------------------------------------*/ /* Remove cycles from all parts of a */ /* path other than the one passed */ /*--------------------------------------*/ void removeothercycles(pathptr ppath, genericptr pathpart) { genericptr *pathgen; for (pathgen = ppath->plist; pathgen < ppath->plist + ppath->parts; pathgen++) if (*pathgen != pathpart) removecycle(pathgen); } /*--------------------------------------*/ /* Select one of the elements on-screen */ /*--------------------------------------*/ selection *genselectelement(short class, u_char mode, objectptr selobj, objinstptr selinst) { selection *rselect = NULL; /* short *newselect; (jdk) */ genericptr *curgen; XPoint newboxpts[4]; Boolean selected; float range = RANGE_NARROW; if (mode == MODE_RECURSE_WIDE) range = RANGE_WIDE; /* Loop through all elements found underneath the cursor */ for (curgen = selobj->plist; curgen < selobj->plist + selobj->parts; curgen++) { selected = False; /* Check among polygons, arcs, and curves */ if (((*curgen)->type == (class & POLYGON)) || ((*curgen)->type == (class & ARC)) || ((*curgen)->type == (class & SPLINE))) { selected = pathselect(curgen, class, range); } else if ((*curgen)->type == (class & LABEL)) { /* Look among the labels */ labelptr curlab = TOLABEL(curgen); /* Don't select temporary labels from schematic capture system */ if (curlab->string->type != FONT_NAME) continue; labelbbox(curlab, newboxpts, selinst); /* Need to check for zero-size boxes or test_insideness() */ /* fails. Zero-size boxes happen when labels are parameters */ /* set to a null string. */ if ((newboxpts[0].x != newboxpts[1].x) || (newboxpts[0].y != newboxpts[1].y)) { /* check for point inside bounding box, as for objects */ selected = test_insideness(areawin->save.x, areawin->save.y, newboxpts); if (selected) areawin->textpos = areawin->textend = 0; } } else if ((*curgen)->type == (class & GRAPHIC)) { /* Look among the graphic images */ graphicptr curg = TOGRAPHIC(curgen); graphicbbox(curg, newboxpts); /* check for point inside bounding box, as for objects */ selected = test_insideness(areawin->save.x, areawin->save.y, newboxpts); } else if ((*curgen)->type == (class & PATH)) { /* Check among the paths */ genericptr *pathp; /* Accept path if any subcomponent of the path is accepted */ for (pathp = TOPATH(curgen)->plist; pathp < TOPATH(curgen)->plist + TOPATH(curgen)->parts; pathp++) if (pathselect(pathp, SPLINE|ARC|POLYGON, range)) { selected = True; break; } } else if ((*curgen)->type == (class & OBJINST)) { objinstbbox(TOOBJINST(curgen), newboxpts, range); /* Look for an intersect of the boundingbox and pointer position. */ /* This is a simple matter of rotating the pointer position with */ /* respect to the origin of the bounding box segment, as if the */ /* segment were rotated to 0 degrees. The sign of the resulting */ /* point's y-position is the same for all bbox segments if the */ /* pointer position is inside the bounding box. */ selected = test_insideness(areawin->save.x, areawin->save.y, newboxpts); } /* Add this object to the list of things found under the cursor */ if (selected) { if (rselect == NULL) { rselect = (selection *)malloc(sizeof(selection)); rselect->selectlist = (short *)malloc(sizeof(short)); rselect->selects = 0; rselect->thisinst = selinst; rselect->next = NULL; } else { rselect->selectlist = (short *)realloc(rselect->selectlist, (rselect->selects + 1) * sizeof(short)); } *(rselect->selectlist + rselect->selects) = (short)(curgen - selobj->plist); rselect->selects++; } } return rselect; } /*----------------------------------------------------------------*/ /* select arc, curve, and polygon objects from a defined box area */ /*----------------------------------------------------------------*/ Boolean areaelement(genericptr *curgen, XPoint *boxpts, Boolean is_path, short level) { Boolean selected; pointlist currentpt; short cycle; switch(ELEMENTTYPE(*curgen)) { case(ARC): /* check center of arcs */ selected = test_insideness(TOARC(curgen)->position.x, TOARC(curgen)->position.y, boxpts); break; case(POLYGON): /* check each point of the polygons */ selected = False; cycle = 0; for (currentpt = TOPOLY(curgen)->points; currentpt < TOPOLY(curgen)->points + TOPOLY(curgen)->number; currentpt++, cycle++) { if (test_insideness(currentpt->x, currentpt->y, boxpts)) { selected = True; if (level == 0) addcycle(curgen, cycle, 0); } } break; case(SPLINE): /* check each control point of the spline */ selected = False; if (test_insideness(TOSPLINE(curgen)->ctrl[0].x, TOSPLINE(curgen)->ctrl[0].y, boxpts)) { selected = True; if (level == 0) addcycle(curgen, 0, 0); } if (test_insideness(TOSPLINE(curgen)->ctrl[3].x, TOSPLINE(curgen)->ctrl[3].y, boxpts)) { selected = True; if (level == 0) addcycle(curgen, 3, 0); } break; } return selected; } /*--------------------------------------------*/ /* select all objects from a defined box area */ /*--------------------------------------------*/ Boolean selectarea(objectptr selobj, XPoint *boxpts, short level) { short *newselect; genericptr *curgen, *pathgen; Boolean selected; stringpart *strptr; int locpos, cx, cy, hwidth, hheight; objinstptr curinst; XPoint newboxpts[4]; if (selobj == topobject) { areawin->textpos = areawin->textend = 0; } for (curgen = selobj->plist; curgen < selobj->plist + selobj->parts; curgen++) { /* apply the selection filter */ if (!((*curgen)->type & areawin->filter)) continue; switch(ELEMENTTYPE(*curgen)) { case(OBJINST): curinst = TOOBJINST(curgen); /* An object instance is selected if any part of it is */ /* selected on a recursive area search. */ InvTransformPoints(boxpts, newboxpts, 4, curinst->position, curinst->scale, curinst->rotation); selected = selectarea(curinst->thisobject, newboxpts, level + 1); break; case(GRAPHIC): /* check for graphic image center point inside area box */ selected = test_insideness(TOGRAPHIC(curgen)->position.x, TOGRAPHIC(curgen)->position.y, boxpts); break; case(LABEL): { XPoint adj; labelptr slab = TOLABEL(curgen); short j, state, isect, tmpl1, tmpl2; int padding; TextExtents tmpext; TextLinesInfo tlinfo; selected = False; /* Ignore temporary labels created by the netlist generator */ if (slab->string->type != FONT_NAME) break; /* Ignore info and pin labels that are not on the top level */ if ((selobj != topobject) && (slab->pin != False)) break; /* translate select box into the coordinate system of the label */ InvTransformPoints(boxpts, newboxpts, 4, slab->position, slab->scale, slab->rotation); if (slab->pin) { for (j = 0; j < 4; j++) pinadjust(slab->anchor, &(newboxpts[j].x), &(newboxpts[j].y), -1); } tlinfo.dostop = 0; tlinfo.tbreak = NULL; tlinfo.padding = NULL; tmpext = ULength(slab, areawin->topinstance, &tlinfo); adj.x = (slab->anchor & NOTLEFT ? (slab->anchor & RIGHT ? tmpext.maxwidth : tmpext.maxwidth >> 1) : 0); adj.y = (slab->anchor & NOTBOTTOM ? (slab->anchor & TOP ? tmpext.ascent : (tmpext.ascent + tmpext.base) >> 1) : tmpext.base); /* Label selection: For each character in the label string, */ /* do an insideness test with the select box. */ state = tmpl2 = 0; for (j = 0; j < stringlength(slab->string, True, areawin->topinstance); j++) { strptr = findstringpart(j, &locpos, slab->string, areawin->topinstance); if (locpos < 0) continue; /* only look at printable characters */ if (strptr->type == RETURN) tmpl2 = 0; tmpl1 = tmpl2; tlinfo.dostop = j + 1; tmpext = ULength(slab, areawin->topinstance, &tlinfo); tmpl2 = tmpext.maxwidth; if ((slab->anchor & JUSTIFYRIGHT) && tlinfo.padding) padding = (int)tlinfo.padding[tlinfo.line]; else if ((slab->anchor & TEXTCENTERED) && tlinfo.padding) padding = (int)(0.5 * tlinfo.padding[tlinfo.line]); else padding = 0; isect = test_insideness(((tmpl1 + tmpl2) >> 1) - adj.x + padding, (tmpext.base + (BASELINE >> 1)) - adj.y, newboxpts); /* tiny state machine */ if (state == 0) { if (isect) { state = 1; selected = True; areawin->textend = j; if ((areawin->textend > 1) && strptr->type != TEXT_STRING) areawin->textend--; } } else { if (!isect) { areawin->textpos = j; state = 2; break; } } } if (state == 1) areawin->textpos = j; /* selection goes to end of string */ if (tlinfo.padding != NULL) free(tlinfo.padding); /* If a label happens to be empty (can happen in the case of */ /* a label with parameters that are all empty strings), then */ /* check if the bounding box surrounds the label position. */ else if (tmpext.width == 0) { isect = test_insideness(0, 0, newboxpts); if (isect) { selected = True; areawin->textend = 1; } } } break; case(PATH): /* check position point of each subpart of the path */ selected = False; for (pathgen = TOPATH(curgen)->plist; pathgen < TOPATH(curgen)->plist + TOPATH(curgen)->parts; pathgen++) { if (areaelement(pathgen, boxpts, True, level)) selected = True; } break; default: selected = areaelement(curgen, boxpts, False, level); break; } /* on recursive searches, return as soon as we find something */ if ((selobj != topobject) && selected) return TRUE; /* check if this part has already been selected */ if (selected) for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) if (*newselect == (short)(curgen - topobject->plist)) selected = False; /* add to list of selections */ if (selected) { newselect = allocselect(); *newselect = (short)(curgen - topobject->plist); } } if (selobj != topobject) return FALSE; setoptionmenu(); /* if none or > 1 label has been selected, cancel any textpos placement */ if (!checkselect(LABEL) || areawin->selects != 1 || (areawin->selects == 1 && SELECTTYPE(areawin->selectlist) != LABEL)) { areawin->textpos = areawin->textend = 0; } /* Register the selection as an undo event */ register_for_undo(XCF_Select, UNDO_DONE, areawin->topinstance, areawin->selectlist, areawin->selects); /* Drawing of selected objects will take place when drawarea() is */ /* executed after the button release. */ #ifdef TCL_WRAPPER if (xobjs.suspend < 0) XcInternalTagCall(xcinterp, 2, "select", "here"); #endif return selected; } /*------------------------*/ /* start deselection mode */ /*------------------------*/ void startdesel(xcWidget w, caddr_t clientdata, caddr_t calldata) { if (eventmode == NORMAL_MODE) { if (areawin->selects == 0) Wprintf("Nothing to deselect!"); else if (areawin->selects == 1) unselect_all(); } } /*------------------------------------------------------*/ /* Redraw all the selected objects in the select color. */ /*------------------------------------------------------*/ void draw_all_selected() { int j; if (areawin->hierstack != NULL) return; for (j = 0; j < areawin->selects; j++) gendrawselected(areawin->selectlist + j, topobject, areawin->topinstance); } /*---------------------------------------------------------*/ /* Redraw all the selected objects in their normal colors. */ /*---------------------------------------------------------*/ void draw_normal_selected(objectptr thisobj, objinstptr thisinst) { short saveselects; if (areawin->selects == 0) return; else if (areawin->hierstack != NULL) return; saveselects = areawin->selects; areawin->selects = 0; drawarea(NULL, NULL, NULL); areawin->selects = saveselects; } /*----------------------------------------------------------------------*/ /* Free a selection linked-list structure */ /* (don't confuse with freeselects) */ /*----------------------------------------------------------------------*/ static void freeselection(selection *rselect) { selection *nextselect; while (rselect != NULL) { nextselect = rselect->next; free(rselect->selectlist); free(rselect); rselect = nextselect; } } /*--------------------------------------------------------------*/ /* Free memory from the previous selection list, copy the */ /* current selection list to the previous selection list, and */ /* zero out the current selection list. */ /* Normally one would use clearselects(); use freeselects() */ /* only if the menu/toolbars are going to be updated later in */ /* the call. */ /*--------------------------------------------------------------*/ void freeselects() { if (areawin->selects > 0) { free(areawin->selectlist); areawin->redraw_needed =True; } areawin->selects = 0; free_stack(&areawin->hierstack); } /*--------------------------------------------------------------*/ /* Free memory from the selection list and set menu/toolbar */ /* items back to default values. */ /*--------------------------------------------------------------*/ void clearselects_noundo() { if (areawin->selects > 0) { reset_cycles(); freeselects(); if (xobjs.suspend < 0) { setallstylemarks(areawin->style); setcolormark(areawin->color); setdefaultfontmarks(); setparammarks(NULL); } #ifdef TCL_WRAPPER if (xobjs.suspend < 0) XcInternalTagCall(xcinterp, 2, "unselect", "all"); #endif } } /*--------------------------------------------------------------*/ /* Same as above, but registers an undo event. */ /*--------------------------------------------------------------*/ void clearselects() { if (areawin->selects > 0) { register_for_undo(XCF_Select, UNDO_DONE, areawin->topinstance, NULL, 0); clearselects_noundo(); } } /*--------------------------------------------------------------*/ /* Unselect all the selected elements and free memory from the */ /* selection list. */ /*--------------------------------------------------------------*/ void unselect_all() { if (xobjs.suspend < 0) draw_normal_selected(topobject, areawin->topinstance); clearselects(); } /*----------------------------------------------------------------------*/ /* Select the nearest element, searching the hierarchy if necessary. */ /* Return an pushlist pointer to a linked list containing the */ /* hierarchy of objects, with the topmost pushlist also containing a */ /* pointer to the polygon found. */ /* Allocates memory for the returned linked list which must be freed by */ /* the calling routine. */ /*----------------------------------------------------------------------*/ selection *recurselect(short class, u_char mode, pushlistptr *seltop) { selection *rselect, *rcheck, *lastselect; genericptr rgen; short i; objectptr selobj; objinstptr selinst; XPoint savesave, tmppt; pushlistptr selnew; short j, unselects; u_char locmode = (mode == MODE_CONNECT) ? UNDO_DONE : mode; u_char recmode = (mode != MODE_CONNECT) ? MODE_RECURSE_WIDE : MODE_RECURSE_NARROW; if (*seltop == NULL) { Fprintf(stderr, "Error: recurselect called with NULL pushlist pointer\n"); return NULL; } selinst = (*seltop)->thisinst; selobj = selinst->thisobject; class &= areawin->filter; /* apply the selection filter */ unselects = 0; rselect = genselectelement(class, locmode, selobj, selinst); if (rselect == NULL) return NULL; for (i = 0; i < rselect->selects; i++) { rgen = *(selobj->plist + (*(rselect->selectlist + i))); if (rgen->type == OBJINST) { selinst = TOOBJINST(selobj->plist + (*(rselect->selectlist + i))); /* Link hierarchy information to the pushlist linked list */ selnew = (pushlistptr)malloc(sizeof(pushlist)); selnew->thisinst = selinst; selnew->next = NULL; (*seltop)->next = selnew; /* Translate areawin->save into object's own coordinate system */ savesave.x = areawin->save.x; savesave.y = areawin->save.y; InvTransformPoints(&areawin->save, &tmppt, 1, selinst->position, selinst->scale, selinst->rotation); areawin->save.x = tmppt.x; areawin->save.y = tmppt.y; /* Fprintf(stdout, "objinst %s found in object %s; searching recursively\n", selinst->thisobject->name, selobj->name); */ /* Fprintf(stdout, "cursor position originally (%d, %d); " "in new object is (%d, %d)\n", savesave.x, savesave.y, areawin->save.x, areawin->save.y); */ rcheck = recurselect(ALL_TYPES, recmode, &selnew); areawin->save.x = savesave.x; areawin->save.y = savesave.y; /* If rgen is NULL, remove selected object from the list, and */ /* remove the last entry from the pushlist stack. */ if (rcheck == NULL) { *(rselect->selectlist + i) = -1; unselects++; (*seltop)->next = NULL; if (selnew->next != NULL) Fprintf(stderr, "Error: pushstack was freed, but was not empty!\n"); free(selnew); } else { for (lastselect = rselect; lastselect->next != NULL; lastselect = lastselect->next); lastselect->next = rcheck; } } } /* Modify the selection list */ for (i = 0, j = 0; i < rselect->selects; i++) { if (*(rselect->selectlist + i) >= 0) { if (i != j) *(rselect->selectlist + j) = *(rselect->selectlist + i); j++; } } rselect->selects -= unselects; if (rselect->selects == 0) { freeselection(rselect); rselect = NULL; } return rselect; } /*----------------------------------*/ /* Start drawing a select area box. */ /*----------------------------------*/ void startselect() { eventmode = SELAREA_MODE; areawin->origin.x = areawin->save.x; areawin->origin.y = areawin->save.y; selarea_mode_draw(xcDRAW_INIT, NULL); #ifdef TCL_WRAPPER Tk_CreateEventHandler(areawin->area, ButtonMotionMask | PointerMotionMask, (Tk_EventProc *)xctk_drag, NULL); #else xcAddEventHandler(areawin->area, ButtonMotionMask | PointerMotionMask, False, (xcEventHandler)xlib_drag, NULL); #endif } /*-------------------------*/ /* Track a select area box */ /*-------------------------*/ void trackselarea() { XPoint newpos; /* u_int nullui; (jdk) */ newpos = UGetCursorPos(); if (newpos.x == areawin->save.x && newpos.y == areawin->save.y) return; areawin->save.x = newpos.x; areawin->save.y = newpos.y; selarea_mode_draw(xcDRAW_EDIT, NULL); } /*----------------------*/ /* Track a rescale box */ /*----------------------*/ void trackrescale() { XPoint newpos; newpos = UGetCursorPos(); if (newpos.x == areawin->save.x && newpos.y == areawin->save.y) return; areawin->save.x = newpos.x; areawin->save.y = newpos.y; rescale_mode_draw(xcDRAW_EDIT, NULL); } /*----------------------------------------------------------------------*/ /* Polygon distance comparison function for qsort */ /*----------------------------------------------------------------------*/ int dcompare(const void *a, const void *b) { XPoint cpt; genericptr agen, bgen; short j, k, adist, bdist; cpt.x = areawin->save.x; cpt.y = areawin->save.y; j = *((short *)a); k = *((short *)b); agen = *(topobject->plist + j); bgen = *(topobject->plist + k); if (agen->type != POLYGON || bgen->type != POLYGON) return 0; adist = closedistance((polyptr)agen, &cpt); bdist = closedistance((polyptr)bgen, &cpt); if (adist == bdist) return 0; return (adist < bdist) ? 1 : -1; } /*----------------------------------------------------------------------*/ /* Compare two selection linked lists */ /*----------------------------------------------------------------------*/ Boolean compareselection(selection *sa, selection *sb) { int i, j, match; short n1, n2; if ((sa == NULL) || (sb == NULL)) return False; if (sa->selects != sb->selects) return False; match = 0; for (i = 0; i < sa->selects; i++) { n1 = *(sa->selectlist + i); for (j = 0; j < sb->selects; j++) { n2 = *(sb->selectlist + j); if (n1 == n2) { match++; break; } } } return (match == sa->selects) ? True : False; } /*----------------------------------------------------------------------*/ /* Add pin cycles connected to selected labels */ /*----------------------------------------------------------------------*/ void label_connect_cycles(labelptr thislab) { genericptr *pgen; Boolean is_selected; XPoint *testpt; polyptr cpoly; short *stest, cycle; if (thislab->pin == LOCAL || thislab->pin == GLOBAL) { for (pgen = topobject->plist; pgen < topobject->plist + topobject->parts; pgen++) { /* Ignore any wires that are already selected */ is_selected = FALSE; for (stest = areawin->selectlist; stest < areawin->selectlist + areawin->selects; stest++) { if (SELTOGENERIC(stest) == *pgen) { is_selected = TRUE; break; } } if (ELEMENTTYPE(*pgen) == POLYGON) { cpoly = TOPOLY(pgen); if (!is_selected) { cycle = 0; for (testpt = cpoly->points; testpt < cpoly->points + cpoly->number; testpt++) { if (testpt->x == thislab->position.x && testpt->y == thislab->position.y) { addcycle(pgen, cycle, 0); break; } else cycle++; } } else { /* Make sure that this polygon's cycle is not set! */ removecycle(pgen); } } } } } /*----------------------------------------------------------------------*/ /* Add pin cycles connected to selected instances */ /*----------------------------------------------------------------------*/ void inst_connect_cycles(objinstptr thisinst) { genericptr *ggen, *pgen; Boolean is_selected; XPoint refpoint, *testpt; labelptr clab; polyptr cpoly; short *stest, cycle; objectptr thisobj = thisinst->thisobject; for (ggen = thisobj->plist; ggen < thisobj->plist + thisobj->parts; ggen++) { if (ELEMENTTYPE(*ggen) == LABEL) { clab = TOLABEL(ggen); if (clab->pin == LOCAL || clab->pin == GLOBAL) { ReferencePosition(thisinst, &clab->position, &refpoint); for (pgen = topobject->plist; pgen < topobject->plist + topobject->parts; pgen++) { /* Ignore any wires that are already selected */ is_selected = FALSE; for (stest = areawin->selectlist; stest < areawin->selectlist + areawin->selects; stest++) { if (SELTOGENERIC(stest) == *pgen) { is_selected = TRUE; break; } } if (ELEMENTTYPE(*pgen) == POLYGON) { cpoly = TOPOLY(pgen); if (!is_selected) { cycle = 0; for (testpt = cpoly->points; testpt < cpoly->points + cpoly->number; testpt++) { if (testpt->x == refpoint.x && testpt->y == refpoint.y) { addcycle(pgen, cycle, 0); break; } else cycle++; } } else { /* Make sure that this polygon's cycle is not set! */ removecycle(pgen); } } } } } } } /*----------------------------------------------------------------------*/ /* Select connected pins on all selected object instances and labels */ /*----------------------------------------------------------------------*/ void select_connected_pins() { short *selptr; objinstptr selinst; labelptr sellab; if (!areawin->pinattach) return; for (selptr = areawin->selectlist; selptr < areawin->selectlist + areawin->selects; selptr++) { switch (SELECTTYPE(selptr)) { case LABEL: sellab = SELTOLABEL(selptr); label_connect_cycles(sellab); break; case OBJINST: selinst = SELTOOBJINST(selptr); inst_connect_cycles(selinst); break; } } } /*----------------------------------------------------------------------*/ /* Reset all polygon cycles flagged during a move (polygon wires */ /* connected to pins of an object instance). */ /*----------------------------------------------------------------------*/ void reset_cycles() { polyptr cpoly; genericptr *pgen; for (pgen = topobject->plist; pgen < topobject->plist + topobject->parts; pgen++) removecycle(pgen); } /*----------------------------------------------------------------------*/ /* Recursive selection mechanism */ /*----------------------------------------------------------------------*/ short *recurse_select_element(short class, u_char mode) { pushlistptr seltop, nextptr; selection *rselect; short *newselect, localpick; /* *desel, (jdk) */ static short pick = 0; static selection *saveselect = NULL; int i, j, k, ilast, jlast; Boolean unselect = False; seltop = (pushlistptr)malloc(sizeof(pushlist)); seltop->thisinst = areawin->topinstance; seltop->next = NULL; /* Definition for unselecting an element */ if (class < 0) { unselect = True; class = -class; } rselect = recurselect(class, mode, &seltop); if (rselect) { /* Order polygons according to nearest point distance. */ qsort((void *)rselect->selectlist, (size_t)rselect->selects, sizeof(short), dcompare); if (compareselection(rselect, saveselect)) pick++; else pick = 0; localpick = pick % rselect->selects; } /* Mechanism for unselecting elements under the cursor */ /* (Unselect all picked objects) */ if (rselect && unselect) { ilast = -1; k = 0; for (i = 0; i < rselect->selects; i++) { for (j = 0; j < areawin->selects; j++) { if (*(areawin->selectlist + j) == *(rselect->selectlist + i)) { jlast = j; ilast = i; if (++k == localpick) break; } } if (j < areawin->selects) break; } if (ilast >= 0) { newselect = rselect->selectlist + ilast; areawin->redraw_needed = True; areawin->selects--; for (k = jlast; k < areawin->selects; k++) *(areawin->selectlist + k) = *(areawin->selectlist + k + 1); if (areawin->selects == 0) freeselects(); /* Register the selection as an undo event */ register_for_undo(XCF_Select, mode, areawin->topinstance, areawin->selectlist, areawin->selects); } } else if (rselect) { /* Mechanism for selecting objects: */ /* Count all elements from rselect that are part of */ /* the current selection. Pick the "pick"th item (modulo */ /* total number of items). */ ilast = -1; k = 0; for (i = 0; i < rselect->selects; i++) { for (j = 0; j < areawin->selects; j++) { if (*(areawin->selectlist + j) == *(rselect->selectlist + i)) break; } if (j == areawin->selects) { ilast = i; if (++k == localpick) break; } } if (ilast >= 0) { newselect = allocselect(); *newselect = *(rselect->selectlist + ilast); areawin->redraw_needed = True; setoptionmenu(); u2u_snap(&areawin->save); /* Register the selection as an undo event */ /* (only if selection changed) */ register_for_undo(XCF_Select, mode, areawin->topinstance, areawin->selectlist, areawin->selects); } } /* Cleanup */ while (seltop != NULL) { nextptr = seltop->next; free(seltop); seltop = nextptr; } freeselection(saveselect); saveselect = rselect; #ifdef TCL_WRAPPER if (xobjs.suspend < 0) XcInternalTagCall(xcinterp, 2, "select", "here"); #endif return areawin->selectlist; } xcircuit-3.9.73/examples/0000775000175000001440000000000012335667423014012 5ustar timusersxcircuit-3.9.73/examples/test.py0000664000175000001440000000201012335667423015334 0ustar timusers#----------------------------------------------------------- # Test of the python interpreter and use of animation in # xcircuit. Execute this script using menu option # "File/Execute Script", if Python has been compiled in. #----------------------------------------------------------- from math import pi,sin,cos def move(h1, x, y): d = {"position": (x, y)} setattr(h1, d) def newarc(x, y, r): h1=newelement("Arc") d = {"radius": r, "minor axis": r, "position": (x, y)} setattr(h1, d) return h1 x = y = 0 x2 = y2 = 0 bigrx = 400 bigry = 200 nsteps = 200 step = 2 * pi / (nsteps - 1) set("grid","off") set("axis","off") set("snap","off") h1 = newarc(x, y, 100) h2 = newarc(x2, y2, 85) pause(0.5) for i in range(0,nsteps): x2 = x y2 = y x = int(round(bigrx * sin(i * step))) y = int(round(bigry * cos(i * step))) move(h1, x, y) move(h2, x2, y2) # pause(0.01) refresh(); set("grid","on") set("axis","on") set("snap","on") #----------------------------------------------------------- xcircuit-3.9.73/examples/border.ps0000664000175000001440000002152112335667423015634 0ustar timusers%!PS-Adobe-3.0 %%Title: border %%Creator: XCircuit v3.6 rev4 %%CreationDate: Tue Feb 21 09:36:15 2006 %%Pages: 1 %%BoundingBox: 0 0 612 792 %%DocumentNeededResources: %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 3.3 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--7/13/05 (tim.edwards@multigig.com) % The Johns Hopkins University (1993-2004) % MultiGiG, Inc. (2004-present) % %%BeginResource: procset XCIRCproc 3.3 0 % % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /just exch def just 384 and 0 gt {/mshow {pop} def} {/mshow {show} def} ifelse just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {true charpath flattenpath} {dup type /arraytype eq {exec} {12 string cvs true charpath flattenpath} ifelse} ifelse} repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {mshow} {dup type /arraytype eq {exec} {12 string cvs mshow} ifelse} ifelse} repeat grestore } def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /graphic { gsave 4 index cvx exec /DataSource get resetfile translate 0 0 moveto neg rotate dup scale cvx exec image grestore } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup abs scale } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /psinsertion {/PSobj save def /showpage {} def /setpagedevice {pop} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. %%BeginSetup /bbord { begingate 1 1.00 96 1920 1344 1920 2 polygon 1 2.00 96 1896 1344 1896 2 polygon 1 2.00 1416 1824 1416 96 2 polygon 1 2.00 1344 1824 72 0.00 90.00 xcarc 1 1.00 1344 1824 96 0.00 90.00 xcarc 1 1.00 1440 1824 1440 96 2 polygon 1 2.00 1344 96 72 270.00 360.00 xcarc 1 1.00 1344 96 96 270.00 360.00 xcarc 1 2.00 96 1824 72 90.00 180.00 xcarc 1 1.00 96 1824 96 90.00 180.00 xcarc 1 2.00 24 1824 24 96 2 polygon 1 1.00 0 1824 0 96 2 polygon 1 1.00 96 0 1344 0 2 polygon 1 2.00 96 24 1344 24 2 polygon 1 2.00 96 96 72 180.00 270.00 xcarc 1 1.00 96 96 96 180.00 270.00 xcarc endgate } def /border-inch { begingate 0.490 0.490 0.490 scb 504 1.00 96 1896 96 1920 1344 1920 1344 1896 4 polygon 504 1.00 0 96 0 1824 24 1824 24 96 4 polygon 504 1.00 1416 1824 1416 96 1440 96 1440 1824 4 polygon 0 95 beginpath 96 96 96 180.00 270.00 arc 96 24 1 polyc 96 96 72 270.00 180.00 arcn 248 1.00 endpath 0 1824 beginpath 96 1824 96 180.00 90.00 arcn 96 1896 1 polyc 96 1824 72 90.00 180.00 arc 248 1.00 endpath 1440 96 beginpath 1344 96 96 360.00 270.00 arcn 1344 24 1 polyc 1344 96 72 270.00 360.00 arc 248 1.00 endpath 1440 1824 beginpath 1344 1824 96 0.00 90.00 arc 1344 1896 1 polyc 1344 1824 72 90.00 0.00 arcn 248 1.00 endpath 504 1.00 1344 0 1344 24 96 24 96 0 4 polygon sce 1.00 0 0 0 bbord endgate } def %%EndSetup %%Page: 1 1 %%PageOrientation: Portrait %%PageBoundingBox: 0 0 612 792 /pgsave save def bop 1.0000 inchscale 2.6000 setlinewidth 0 0 translate 1.00 0 96 96 border-inch pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/fourttest.ps0000664000175000001440000002504212335667423016420 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: fourttest %%Creator: Xcircuit v2.3 %%CreationDate: Wed May 16 14:01:31 2001 %%Pages: 1 %%BoundingBox: 68 68 335 303 %%DocumentNeededResources: font Helvetica font Times-Roman %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.3 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--5/16/01 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.3 1 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale /rotval exch def /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse /showflag 1 def rotval rotate Kn currentpoint translate /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt style 512 eq or { newpath } { stroke } ifelse grestore } def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /insertion {/PSobj save def /showpage {} def bop translate} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /nMOS4 { % -64 -64 234 128 bbox (3) (2) (nmos) 3 beginparm 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (B) {/Times-Roman cf} 2 4 0 1.00 32 0 pinlabel sce mark v2 ( L=) v1 ( W=) v3 (spice:M%i %pD %pG %pS %pB ) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel sce (sim:n %pG %pD %pS) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel mark v2 (/) v1 (W/L=) {/Times-Roman cf} ctmk 20 0 1.00 16 32 label 1 1.00 -32 0 32 0 2 polygon endgate } def /dot { % -10 -10 20 20 bbox % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman cf} 2 29 0 1.00 0 0 pinlabel endgate } def /nmos { % -64 -64 64 128 bbox begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel sce (spice:M%i %pD %pG %pS GND nmos) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel sce (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /gnd { % -32 -60 64 68 bbox % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /pMOS4 { % -64 -64 256 128 bbox (3) (2) (pmos) 3 beginparm 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (B) {/Times-Roman cf} 2 4 0 1.00 32 0 pinlabel sce mark v2 ( L=) v1 ( W=) v3 (spice:M%i %pD %pG %pS %pB ) {/Times-Roman cf} ctmk 4 0 1.00 -196 -139 infolabel sce (sim:p %pG %pD %pS) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel mark v2 (/) v1 (W/L=) {/Times-Roman cf} ctmk 20 0 1.00 16 32 label 1 1.00 -32 0 32 0 2 polygon endgate } def /vdd { % -32 0 64 66 bbox % trivial begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def %%Page: 1 1 %%PageOrientation: Portrait /pgsave save def bop % 672 380 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 384 508 nMOS4 1.00 180 608 508 nMOS4 1 1.00 416 508 576 508 2 polygon 1 1.00 416 508 416 444 2 polygon 1 1.00 384 444 608 444 2 polygon 1.00 0 416 508 dot 1.00 0 416 444 dot 1.00 0 496 444 dot 1 1.00 496 444 496 380 2 polygon 1.00 0 496 316 nmos 1.00 0 496 252 gnd 1 1.00 320 508 256 508 2 polygon 1 1.00 672 508 736 508 2 polygon 1 1.00 432 316 368 316 2 polygon 1.000 0.000 0.000 scb (Bias) {/Helvetica cf} 2 23 0 1.00 368 316 pinlabel (V1) {/Helvetica cf} 2 23 0 1.00 256 508 pinlabel (V2) {/Helvetica cf} 2 20 0 1.00 736 508 pinlabel sce 1.00 -181 608 636 [(12) ] pMOS4 1.00 180 384 636 [(12) ] pMOS4 1 1.00 352 636 352 700 2 polygon 1 1.00 640 636 640 700 2 polygon 1 1.00 352 700 640 700 2 polygon 1.00 0 608 700 dot 1.00 0 384 700 dot 1.00 0 496 700 dot 1 1.00 496 700 496 732 2 polygon 1.00 0 496 732 vdd 1 1.00 448 636 544 636 2 polygon 1 1.00 496 636 496 572 608 572 3 polygon 1 1.00 608 572 800 572 2 polygon 1.000 0.000 0.000 scb (Out) {/Helvetica cf} 2 20 0 1.00 800 572 pinlabel sce 1.00 0 496 636 dot 1.00 0 608 572 dot pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/analoglib1.lps0000664000175000001440000001522412335667423016547 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 2.0 % Library name is: analoglib % Author: Tim Edwards % % XCircuitLib library objects /arrowhead { % -12 -32 24 36 bbox begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /source { % -32 -64 64 128 bbox % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /capacitor { % -32 -64 177 128 bbox (1.0) (p) 2 beginparm % fundamental 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (c.1) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (c.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:C%i %pc.1 %pc.2 %v"1.0"%v"p") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:c %pc.1 %pc.2) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (F) v2 {hS} v1 {/Helvetica 1.000 cf} 5 20 0 48 0 label endgate } def /polarized { % -32 -64 177 128 bbox (1.0) (p) 2 beginparm % fundamental 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 0 -80 74 66.00 114.00 xcarc 1.000 0.000 0.000 scb (t) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (b) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:C%i %pt %pb %v"1.0"%v"p") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:e %pt %pb %pb) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (F) v2 {hS} v1 {/Helvetica 1.000 cf} 5 20 0 48 0 label endgate } def /resistor { % -14 -64 151 128 bbox (1.0) (k) 2 beginparm % fundamental 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (r.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:R%i %pr.1 %pr.2 %v"1.0"%v"k") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:r %pr.1 %pr.2) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (W) {/Symbol 1.000 cf} v2 {hS} v1 {/Helvetica 1.000 cf} 6 20 0 32 0 label endgate } def /inductor { % -14 -64 164 112 bbox (1.0) (m) 2 beginparm % fundamental 1 1.00 20 -28 20 -44 0 -48 0 -24 spline 1 1.00 -20 -20 -20 -32 0 -28 0 -24 spline 1 1.00 20 32 20 16 0 12 0 36 spline 1 1.00 20 12 20 -4 0 -8 0 16 spline 1 1.00 20 -8 20 -24 0 -28 0 -4 spline 1 1.00 -20 20 -20 8 0 12 0 16 spline 1 1.00 -20 0 -20 -12 0 -8 0 -4 spline 1 1.00 0 -48 0 -64 2 polygon 1 1.00 0 36 0 48 2 polygon 1.000 0.000 0.000 scb (l.1) {/Times-Roman 1.000 cf} 2 9 0 0 48 pinlabel (l.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:L%i %pl.1 %pl.2 %v"1.0"%v"m") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:l %pl.1 %pl.2) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (H) v2 {hS} v1 {/Helvetica 1.000 cf} 5 20 0 32 0 label endgate } def /vsource { % -32 -64 139 128 bbox (5) 1 beginparm % fundamental 1.00 0 0 0 source (+) {/Symbol 1.000 cf} 2 5 0 0 18 label (-) {/Symbol 1.000 cf} 2 5 0 0 -18 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (v.m) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:V%i %pv.p %pv.m %v"5") {/Helvetica 1.000 cf} 2 20 0 -96 -160 infolabel (V) {hS} v1 {/Helvetica 1.000 cf} 4 20 0 48 0 label endgate } def /isource { % -32 -64 163 128 bbox (1) (m) 2 beginparm % fundamental 1.00 0 0 0 source 1 0.75 0 20 0 -8 2 polygon 0.80 180 0 -20 arrowhead 1.000 0.000 0.000 scb (i.p) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (i.m) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:I%i %pi.p %pi.m %v"1"%v"m") {/Times-Roman 1.000 cf} 2 20 0 -96 -160 infolabel (A) v2 {hS} v1 {/Helvetica 1.000 cf} 5 20 0 48 0 label endgate } def /acsource { % -32 -64 211 128 bbox (5) (0) (1) (k) 4 beginparm % fundamental 1.00 0 0 0 source 1 0.80 0 -48 0 48 -16 0 16 0 spline 1.000 0.000 0.000 scb (s.p) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (s.m) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:V%i %ps.p %ps.m SIN\(%v"0" %v"5" %v"1"%v"k"\)) {/Helvetica 1.000 cf} 2 20 0 -336 -160 infolabel (offset) {ss} (V) {hS} v2 {/Helvetica 1.000 cf} 6 20 0 48 0 label (p-p) {ss} (V) {hS} v1 {/Helvetica 1.000 cf} 6 20 0 48 48 label (Hz) v4 {hS} v3 {/Helvetica 1.000 cf} 5 20 0 48 -48 label endgate } def /nmos { % -64 -64 161 128 bbox (3) (2) 2 beginparm % fundamental 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Helvetica 1.000 cf} 2 7 0 -64 0 pinlabel (S) {/Helvetica 1.000 cf} 2 13 0 0 -64 pinlabel (D) {/Helvetica 1.000 cf} 2 9 0 0 64 pinlabel sce (spice:M%i %pD %pG %pS GND nmos W=%v"3" L=%v"2") {/Times-Roman 1.000 cf} 2 4 0 -244 -139 infolabel (sim:n %pG %pD %pS) {/Times-Roman 1.000 cf} 2 4 0 -244 -187 infolabel v1 (W=) {/Helvetica 1.000 cf} 3 20 0 16 16 label v2 (L=) {/Helvetica 1.000 cf} 3 20 0 16 -16 label endgate } def /pmos { % -64 -64 161 128 bbox (3) (2) 2 beginparm % fundamental 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Helvetica 1.000 cf} 2 9 0 0 64 pinlabel (D) {/Helvetica 1.000 cf} 2 13 0 0 -64 pinlabel (G) {/Helvetica 1.000 cf} 2 7 0 -64 0 pinlabel sce (spice:M%i %pD %pG %pS Vdd pmos W=%v"3" L=%v"2") {/Times-Roman 1.000 cf} 2 4 0 -196 -139 infolabel (sim:p %pG %pD %pS) {/Times-Roman 1.000 cf} 2 4 0 -196 -187 infolabel v1 (W=) {/Helvetica 1.000 cf} 3 20 0 16 16 label v2 (L=) {/Helvetica 1.000 cf} 3 20 0 16 -16 label endgate } def /npn { % -64 -64 73 128 bbox begingate % fundamental 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 240 0 -48 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (B) {/Times-Roman 1.000 cf} 2 7 0 -64 0 pinlabel (E) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:Q%i %pC %pB %pE npn) {/Times-Roman 1.000 cf} 2 4 0 -244 -139 infolabel (sim:b %pB %pE %pC) {/Times-Roman 1.000 cf} 2 4 0 -244 -187 infolabel endgate } def /pnp { % -64 -64 64 128 bbox begingate % fundamental 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 120 -48 22 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel (B) {/Times-Roman 1.000 cf} 2 7 0 -64 0 pinlabel (E) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel sce (spice:Q%i %pC %pB %pE pnp) {/Times-Roman 1.000 cf} 2 4 0 -244 -139 infolabel endgate } def % EndLib xcircuit-3.9.73/examples/panzoom.py0000664000175000001440000000057312335667423016054 0ustar timusers# The followin Python script replaces the zoom in/out operators # with a pan function followed by a zoom. The range of the zoom # can be adjusted by this method, too. def panzoomin(): T=getcursor() pan(T) zoom(1.5) def panzoomout(): T=getcursor() pan(T) zoom(0.66667) unbind("Z", "Zoom In") unbind("z", "Zoom Out") bind("Z", "panzoomin") bind("z", "panzoomout") xcircuit-3.9.73/examples/analog1.ps0000664000175000001440000002065612335667423015711 0ustar timusers%%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.0 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--2/25/99 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.0 2 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /cf { dup type /realtype eq {40 mul /fscale exch def} if dup /xfont exch def findfont fscale scalefont setfont } def /Ss { gsave 0.67 dup scale gsave mty neg rmoveto glevel 1 add /glevel exch def } def /ss { gsave 0.67 dup scale gsave mty 0.5 mul rmoveto glevel 1 add /glevel exch def } def /ns { currentpoint transform % preserve x position! glevel {grestore} repeat /glevel 0 def itransform pop currentpoint pop sub 0 rmoveto } def /ul { showflag 1 eq { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { showflag 1 eq { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave true charpath flattenpath pathbbox pop exch pop sub grestore } def /bs { stW 0 rmoveto } def /pspc 0 def /qS { (aa) stW (a a) stW sub 4 div 0 rmoveto } def /hS { qS qS } def /textx { dup 1 add copy 0 exch { exch dup type /stringtype eq {stringwidth pop add}{exec} ifelse } repeat neg ns } def /mty { 0 topmat setmatrix (A) true charpath flattenpath pathbbox exch pop exch sub exch pop neg grestore } def /texty { gsave 2 copy pop exec mty } def /tcenter { textx grestore 0.5 mul 0 rmoveto } def /tright { textx grestore fspc sub 0 rmoveto } def /tmiddle { texty 0.5 mul rmoveto } def /ttop { texty fspc sub rmoveto } def /tshow {{ dup type /stringtype eq {show}{exec} ifelse} repeat ns } def /label { gsave translate 0 0 moveto rotate /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /glevel 0 def /showflag 0 def /fspc pspc def just 1 and 0 gt {gsave just 2 and 0 gt {tright}{tcenter} ifelse} {fspc 0 rmoveto} ifelse just 4 and 0 gt {just 8 and 0 gt {ttop}{tmiddle} ifelse} {0 fspc rmoveto} ifelse /showflag 1 def tshow grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /begingate { /hlevel hlevel 1 add def gsave translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore } bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt { newpath } { stroke } ifelse grestore } def /scb { gsave setrgbcolor } bind def /sce { grestore } bind def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 setgray } def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /resistor { % -14 -64 66 128 bbox (10) (k) 2 beginparm % fundamental 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (r.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:R%i %pr.1 %pr.2 %v"10"%v"k") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:r %pr.1 %pr.2) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (W) {/Symbol 1.000 cf} () v2 () {hS} () v1 () {/Helvetica 1.000 cf} 10 29 90 24 0 label endgate } def /nmos { % -64 -64 64 128 bbox (1.0) (1.0) 2 beginparm % fundamental 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Helvetica 1.000 cf} 2 7 0 -64 0 pinlabel (S) {/Helvetica 1.000 cf} 2 13 0 0 -64 pinlabel (D) {/Helvetica 1.000 cf} 2 9 0 0 64 pinlabel sce (u) v2 (u L=) v1 (spice:M%i %pD %pG %pS GND nmos W=) {/Times-Roman 1.000 cf} 6 4 0 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman 1.000 cf} 2 4 0 -244 -187 infolabel endgate } def /dot { % -10 -10 20 20 bbox begingate 248 1.00 0 0 6 0.00 360.00 xcarc endgate } def /gnd { % -32 -60 64 68 bbox begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman 1.000 cf} 2 1 0 0 0 pinglobal sce endgate } def /vdd { % -32 0 64 66 bbox begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman 0.900 cf} 2 17 0 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman 1.000 cf} 2 13 0 0 0 pinglobal sce endgate } def /circle { % -6 -12 28 24 bbox begingate 1 1.00 16 0 6 0.00 360.00 xcarc 1 1.00 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman 1.000 cf} 2 4 0 16 0 pinlabel (out) {/Times-Roman 1.000 cf} 2 7 0 0 0 pinlabel sce endgate } def %%Page: analog1 1 %%PageOrientation: Portrait /pgsave save def bop % 448 284 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 224 540 [(100) () ] resistor 1.00 0 448 540 [(20) (k) ] resistor 1.00 0 448 316 [(4.0) (2.0) ] nmos 1.00 -1 224 316 [(10) (2.0) ] nmos 1 1.00 224 476 224 380 2 polygon 1 1.00 448 476 448 380 2 polygon 1 1.00 384 316 288 316 2 polygon 1 1.00 336 316 336 412 224 412 3 polygon 1.00 0 224 412 dot 1.00 0 336 316 dot 1.00 0 224 252 gnd 1.00 0 448 252 gnd 1.00 0 224 604 vdd 1.00 0 448 604 vdd 1 1.00 448 412 544 412 2 polygon 1.00 0 448 412 dot 1.00 0 544 412 circle 1.000 0.000 0.000 scb (Vout) {/Times-Roman 1.000 cf} 2 20 0 560 412 pinlabel sce pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/prelude.ps0000664000175000001440000005530512335667423016026 0ustar timusers%!PS-Adobe-3.0 %%Title: prelude %%Creator: Xcircuit v1.6 %%CreationDate: Thu Aug 28 13:10:40 1997 %%Pages: 1 %%BoundingBox: 32 35 578 756 %%DocumentNeededResources: font Times-BoldItalic font Times-Bold %%+ font Times-Roman %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 1.6 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--8/8/97 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 1.6 2 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /cf { dup type /realtype eq {40 mul /fscale exch def} if dup /xfont exch def findfont fscale scalefont setfont } def /Ss { gsave 0.67 dup scale gsave mty neg rmoveto glevel 1 add /glevel exch def } def /ss { gsave 0.67 dup scale gsave mty 0.5 mul rmoveto glevel 1 add /glevel exch def } def /ns { currentpoint transform % preserve x position! glevel {grestore} repeat /glevel 0 def itransform pop currentpoint pop sub 0 rmoveto } def /ul { showflag 1 eq { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { showflag 1 eq { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /bs { gsave true charpath flattenpath pathbbox pop exch pop sub grestore 0 rmoveto } def /textx { dup 2 mul 1 add copy 0 exch { exch exec exch stringwidth pop add } repeat neg ns } def /mty { 0 topmat setmatrix (A) true charpath flattenpath pathbbox exch pop exch sub exch pop neg grestore } def /texty { gsave 2 copy pop exec mty } def /tcenter { textx grestore 0.5 mul 0 rmoveto } def /tright { textx grestore 0 rmoveto } def /tmiddle { texty 0.5 mul rmoveto } def /ttop { texty rmoveto } def /tshow { { exec show } repeat ns } def /label { gsave translate 0 0 moveto rotate /just exch def /glevel 0 def /showflag 0 def just 1 and 0 gt {gsave just 2 and 0 gt {tright}{tcenter} ifelse} if just 4 and 0 gt {just 8 and 0 gt {ttop}{tmiddle} ifelse} if /showflag 1 def tshow grestore } def /begingate { gsave translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /endgate { grestore } bind def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave tmpa pathbbox clip transform neg exch neg 4 2 roll transform neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll [1 0 0 1 0 0] setmatrix { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt { newpath } { stroke } ifelse grestore } def /scb { gsave setrgbcolor } bind def /sce { grestore } bind def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 setgray } def /inchscale {0.375 mul dup scale} def /cmscale {0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /hd { % -31 -15 38 30 bbox begingate 6 9 beginpath -2 25 -38 9 -30 -9 curveto -22 -25 14 -9 6 9 curveto 241 1.00 endpath endgate } def /qn { % -38 1 38 127 bbox begingate 1.00 0 -7 16 hd 1 1.00 0 18 0 128 2 polygon endgate } def /qnd { % -40 -96 38 127 bbox begingate 1.00 180 -40 32 qn endgate } def /wn { % -44 0 48 32 bbox begingate -28 32 beginpath -48 32 -28 0 -12 0 curveto -52 0 -52 32 -28 32 curveto 12 32 12 0 -12 0 curveto 8 0 -12 32 -28 32 curveto 241 1.00 endpath endgate } def /lines { % 0 -64 3552 128 bbox begingate 1 1.00 0 -32 3552 -32 2 polygon 1 1.00 0 64 3552 64 2 polygon 1 1.00 0 0 3552 0 2 polygon 1 1.00 0 32 3552 32 2 polygon 1 1.00 0 -64 3552 -64 2 polygon endgate } def /br1 { % -33 -160 34 256 bbox begingate 0 96 beginpath -76 52 60 -100 -32 -160 curveto 44 -116 -92 36 0 96 curveto 241 1.00 endpath endgate } def /bar { % 0 -256 0 512 bbox begingate 1 1.50 0 256 0 -256 2 polygon endgate } def /tclef { % -44 -42 83 210 bbox begingate 1 1.00 -2 -26 16 180.00 360.00 xcarc 241 1.00 -8 -26 10 0.00 360.00 xcarc 1 1.00 14 -26 -4 112 2 polygon -4 12 beginpath -20 20 -16 50 12 50 curveto 42 50 36 0 4 0 curveto 48 0 52 64 12 64 curveto -20 64 -28 20 -4 12 curveto 241 1.00 endpath 4 0 beginpath -24 0 -32 16 -32 32 curveto -32 80 30 84 30 140 curveto 30 170 -10 140 -4 112 curveto -10 156 12 164 22 168 curveto 28 158 30 152 30 140 curveto 30 108 -44 92 -44 40 curveto -44 8 -16 0 4 0 curveto 241 1.00 endpath endgate } def /bclef { % -28 -68 79 100 bbox begingate 1 1.00 0 5 27 90.00 192.00 xcarc 241 1.00 48 16 3 0.00 360.00 xcarc 241 1.00 48 -15 3 0.00 360.00 xcarc 241 1.00 -17 3 10 0.00 360.00 xcarc 36 -4 beginpath 36 -44 8 -60 -28 -68 curveto 40 -52 32 32 0 32 curveto 28 32 36 12 36 -4 curveto 241 1.00 endpath endgate } def /flt { % -8 -2 23 73 bbox begingate 1 1.00 -8 71 -8 -1 2 polygon -8 -2 beginpath 32 22 12 46 -8 30 curveto 2 40 20 22 -8 -2 curveto 241 1.00 endpath endgate } def /keyBf { % -42 -51 56 121 bbox begingate 1.00 0 -18 -17 flt 1.00 0 14 31 flt endgate } def /staff { % 15 -275 3601 571 bbox begingate 1.00 0 64 -192 lines 1.00 0 64 192 lines 1.00 -181 48 -160 br1 1.00 0 48 160 br1 1.00 0 64 0 bar 1.00 0 3616 0 bar 1.00 0 144 128 tclef 1.00 0 128 -160 bclef 1.00 0 240 -224 keyBf 1.00 0 240 192 keyBf endgate } def /hhd { % -39 -1 38 34 bbox begingate 6 28 beginpath 16 12 -20 -12 -30 4 curveto -24 -6 12 20 6 28 curveto -4 44 -40 20 -30 4 curveto -36 12 0 38 6 28 curveto 241 1.00 endpath endgate } def /hn { % -39 -1 39 129 bbox begingate 1 1.00 0 23 0 128 2 polygon 1.00 0 -8 0 hhd endgate } def /flg { % 0 -52 40 128 bbox begingate 0 76 beginpath 0 32 68 8 28 -52 curveto 64 0 0 32 0 32 curveto 240 1.00 endpath endgate } def /en { % -38 1 78 153 bbox begingate 1.00 0 0 0 qn 1.00 0 0 78 flg endgate } def /shp { % -16 -28 32 88 bbox begingate 240 1.00 -16 24 16 32 16 40 -16 32 4 polygon 240 1.00 -16 -8 16 0 16 8 -16 0 4 polygon 1 1.00 -8 56 -8 -28 2 polygon 1 1.00 8 -24 8 60 2 polygon endgate } def /lnt { % -4 -14 64 28 bbox begingate 1 1.75 -4 0 60 0 2 polygon endgate } def /hnt { % -52 -1 64 129 bbox begingate 1.00 0 -48 16 lnt 1.00 0 0 0 hn endgate } def /hr { % -24 0 44 16 bbox begingate 240 1.00 -24 0 -24 16 20 16 20 0 4 polygon endgate } def /qstem1 { % -52 -96 64 127 bbox begingate 1.00 180 -40 32 qn 1.00 0 -48 16 lnt endgate } def /er { % -30 -8 27 50 bbox begingate 1 1.30 -3 39 -20 -8 2 polygon 241 1.00 -24 36 6 0.00 360.00 xcarc 1 1.00 -18 44 16 237.00 337.00 xcarc endgate } def /qstem2 { % -55 -96 64 127 bbox begingate 1.00 180 -40 32 qn 1.00 0 -52 0 lnt endgate } def /qr { % -15 -50 29 100 bbox begingate 1 1.00 3 41 -1 49 2 polygon 1 1.00 14 -34 -14 6 2 polygon 8 -26 beginpath -2 -12 -30 -22 -6 -50 curveto -20 -36 -4 -24 14 -34 curveto 241 1.00 endpath -14 6 beginpath -10 30 6 34 -2 50 curveto 10 26 1 polyc -2 14 -6 -6 0 -14 curveto 241 1.00 endpath endgate } def /dot { % -10 -10 20 20 bbox begingate 248 1.00 0 0 6 0.00 360.00 xcarc endgate } def /en2 { % -40 -130 40 161 bbox begingate 1.00 180 -40 32 qn 1.00 -181 -40 -54 flg endgate } def /nat { % -14 -32 22 94 bbox begingate 240 1.00 -14 -8 8 0 8 8 -14 0 4 polygon 240 1.00 -14 24 8 32 8 40 -14 32 4 polygon 1 1.00 -14 62 -14 -8 2 polygon 1 1.00 8 -32 8 40 2 polygon endgate } def /four { % -24 -32 48 64 bbox begingate 1 1.00 -24 -10 24 -10 2 polygon 12 -24 beginpath 20 -24 8 180.00 270.00 arc -10 -32 1 polyc -10 -24 8 -90.00 0.00 arc 12 -24 12 18 -2 2 3 polyc 241 1.00 endpath -24 -10 beginpath -16 0 -6 20 -6 28 curveto -22 -10 14 32 2 polyc 241 1.00 endpath endgate } def /wnt { % -53 0 64 32 bbox begingate 1.00 0 -49 16 lnt 1.00 0 0 0 wn endgate } def /hnd { % -40 -96 39 129 bbox begingate 1.00 180 -40 32 hn endgate } def /ent { % -52 -130 64 161 bbox begingate 1.00 0 0 0 en2 1.00 0 -48 16 lnt endgate } def /qstem3 { % -52 1 64 127 bbox begingate 1.00 0 0 0 qn 1.00 0 -48 16 lnt endgate } def /qstem4 { % -49 1 64 127 bbox begingate 1.00 0 0 0 qn 1.00 0 -45 32 lnt endgate } def %%Page: 1 1 /pgsave save def bop % -7 154 offsets 0.4000 inchscale 2.6000 setlinewidth 1 1.00 3753 4858 3753 4890 2 polygon 1 1.00 3641 4842 3641 4874 2 polygon 1 1.00 3417 4858 3417 4794 2 polygon 1 1.00 1049 3594 1049 3610 2 polygon 1 1.00 1217 3498 1217 3458 2 polygon 1 1.00 2041 4730 2041 4794 2 polygon 1 1.00 2169 4778 2169 4810 2 polygon 1 1.00 2665 3978 2665 4074 2 polygon 1 1.00 2377 3978 2377 4026 2 polygon 1 1.00 1881 3962 1881 4058 2 polygon 1 1.00 1593 3962 1593 4010 2 polygon 1 1.00 3481 3946 3481 4042 2 polygon 1 1.00 3193 3946 3193 3994 2 polygon 1 1.00 1745 3162 1745 3258 2 polygon 1 1.00 1481 3162 1481 3210 2 polygon 1 1.00 2641 3178 2641 3274 2 polygon 1 1.00 2377 3178 2377 3226 2 polygon 1 1.00 953 3242 953 3290 2 polygon 1 1.00 689 3242 689 3258 2 polygon 1 1.00 769 3194 769 3274 2 polygon 1 1.00 1929 4394 1929 4362 2 polygon 1 1.00 3457 3226 3457 3306 2 polygon 1 1.00 3633 3194 3633 3298 2 polygon 1 1.00 3721 3290 3721 3306 2 polygon 1 1.00 569 2426 569 2498 2 polygon 1 1.00 753 2458 745 2466 2 polygon 1 1.00 841 2426 841 2466 2 polygon 1 1.00 3369 3274 3369 3258 2 polygon 1 1.00 3281 3194 3281 3250 2 polygon 1 1.00 3121 1966 3121 1942 2 polygon 1 1.00 3033 1954 3033 1978 2 polygon 1 1.00 1945 1146 1945 1186 2 polygon 1 1.00 1393 1162 1393 1130 2 polygon 1 1.00 1169 1146 1169 1130 2 polygon 1 1.00 617 938 617 906 2 polygon 1 1.00 729 938 729 946 2 polygon 1 1.00 953 954 953 986 2 polygon 1 1.00 1081 906 1081 914 2 polygon 1 1.00 1305 922 1305 954 2 polygon 1 1.00 1193 938 1193 954 2 polygon 1 1.00 1577 1194 1577 1218 2 polygon 1 1.00 3017 505 3017 553 2 polygon 1 1.00 985 2746 985 2722 2 polygon 1 1.00 1161 2746 1161 2722 2 polygon 1 1.00 1425 906 1425 962 2 polygon 1 1.00 1081 914 1081 970 2 polygon 496 1.00 1705 4730 1705 4746 1801 4730 1801 4714 4 polygon 496 1.00 1401 4794 1401 4810 1497 4794 1497 4778 4 polygon 496 1.00 1401 4762 1401 4778 1497 4762 1497 4746 4 polygon 496 1.00 1097 4826 1097 4842 1193 4826 1193 4810 4 polygon 496 1.00 1097 4794 1097 4810 1193 4794 1193 4778 4 polygon 496 1.00 1705 4762 1705 4778 1801 4762 1801 4746 4 polygon 496 1.00 2617 4794 2617 4810 2729 4826 2729 4810 4 polygon 496 1.00 809 4842 809 4858 905 4842 905 4826 4 polygon 496 1.00 3001 4842 3001 4858 3097 4842 3097 4826 4 polygon 496 1.00 3001 4874 3001 4890 3097 4874 3097 4858 4 polygon 496 1.00 3193 4874 3193 4890 3305 4842 3305 4826 4 polygon 496 1.00 3417 4842 3417 4858 3753 4890 3753 4874 4 polygon 240 1.00 617 4058 617 4074 921 4026 921 4010 4 polygon 496 1.00 809 4874 809 4890 905 4874 905 4858 4 polygon 496 1.00 617 3642 617 3658 729 3690 729 3674 4 polygon 496 1.00 1217 3458 1217 3474 1313 3514 1313 3498 4 polygon 496 1.00 1929 4762 1929 4778 2297 4842 2297 4826 4 polygon 496 1.00 1049 3602 1049 3618 1145 3658 1145 3642 4 polygon 496 1.00 1921 3474 1921 3490 2113 3530 2113 3514 4 polygon 497 1.00 2377 4010 2377 4026 2665 4074 2665 4058 4 polygon 496 1.00 2705 3490 2705 3506 2897 3546 2897 3530 4 polygon 497 1.00 1593 3994 1593 4010 1881 4058 1881 4042 4 polygon 496 1.00 3193 3978 3193 3994 3481 4042 3481 4026 4 polygon 496 1.00 3521 3458 3521 3474 3713 3514 3713 3498 4 polygon 496 1.00 609 1290 609 1306 953 1370 953 1354 4 polygon 496 1.00 689 3258 689 3274 953 3290 953 3274 4 polygon 496 1.00 1481 3194 1481 3210 1745 3258 1745 3242 4 polygon 496 1.00 1865 2674 1865 2690 2041 2730 2041 2714 4 polygon 496 1.00 2697 2722 2697 2738 2873 2778 2873 2762 4 polygon 496 1.00 2377 3210 2377 3226 2641 3274 2641 3258 4 polygon 496 1.00 3457 3290 3457 3306 3721 3306 3721 3290 4 polygon 496 1.00 569 2482 569 2498 841 2466 841 2450 4 polygon 496 1.00 953 2434 953 2450 1209 2490 1209 2474 4 polygon 496 1.00 3193 3226 3193 3242 3369 3274 3369 3258 4 polygon 496 1.00 2705 2442 2705 2458 2897 2490 2897 2474 4 polygon 496 1.00 2569 1938 2569 1954 2865 2010 2865 1994 4 polygon 496 1.00 2201 2090 2201 2106 2505 2154 2505 2138 4 polygon 521 1970 beginpath 505 1930 465 1914 425 1930 curveto 465 1906 505 1922 521 1970 curveto 241 1.00 endpath 496 1.00 1345 2042 1345 2058 1649 2106 1649 2090 4 polygon 496 1.00 1721 1890 1721 1906 2017 1962 2017 1946 4 polygon 496 1.00 3033 1954 3033 1970 3329 1922 3329 1906 4 polygon 496 1.00 3465 2122 3465 2138 3785 2090 3785 2074 4 polygon 496 1.00 3017 538 3017 554 3353 506 3353 490 4 polygon 1.00 0 1081 1226 qnd 1 1.00 1081 538 1081 546 2 polygon 496 1.00 985 2722 985 2738 1161 2738 1161 2722 4 polygon 496 1.00 1577 1194 1577 1210 1945 1162 1945 1146 4 polygon 496 1.00 617 930 617 946 953 994 953 978 4 polygon 1 1.00 2793 536 2793 568 2 polygon 496 1.00 1849 2394 1849 2410 2057 2450 2057 2434 4 polygon 496 1.00 2113 1354 2113 1370 2449 1322 2449 1306 4 polygon 496 1.00 1081 954 1081 970 1425 962 1425 946 4 polygon 1.00 0 3545 362 wn 1.00 0 217 3738 staff 1.00 0 3081 2762 wn 1.00 0 569 1994 hn 1.00 0 665 4714 qn 1.00 0 2873 4714 en 1.00 0 3345 4634 shp 1.00 0 1401 4682 qn 1.00 0 1497 4666 qn 1.00 0 1273 4714 en 1.00 0 1577 4682 en 1.00 0 1129 4698 shp 1.00 0 1097 4714 qn 1.00 0 1193 4698 qn 1.00 0 1737 4634 shp 1.00 0 1705 4650 qn 1.00 0 1801 4634 qn 1.00 0 2425 4698 qn 1.00 0 2617 4682 qn 1.00 0 2729 4698 qn 1.00 0 2425 4394 hnt 1.00 0 2409 4314 hr 1.00 0 1929 4378 hn 1.00 0 1929 4234 hn 1.00 0 2777 4506 bar 1.00 180 2833 4410 hn 1.00 180 2833 4682 hn 1.00 0 665 4234 wn 1.00 180 2833 4714 hn 1.00 180 3377 4666 hn 1.00 0 809 4762 qn 1.00 0 905 4746 qn 1.00 0 985 4762 en 1.00 0 841 4746 shp 1.00 0 3001 4762 qn 1.00 0 3097 4746 qn 1.00 0 3033 4746 shp 1.00 0 3193 4762 qn 1.00 0 3305 4714 qn 1.00 0 3417 4666 qn 1.00 0 3529 4730 qn 1.00 0 3641 4714 qn 1.00 0 3753 4730 qn 1.00 180 3601 4362 qn 1.00 0 3417 4394 qstem1 1.00 0 3569 4330 shp 1.00 0 617 3946 qn 1.00 0 729 3930 qn 1.00 0 825 3914 qn 1.00 0 921 3898 qn 1.00 0 1049 3930 qn 1.00 0 1257 3914 qn 1.00 0 1849 4506 bar 1.00 0 1417 3738 bar 1.00 180 577 3930 hn 1.00 180 577 3898 hn 1.00 180 1009 3930 qn 1.00 180 1009 3898 qn 1.00 180 1217 3914 qn 1.00 180 1217 3866 qn 1.00 0 665 4874 er 1.00 0 617 3530 qn 1.00 0 729 3562 qn 1.00 0 825 3642 qstem2 1.00 0 545 3866 shp 1.00 0 1049 3466 qn 1.00 0 1145 3530 qn 1.00 180 1217 3610 qn 1.00 180 1313 3626 qn 1.00 0 1929 4650 qn 1.00 0 2169 4650 qn 1.00 0 2297 4714 qn 1.00 0 2041 4602 qn 1.00 0 1401 3738 bar 1.00 0 2709 1674 qr 1.00 0 2201 3738 bar 1.00 0 2265 3914 er 1.00 0 2377 3850 qn 1.00 0 2569 3930 qn 1.00 0 2665 3850 qn 1.00 0 2473 3898 qn 1.00 180 2705 3626 qn 1.00 180 2801 3642 qn 1.00 0 2505 3546 hr 1.00 0 2753 3930 qr 1.00 0 2785 3914 dot 1.00 0 1513 3914 er 1.00 0 1505 3610 en2 1.00 0 1593 3834 qn 1.00 0 1785 3914 qn 1.00 0 1881 3834 qn 1.00 0 1689 3882 qn 1.00 180 1921 3610 qn 1.00 180 2017 3626 qn 1.00 180 2113 3642 qn 1.00 0 1721 3546 hr 1.00 0 1977 3930 qr 1.00 0 2009 3914 dot 1.00 0 3001 3738 bar 1.00 0 3081 3914 er 1.00 0 3081 3594 en2 1.00 0 3385 3898 qn 1.00 0 3289 3866 qn 1.00 180 3521 3594 qn 1.00 180 3617 3610 qn 1.00 180 3713 3626 qn 1.00 0 3329 3546 hr 1.00 0 3593 3930 qr 1.00 0 3625 3914 dot 1.00 0 1353 3146 er 1.00 0 1353 2810 en2 1.00 0 1657 3114 qn 1.00 0 1569 3082 qn 1.00 180 1865 2810 qn 1.00 180 1953 2826 qn 1.00 180 2041 2842 qn 1.00 0 1585 2778 hr 1.00 0 1865 3162 qr 1.00 0 1897 3146 dot 1.00 0 577 3146 er 1.00 0 569 2842 en2 1.00 0 689 3114 qn 1.00 0 865 3146 qn 1.00 0 953 3114 qn 1.00 0 769 3066 qn 1.00 180 985 2874 qn 1.00 180 1073 2858 qn 1.00 180 1161 2874 qn 1.00 0 753 2778 hr 1.00 0 1073 3162 qr 1.00 0 1105 3146 dot 1.00 0 2249 3146 er 1.00 0 2249 2826 en2 1.00 0 2553 3130 qn 1.00 0 2465 3098 qn 1.00 180 2697 2858 qn 1.00 180 2785 2874 qn 1.00 0 2441 2778 hr 1.00 0 2761 3162 qr 1.00 0 2793 3146 dot 1.00 0 2161 2970 bar 1.00 0 217 2970 staff 1.00 0 217 4506 staff 1.00 0 665 4378 wn 1.00 0 2969 2970 bar 1.00 0 3049 3146 er 1.00 0 3457 3098 qn 1.00 0 3545 3178 qn 1.00 0 3633 3066 qn 1.00 0 3721 3162 qn 1.00 0 657 3562 shp 1.00 180 1585 762 qn 1.00 0 1281 2970 bar 1.00 0 1209 2362 qn 1.00 0 1361 2346 hn 1.00 0 569 2298 qn 1.00 0 649 2362 qn 1.00 0 753 2330 qn 1.00 0 841 2298 qn 1.00 0 953 2314 qn 1.00 0 1041 2330 qn 1.00 0 1129 2346 qn 1.00 0 897 2314 nat 1.00 0 969 2010 hr 1.00 0 2089 2202 bar 1.00 0 2937 2202 bar 1.00 0 3193 3098 qn 1.00 0 3281 3066 qn 1.00 0 3369 3130 qn 1.00 0 3121 3098 shp 1.00 0 1361 2378 hn 1.00 0 2201 2346 hn 1.00 0 1361 2298 hn 1.00 0 1297 2378 nat 1.00 0 2137 2314 nat 1.00 0 1953 2298 qn 1.00 0 2057 2314 qn 1.00 0 1993 2314 nat 1.00 0 1737 2378 er 1.00 0 2705 2330 qn 1.00 0 2809 2346 qn 1.00 0 2897 2362 qn 1.00 0 2585 2378 er 1.00 0 3081 2362 hn 1.00 0 3081 2330 hn 1.00 0 3081 2298 hn 1.00 0 689 2330 shp 1.00 0 3393 2346 shp 1.00 0 2201 2314 hn 1.00 0 3465 2314 hn 1.00 0 3465 2346 hn 1.00 0 217 2202 staff 1.00 0 2969 2330 shp 1.00 0 2745 2074 nat 1.00 180 2569 2074 qn 1.00 180 2665 2090 qn 1.00 180 2769 2106 qn 1.00 0 3009 2298 shp 1.00 0 2201 1978 qn 1.00 0 2297 1994 qn 1.00 0 2409 2010 qn 1.00 0 2505 2026 qn 1.00 0 2345 2010 nat 1.00 0 1801 2010 nat 1.00 0 1345 1930 qn 1.00 0 1441 1946 qn 1.00 0 1553 1962 qn 1.00 0 1649 1978 qn 1.00 180 2017 2074 qn 1.00 180 1721 2026 qn 1.00 180 1825 2042 qn 1.00 180 1921 2058 qn 1.00 0 1489 1962 nat 1.00 0 1249 2202 bar 1.00 0 2561 1434 bar 1.00 0 3009 2074 nat 1.00 180 3329 2074 qn 1.00 180 3033 2106 qn 1.00 180 3121 2090 qn 1.00 180 3225 2058 qn 1.00 0 3601 1978 shp 1.00 0 3465 2010 qn 1.00 0 3561 1994 qn 1.00 0 3673 1978 qn 1.00 0 3785 1962 qn 1.00 0 3721 1962 nat 1.00 0 3297 2042 shp 1.00 180 1945 1290 qn 1.00 0 1617 1578 hn 1.00 0 3193 2026 shp 1.00 0 2113 1578 hn 1.00 0 1617 1530 hn 1.00 0 2113 1514 hnt 1.00 0 2729 1546 wn 1.00 0 1081 1290 hn 1.00 0 2729 1258 wn 1.00 0 2729 1178 wn 1.00 0 2985 1562 qn 1.00 0 3289 1594 qn 1.00 0 3593 1626 qn 1.00 0 2657 1258 shp 1.00 0 2909 1562 shp 1.00 0 1145 1242 nat 1.00 0 609 1178 qn 1.00 0 721 1194 qn 1.00 0 849 1210 qn 1.00 0 953 1242 qn 1.00 180 1393 1290 qn 1.00 180 1169 1274 qn 1.00 180 1281 1258 qn 1.00 0 1497 1434 bar 1.00 0 617 1594 qn 1.00 0 849 1578 qn 1.00 0 1089 1578 qn 1.00 0 1321 1562 qn 1.00 180 577 1578 hn 1.00 180 1049 1562 hn 1.00 0 617 1322 hnt 1.00 0 217 1434 staff 1.00 0 553 1546 nat 1.00 180 577 762 hn 1.00 180 1041 778 hn 1.00 0 1081 522 hnt 1.00 0 617 778 qn 1.00 0 729 810 qn 1.00 0 841 842 qn 1.00 0 953 826 qn 1.00 0 1081 778 qn 1.00 0 1193 810 qn 1.00 0 1305 794 qn 1.00 0 1425 778 qn 1.00 0 617 394 hn 1.00 0 1081 410 hn 1.00 0 617 506 hn 1.00 0 1625 762 hn 1.00 0 2073 762 hn 1.00 0 2073 794 hn 1.00 0 1497 634 bar 1.00 0 2457 634 bar 1.00 180 1577 1338 qn 1.00 180 1697 1322 qn 1.00 180 1817 1306 qn 1.00 0 1737 554 qstem1 1.00 0 1849 538 qstem2 1.00 0 2681 1530 lnt 1.00 0 1977 522 qstem1 1.00 0 1625 554 er 1.00 0 2569 458 er 1.00 180 1585 458 hn 1.00 0 1849 730 qr 1.00 0 785 1210 shp 1.00 0 2489 762 shp 1.00 0 2681 426 qn 1.00 0 2793 410 qn 1.00 0 2905 426 qn 1.00 0 1553 762 shp 1.00 0 2057 458 er 1.00 0 2169 426 qn 1.00 0 2281 442 qn 1.00 0 2393 426 qn 1.00 0 2449 1194 qn 1.00 0 2113 1242 qn 1.00 0 2225 1226 qn 1.00 0 2337 1210 qn 1.00 0 3353 378 qn 1.00 0 3017 378 qn 1.00 0 3129 410 qn 1.00 0 3241 394 qn 1.00 0 2569 362 wn 1.00 0 2569 250 wn 1.00 0 2521 346 lnt 1.00 0 2521 314 lnt 1.00 0 2521 282 lnt 1.00 0 2569 730 wn 1.00 0 2569 762 wn 1.00 0 2569 794 wn 1.00 0 3545 778 wn 1.00 0 3545 698 wn 1.00 0 3497 346 lnt 1.00 0 3497 314 lnt 1.00 0 3545 730 wn 1.00 0 217 634 staff 1.00 0 3545 250 wn 1.00 0 3497 282 lnt 1.00 0 3497 730 lnt 1.00 0 3417 634 bar 1.00 0 3817 634 bar 1.00 0 537 1322 shp (f) {/Times-BoldItalic 2.250 cf} 1 5 0 569 4506 label (Prelude in g-minor) {/Times-Bold 3.000 cf} 1 9 0 1977 4938 label (Tempo I) {/Times-BoldItalic 2.000 cf} 1 0 0 377 994 label (Andante) {/Times-BoldItalic 2.000 cf} 1 0 0 289 4898 label (rit . . .) {/Times-BoldItalic 2.000 cf} 1 0 0 2937 1410 label (rit . . .) {/Times-BoldItalic 2.000 cf} 1 0 0 3009 626 label (Allegretto) {/Times-BoldItalic 2.000 cf} 1 0 0 1417 4074 label (Tim Edwards 1992) {/Times-Roman 2.000 cf} 1 11 0 3833 4938 label 697 4410 beginpath 857 4474 1721 4474 1865 4402 curveto 1721 4466 857 4466 697 4410 curveto 241 1.00 endpath 697 4218 beginpath 857 4154 1721 4154 1865 4226 curveto 1721 4162 857 4162 697 4218 curveto 241 1.00 endpath 3129 2762 beginpath 3217 2714 3657 2714 3817 2754 curveto 3657 2706 3217 2706 3129 2762 curveto 241 1.00 endpath 496 1.00 2169 554 2169 570 2393 570 2393 554 4 polygon 496 1.00 2681 554 2681 570 2905 570 2905 554 4 polygon 1.00 0 537 4282 four 1.00 0 537 4730 four 1.00 0 537 4666 four 1.00 0 537 4346 four 1 1.00 3329 1906 3329 1950 2 polygon 1.00 0 2729 1482 wnt 1.00 0 2201 2282 hnt 1.00 0 2425 4618 hnd 1.00 0 665 4650 hnd 1.00 0 2281 3626 ent 1.00 0 2937 3626 qstem1 1.00 0 3481 3818 qstem3 1.00 0 3193 3818 qstem3 1.00 0 1745 3034 qstem4 1.00 0 1481 3034 qstem4 1.00 0 2641 3050 qstem3 1.00 0 2377 3050 qstem3 1.00 0 2913 2858 qstem1 1.00 0 2905 2090 qstem1 496 1.00 1041 1114 1041 1130 1393 1146 1393 1130 4 polygon 1 1.00 617 522 617 538 2 polygon 496 1.00 1697 458 1697 474 1937 442 1937 426 4 polygon 1.00 0 1689 538 lnt 1.00 0 1849 2282 qstem3 pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/xcclock.ps0000664000175000001440000001775712335667423016025 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: xcclock %%Creator: Xcircuit v3.1 %%CreationDate: Fri Jan 16 09:10:05 2004 %%Pages: 1 %%BoundingBox: 68 68 514 364 %%DocumentNeededResources: font Helvetica font Helvetica-Bold %%+ font Helvetica-Oblique font Courier %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 3.1 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--1/5/04 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 3.1 0 % % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /just exch def just 384 and 0 gt {/mshow {pop} def} {/mshow {show} def} ifelse just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {true charpath flattenpath} {dup type /arraytype eq {exec} {12 string cvs true charpath flattenpath} ifelse} ifelse} repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {mshow} {dup type /arraytype eq {exec} {12 string cvs mshow} ifelse} ifelse} repeat grestore } def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup abs scale } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /psinsertion {/PSobj save def /showpage {} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. %%BeginDocumentSetup %%EndDocumentSetup %%Page: 1 1 %%PageOrientation: Portrait %%PageBoundingBox: 0 0 582 432 /pgsave save def bop <> begin 1.0000 inchscale 2.6000 setlinewidth 640 416 translate 1.000 0.000 0.000 scb mark date (Today is: ) {/Helvetica cf} ctmk 16 0 1.00 -320 -32 label sce 0 1.00 -448 -224 -448 544 720 544 720 -224 4 polygon ( timedrefresh) {CR} ( }) {CR} ( after 1000 timedrefresh) {CR} ( refresh;) {CR} ( proc timedrefresh {} {) {/Courier cf} {CR} {CR} (Do this in the TCL console:) {/Helvetica-Oblique cf} 14 16 0 1.00 -432 192 label (The XCircuit clock) {/Helvetica-Bold cf} 2 16 0 1.00 -432 496 label 0 1.00 -336 -64 -336 32 512 32 512 -64 4 polygon end pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/diffamp_test3.ps0000664000175000001440000004502212335667423017111 0ustar timusers%!PS-Adobe-3.0 %%Title: src/xcircuit-3.1.26/examples/diffamp_test2 %%Creator: Xcircuit v3.1 %%CreationDate: Tue Nov 11 12:51:34 2003 %%Pages: 2 %%BoundingBox: 178 218 434 574 %%DocumentNeededResources: font Helvetica font Times-Roman font Symbol %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.4 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--1/15/03 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.4 3 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /just exch def just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {true charpath flattenpath} {dup type /arraytype eq {exec} {12 string cvs true charpath flattenpath} ifelse} ifelse} repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show} { dup type /arraytype eq {exec} {12 string cvs show} ifelse} ifelse} repeat grestore } def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /setdefaults { aload length 2 idiv {currentdict 2 index known {pop pop} {def} ifelse} repeat } bind def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup abs scale } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /psinsertion {/PSobj save def /showpage {} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /ampl_test { % ampl_test is_schematic begingate 1.000 0.000 0.000 scb (Vinn) {/Helvetica cf} 2 23 0 1.00 -224 192 pinlabel (Vinp) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (Voutn) {/Helvetica cf} 2 20 0 1.00 -32 96 pinlabel (Voutp) {/Helvetica cf} 2 20 0 1.00 -32 192 pinlabel (Vcmref) {/Helvetica cf} 2 25 0 1.00 -160 256 pinlabel (Vbias) {/Helvetica cf} 2 29 0 1.00 -160 32 pinlabel sce 1 1.00 -224 96 -192 96 2 polygon 1 1.00 -224 192 -192 192 2 polygon 1 1.00 -128 192 -32 192 2 polygon 1 1.00 -128 96 -32 96 2 polygon (-) {/Symbol cf} 2 5 0 1.00 -141 106 label (+) {/Symbol cf} 2 5 0 1.00 -141 186 label 1 1.00 -32 144 -192 224 -192 64 -32 144 4 polygon (-) {/Symbol cf} 2 5 0 1.00 -173 186 label (+) {/Symbol cf} 2 5 0 1.00 -173 106 label 1 1.00 -160 80 -160 32 2 polygon 1 1.00 -160 208 -160 256 2 polygon endgate } def /gnd { % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /source { % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /Vsource { <> begingate 1.00 0 0 0 source (+) {/Symbol cf} 2 5 0 1.00 0 18 label (-) {/Symbol cf} 2 5 0 1.00 0 -18 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (v.m) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark value (spice:V%i %pv.p %pv.m ) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel sce mark (V) {hS} value {/Times-Roman cf} ctmk 20 0 1.00 48 0 label endgate } def /dot { % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman cf} 2 29 0 1.00 0 0 pinlabel endgate } def /jumper { % trivial begingate 1 1.00 0 0 10 -90.00 90.00 xcarc 1 1.00 0 10 0 16 2 polygon 1 1.00 0 -10 0 -16 2 polygon 1.000 0.000 0.000 scb (a) {/Times-Roman cf} 2 1 0 1.00 0 16 pinlabel (a) {/Times-Roman cf} 2 13 0 1.00 0 -16 pinlabel endgate } def /circle { % trivial begingate 1 1.00 16 0 6 0.00 360.00 xcarc 1 1.00 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.00 16 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.00 0 0 pinlabel endgate } def %%Page: diffamp_test 1 %%PageOrientation: Landscape /pgsave save def bop % 1203 848 offsets 90 rotate 40 -652 translate 1.0000 inchscale 2.6000 setlinewidth 1.00 0 1027 832 ampl_test 1.00 0 867 736 gnd 1.00 0 867 800 Vsource 1.00 0 1059 800 <> Vsource 1 1.00 1059 864 1059 1088 867 1088 3 polygon 1.00 0 1059 736 gnd 1 1.00 803 928 755 928 755 864 851 864 4 polygon 1 1.00 883 864 1059 864 2 polygon 1.00 0 1059 864 dot 1.00 270 867 864 jumper 1 1.00 803 1024 723 1024 2 polygon -1.00 0 723 1024 circle 1 1.00 995 928 1043 928 2 polygon 1 1.00 995 1024 1043 1024 2 polygon 1.00 270 1059 1024 jumper 1.00 270 1059 928 jumper 1 1.00 1075 1024 1139 1024 2 polygon 1 1.00 1075 928 1139 928 2 polygon 1.00 0 1139 1024 circle 1.00 0 1139 928 circle 1.000 0.000 0.000 scb (Vinse) {/Helvetica cf} 2 23 0 1.00 707 1024 pinlabel (Voutp) {/Helvetica cf} 2 20 0 1.00 1155 1024 pinlabel (Voutm) {/Helvetica cf} 2 20 0 1.00 1155 928 pinlabel sce 1411 624 beginpath 1411 1168 1 polyc 1379 1168 32 0.00 90.00 arc 515 1200 1 polyc 515 1168 32 90.00 180.00 arc 483 624 1 polyc 515 624 32 180.00 270.00 arc 1379 592 1 polyc 1379 624 32 270.00 360.00 arc 1 1.00 endpath (Differential amplifier: test) {/Helvetica cf} 2 25 0 1.00 947 1232 label pgsave restore showpage /pMOS { <> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS Vdd pmos W=%v"3" L=%v"2") {/Times-Roman cf} 2 4 0 1.00 -196 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel sce mark width (W=) {/Times-Roman cf} ctmk 20 p_rot 1.00 p_xps p_yps label mark length (L=) {/Times-Roman cf} ctmk 20 p_rot1 1.00 p_xps1 p_yps1 label endgate } def /Resistor { <> begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (r.2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value (spice:R%i %pr.1 %pr.2 ) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:R %pr.1 %pr.2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (W) {/Symbol cf} units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label endgate } def /nMOS { <> begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS GND nmos W=%v"3" L=%v"2") {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel sce mark width (W=) {/Times-Roman cf} ctmk 20 p_rot 1.00 p_xps p_yps label mark length (L=) {/Times-Roman cf} ctmk 20 p_rot1 1.00 p_xps1 p_yps1 label endgate } def /pmos4 { <> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width (spice:M%i %pD %pG %pS %pB pmos W=) {/Times-Roman cf} ctmk 4 0 1.00 -324 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel sce mark width (W=) {/Times-Roman cf} ctmk 20 p_rot 1.00 p_xps p_yps label mark length (L=) {/Times-Roman cf} ctmk 20 p_rot1 1.00 p_xps1 p_yps1 label 1 1.00 -32 0 16 0 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 20 0 1.00 16 0 pinlabel endgate } def /vdd { % trivial begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def /halfamp { begingate 1.00 0 128 320 <> pMOS -1.00 0 -16 320 <> pMOS 1 1.00 64 320 -544 320 2 polygon 1.00 0 128 384 vdd 1.00 0 -16 384 vdd 1.00 0 128 -96 <> nMOS 1 1.00 128 -32 128 256 2 polygon 1 1.00 48 0 128 0 2 polygon 1.00 0 128 0 dot 1 1.00 -16 -112 -16 -160 2 polygon 1.00 0 -16 -160 gnd 1.00 0 128 -160 gnd 1 1.00 64 -96 -448 -96 2 polygon 1 1.00 -16 -64 -16 -80 2 polygon 1.00 0 -16 -96 jumper -1.00 270 -224 16 <> pmos4 1 1.00 -224 0 -224 -96 2 polygon 1 1.00 -288 16 -288 -96 2 polygon 1 1.00 -160 16 -160 -96 2 polygon 1 1.00 -224 80 -224 160 -16 160 3 polygon 1.00 0 -16 160 dot 1.00 0 -160 -96 dot 1.00 0 -224 -96 dot 1.00 0 -288 -96 dot 1.00 0 -448 -96 dot 1 1.00 -448 32 -448 -192 2 polygon -1.00 0 -448 96 <> pmos4 1 1.00 -384 96 -352 96 2 polygon 1.00 0 -352 96 circle 1.00 0 -448 -256 <> nMOS 1.00 0 -448 -320 gnd 1 1.00 -464 96 -560 96 2 polygon 1 1.00 -448 160 -560 160 2 polygon 1 1.00 -16 64 -16 256 2 polygon -1.00 0 -16 0 <> pMOS endgate } def %%Page: ampl_test 2 %%PageOrientation: Landscape /pgsave save def bop % ampl_test is_symbol % 2295 762 offsets 90 rotate -107 -503 translate 0.6472 inchscale 2.6000 setlinewidth 1.00 0 2039 1146 <> pMOS 1.00 270 2423 1290 <> Resistor -1.00 0 3159 410 <> nMOS 1.00 0 2935 410 <> nMOS 1 1.00 3223 410 3223 474 3159 474 3159 698 4 polygon 1.00 0 2935 762 <> pmos4 1 1.00 2935 474 2935 698 2 polygon -1.00 0 3159 762 <> pmos4 1 1.00 2951 762 3143 762 2 polygon 1 1.00 2935 826 3159 826 2 polygon 1.00 0 3047 826 dot 1 1.00 3047 762 3047 1082 2 polygon 1.00 0 3047 1146 <> pMOS 1.00 0 3047 1210 vdd 1.00 0 2935 346 gnd 1.00 0 3159 346 gnd 1 1.00 2935 474 2855 474 2855 410 3 polygon 1 1.00 2871 410 1991 410 2 polygon 1.00 0 2039 826 dot 1 1.00 2039 762 2039 1082 2 polygon 1 1.00 2871 762 2839 762 2 polygon 1 1.00 3223 762 3255 762 2 polygon 1.00 0 3255 762 circle 1.00 180 2839 762 circle 1.00 0 2039 1210 vdd 1 1.00 2983 1146 1975 1146 2 polygon 1.00 0 2935 474 dot 1.00 0 2855 410 dot 1.00 0 3047 762 dot 1.00 0 2039 762 dot 1.00 0 3159 474 dot 1.00 270 2039 986 jumper 1.00 270 2615 1290 <> Resistor 1 1.00 2487 1290 2551 1290 2 polygon 1 1.00 2519 1290 2519 1258 2 polygon 1 1.00 2359 1290 2327 1290 2327 1258 3 polygon 1 1.00 2679 1290 2711 1290 2711 1258 3 polygon 1.00 0 2519 1290 dot 1.00 90 2327 1258 circle 1.00 90 2519 1258 circle 1.00 90 2711 1258 circle 1.00 0 2599 666 halfamp 1 1.00 1415 986 1207 986 2 polygon -1.00 0 1143 986 <> pMOS 1 1.00 1223 986 1223 922 1143 922 3 polygon 1.00 0 1143 1050 vdd 1.00 0 1223 986 dot 1 1.00 1143 922 1143 634 2 polygon -1.00 0 967 1146 <> pMOS 1 1.00 1031 1146 1975 1146 2 polygon 1 1.00 1047 1146 1047 1082 967 1082 967 634 4 polygon 1.00 0 967 1210 vdd 1.00 0 1143 506 gnd 1.00 0 967 506 gnd 1.000 0.000 0.000 scb (Vinn) {/Helvetica cf} 2 20 0 1.00 2263 762 pinlabel (Vinp) {/Helvetica cf} 2 23 0 1.00 1815 762 pinlabel sce 1 1.00 2727 858 2775 858 2 polygon 1.00 0 2775 858 circle 1.00 0 2727 858 dot 1.000 0.000 0.000 scb (Voutn) {/Helvetica cf} 2 20 0 1.00 2791 858 pinlabel sce 1 1.00 1351 858 1303 858 2 polygon -1.00 0 1303 858 circle 1.000 0.000 0.000 scb (Voutp) {/Helvetica cf} 2 23 0 1.00 1287 858 pinlabel sce 1.00 0 1351 858 dot 1.00 0 967 1082 dot 1.00 0 1047 1146 dot 1.00 0 1143 922 dot 1.000 0.000 0.000 scb (Voutp) {/Helvetica cf} 2 29 0 1.00 2327 1242 pinlabel (Voutn) {/Helvetica cf} 2 29 0 1.00 2711 1242 pinlabel (Vcmin) {/Helvetica cf} 2 29 0 1.00 2519 1242 pinlabel (Vcmin) {/Helvetica cf} 2 29 0 1.00 2823 762 pinlabel (Vcmref) {/Helvetica cf} 2 20 0 1.00 3271 762 pinlabel sce -1.00 0 1479 666 halfamp 1.00 0 1143 570 <> nMOS 1.00 0 967 570 <> nMOS 1 1.00 1079 570 855 570 2 polygon -1.00 0 855 570 circle 1.000 0.000 0.000 scb (Vbias) {/Helvetica cf} 2 23 0 1.00 839 570 pinlabel pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/USAflag.ps0000664000175000001440000001645512335667423015653 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: USAflag %%Creator: Xcircuit v1.6 %%CreationDate: Sat Aug 16 09:29:46 1997 %%Pages: 1 %%BoundingBox: 68 68 868 544 %%DocumentNeededResources: %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 1.6 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--8/8/97 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 1.6 2 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /cf { dup type /realtype eq {40 mul /fscale exch def} if dup /xfont exch def findfont fscale scalefont setfont } def /Ss { gsave 0.67 dup scale gsave mty neg rmoveto glevel 1 add /glevel exch def } def /ss { gsave 0.67 dup scale gsave mty 0.5 mul rmoveto glevel 1 add /glevel exch def } def /ns { currentpoint transform % preserve x position! glevel {grestore} repeat /glevel 0 def itransform pop currentpoint pop sub 0 rmoveto } def /ul { showflag 1 eq { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { showflag 1 eq { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /bs { gsave true charpath flattenpath pathbbox pop exch pop sub grestore 0 rmoveto } def /textx { dup 2 mul 1 add copy 0 exch { exch exec exch stringwidth pop add } repeat neg ns } def /mty { 0 topmat setmatrix (A) true charpath flattenpath pathbbox exch pop exch sub exch pop neg grestore } def /texty { gsave 2 copy pop exec mty } def /tcenter { textx grestore 0.5 mul 0 rmoveto } def /tright { textx grestore 0 rmoveto } def /tmiddle { texty 0.5 mul rmoveto } def /ttop { texty rmoveto } def /tshow { { exec show } repeat ns } def /label { gsave translate 0 0 moveto rotate /just exch def /glevel 0 def /showflag 0 def just 1 and 0 gt {gsave just 2 and 0 gt {tright}{tcenter} ifelse} if just 4 and 0 gt {just 8 and 0 gt {ttop}{tmiddle} ifelse} if /showflag 1 def tshow grestore } def /begingate { gsave translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /endgate { grestore } bind def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave tmpa pathbbox clip transform neg exch neg 4 2 roll transform neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll [1 0 0 1 0 0] setmatrix { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 gt exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt { newpath } { stroke } ifelse grestore } def /scb { gsave setrgbcolor } bind def /sce { grestore } bind def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 0 setgray } def /inchscale {0.375 mul dup scale} def /cmscale {0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /star { % -128 -112 256 240 bbox begingate 240 1.00 -32 32 -128 32 -50 -22 -80 -112 0 -56 80 -112 50 -22 128 32 32 32 0 128 10 polygon endgate } def %%Page: 1 1 /pgsave save def bop % 192 768 offsets 1.0000 inchscale 2.6000 setlinewidth 0.000 0.000 0.810 scb 240 1.00 192 768 192 1440 1152 1440 1152 768 4 polygon sce 1.000 1.000 1.000 scb 240 1.00 192 480 192 576 2304 576 2304 480 4 polygon 0.20 0 432 976 star 0.20 0 592 976 star 0.20 0 832 1040 star 0.20 0 992 1296 star 0.20 0 672 1168 star 0.20 0 672 1296 star 0.20 0 672 1040 star 0.20 0 832 1296 star 0.20 0 992 1168 star 0.20 0 832 1168 star sce 0.984 0.079 0.254 scb 240 1.00 1152 1152 1152 1248 2304 1248 2304 1152 4 polygon 240 1.00 1152 960 1152 1056 2304 1056 2304 960 4 polygon 240 1.00 192 576 192 672 2304 672 2304 576 4 polygon sce 1.000 1.000 1.000 scb 0.20 0 592 1104 star sce 0.984 0.079 0.254 scb 240 1.00 1152 1344 1152 1440 2304 1440 2304 1344 4 polygon 240 1.00 192 384 192 480 2304 480 2304 384 4 polygon sce 1.000 1.000 1.000 scb 0.20 0 752 848 star 0.20 0 1072 848 star 0.20 0 912 848 star 0.20 0 672 912 star 0.20 0 992 1040 star 0.20 0 832 912 star 0.20 0 992 912 star 0.20 0 352 1040 star 0.20 0 512 1296 star 0.20 0 272 1232 star 0.20 0 272 1360 star 0.20 0 272 1104 star 0.20 0 352 1296 star 0.20 0 512 1168 star 0.20 0 352 1168 star 0.20 0 272 848 star 0.20 0 592 848 star 0.20 0 432 848 star 0.20 0 272 976 star 0.20 0 512 1040 star 0.20 0 352 912 star 0.20 0 512 912 star 0.20 0 912 1104 star 0.20 0 1072 1360 star 0.20 0 752 1232 star 0.20 0 752 1360 star 0.20 0 752 1104 star 0.20 0 912 1360 star 0.20 0 1072 1232 star 0.20 0 912 1232 star 0.20 0 752 976 star 0.20 0 1072 1104 star 0.20 0 912 976 star 0.20 0 1072 976 star 0.20 0 432 1104 star 0.20 0 592 1360 star 0.20 0 432 1360 star 0.20 0 592 1232 star 0.20 0 432 1232 star sce 0.984 0.079 0.254 scb 240 1.00 192 192 192 288 2304 288 2304 192 4 polygon sce 1.000 1.000 1.000 scb 240 1.00 1152 1056 1152 1152 2304 1152 2304 1056 4 polygon 240 1.00 1152 864 1152 960 2304 960 2304 864 4 polygon sce 0.984 0.079 0.254 scb 240 1.00 1152 768 1152 864 2304 864 2304 768 4 polygon sce 1.000 1.000 1.000 scb 240 1.00 2304 736 2304 768 2304 768 2304 736 4 polygon 240 1.00 192 288 192 384 2304 384 2304 288 4 polygon 240 1.00 192 672 192 768 2304 768 2304 672 4 polygon 240 1.00 1152 1248 1152 1344 2304 1344 2304 1248 4 polygon sce pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/analog2.ps0000664000175000001440000002026112335667423015702 0ustar timusers%%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.0 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--2/25/99 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.0 2 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /cf { dup type /realtype eq {40 mul /fscale exch def} if dup /xfont exch def findfont fscale scalefont setfont } def /Ss { gsave 0.67 dup scale gsave mty neg rmoveto glevel 1 add /glevel exch def } def /ss { gsave 0.67 dup scale gsave mty 0.5 mul rmoveto glevel 1 add /glevel exch def } def /ns { currentpoint transform % preserve x position! glevel {grestore} repeat /glevel 0 def itransform pop currentpoint pop sub 0 rmoveto } def /ul { showflag 1 eq { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { showflag 1 eq { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave true charpath flattenpath pathbbox pop exch pop sub grestore } def /bs { stW 0 rmoveto } def /pspc 0 def /qS { (aa) stW (a a) stW sub 4 div 0 rmoveto } def /hS { qS qS } def /textx { dup 1 add copy 0 exch { exch dup type /stringtype eq {stringwidth pop add}{exec} ifelse } repeat neg ns } def /mty { 0 topmat setmatrix (A) true charpath flattenpath pathbbox exch pop exch sub exch pop neg grestore } def /texty { gsave 2 copy pop exec mty } def /tcenter { textx grestore 0.5 mul 0 rmoveto } def /tright { textx grestore fspc sub 0 rmoveto } def /tmiddle { texty 0.5 mul rmoveto } def /ttop { texty fspc sub rmoveto } def /tshow {{ dup type /stringtype eq {show}{exec} ifelse} repeat ns } def /label { gsave translate 0 0 moveto rotate /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /glevel 0 def /showflag 0 def /fspc pspc def just 1 and 0 gt {gsave just 2 and 0 gt {tright}{tcenter} ifelse} {fspc 0 rmoveto} ifelse just 4 and 0 gt {just 8 and 0 gt {ttop}{tmiddle} ifelse} {0 fspc rmoveto} ifelse /showflag 1 def tshow grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /begingate { /hlevel hlevel 1 add def gsave translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore } bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt { newpath } { stroke } ifelse grestore } def /scb { gsave setrgbcolor } bind def /sce { grestore } bind def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 setgray } def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /source { % -32 -64 64 128 bbox % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /vsource { % -32 -64 172 128 bbox (5) 1 beginparm % fundamental 1.00 0 0 0 source (+) {/Symbol 1.000 cf} 2 5 0 0 18 label (-) {/Symbol 1.000 cf} 2 5 0 0 -18 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (v.m) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:V%i %pv.m %pv.p %v5) {/Helvetica 1.000 cf} 2 20 0 -96 -160 infolabel (V) {hS} () v1 () {/Helvetica 1.000 cf} 6 20 0 48 0 label endgate } def /capacitor { % -32 -64 177 128 bbox (1.0) (p) 2 beginparm % fundamental 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (c.1) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (c.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:C%i %pc.1 %pc.2 %v"1.0"%v"p") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:c %pc.1 %pc.2) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (F) v2 () {hS} () v1 () {/Helvetica 1.000 cf} 8 20 0 48 0 label endgate } def /resistor { % -14 -64 143 128 bbox (1.0) (k) 2 beginparm % fundamental 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (r.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce (spice:R%i %pr.1 %pr.2 %v"1.0"%v"k") {/Times-Roman 1.000 cf} 2 0 0 -208 -160 infolabel (sim:r %pr.1 %pr.2) {/Times-Roman 1.000 cf} 2 0 0 -208 -208 infolabel (W) {/Symbol 1.000 cf} () v2 () {hS} () v1 () {/Helvetica 1.000 cf} 10 20 0 32 0 label endgate } def /gnd { % -32 -60 64 60 bbox begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman 1.000 cf} 2 1 0 0 0 pinglobal sce endgate } def %%Page: 1 1 %%PageOrientation: Portrait /pgsave save def bop % 400 336 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 400 400 [(2.5) ] vsource 1.00 0 656 400 [(1.0) (u) ] capacitor 1 1.00 656 464 656 528 2 polygon 1 1.00 400 336 400 272 656 272 656 336 4 polygon 1.00 0 400 528 [(100) () ] resistor 1 1.00 400 592 400 624 656 624 656 528 4 polygon 1.00 0 400 272 gnd pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/logic8.ps0000664000175000001440000003234212335667423015547 0ustar timusers%!PS-Adobe-3.0 %%Title: examples/logic8 %%Creator: Xcircuit v3.1 %%CreationDate: Tue Apr 29 14:39:02 2003 %%Pages: 3 %%BoundingBox: 110 290 502 502 %%DocumentNeededResources: font Times-Roman %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.4 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--1/15/03 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.4 2 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /just exch def just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup abs scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /psinsertion {/PSobj save def /showpage {} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /nand { % nand is_schematic begingate 1 1.00 0 -48 -64 -48 -64 48 0 48 4 polygon 1 1.00 56 0 8 0.00 360.00 xcarc 1 1.00 0 0 48 -90.00 90.00 xcarc 1.000 0.000 0.000 scb (Out) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (In.1) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (In.2) {/Times-Roman cf} 2 7 0 1.00 -64 -32 pinlabel endgate } def /invert { % invert is_schematic begingate 0 1.00 -32 -40 -32 40 40 0 3 polygon 1 1.00 48 0 8 0.00 360.00 xcarc 1 1.00 -32 0 -48 0 2 polygon 1 1.00 56 0 64 0 2 polygon 1.000 0.000 0.000 scb (Out) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (In) {/Times-Roman cf} 2 7 0 1.00 -48 0 pinlabel endgate } def /dot { % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman cf} 2 29 0 1.00 0 0 pinlabel endgate } def /circle { % trivial begingate 1 1.00 16 0 6 0.00 360.00 xcarc 1 1.00 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.00 16 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.00 0 0 pinlabel endgate } def %%Page: logic 11 %%PageOrientation: Portrait /pgsave save def bop % 912 848 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 944 928 nand 1.00 0 944 1088 nand 1.00 0 656 1120 invert 1 1.00 720 1120 880 1120 2 polygon 1 1.00 608 1120 560 1120 2 polygon 1 1.00 880 1056 784 1056 784 960 880 960 4 polygon 1 1.00 880 896 560 896 2 polygon 1 1.00 784 960 560 960 2 polygon 1.00 0 784 960 dot 1 1.00 1008 1088 1136 1088 2 polygon 1 1.00 1008 928 1136 928 2 polygon -1.00 0 560 1120 circle 1.00 0 1136 1088 circle 1.00 0 1136 928 circle -1.00 0 560 896 circle -1.00 0 560 960 circle (Logic Circuit) {/Times-Roman cf} 2 9 0 1.00 816 1280 label 0 1.00 304 784 304 1328 1328 1328 1328 784 4 polygon 1.000 0.000 0.000 scb (Pin.1) {/Times-Roman cf} 2 7 0 1.00 544 1120 pinlabel (Pin.2) {/Times-Roman cf} 2 7 0 1.00 544 960 pinlabel (Pin.3) {/Times-Roman cf} 2 7 0 1.00 544 896 pinlabel (Pin.5) {/Times-Roman cf} 2 4 0 1.00 1152 928 pinlabel (Pin.4) {/Times-Roman cf} 2 4 0 1.00 1152 1088 pinlabel pgsave restore showpage /gnd { begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /pmos { begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS Vdd pmos) {/Times-Roman cf} 2 4 0 1.00 -196 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel endgate } def /nmos { begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS GND nmos) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /jumper { % trivial begingate 1 1.00 0 0 10 -90.00 90.00 xcarc 1 1.00 0 10 0 16 2 polygon 1 1.00 0 -10 0 -16 2 polygon 1.000 0.000 0.000 scb (a) {/Times-Roman cf} 2 1 0 1.00 0 16 pinlabel (a) {/Times-Roman cf} 2 13 0 1.00 0 -16 pinlabel endgate } def /vdd { begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def %%Page: nand 11 %%PageOrientation: Portrait /pgsave save def bop % nand is_symbol % 808 1024 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 808 928 gnd -1.00 0 872 1248 pmos -1.00 0 808 992 nmos 1.00 0 808 1120 nmos 1.00 0 744 1248 pmos 1 1.00 744 1184 872 1184 2 polygon 1 1.00 744 1312 872 1312 2 polygon 1 1.00 968 1168 968 992 872 992 3 polygon 1 1.00 872 1184 1016 1184 2 polygon 1 1.00 744 1120 648 1120 648 1248 680 1248 4 polygon 1 1.00 616 1120 648 1120 2 polygon 1 1.00 936 1248 1016 1248 2 polygon 1.00 0 648 1120 dot 1.00 0 808 1184 dot 1.00 0 872 1184 dot 1.00 0 968 1248 dot 1.00 0 808 1312 dot -1.00 0 616 1120 circle 1.00 0 1016 1248 circle 1.00 0 1016 1184 circle 1 1.00 968 1200 968 1248 2 polygon 1.00 0 968 1184 jumper (2-Input Nand gate) {/Times-Roman cf} 2 9 0 1.00 808 1440 label 1.00 0 840 752 nand 1 1.00 904 752 936 752 2 polygon 1 1.00 776 784 744 784 2 polygon 1 1.00 776 720 744 720 2 polygon -1.00 0 744 720 circle 1.00 0 936 752 circle -1.00 0 744 784 circle ( Out) {/Times-Roman cf} 2 4 0 1.00 952 752 label (In.1 ) {/Times-Roman cf} 2 7 0 1.00 728 784 label (In.2 ) {/Times-Roman cf} 2 7 0 1.00 728 720 label (\(symbol\)) {/Times-Roman cf} 2 5 0 1.00 824 656 label 1 1.00 312 832 1320 832 2 polygon 0 1.00 312 608 312 1504 1320 1504 1320 608 4 polygon 1.000 0.000 0.000 scb (In.1) {/Times-Roman cf} 2 7 0 1.00 600 1120 pinlabel (Out) {/Times-Roman cf} 2 4 0 1.00 1032 1184 pinlabel (In.2) {/Times-Roman cf} 2 4 0 1.00 1032 1248 pinlabel sce 1.00 0 808 1312 vdd pgsave restore showpage %%Page: invert 11 %%PageOrientation: Portrait /pgsave save def bop % invert is_symbol % 832 1176 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 832 1016 gnd 1.00 0 832 1080 nmos 1.00 0 832 1208 pmos 1 1.00 768 1208 768 1208 736 1208 736 1080 768 1080 5 polygon 1 1.00 832 1144 928 1144 2 polygon 1 1.00 736 1144 672 1144 2 polygon 1.00 0 736 1144 dot 1.00 0 832 1144 dot -1.00 0 672 1144 circle 1.00 0 928 1144 circle (Inverter) {/Times-Roman cf} 2 9 0 1.00 832 1400 label 1 1.00 864 792 896 792 2 polygon 1 1.00 752 792 720 792 2 polygon 1.00 0 896 792 circle -1.00 0 720 792 circle ( Out) {/Times-Roman cf} 2 4 0 1.00 912 792 label (In ) {/Times-Roman cf} 2 7 0 1.00 704 792 label (\(symbol\)) {/Times-Roman cf} 2 5 0 1.00 816 696 label 1 1.00 512 888 1120 888 2 polygon 0 1.00 512 648 512 1464 1120 1464 1120 648 4 polygon 1.00 0 800 792 invert 1.000 0.000 0.000 scb (Out) {/Times-Roman cf} 2 4 0 1.00 944 1144 pinlabel (In) {/Times-Roman cf} 2 7 0 1.00 656 1144 pinlabel sce 1.00 0 832 1272 vdd pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/buses.ps0000664000175000001440000003271212335667423015504 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: buses %%Creator: Xcircuit v3.2 %%CreationDate: Thu May 20 17:13:16 2004 %%Pages: 1 %%BoundingBox: 68 68 607 463 %%DocumentNeededResources: font Times-Roman font Helvetica font Helvetica-Bold %%+ font Symbol %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 3.1 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--1/5/04 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 3.1 0 % % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /just exch def just 384 and 0 gt {/mshow {pop} def} {/mshow {show} def} ifelse just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {true charpath flattenpath} {dup type /arraytype eq {exec} {12 string cvs true charpath flattenpath} ifelse} ifelse} repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {mshow} {dup type /arraytype eq {exec} {12 string cvs mshow} ifelse} ifelse} repeat grestore } def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup abs scale } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /psinsertion {/PSobj save def /showpage {} def /setpagedevice {pop} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. %%BeginDocumentSetup /test_ic { <> begingate 0 1.00 -112 -112 -112 128 128 128 128 -112 4 polygon (test_ic) {/Helvetica-Bold cf} 2 21 0 1.00 0 48 label (rdata\(7:0\)) {/Helvetica cf} 2 23 0 1.00 112 -16 label 1.000 0.000 0.000 scb (\(9:2\)) {/Helvetica cf} 2 20 0 1.00 128 -16 pinlabel (1) {/Helvetica cf} 2 17 0 1.00 0 128 pinlabel (10) {/Helvetica cf} 2 29 0 1.00 0 -112 pinlabel sce (VDD) {/Helvetica cf} 2 29 0 1.00 0 112 label (GND) {/Helvetica cf} 2 17 0 1.00 0 -96 label 0.180 0.545 0.341 scb mark idx (pcb:U) {/Helvetica cf} ctmk 23 0 1.00 -128 48 infolabel sce mark idx (U) {/Helvetica cf} ctmk 23 0 1.00 -128 0 label endgate } def /5V { % trivial begingate 1 1.00 -32 0 32 0 2 polygon 1 1.00 0 0 0 -32 2 polygon (V) {/Times-Roman cf} (+5) {/Symbol cf} 4 17 0 0.90 0 8 label 0.933 0.604 0.000 scb (dVdd) {/Times-Roman cf} 2 13 0 1.00 0 -32 pinglobal endgate } def /gnd { % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 0.933 0.604 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /Resistor { <> begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) idx (spice:R) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:r %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (W) {/Symbol cf} units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label 0.180 0.545 0.341 scb mark idx (pcb:R) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def /ic2 { <> begingate 0 1.00 -112 -96 -112 112 112 112 112 -96 4 polygon 1.000 0.000 0.000 scb (\(2:3\)) {/Helvetica cf} 2 23 0 1.00 -112 16 pinlabel (1) {/Helvetica cf} 2 29 0 1.00 0 -96 pinlabel (4) {/Helvetica cf} 2 17 0 1.00 0 112 pinlabel sce (IC#2) {/Helvetica-Bold cf} 2 21 0 1.00 0 16 label (d) {/Helvetica cf} 2 20 0 1.00 -96 16 label (GND) {/Helvetica cf} 2 17 0 1.00 0 -80 label (VDD) {/Helvetica cf} 2 29 0 1.00 0 96 label 0.180 0.545 0.341 scb mark idx (pcb:U) {/Helvetica cf} ctmk 20 0 1.00 128 64 infolabel sce mark idx (U) {/Helvetica cf} ctmk 20 0 1.00 128 16 label endgate } def /Polarized { <> begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 0 -80 74 66.00 114.00 xcarc 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) idx (spice:C) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:e %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (F) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label 0.180 0.545 0.341 scb mark idx (pcb:C) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def /tap { % trivial <> begingate 496 1.00 0 8 16 0 0 -8 3 polygon 1.000 0.000 0.000 scb mark out {/Helvetica cf} ctmk 20 0 1.00 16 0 pinlabel mark in {/Helvetica cf} ctmk 23 0 1.00 0 0 pinlabel endgate } def /arrowhead { % trivial begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /arrow { % trivial begingate 1 0.80 0 -40 0 20 2 polygon 1.00 0 0 40 arrowhead endgate } def %%EndDocumentSetup %%Page: bustest 1 %%PageOrientation: Portrait /pgsave save def bop 1.0000 inchscale 2.6000 setlinewidth 1093 852 translate 1 1.00 -592 -384 -336 -384 -336 288 -300 288 4 polygon 1.000 0.000 0.000 scb (mynet\(0:7\)) {/Helvetica cf} 2 20 0 1.00 -300 288 pinlabel sce 1 1.00 -320 -224 160 -224 2 polygon 1 1.00 -320 -144 48 -144 2 polygon 1 1.00 -320 -64 -32 -64 2 polygon 1.000 0.000 0.000 scb (mynet\(0\)) {/Helvetica cf} 2 23 0 1.00 -360 -64 pinlabel (mynet\(1:2\)) {/Helvetica cf} 2 23 0 1.00 -360 -144 pinlabel (mynet\(4:3\)) {/Helvetica cf} 2 23 0 1.00 -360 -224 pinlabel sce 1 1.00 -320 -304 -32 -304 2 polygon 1.000 0.000 0.000 scb (mynet\(4\)) {/Helvetica cf} 2 23 0 1.00 -360 -304 pinlabel sce 1.00 0 -720 -368 <> test_ic 1.00 0 -720 -208 5V 1.00 0 -720 -480 gnd 1 1.00 -32 -64 -32 176 2 polygon -1.00 270 64 176 <> Resistor 1 1.00 0 176 -32 176 2 polygon 1 1.00 128 176 176 176 2 polygon 1.00 0 176 144 gnd 1.00 0 272 -80 <> ic2 -1.00 0 -32 -416 <> Polarized 1 1.00 -32 -304 -32 -352 2 polygon 1.00 0 -32 -480 gnd 1.00 0 336 -432 <> ic2 1 1.00 160 -224 160 -416 224 -416 3 polygon 1 1.00 48 -144 48 -64 160 -64 3 polygon 1.00 0 336 -528 gnd 1.00 0 272 -176 gnd 1.00 0 272 64 5V 1.00 0 336 -288 5V 1 1.00 176 144 176 176 2 polygon 1.00 0 -336 -64 tap 1.00 0 -336 -144 <> tap 1.00 0 -336 -224 <> tap 1.00 0 -336 -304 <> tap 1.000 0.000 0.000 scb (mynet\(0\)) {/Times-Roman cf} 2 20 0 0.70 -784 216 pinlabel (mynet\(1\)) {/Times-Roman cf} 2 20 0 0.70 -784 184 pinlabel (mynet\(2\)) {/Times-Roman cf} 2 20 0 0.70 -784 152 pinlabel (mynet\(3\)) {/Times-Roman cf} 2 20 0 0.70 -784 120 pinlabel (mynet\(4\)) {/Times-Roman cf} 2 20 0 0.70 -784 88 pinlabel (mynet\(5\)) {/Times-Roman cf} 2 20 0 0.70 -784 56 pinlabel (mynet\(6\)) {/Times-Roman cf} 2 20 0 0.70 -784 24 pinlabel (mynet\(7\)) {/Times-Roman cf} 2 20 0 0.70 -784 -8 pinlabel sce 2 1.00 -816 -40 -816 248 -640 248 -640 -40 4 polygon (on each of the pin labels below.) {CR} (Try connectivity \(Alt-w\)) {/Times-Roman cf} 4 16 0 0.70 -820 272 label -1.00 225 -296 -16 arrow (symbol.) {CR} (labels in the "tap") {CR} (defined by the) {CR} (subnets are) {/Times-Roman cf} 8 16 0 0.70 -260 28 label -1.00 150 -464 -8 arrow (for reference.) {CR} (These labels are) {/Times-Roman cf} 4 17 0 0.70 -492 48 label -1.00 255 -48 312 arrow (nothing at all.) {CR} (also valid to write "mynet" here, or) {CR} (spelled out explicitly. However, it is) {CR} (The bus name and dimensions can be) {/Times-Roman cf} 8 16 0 0.70 16 272 label (XCircuit bus notation tutorial\320buses.ps) {/Times-Roman cf} 2 16 0 0.70 -848 -656 label pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/diffamp_test.ps0000664000175000001440000004126212335667423017030 0ustar timusers%!PS-Adobe-3.0 %%Title: examples/diffamp_test %%Creator: Xcircuit v2.1 %%CreationDate: Thu Dec 14 21:21:31 2000 %%Pages: 2 %%BoundingBox: 176 218 436 574 %%DocumentNeededResources: font Times-Roman font Helvetica font Symbol %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.1 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--11/20/00 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.1 4 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /CR { 0 /Bline Bline fscale0 neg add def Bline moveto } def /Kn { 2 copy kY add /kY exch def kX add /kX exch def rmoveto } bind def /bs { stW 0 Kn } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { /fscale exch def xfont findfont fscale scalefont setfont /kX 0 def /kY 0 def} def /cf { dup type /realtype eq {40 mul /fscale0 exch def } if /xfont exch def fscale0 cf0 } def /ss { 0.67 fscale mul cf0 0 fscale 0.5 mul neg Kn } def /Ss { 0.67 fscale mul cf0 0 fscale 0.5 mul Kn } def /ns { kX neg kY neg Kn fscale0 cf0 } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto rotate /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def gsave dup 1 add copy 0 exch {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse /showflag 1 def Kn currentpoint translate /Bline 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt style 512 eq or { newpath } { stroke } ifelse grestore } def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /insertion {/PSobj save def /showpage {} def bop translate} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /ampl_test { % -224 32 192 224 bbox % ampl_test is_schematic begingate 1.000 0.000 0.000 scb (Vinn) {/Helvetica 1.000 cf} 2 23 0 -224 192 pinlabel (Vinp) {/Helvetica 1.000 cf} 2 23 0 -224 96 pinlabel (Voutn) {/Helvetica 1.000 cf} 2 20 0 -32 96 pinlabel (Voutp) {/Helvetica 1.000 cf} 2 20 0 -32 192 pinlabel (Vcmref) {/Helvetica 1.000 cf} 2 25 0 -160 256 pinlabel (Vbias) {/Helvetica 1.000 cf} 2 29 0 -160 32 pinlabel sce 1 1.00 -224 96 -192 96 2 polygon 1 1.00 -224 192 -192 192 2 polygon 1 1.00 -128 192 -32 192 2 polygon 1 1.00 -128 96 -32 96 2 polygon (-) {/Symbol 1.000 cf} 2 5 0 -141 106 label (+) {/Symbol 1.000 cf} 2 5 0 -141 186 label 1 1.00 -32 144 -192 224 -192 64 -32 144 4 polygon (-) {/Symbol 1.000 cf} 2 5 0 -173 186 label (+) {/Symbol 1.000 cf} 2 5 0 -173 106 label 1 1.00 -160 80 -160 32 2 polygon 1 1.00 -160 208 -160 256 2 polygon endgate } def /gnd { % -32 -60 64 68 bbox % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman 1.000 cf} 2 1 0 0 0 pinglobal endgate } def /source { % -32 -64 64 128 bbox % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /Vsource { % -32 -64 139 128 bbox (5) 1 beginparm 1.00 0 0 0 source (+) {/Symbol 1.000 cf} 2 5 0 0 18 label (-) {/Symbol 1.000 cf} 2 5 0 0 -18 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (v.m) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce mark v1 (spice:V%i %pv.p %pv.m ) {/Times-Roman 1.000 cf} ctmk 20 0 -96 -160 infolabel mark (V) {hS} v1 {/Times-Roman 1.000 cf} ctmk 20 0 48 0 label endgate } def /dot { % -6 -6 12 12 bbox % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman 1.000 cf} 2 29 0 0 0 pinlabel endgate } def /jumper { % -4 -14 18 28 bbox % trivial begingate 1 1.00 0 0 10 -90.00 90.00 xcarc 1 1.00 0 10 0 16 2 polygon 1 1.00 0 -10 0 -16 2 polygon 1.000 0.000 0.000 scb (a) {/Times-Roman 1.000 cf} 2 1 0 0 16 pinlabel (a) {/Times-Roman 1.000 cf} 2 13 0 0 -16 pinlabel endgate } def /circle { % -6 -12 28 24 bbox % trivial begingate 1 1.00 16 0 6 0.00 360.00 xcarc 1 1.00 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman 1.000 cf} 2 4 0 16 0 pinlabel (out) {/Times-Roman 1.000 cf} 2 7 0 0 0 pinlabel endgate } def %%Page: diffamp_test:1 1 %%PageOrientation: Landscape /pgsave save def bop % 1200 848 offsets 90 rotate 42 -654 translate 1.0000 inchscale 2.6000 setlinewidth 1.00 0 1024 832 ampl_test 1.00 0 864 736 gnd 1.00 0 864 800 [(1) ] Vsource 1.00 0 1056 800 [(2.5) ] Vsource 1 1.00 1056 864 1056 1088 864 1088 3 polygon 1.00 0 1056 736 gnd 1 1.00 800 928 752 928 752 864 848 864 4 polygon 1 1.00 880 864 1056 864 2 polygon 1.00 0 1056 864 dot 1.00 90 864 864 jumper 1 1.00 800 1024 720 1024 2 polygon 1.00 -1 720 1024 circle 1 1.00 992 928 1040 928 2 polygon 1 1.00 992 1024 1040 1024 2 polygon 1.00 90 1056 1024 jumper 1.00 90 1056 928 jumper 1 1.00 1072 1024 1136 1024 2 polygon 1 1.00 1072 928 1136 928 2 polygon 1.00 0 1136 1024 circle 1.00 0 1136 928 circle 1.000 0.000 0.000 scb (Vinse) {/Helvetica 1.000 cf} 2 23 0 704 1024 pinlabel (Voutp) {/Helvetica 1.000 cf} 2 20 0 1152 1024 pinlabel (Voutm) {/Helvetica 1.000 cf} 2 20 0 1152 928 pinlabel sce 1408 624 beginpath 1408 1168 1 polyc 1376 1168 32 0.00 90.00 arc 512 1200 1 polyc 512 1168 32 90.00 180.00 arc 480 624 1 polyc 512 624 32 180.00 270.00 arc 1376 592 1 polyc 1376 624 32 270.00 360.00 arc 1 1.00 endpath (Differential amplifier: test) {/Helvetica 1.000 cf} 2 25 0 944 1232 label pgsave restore showpage /pMOS { % -64 -64 240 128 bbox (3) (2) 2 beginparm 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (D) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel (G) {/Times-Roman 1.000 cf} 2 7 0 -64 0 pinlabel sce (spice:M%i %pD %pG %pS Vdd pmos W=%v"3" L=%v"2") {/Times-Roman 1.000 cf} 2 4 0 -196 -139 infolabel sce (sim:p %pG %pS %pD) {/Times-Roman 1.000 cf} 2 4 0 -196 -187 infolabel mark v1 (W=) {/Times-Roman 1.000 cf} ctmk 20 0 16 32 label mark v2 (L=) {/Times-Roman 1.000 cf} ctmk 20 0 16 -32 label endgate } def /Resistor { % -14 -64 151 128 bbox (1.0) (k) 2 beginparm 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (r.2) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel sce mark v2 v1 (spice:R%i %pr.1 %pr.2 ) {/Times-Roman 1.000 cf} ctmk 4 0 -208 -160 infolabel (sim:R %pr.1 %pr.2) {/Times-Roman 1.000 cf} 2 4 0 -208 -208 infolabel mark (W) {/Symbol 1.000 cf} v2 {hS} v1 {/Times-Roman 1.000 cf} ctmk 20 0 32 0 label endgate } def /nMOS { % -64 -64 193 128 bbox (3) (2) 2 beginparm 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman 1.000 cf} 2 7 0 -64 0 pinlabel (S) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel (D) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel sce (spice:M%i %pD %pG %pS GND nmos W=%v"3" L=%v"2") {/Times-Roman 1.000 cf} 2 4 0 -244 -139 infolabel sce (sim:n %pG %pS %pD) {/Times-Roman 1.000 cf} 2 4 0 -244 -187 infolabel mark v1 (W=) {/Times-Roman 1.000 cf} ctmk 20 0 16 32 label mark v2 (L=) {/Times-Roman 1.000 cf} ctmk 20 0 16 -32 label endgate } def /pmos4 { % -64 -64 211 128 bbox (3) (2) 2 beginparm 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman 1.000 cf} 2 9 0 0 64 pinlabel (D) {/Times-Roman 1.000 cf} 2 13 0 0 -64 pinlabel (G) {/Times-Roman 1.000 cf} 2 7 0 -64 0 pinlabel sce (spice:M%i %pD %pG %pS %pB pmos W=%v"3" L=%v"2") {/Times-Roman 1.000 cf} 2 4 0 -324 -139 infolabel sce (sim:p %pG %pS %pD) {/Times-Roman 1.000 cf} 2 4 0 -196 -187 infolabel mark v1 (W=) {/Times-Roman 1.000 cf} ctmk 20 0 16 32 label mark v2 (L=) {/Times-Roman 1.000 cf} ctmk 20 0 16 -32 label 1 1.00 -32 0 16 0 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman 1.000 cf} 2 20 0 16 0 pinlabel endgate } def /vdd { % -32 0 64 66 bbox % trivial begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman 0.900 cf} 2 17 0 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman 1.000 cf} 2 13 0 0 0 pinglobal endgate } def /halfamp { % -584 -380 841 830 bbox begingate 1.00 0 128 320 [(525.6) (1.8) ] pMOS 1.00 -1 -16 320 [(294) (2.4) ] pMOS 1 1.00 64 320 -544 320 2 polygon 1.00 0 128 384 vdd 1.00 0 -16 384 vdd 1.00 0 128 -96 [(387) (1.2) ] nMOS 1 1.00 128 -32 128 256 2 polygon 1 1.00 48 0 128 0 2 polygon 1.00 0 128 0 dot 1 1.00 -16 -112 -16 -160 2 polygon 1.00 0 -16 -160 gnd 1.00 0 128 -160 gnd 1 1.00 64 -96 -448 -96 2 polygon 1 1.00 -16 -64 -16 -80 2 polygon 1.00 0 -16 -96 jumper 1.00 -271 -224 16 [(73.2) (35.2) ] pmos4 1 1.00 -224 0 -224 -96 2 polygon 1 1.00 -288 16 -288 -96 2 polygon 1 1.00 -160 16 -160 -96 2 polygon 1 1.00 -224 80 -224 160 -16 160 3 polygon 1.00 0 -16 160 dot 1.00 0 -160 -96 dot 1.00 0 -224 -96 dot 1.00 0 -288 -96 dot 1.00 0 -448 -96 dot 1 1.00 -448 32 -448 -192 2 polygon 1.00 -1 -448 96 [(294) (3) ] pmos4 1 1.00 -384 96 -352 96 2 polygon 1.00 0 -352 96 circle 1.00 0 -448 -256 [(21) (3) ] nMOS 1.00 0 -448 -320 gnd 1 1.00 -464 96 -560 96 2 polygon 1 1.00 -448 160 -560 160 2 polygon 1 1.00 -16 64 -16 256 2 polygon 1.00 -1 -16 0 [(588) (1.2) ] pMOS endgate } def %%Page: ampl_test 2 %%PageOrientation: Landscape /pgsave save def bop % ampl_test is_symbol % 2257 752 offsets 90 rotate -98 -513 translate 0.6472 inchscale 2.6000 setlinewidth 1.00 0 2001 1136 [(336) (1.8) ] pMOS 1.00 90 2385 1280 [(300) (k) ] Resistor 1.00 -1 3121 400 [(21) (3) ] nMOS 1.00 0 2897 400 [(21) (3) ] nMOS 1 1.00 3185 400 3185 464 3121 464 3121 688 4 polygon 1.00 0 2897 752 [(126) (1.2) ] pmos4 1 1.00 2897 464 2897 688 2 polygon 1.00 -1 3121 752 [(126) (1.2) ] pmos4 1 1.00 2913 752 3105 752 2 polygon 1 1.00 2897 816 3121 816 2 polygon 1.00 0 3009 816 dot 1 1.00 3009 752 3009 1072 2 polygon 1.00 0 3009 1136 [(336) (1.8) ] pMOS 1.00 0 3009 1200 vdd 1.00 0 2897 336 gnd 1.00 0 3121 336 gnd 1 1.00 2897 464 2817 464 2817 400 3 polygon 1 1.00 2833 400 1953 400 2 polygon 1.00 0 2001 816 dot 1 1.00 2001 752 2001 1072 2 polygon 1 1.00 2833 752 2801 752 2 polygon 1 1.00 3185 752 3217 752 2 polygon 1.00 0 3217 752 circle 1.00 180 2801 752 circle 1.00 0 2001 1200 vdd 1 1.00 2945 1136 1937 1136 2 polygon 1.00 0 2897 464 dot 1.00 0 2817 400 dot 1.00 0 3009 752 dot 1.00 0 2001 752 dot 1.00 0 3121 464 dot 1.00 90 2001 976 jumper 1.00 90 2577 1280 [(300) (k) ] Resistor 1 1.00 2449 1280 2513 1280 2 polygon 1 1.00 2481 1280 2481 1248 2 polygon 1 1.00 2321 1280 2289 1280 2289 1248 3 polygon 1 1.00 2641 1280 2673 1280 2673 1248 3 polygon 1.00 0 2481 1280 dot 1.00 270 2289 1248 circle 1.00 270 2481 1248 circle 1.00 270 2673 1248 circle 1.00 0 2561 656 halfamp 1 1.00 1377 976 1169 976 2 polygon 1.00 -1 1105 976 [(42) (1.8) ] pMOS 1 1.00 1185 976 1185 912 1105 912 3 polygon 1.00 0 1105 1040 vdd 1.00 0 1185 976 dot 1 1.00 1105 912 1105 624 2 polygon 1.00 -1 929 1136 [(84) (1.8) ] pMOS 1 1.00 993 1136 1937 1136 2 polygon 1 1.00 1009 1136 1009 1072 929 1072 929 624 4 polygon 1.00 0 929 1200 vdd 1.00 0 1105 496 gnd 1.00 0 929 496 gnd 1.000 0.000 0.000 scb (Vinn) {/Helvetica 1.000 cf} 2 20 0 2225 752 pinlabel (Vinp) {/Helvetica 1.000 cf} 2 23 0 1777 752 pinlabel sce 1 1.00 2689 848 2737 848 2 polygon 1.00 0 2737 848 circle 1.00 0 2689 848 dot 1.000 0.000 0.000 scb (Voutn) {/Helvetica 1.000 cf} 2 20 0 2753 848 pinlabel sce 1 1.00 1313 848 1265 848 2 polygon 1.00 -1 1265 848 circle 1.000 0.000 0.000 scb (Voutp) {/Helvetica 1.000 cf} 2 23 0 1249 848 pinlabel sce 1.00 0 1313 848 dot 1.00 0 929 1072 dot 1.00 0 1009 1136 dot 1.00 0 1105 912 dot 1.000 0.000 0.000 scb (Voutp) {/Helvetica 1.000 cf} 2 29 0 2289 1232 pinlabel (Voutn) {/Helvetica 1.000 cf} 2 29 0 2673 1232 pinlabel (Vcmin) {/Helvetica 1.000 cf} 2 29 0 2481 1232 pinlabel (Vcmin) {/Helvetica 1.000 cf} 2 29 0 2785 752 pinlabel (Vcmref) {/Helvetica 1.000 cf} 2 20 0 3233 752 pinlabel sce 1.00 -1 1441 656 halfamp 1.00 0 1105 560 [(21) (16.5) ] nMOS 1.00 0 929 560 [(21) (16.5) ] nMOS 1 1.00 1041 560 817 560 2 polygon 1.00 -1 817 560 circle 1.000 0.000 0.000 scb (Vbias) {/Helvetica 1.000 cf} 2 23 0 801 560 pinlabel pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/systemd1.lgf0000664000175000001440000005306312335667423016264 0ustar timusers-5 f s n 48 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 33 0 32 0 32 0 32 0 32 0 33 0 32 0 33 0 32 0 33 0 33 0 32 0 33 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 32 0 33 0 32 0 s 17 2 Gnd 1 Vdd 3 Voff 22 Iin 4 Vc 29 Iout 23 a1 28 a2 30 c1 31 Iy 20 Vx 24 apc 25 a2nc 12 xc 21 Voutc 17 Vout 18 VQ w 76 3289 3344 3298 3344 11 U 3289 3337 3298 3337 41 U 3285 3333 3289 3333 41 U 3310 3343 3316 3343 43 U 3306 3368 3312 3368 42 U 3415 3293 3419 3293 23 U 3413 3289 3419 3289 23 U 3415 3301 3419 3301 24 U 3413 3297 3419 3297 24 U 3423 3301 3427 3301 25 U 3427 3312 3432 3312 28 U 3427 3305 3433 3305 25 U 3395 3294 3399 3294 30 U 3379 3282 3381 3282 18 U 3345 3282 3348 3282 3 U 3363 3282 3366 3282 4 U 3316 3364 3319 3364 19 U 3302 3350 3340 3350 20 U 3341 3334 3345 3334 14 U 3341 3326 3345 3326 13 U 3380 3363 3388 3363 9 U 3341 3357 3392 3357 8 U 3355 3334 3359 3334 21 U 3402 3356 3405 3356 35 U 3409 3353 3418 3353 6 U 3392 3360 3398 3360 8 U 3345 3330 3351 3330 14 U 3345 3322 3351 3322 13 U 3323 3360 3355 3360 15 U 3409 3346 3418 3346 7 U 3418 3342 3422 3342 7 U 3378 3344 3392 3344 12 U 3353 3338 3367 3338 21 U 3353 3345 3367 3345 17 U 3355 3351 3398 3351 15 U 3302 3347 3302 3350 20 U 3285 3347 3285 3350 3 U 3295 3341 3295 3353 11 U 3289 3333 3289 3337 41 U 3285 3314 3285 3317 1 U 3285 3325 3285 3333 41 U 3316 3333 3316 3347 43 U 3319 3363 3319 3364 19 U 3316 3353 3316 3365 19 U 3306 3347 3306 3368 42 U 3319 3350 3319 3357 20 U 3334 3370 3334 3371 44 U 3419 3289 3419 3293 23 U 3419 3297 3419 3301 24 U 3427 3301 3427 3305 25 U 3431 3309 3431 3314 28 U 3399 3290 3399 3294 30 U 3379 3282 3379 3285 18 U 3345 3282 3345 3285 3 U 3334 3377 3334 3380 18 U 3334 3350 3334 3362 20 U 3341 3353 3341 3357 8 U 3345 3330 3345 3334 14 U 3345 3322 3345 3326 13 U 3392 3354 3392 3360 8 U 3365 3342 3365 3359 17 U 3371 3348 3371 3349 3 U 3355 3348 3355 3360 15 U 3359 3334 3359 3338 21 U 3380 3348 3380 3363 9 U 3398 3359 3398 3360 8 U 3398 3351 3398 3353 15 U 3405 3356 3405 3361 35 U 3413 3350 3413 3360 6 U 3422 3356 3422 3359 3 U 3392 3340 3392 3348 12 U 3371 3330 3371 3334 1 U 3418 3342 3418 3346 7 U 3341 3346 3341 3347 26 U 3341 3333 3341 3338 14 U 3363 3282 3363 3284 4 U p 13 3316 3343 4 42 3295 3344 1 38 3431 3312 11 51 3316 3364 17 44 3334 3350 18 56 3319 3350 18 46 3392 3357 22 60 3413 3353 25 69 3392 3344 32 71 3359 3338 33 64 3365 3345 34 61 3341 3334 19 75 3355 3351 35 63 l 1 3318 3304 18 Bandpass filter b 5 3407 3280 3440 3327 3390 3280 3405 3308 3374 3280 3388 3301 3341 3280 3372 3299 3317 3303 3337 3307 g 143 NPN1 3420 3353 0 188 0 0 17 6 5 3 U1.125260918 X U1E-14 U0.930873092 X U1E-15 U0.500390581 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 1.14850E+00 -1.00000E+06 1.00000E-14 1.27215E+00 -1.00000E+06 1.00000E-15 5.24432E-01 -1.00000E+06 1.00000E-15 NFET7T 3422 3346 0 43 0 0 19 7 7 5 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.965 U0.679 U21.288 2.70816E+00 -1.00000E+06 3.30402E-15 2.70816E+00 -1.00000E+06 9.43200E-15 1.27215E+00 -1.00000E+06 9.43200E-15 NFET7T 3413 3346 2 189 0 0 19 7 6 1 U5.000 X U3.304E-15 U2.791 X U9.432E-15 U5.000 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.939 U0.679 U22.060 2.70816E+00 -1.00000E+06 3.30402E-15 1.14850E+00 -1.00000E+06 9.43200E-15 5.00000E+00 -1.00000E+06 9.43200E-15 NPN1 3390 3363 0 81 0 0 17 9 8 2 U0.458459496 X U1E-14 U0.282339174 X U1E-15 U0 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 4.34136E-01 -1.00000E+06 1.00000E-14 3.14502E-01 -1.00000E+06 1.00000E-15 0.00000E+00 -1.00000E+06 1.00000E-15 NPN1 3287 3344 4 4 0 0 17 11 10 3 U1.130248205 X U1E-14 U0.895305914 X U1E-15 U0.500395802 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 1.15598E+00 -1.00000E+06 1.00000E-14 1.21654E+00 -1.00000E+06 1.00000E-15 5.24432E-01 -1.00000E+06 1.00000E-15 NFET7T 3380 3344 2 83 0 0 19 12 9 1 U0.309 X U3.304E-15 U0.427 X U9.432E-15 U5.000 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.770 U0.679 U20.860 1.80170E+00 -1.00000E+06 3.30402E-15 4.34136E-01 -1.00000E+06 9.43200E-15 5.00000E+00 -1.00000E+06 9.43200E-15 PFET7T 3341 3330 2 218 0 0 19 14 14 13 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-1.067 U0.693 U17.580 3.34433E+00 -1.00000E+06 3.08301E-15 3.34433E+00 -1.00000E+06 1.69200E-14 4.26713E+00 -1.00000E+06 1.69200E-14 NPN1 3390 3351 0 206 0 0 17 15 12 8 U0.72539595 X U1E-14 U1.427390435 X U1E-15 U0.321844213 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 7.17181E-01 -1.00000E+06 1.00000E-14 1.80170E+00 -1.00000E+06 1.00000E-15 3.14502E-01 -1.00000E+06 1.00000E-15 NPN1 3357 3345 4 18 0 0 17 17 16 15 U1.119359496 X U1E-14 U1.442569946 X U1E-15 U0.685717452 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 1.12865E+00 -1.00000E+06 1.00000E-14 1.80290E+00 -1.00000E+06 1.00000E-15 7.17181E-01 -1.00000E+06 1.00000E-15 VDIFF 3363 3288 0 52 0 0 23 4 2 B0 U50 V0 U1 U0 U5 U6E-4 U3E-4 U3E-4 U6E-4 U2E-3 U0 U2.5 U1 U1000 R0 U0 U0.999996413 X U1E-14 U0 X U1E-14 1.00000E+00 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 2.28318E-01 TRUE FALSE 1.00000E+00 0.00000E+00 TRUE FALSE FROM 3339 3380 4 20 0 17 0 18 TO 3386 3282 0 44 0 17 0 18 NPN1 3321 3360 4 119 0 0 17 15 20 19 U0.685718355 X U1E-14 U0.720118143 X U1E-15 U0.365953503 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 7.17181E-01 -1.00000E+06 1.00000E-14 7.22620E-01 -1.00000E+06 1.00000E-15 3.19446E-01 -1.00000E+06 1.00000E-15 FROM 3350 3342 4 94 0 14 0 12 NFET7T 3341 3342 2 95 0 0 19 12 26 14 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.923 U0.679 U16.876 1.80170E+00 -1.00000E+06 3.30402E-15 1.07161E+00 -1.00000E+06 9.43200E-15 3.34433E+00 -1.00000E+06 9.43200E-15 ISCOPE 3339 3336 1 248 0 0 2 14 27 U2.389893225264E-9 C2.390nA TO 3348 3345 4 4 0 16 0 17 TO 3348 3338 4 3 0 15 0 21 TO 3373 3344 4 92 0 14 0 12 VDD 3422 3334 0 191 0 2 0 1 FROM 3431 3338 4 192 0 9 0 30 PFET7T 3422 3338 2 190 0 0 19 30 7 1 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.694 U22.233 3.33277E+00 -1.00000E+06 3.08301E-15 2.70816E+00 -1.00000E+06 1.69200E-14 5.00000E+00 -1.00000E+06 1.69200E-14 VDD 3371 3330 0 13 0 2 0 1 MMETER 3319 3348 0 53 0 0 2 20 U0.722620174 C0.723V ISCOPE 3336 3369 0 54 0 0 2 44 32 U5.9071934653691E-10 C590.719pA FROM 3383 3336 0 25 0 12 0 24 PFET7T 3392 3336 0 22 0 0 19 24 33 12 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-1.066 U0.693 U17.512 3.35936E+00 -1.00000E+06 3.08301E-15 4.27133E+00 -1.00000E+06 1.69200E-14 1.80170E+00 -1.00000E+06 1.69200E-14 FROM 3383 3328 0 131 0 7 0 23 PFET7T 3392 3328 0 41 0 0 19 23 1 33 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.690 U16.351 4.27384E+00 -1.00000E+06 3.08301E-15 5.00000E+00 -1.00000E+06 1.69200E-14 4.27133E+00 -1.00000E+06 1.69200E-14 VDD 3392 3324 0 62 0 2 0 1 ISCOPE 3400 3351 0 252 0 0 2 15 34 U2.3771444404939E-9 C2.377nA NPN1 3400 3356 4 72 0 0 17 35 15 8 U0.720640402 X U1E-14 U0.685697758 X U1E-15 U0.282241418 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 7.23183E-01 -1.00000E+06 1.00000E-14 7.17181E-01 -1.00000E+06 1.00000E-15 3.14502E-01 -1.00000E+06 1.00000E-15 NFET7T 3405 3346 2 203 0 0 19 7 36 1 U5.000 X U3.304E-15 U2.791 X U9.432E-15 U5.000 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U1.070 U0.679 U17.904 2.70816E+00 -1.00000E+06 3.30402E-15 1.81349E+00 -1.00000E+06 9.43200E-15 5.00000E+00 -1.00000E+06 9.43200E-15 NPN1 3407 3353 4 187 0 0 17 6 36 35 U1.12521612 X U1E-14 U1.493282106 X U1E-15 U0.720640454 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 1.14850E+00 -1.00000E+06 1.00000E-14 1.81349E+00 -1.00000E+06 1.00000E-15 7.23183E-01 -1.00000E+06 1.00000E-15 FROM 3427 3359 4 197 0 3 0 3 VDD 3405 3342 0 204 0 2 0 1 VDD 3413 3342 0 193 0 2 0 1 GND 3405 3375 0 202 0 1 0 2 FROM 3396 3372 0 201 0 8 0 28 NPN1 3403 3372 0 200 0 0 17 28 37 2 U0.403977185 X U1E-14 U0.70911367 X U1E-15 U0 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 4.04024E-01 -1.00000E+06 1.00000E-14 7.20694E-01 -1.00000E+06 1.00000E-15 0.00000E+00 -1.00000E+06 1.00000E-15 FROM 3396 3365 0 199 0 13 0 25 NFET7T 3405 3365 0 198 0 0 19 25 35 37 U5.000 X U3.304E-15 U2.791 X U9.432E-15 U5.000 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.843 U0.679 U17.111 1.48838E+00 -1.00000E+06 3.30402E-15 7.23183E-01 -1.00000E+06 9.43200E-15 7.20694E-01 -1.00000E+06 9.43200E-15 GND 3413 3368 0 196 0 1 0 2 FROM 3422 3364 4 195 0 5 0 4 NFET7T 3413 3364 2 194 0 0 19 4 2 6 U0.900 X U2.202E-15 U0.000 X U9.432E-15 U1.125 X U9.432E-15 U8.000 U2.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.641 U0.679 U11.063 1.00000E+00 -1.00000E+06 2.20268E-15 0.00000E+00 -1.00000E+06 9.43200E-15 1.14850E+00 -1.00000E+06 9.43200E-15 MMETER 3377 3355 1 247 0 0 2 8 U0.314502493 C0.315V FROM 3371 3367 0 78 0 5 0 4 GND 3380 3371 0 79 0 1 0 2 NFET7T 3380 3367 0 77 0 0 19 4 9 2 U0.900 X U2.202E-15 U0.419 X U9.432E-15 U0.000 X U9.432E-15 U8.000 U2.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.641 U0.679 U11.063 1.00000E+00 -1.00000E+06 2.20268E-15 4.34136E-01 -1.00000E+06 9.43200E-15 0.00000E+00 -1.00000E+06 9.43200E-15 GND 3365 3367 0 21 0 1 0 2 FROM 3356 3363 0 20 0 5 0 4 NFET7T 3365 3363 0 19 0 0 19 4 17 2 U0.900 X U2.202E-15 U1.103 X U9.432E-15 U0.000 X U9.432E-15 U8.000 U2.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.641 U0.679 U11.063 1.00000E+00 -1.00000E+06 2.20268E-15 1.12865E+00 -1.00000E+06 9.43200E-15 0.00000E+00 -1.00000E+06 9.43200E-15 GND 3351 3368 0 55 0 1 0 2 CAPFLOAT 3351 3364 0 14 0 0 7 15 2 U2E-12 U0.727026253 X U1E-14 U0 X U1E-14 7.17181E-01 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 VDD 3355 3318 0 8 0 2 0 1 PFET7T 3355 3322 0 244 0 0 19 13 1 38 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.691 U16.393 4.26713E+00 -1.00000E+06 3.08301E-15 5.00000E+00 -1.00000E+06 1.69200E-14 4.26600E+00 -1.00000E+06 1.69200E-14 PFET7T 3355 3330 0 219 0 0 19 14 38 21 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-1.067 U0.693 U17.573 3.34433E+00 -1.00000E+06 3.08301E-15 4.26600E+00 -1.00000E+06 1.69200E-14 2.68259E+00 -1.00000E+06 1.69200E-14 NFET7T 3355 3338 2 22 0 0 19 21 16 21 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U1.068 U0.679 U17.811 2.68259E+00 -1.00000E+06 3.30402E-15 1.80290E+00 -1.00000E+06 9.43200E-15 2.68259E+00 -1.00000E+06 9.43200E-15 FROM 3376 3349 4 11 0 3 0 3 NPN1 3369 3345 0 17 0 0 17 17 39 3 U1.119364269 X U1E-14 U0.987105103 X U1E-15 U0.500357518 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 1.12865E+00 -1.00000E+06 1.00000E-14 1.39395E+00 -1.00000E+06 1.00000E-15 5.24432E-01 -1.00000E+06 1.00000E-15 TO 3381 3330 0 18 0 6 0 29 ISCOPE 3373 3332 0 9 0 0 2 1 29 U6.9183571242761E-6 C6.918uA NFET7T 3371 3338 0 16 0 0 19 21 1 39 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.990 U0.679 U20.366 2.68259E+00 -1.00000E+06 3.30402E-15 5.00000E+00 -1.00000E+06 9.43200E-15 1.39395E+00 -1.00000E+06 9.43200E-15 VDD 3365 3334 0 6 0 2 0 1 NFET7T 3365 3338 0 15 0 0 19 21 1 17 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.935 U0.679 U22.025 2.68259E+00 -1.00000E+06 3.30402E-15 5.00000E+00 -1.00000E+06 9.43200E-15 1.12865E+00 -1.00000E+06 9.43200E-15 MMETER 3394 3345 0 253 0 0 2 12 U1.801702251 C1.802V VDD 3380 3340 0 84 0 2 0 1 GND 3392 3366 0 76 0 1 0 2 VDD 3341 3318 0 220 0 2 0 1 PFET7T 3341 3322 2 243 0 0 19 13 13 1 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.691 U16.393 4.26713E+00 -1.00000E+06 3.08301E-15 4.26713E+00 -1.00000E+06 1.69200E-14 5.00000E+00 -1.00000E+06 1.69200E-14 TO 3345 3350 0 216 0 11 0 20 NPN1 3339 3350 0 246 0 0 17 20 26 8 U0.72011832 X U1E-14 U0.752257365 X U1E-15 U0.282340291 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 7.22620E-01 -1.00000E+06 1.00000E-14 1.07161E+00 -1.00000E+06 1.00000E-15 3.14502E-01 -1.00000E+06 1.00000E-15 NFET7T 3302 3337 0 15 0 0 19 41 1 40 U2.537 X U3.304E-15 U5.000 X U9.432E-15 U1.685 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U1.069 U0.679 U17.970 2.71806E+00 -1.00000E+06 3.30402E-15 5.00000E+00 -1.00000E+06 9.43200E-15 1.81280E+00 -1.00000E+06 9.43200E-15 NPN1 3300 3344 0 83 0 0 17 11 40 20 U1.130246157 X U1E-14 U1.490170458 X U1E-15 U0.718844008 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 1.15598E+00 -1.00000E+06 1.00000E-14 1.81280E+00 -1.00000E+06 1.00000E-15 7.22620E-01 -1.00000E+06 1.00000E-15 NFET7T 3306 3343 2 47 0 0 19 43 42 1 U1.572 X U3.304E-15 U0.398 X U9.432E-15 U5.000 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.766 U0.679 U20.831 1.78159E+00 -1.00000E+06 3.30402E-15 4.18662E-01 -1.00000E+06 9.43200E-15 5.00000E+00 -1.00000E+06 9.43200E-15 IDIFF 3415 3305 0 99 0 0 23 24 2 B0 U0.1 V0 U2E-9 U0 U1E-7 U6E-4 U3E-4 U3E-4 U6E-4 U2E-3 U0 U5E-9 U1E-9 U1000 R0 U0 U3.359362762 X U1E-14 U0 X U1E-14 3.35936E+00 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 2.28318E-01 TRUE FALSE 0.00000E+00 TRUE FALSE NPN1 3314 3350 0 58 0 0 17 20 43 19 U0.718859349 X U1E-14 U1.423409013 X U1E-15 U0.315354501 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 7.22620E-01 -1.00000E+06 1.00000E-14 1.78159E+00 -1.00000E+06 1.00000E-15 3.19446E-01 -1.00000E+06 1.00000E-15 FROM 3325 3366 0 212 0 13 0 25 NFET7T 3334 3366 0 211 0 0 19 25 20 44 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.843 U0.679 U17.102 1.48838E+00 -1.00000E+06 3.30402E-15 7.22620E-01 -1.00000E+06 9.43200E-15 7.22103E-01 -1.00000E+06 9.43200E-15 FROM 3325 3374 0 86 0 8 0 28 NPN1 3332 3374 0 6 0 0 17 28 44 18 U0.403976975 X U1E-14 U0.708734662 X U1E-15 U1.008518613718E-7 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 4.04024E-01 -1.00000E+06 1.00000E-14 7.22103E-01 -1.00000E+06 1.00000E-15 3.00000E-02 -1.00000E+06 1.00000E-15 PFET7T 3316 3329 0 22 0 0 19 24 45 43 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-1.066 U0.693 U17.512 3.35936E+00 -1.00000E+06 3.08301E-15 4.27130E+00 -1.00000E+06 1.69200E-14 1.78159E+00 -1.00000E+06 1.69200E-14 NUMBERS 3316 3286 0 2 0 0 16 U5 U0.1 U7 U-2 U1E-6 U1E-20 U1E-40 U1E-5 U1E-40 U1E-9 U2 I2 I30 R2 U0.1 U1E-14 FALSE TRUE TIME 3290 3286 0 1 90 0 0 TO 3371 3282 0 54 0 5 0 4 GND 3363 3292 0 53 0 1 0 2 TO 3353 3282 0 13 0 3 0 3 VDIFF 3345 3289 0 22 0 0 23 3 2 B0 U5 V0 U0.5 U0 U5 U6E-4 U3E-4 U3E-4 U6E-4 U2E-3 U0 U2.5 U1 U1000 R0 U0 U0.500416859 X U1E-14 U0 X U1E-14 5.24432E-01 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 2.28318E-01 TRUE FALSE 5.00000E-01 0.00000E+00 TRUE FALSE GND 3345 3293 0 23 0 1 0 2 VDIFF 3379 3289 0 21 0 0 23 18 2 B0 U50 V0 U0.03 U0 U5 U6E-4 U3E-4 U3E-4 U6E-4 U2E-3 U0 U2.5 U1 U1000 R0 U0 U0.032156937 X U1E-14 U0 X U1E-14 3.00000E-02 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 2.28254E-01 TRUE FALSE 3.00000E-02 0.00000E+00 TRUE FALSE GND 3379 3293 0 217 0 1 0 2 PFET7T 3395 3290 2 44 0 0 19 30 30 1 U3.545 X U3.083E-15 U3.545 X U1.692E-14 U5.000 X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.694 U22.233 3.33277E+00 -1.00000E+06 3.08301E-15 3.33277E+00 -1.00000E+06 1.69200E-14 5.00000E+00 -1.00000E+06 1.69200E-14 VDD 3395 3286 0 7 0 2 0 1 TO 3404 3290 0 6 0 9 0 30 GND 3395 3302 0 4 0 1 0 2 IDIFF 3395 3298 0 3 0 0 23 30 2 B0 U0.1 V0 U1.5E-5 U0 U1E-7 U6E-4 U3E-4 U3E-4 U6E-4 U2E-3 U0 U5E-9 U1E-9 U1000 R0 U0 U3.332770057 X U1E-14 U0 X U1E-14 3.33277E+00 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 2.28318E-01 TRUE FALSE 0.00000E+00 TRUE FALSE NFET7T 3431 3318 2 68 0 0 19 4 2 28 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.641 U0.679 U18.563 1.00000E+00 -1.00000E+06 3.30402E-15 0.00000E+00 -1.00000E+06 9.43200E-15 4.04024E-01 -1.00000E+06 9.43200E-15 FROM 3440 3318 4 10 0 5 0 4 GND 3431 3322 0 9 0 1 0 2 PFET7T 3423 3297 0 27 0 0 19 24 48 25 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-1.066 U0.693 U17.509 3.35936E+00 -1.00000E+06 3.08301E-15 4.27085E+00 -1.00000E+06 1.69200E-14 1.48838E+00 -1.00000E+06 1.69200E-14 NPN1 3425 3312 4 4 0 0 17 28 46 2 X X X X X X X X X U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 4.04024E-01 -1.00000E+06 1.00000E-14 8.18331E-01 -1.00000E+06 1.00000E-15 0.00000E+00 -1.00000E+06 1.00000E-15 VDD 3431 3301 0 11 0 2 0 1 TO 3438 3305 0 33 0 13 0 25 NFET7T 3431 3305 0 7 0 0 19 25 1 28 U1.556 X U3.304E-15 U5.000 X U9.432E-15 U0.386 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.762 U0.679 U19.090 1.48838E+00 -1.00000E+06 3.30402E-15 5.00000E+00 -1.00000E+06 9.43200E-15 4.04024E-01 -1.00000E+06 9.43200E-15 TO 3437 3312 0 93 0 8 0 28 NFET7T 3423 3305 2 32 0 0 19 25 46 25 U1.553 X U3.304E-15 U0.898 X U9.432E-15 U1.553 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.866 U0.679 U16.500 1.48838E+00 -1.00000E+06 3.30402E-15 8.18331E-01 -1.00000E+06 9.43200E-15 1.48838E+00 -1.00000E+06 9.43200E-15 GND 3423 3315 0 80 0 1 0 2 ISCOPE 3425 3283 0 6 0 0 2 1 47 U2.0003423157496E-9 C2.000nA TO 3408 3297 4 28 0 12 0 24 TO 3408 3289 4 115 0 7 0 23 PFET7T 3423 3289 0 42 0 0 19 23 1 48 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.690 U16.351 4.27384E+00 -1.00000E+06 3.08301E-15 5.00000E+00 -1.00000E+06 1.69200E-14 4.27085E+00 -1.00000E+06 1.69200E-14 VDD 3423 3285 0 77 0 2 0 1 GND 3415 3309 0 87 0 1 0 2 PFET7T 3415 3297 2 26 0 0 19 24 24 23 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-1.066 U0.693 U17.528 3.35936E+00 -1.00000E+06 3.08301E-15 3.35936E+00 -1.00000E+06 1.69200E-14 4.27384E+00 -1.00000E+06 1.69200E-14 PFET7T 3415 3289 2 43 0 0 19 23 23 1 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.690 U16.351 4.27384E+00 -1.00000E+06 3.08301E-15 4.27384E+00 -1.00000E+06 1.69200E-14 5.00000E+00 -1.00000E+06 1.69200E-14 VDD 3415 3285 0 84 0 2 0 1 NFET7T 3295 3357 0 65 0 0 19 4 11 2 U0.900 X U2.202E-15 U1.132 X U9.432E-15 U0.000 X U9.432E-15 U8.000 U2.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.641 U0.679 U11.063 1.00000E+00 -1.00000E+06 2.20268E-15 1.15598E+00 -1.00000E+06 9.43200E-15 0.00000E+00 -1.00000E+06 9.43200E-15 NFET7T 3306 3372 0 64 0 0 19 4 42 2 U0.900 X U2.202E-15 U0.261 X U9.432E-15 U0.000 X U9.432E-15 U8.000 U2.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.641 U0.679 U11.063 1.00000E+00 -1.00000E+06 2.20268E-15 4.18662E-01 -1.00000E+06 9.43200E-15 0.00000E+00 -1.00000E+06 9.43200E-15 GND 3295 3361 0 18 0 1 0 2 FROM 3286 3357 0 19 0 5 0 4 GND 3306 3376 0 6 0 1 0 2 FROM 3297 3372 0 7 0 5 0 4 NPN1 3314 3368 0 70 0 0 17 42 19 2 U0.41003593 X U1E-14 U0.365138733 X U1E-15 U0 X U1E-15 U5E-17 U5E-17 U100 U0.26 U1.28E-16 U0.025 U0.8 U20 4.18662E-01 -1.00000E+06 1.00000E-14 3.19446E-01 -1.00000E+06 1.00000E-15 0.00000E+00 -1.00000E+06 1.00000E-15 MMETER 3314 3359 1 17 0 0 2 19 U0.31944623 C0.319V TO 3329 3353 0 19 0 10 0 31 ISCOPE 3321 3355 0 18 0 0 2 20 31 U1.5272699597252E-9 C1.527nA GND 3316 3371 0 71 0 1 0 2 FROM 3307 3329 0 25 0 12 0 24 PFET7T 3316 3321 0 41 0 0 19 23 1 45 X X U3.083E-15 X X U1.692E-14 X X U1.692E-14 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U-0.876 U0.690 U16.351 4.27384E+00 -1.00000E+06 3.08301E-15 5.00000E+00 -1.00000E+06 1.69200E-14 4.27130E+00 -1.00000E+06 1.69200E-14 FROM 3307 3321 0 131 0 7 0 23 VDD 3316 3317 0 62 0 2 0 1 VDD 3306 3339 0 4 0 2 0 1 VDD 3285 3314 0 11 0 2 0 1 TO 3295 3313 0 123 0 4 0 22 IDIFF 3285 3321 0 10 0 0 23 1 41 B0 U0.1 V2 U1E-6 U0 U1E-7 U6E-4 U3E-4 U3E-4 U6E-4 U2E-3 U0 U2E-5 U1E-6 U6750 R0 U0 U5 X U1E-14 U2.31118392 X U1E-14 5.00000E+00 -1.00000E+06 1.00000E-14 2.71806E+00 -1.00000E+06 1.00000E-14 2.28318E-01 TRUE FALSE 0.00000E+00 TRUE FALSE ISCOPE 3287 3315 0 122 0 0 2 1 22 U2.0792211834923E-5 C20.792uA NFET7T 3285 3337 2 21 0 0 19 41 10 41 U2.543 X U3.304E-15 U1.146 X U9.432E-15 U2.543 X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.953 U0.679 U21.697 2.71806E+00 -1.00000E+06 3.30402E-15 1.21654E+00 -1.00000E+06 9.43200E-15 2.71806E+00 -1.00000E+06 9.43200E-15 VDD 3295 3333 0 16 0 2 0 1 NFET7T 3295 3337 0 14 0 0 19 41 1 11 X X U3.304E-15 X X U9.432E-15 X X U9.432E-15 U6.000 U4.000 U3.6E-5 U3.6E-5 U1.000 U1.000 U0.000 U0.941 U0.679 U22.075 2.71806E+00 -1.00000E+06 3.30402E-15 5.00000E+00 -1.00000E+06 9.43200E-15 1.15598E+00 -1.00000E+06 9.43200E-15 FROM 3290 3350 4 12 0 3 0 3 VDD 3302 3333 0 82 0 2 0 1 CAPFLOAT 3302 3354 0 14 0 0 7 20 2 U2E-12 U0.726832342 X U1E-14 U0 X U1E-14 7.22620E-01 -1.00000E+06 1.00000E-14 0.00000E+00 -1.00000E+06 1.00000E-14 GND 3302 3358 0 55 0 1 0 2 h 5 143 9 Iout V2 B1 I3 V0 U2E-6 U1.5E-5 U1E-15 U0 U6.918E-6 53 9 Iin V4 B1 I3 V0 U2E-6 U2E-5 U1E-15 U0 U2.079E-5 233 9 Iout2 V1 B1 I3 V0 U2E-6 U1E-5 U1E-15 U0 U4.006E-6 323 9 Iout3 V0 B1 I3 V0 U2E-6 U0 U1E-15 U0 U2.529E-6 413 9 Iout4 V3 B1 I3 V0 U2E-6 U0 U1E-15 U0 U7.098E-4 . xcircuit-3.9.73/examples/diffamp_test2.ps0000664000175000001440000004465512335667423017123 0ustar timusers%!PS-Adobe-3.0 %%Title: src/xcircuit-3.1.26/examples/diffamp_test2 %%Creator: Xcircuit v3.1 %%CreationDate: Tue Nov 11 12:51:34 2003 %%Pages: 2 %%BoundingBox: 178 218 434 574 %%DocumentNeededResources: font Helvetica font Times-Roman font Symbol %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.4 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--1/15/03 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.4 3 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /just exch def just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /setdefaults { aload length 2 idiv {currentdict 2 index known {pop pop} {def} ifelse} repeat } bind def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup abs scale } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /psinsertion {/PSobj save def /showpage {} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /ampl_test { % ampl_test is_schematic begingate 1.000 0.000 0.000 scb (Vinn) {/Helvetica cf} 2 23 0 1.00 -224 192 pinlabel (Vinp) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (Voutn) {/Helvetica cf} 2 20 0 1.00 -32 96 pinlabel (Voutp) {/Helvetica cf} 2 20 0 1.00 -32 192 pinlabel (Vcmref) {/Helvetica cf} 2 25 0 1.00 -160 256 pinlabel (Vbias) {/Helvetica cf} 2 29 0 1.00 -160 32 pinlabel sce 1 1.00 -224 96 -192 96 2 polygon 1 1.00 -224 192 -192 192 2 polygon 1 1.00 -128 192 -32 192 2 polygon 1 1.00 -128 96 -32 96 2 polygon (-) {/Symbol cf} 2 5 0 1.00 -141 106 label (+) {/Symbol cf} 2 5 0 1.00 -141 186 label 1 1.00 -32 144 -192 224 -192 64 -32 144 4 polygon (-) {/Symbol cf} 2 5 0 1.00 -173 186 label (+) {/Symbol cf} 2 5 0 1.00 -173 106 label 1 1.00 -160 80 -160 32 2 polygon 1 1.00 -160 208 -160 256 2 polygon endgate } def /gnd { % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /source { % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /Vsource { <> begingate 1.00 0 0 0 source (+) {/Symbol cf} 2 5 0 1.00 0 18 label (-) {/Symbol cf} 2 5 0 1.00 0 -18 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (v.m) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark value (spice:V%i %pv.p %pv.m ) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel sce mark (V) {hS} value {/Times-Roman cf} ctmk 20 0 1.00 48 0 label endgate } def /dot { % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman cf} 2 29 0 1.00 0 0 pinlabel endgate } def /jumper { % trivial begingate 1 1.00 0 0 10 -90.00 90.00 xcarc 1 1.00 0 10 0 16 2 polygon 1 1.00 0 -10 0 -16 2 polygon 1.000 0.000 0.000 scb (a) {/Times-Roman cf} 2 1 0 1.00 0 16 pinlabel (a) {/Times-Roman cf} 2 13 0 1.00 0 -16 pinlabel endgate } def /circle { % trivial begingate 1 1.00 16 0 6 0.00 360.00 xcarc 1 1.00 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.00 16 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.00 0 0 pinlabel endgate } def %%Page: diffamp_test 1 %%PageOrientation: Landscape /pgsave save def bop % 1203 848 offsets 90 rotate 40 -652 translate 1.0000 inchscale 2.6000 setlinewidth 1.00 0 1027 832 ampl_test 1.00 0 867 736 gnd 1.00 0 867 800 Vsource 1.00 0 1059 800 <> Vsource 1 1.00 1059 864 1059 1088 867 1088 3 polygon 1.00 0 1059 736 gnd 1 1.00 803 928 755 928 755 864 851 864 4 polygon 1 1.00 883 864 1059 864 2 polygon 1.00 0 1059 864 dot 1.00 270 867 864 jumper 1 1.00 803 1024 723 1024 2 polygon -1.00 0 723 1024 circle 1 1.00 995 928 1043 928 2 polygon 1 1.00 995 1024 1043 1024 2 polygon 1.00 270 1059 1024 jumper 1.00 270 1059 928 jumper 1 1.00 1075 1024 1139 1024 2 polygon 1 1.00 1075 928 1139 928 2 polygon 1.00 0 1139 1024 circle 1.00 0 1139 928 circle 1.000 0.000 0.000 scb (Vinse) {/Helvetica cf} 2 23 0 1.00 707 1024 pinlabel (Voutp) {/Helvetica cf} 2 20 0 1.00 1155 1024 pinlabel (Voutm) {/Helvetica cf} 2 20 0 1.00 1155 928 pinlabel sce 1411 624 beginpath 1411 1168 1 polyc 1379 1168 32 0.00 90.00 arc 515 1200 1 polyc 515 1168 32 90.00 180.00 arc 483 624 1 polyc 515 624 32 180.00 270.00 arc 1379 592 1 polyc 1379 624 32 270.00 360.00 arc 1 1.00 endpath (Differential amplifier: test) {/Helvetica cf} 2 25 0 1.00 947 1232 label pgsave restore showpage /pMOS { <> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS Vdd pmos W=%v"3" L=%v"2") {/Times-Roman cf} 2 4 0 1.00 -196 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel sce mark width (W=) {/Times-Roman cf} ctmk 20 p_rot 1.00 p_xps p_yps label mark length (L=) {/Times-Roman cf} ctmk 20 p_rot1 1.00 p_xps1 p_yps1 label endgate } def /Resistor { <> begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (r.2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value (spice:R%i %pr.1 %pr.2 ) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:R %pr.1 %pr.2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (W) {/Symbol cf} units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label endgate } def /nMOS { <> begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS GND nmos W=%v"3" L=%v"2") {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel sce mark width (W=) {/Times-Roman cf} ctmk 20 p_rot 1.00 p_xps p_yps label mark length (L=) {/Times-Roman cf} ctmk 20 p_rot1 1.00 p_xps1 p_yps1 label endgate } def /pmos4 { <> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width (spice:M%i %pD %pG %pS %pB pmos W=) {/Times-Roman cf} ctmk 4 0 1.00 -324 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel sce mark width (W=) {/Times-Roman cf} ctmk 20 p_rot 1.00 p_xps p_yps label mark length (L=) {/Times-Roman cf} ctmk 20 p_rot1 1.00 p_xps1 p_yps1 label 1 1.00 -32 0 16 0 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 20 0 1.00 16 0 pinlabel endgate } def /vdd { % trivial begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def /halfamp { begingate 1.00 0 128 320 <> pMOS -1.00 0 -16 320 <> pMOS 1 1.00 64 320 -544 320 2 polygon 1.00 0 128 384 vdd 1.00 0 -16 384 vdd 1.00 0 128 -96 <> nMOS 1 1.00 128 -32 128 256 2 polygon 1 1.00 48 0 128 0 2 polygon 1.00 0 128 0 dot 1 1.00 -16 -112 -16 -160 2 polygon 1.00 0 -16 -160 gnd 1.00 0 128 -160 gnd 1 1.00 64 -96 -448 -96 2 polygon 1 1.00 -16 -64 -16 -80 2 polygon 1.00 0 -16 -96 jumper -1.00 270 -224 16 <> pmos4 1 1.00 -224 0 -224 -96 2 polygon 1 1.00 -288 16 -288 -96 2 polygon 1 1.00 -160 16 -160 -96 2 polygon 1 1.00 -224 80 -224 160 -16 160 3 polygon 1.00 0 -16 160 dot 1.00 0 -160 -96 dot 1.00 0 -224 -96 dot 1.00 0 -288 -96 dot 1.00 0 -448 -96 dot 1 1.00 -448 32 -448 -192 2 polygon -1.00 0 -448 96 <> pmos4 1 1.00 -384 96 -352 96 2 polygon 1.00 0 -352 96 circle 1.00 0 -448 -256 <> nMOS 1.00 0 -448 -320 gnd 1 1.00 -464 96 -560 96 2 polygon 1 1.00 -448 160 -560 160 2 polygon 1 1.00 -16 64 -16 256 2 polygon -1.00 0 -16 0 <> pMOS endgate } def %%Page: ampl_test 2 %%PageOrientation: Landscape /pgsave save def bop % ampl_test is_symbol % 2295 762 offsets 90 rotate -107 -503 translate 0.6472 inchscale 2.6000 setlinewidth 1.00 0 2039 1146 <> pMOS 1.00 270 2423 1290 <> Resistor -1.00 0 3159 410 <> nMOS 1.00 0 2935 410 <> nMOS 1 1.00 3223 410 3223 474 3159 474 3159 698 4 polygon 1.00 0 2935 762 <> pmos4 1 1.00 2935 474 2935 698 2 polygon -1.00 0 3159 762 <> pmos4 1 1.00 2951 762 3143 762 2 polygon 1 1.00 2935 826 3159 826 2 polygon 1.00 0 3047 826 dot 1 1.00 3047 762 3047 1082 2 polygon 1.00 0 3047 1146 <> pMOS 1.00 0 3047 1210 vdd 1.00 0 2935 346 gnd 1.00 0 3159 346 gnd 1 1.00 2935 474 2855 474 2855 410 3 polygon 1 1.00 2871 410 1991 410 2 polygon 1.00 0 2039 826 dot 1 1.00 2039 762 2039 1082 2 polygon 1 1.00 2871 762 2839 762 2 polygon 1 1.00 3223 762 3255 762 2 polygon 1.00 0 3255 762 circle 1.00 180 2839 762 circle 1.00 0 2039 1210 vdd 1 1.00 2983 1146 1975 1146 2 polygon 1.00 0 2935 474 dot 1.00 0 2855 410 dot 1.00 0 3047 762 dot 1.00 0 2039 762 dot 1.00 0 3159 474 dot 1.00 270 2039 986 jumper 1.00 270 2615 1290 <> Resistor 1 1.00 2487 1290 2551 1290 2 polygon 1 1.00 2519 1290 2519 1258 2 polygon 1 1.00 2359 1290 2327 1290 2327 1258 3 polygon 1 1.00 2679 1290 2711 1290 2711 1258 3 polygon 1.00 0 2519 1290 dot 1.00 90 2327 1258 circle 1.00 90 2519 1258 circle 1.00 90 2711 1258 circle 1.00 0 2599 666 halfamp 1 1.00 1415 986 1207 986 2 polygon -1.00 0 1143 986 <> pMOS 1 1.00 1223 986 1223 922 1143 922 3 polygon 1.00 0 1143 1050 vdd 1.00 0 1223 986 dot 1 1.00 1143 922 1143 634 2 polygon -1.00 0 967 1146 <> pMOS 1 1.00 1031 1146 1975 1146 2 polygon 1 1.00 1047 1146 1047 1082 967 1082 967 634 4 polygon 1.00 0 967 1210 vdd 1.00 0 1143 506 gnd 1.00 0 967 506 gnd 1.000 0.000 0.000 scb (Vinn) {/Helvetica cf} 2 20 0 1.00 2263 762 pinlabel (Vinp) {/Helvetica cf} 2 23 0 1.00 1815 762 pinlabel sce 1 1.00 2727 858 2775 858 2 polygon 1.00 0 2775 858 circle 1.00 0 2727 858 dot 1.000 0.000 0.000 scb (Voutn) {/Helvetica cf} 2 20 0 1.00 2791 858 pinlabel sce 1 1.00 1351 858 1303 858 2 polygon -1.00 0 1303 858 circle 1.000 0.000 0.000 scb (Voutp) {/Helvetica cf} 2 23 0 1.00 1287 858 pinlabel sce 1.00 0 1351 858 dot 1.00 0 967 1082 dot 1.00 0 1047 1146 dot 1.00 0 1143 922 dot 1.000 0.000 0.000 scb (Voutp) {/Helvetica cf} 2 29 0 1.00 2327 1242 pinlabel (Voutn) {/Helvetica cf} 2 29 0 1.00 2711 1242 pinlabel (Vcmin) {/Helvetica cf} 2 29 0 1.00 2519 1242 pinlabel (Vcmin) {/Helvetica cf} 2 29 0 1.00 2823 762 pinlabel (Vcmref) {/Helvetica cf} 2 20 0 1.00 3271 762 pinlabel sce -1.00 0 1479 666 halfamp 1.00 0 1143 570 <> nMOS 1.00 0 967 570 <> nMOS 1 1.00 1079 570 855 570 2 polygon -1.00 0 855 570 circle 1.000 0.000 0.000 scb (Vbias) {/Helvetica cf} 2 23 0 1.00 839 570 pinlabel pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/logic.sim0000664000175000001440000000037212335667423015623 0ustar timusers| sim circuit "logic" from XCircuit v3.30 p Pin.1 Vdd int6 n Pin.1 GND int6 p int6 Vdd Pin.4 n int6 nand_1/ext13 Pin.4 n Pin.2 GND nand_1/ext13 p Pin.2 Vdd Pin.4 p Pin.2 Vdd Pin.5 n Pin.2 nand_2/ext13 Pin.5 n Pin.3 GND nand_2/ext13 p Pin.3 Vdd Pin.5 xcircuit-3.9.73/examples/.xcircuitrc.py0000664000175000001440000000126212335667423016622 0ustar timusers#-----------------------------------------# # xcircuitrc file for editing sheet music # # (python version) # # Rename this file to .xcircuitrc # #-----------------------------------------# # 1) Don't load any of the default libraries. # Instead, load only "musiclib". override("library") library("/usr/local/lib/xcircuit-3.6/musiclib") # 2) Load font Times-Roman and set the default font to Times-RomanISO font("Times-Roman") set("font", "Times-RomanISO") # 3) Set various parameters for music editing set("boxedit", "rhomboid-y") set("colorscheme", "inverse") set("xschema", "off") # 4) Set Backspace = Delete unbind("BackSpace", "Text Left") bind("BackSpace", "Text Delete") xcircuit-3.9.73/examples/threestage.ps0000664000175000001440000002756312335667423016526 0ustar timusers%!PS-Adobe-3.0 %%Title: threestage %%Creator: Xcircuit v2.3 %%CreationDate: Thu Jun 21 10:14:16 2001 %%Pages: 2 %%BoundingBox: 79 62 522 313 %%DocumentNeededResources: font Times-Roman font Symbol %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.3 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--5/16/01 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.3 1 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale /rotval exch def /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse /showflag 1 def rotval rotate Kn currentpoint translate /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 1024 and 0 gt {2 setlinecap} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt style 512 eq or { newpath } { stroke } ifelse grestore } def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /insertion {/PSobj save def /showpage {} def bop translate} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /samp { % -80 -80 160 160 bbox % samp is_schematic begingate 0 1.00 -80 -80 -80 80 80 0 3 polygon 1 1.00 0 -40 0 -80 2 polygon (-) {/Symbol cf} 2 5 0 1.00 -61 50 label (+) {/Symbol cf} 2 5 0 1.00 -61 -46 label 1.000 0.000 0.000 scb (in.m) {/Times-Roman cf} 2 7 0 1.00 -80 48 pinlabel (in.p) {/Times-Roman cf} 2 7 0 1.00 -80 -48 pinlabel (out) {/Times-Roman cf} 2 4 0 1.00 80 0 pinlabel (bias) {/Times-Roman cf} 2 13 0 1.00 0 -80 pinlabel endgate } def /gnd { % -32 -60 64 68 bbox % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /circle { % -6 -12 28 24 bbox % trivial begingate 1 1.00 16 0 6 0.00 360.00 xcarc 1 1.00 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.00 16 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.00 0 0 pinlabel endgate } def /capacitor { % -32 -64 64 128 bbox begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (c.1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (c.2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel sce (spice:C%i %pc.1 %pc.2 1.0P) {/Times-Roman cf} 2 0 0 1.00 -208 -160 infolabel sce (sim:c %pc.1 %pc.2) {/Times-Roman cf} 2 0 0 1.00 -208 -208 infolabel endgate } def /dot { % -10 -10 20 20 bbox % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman cf} 2 29 0 1.00 0 0 pinlabel endgate } def %%Page: threestage 1 %%PageOrientation: Portrait /pgsave save def bop % 433 318 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 481 590 samp 1.00 0 769 590 samp 1.00 0 1057 590 samp 1 1.00 481 510 481 286 1057 286 1057 510 4 polygon 1 1.00 769 510 769 286 2 polygon 1 1.00 561 590 609 590 609 542 689 542 4 polygon 1 1.00 849 590 897 590 897 542 977 542 4 polygon 1 1.00 1137 590 1185 590 1185 542 3 polygon 1.00 0 1185 414 gnd 1.00 0 897 414 gnd 1.00 0 609 414 gnd 1 1.00 609 590 609 702 369 702 369 638 401 638 5 polygon 1 1.00 401 542 337 542 2 polygon 1 1.00 689 638 657 638 657 702 897 702 897 590 5 polygon 1 1.00 977 638 945 638 945 702 1185 702 1185 590 5 polygon 1.00 -1 337 542 circle 1 1.00 1185 590 1233 590 2 polygon 1.00 0 1233 590 circle 1.000 0.000 0.000 scb (Input) {/Times-Roman cf} 2 7 0 1.00 321 542 pinlabel (Output) {/Times-Roman cf} 2 4 0 1.00 1249 590 pinlabel (Bias) {/Times-Roman cf} 2 13 0 1.00 769 222 pinlabel sce 1 1.00 769 286 769 238 2 polygon 1.00 270 769 238 circle 0.635 0.125 0.953 scb (Three-stage cascaded lowpass filter) {/Times-Roman cf} 2 0 0 1.00 497 798 label sce 1.00 0 609 478 capacitor 1.00 0 897 478 capacitor 1.00 0 1185 478 capacitor 1.00 0 609 590 dot 1.00 0 609 542 dot 1.00 0 769 286 dot 1.00 0 897 590 dot 1.00 0 897 542 dot 1.00 0 1185 590 dot pgsave restore showpage /nmos { % -64 -64 64 128 bbox begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel sce (spice:M%i %pD %pG %pS GND nmos) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel sce (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /pmos { % -64 -64 64 128 bbox begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel sce (spice:M%i %pD %pG %pS Vdd pmos) {/Times-Roman cf} 2 4 0 1.00 -196 -139 infolabel sce (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel endgate } def /vdd { % -32 0 64 66 bbox % trivial begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def %%Page: samp 2 %%PageOrientation: Portrait /pgsave save def bop % samp is_symbol % 685 449 offsets 1.0000 inchscale 2.6000 setlinewidth 1.000 0.000 0.000 scb (in.m) {/Times-Roman cf} 2 4 0 1.00 973 513 pinlabel (in.p) {/Times-Roman cf} 2 7 0 1.00 621 513 pinlabel (out) {/Times-Roman cf} 2 4 0 1.00 973 577 pinlabel (bias) {/Times-Roman cf} 2 7 0 1.00 719 353 pinlabel sce 1.00 0 797 289 gnd 1025 1.00 701 449 893 449 2 polygon 1025 1.00 765 641 829 641 2 polygon 1025 1.00 797 641 797 577 701 577 3 polygon 1025 1.00 893 577 957 577 2 polygon 1.00 0 957 513 circle 1.00 0 957 577 circle 1.00 -1 637 513 circle 1.00 -1 735 353 circle 1025 1.00 797 417 797 449 2 polygon 1.00 0 797 353 nmos 1.00 0 893 641 pmos 1.00 0 701 513 nmos 1.00 -1 893 513 nmos 1.00 -1 701 641 pmos 1.00 0 797 449 dot 1.00 0 893 577 dot 1.00 0 701 577 dot 1.00 0 797 641 dot 1.00 0 701 705 vdd 1.00 0 893 705 vdd pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/.xcircuitrc0000664000175000001440000000121612335667423016172 0ustar timusers#-----------------------------------------# # xcircuitrc file for editing sheet music # # (TCL version) # #-----------------------------------------# # 1) Don't load any of the default libraries. # Instead, load only "musiclib". library override library 1 load musiclib # 2) Load font Times-Roman and set the default font to Times-RomanISO loadfont Times-Roman # set fontfamily Times-Roman label family Times-Roman # 3) Set various parameters for music editing config boxedit rhomboidy config colorscheme inverse xcircuit::xschema disable # 4) Set Backspace = Delete bindkey "BackSpace" "Text Left" forget bindkey "BackSpace" "Text Delete" xcircuit-3.9.73/examples/FlareLED.ps0000664000175000001440000006727012335667423015750 0ustar timusers%!PS-Adobe-3.0 %%Title: examples/FlareLED %%Creator: Xcircuit v2.3 %%CreationDate: Mon Jul 2 14:17:57 2001 %%Pages: 1 %%BoundingBox: -319 -124 931 916 %%DocumentNeededResources: font Helvetica font Helvetica-Bold font Times-Roman %%+ font Times-RomanISO font Symbol %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.3 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--5/16/01 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.3 1 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale /rotval exch def /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse /showflag 1 def rotval rotate Kn currentpoint translate /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt style 512 eq or { newpath } { stroke } ifelse grestore } def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /insertion {/PSobj save def /showpage {} def bop translate} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /Times-RomanISO exch definefont pop % XCircuit output starts here. /PIC16C54 { % 0 0 480 736 bbox (?) 1 beginparm 0 1.00 0 0 0 736 480 736 480 0 4 polygon (PIC16C54A) {/Helvetica-Bold cf} 2 21 0 1.00 240 320 label (Vdd) {/Helvetica cf} 2 23 0 1.00 464 368 label (RA2) {/Helvetica cf} 2 20 0 1.00 16 688 label (RA3) {/Helvetica cf} 2 20 0 1.00 16 624 label (RTCC) {/Helvetica cf} 2 20 0 1.00 16 560 label (MCLR) {ol} {/Helvetica cf} 3 20 0 1.00 16 496 label (Vss) {/Helvetica cf} 2 20 0 1.00 16 368 label (RB0) {/Helvetica cf} 2 20 0 1.00 16 240 label (RB1) {/Helvetica cf} 2 20 0 1.00 16 176 label (RB2) {/Helvetica cf} 2 20 0 1.00 16 112 label (RB3) {/Helvetica cf} 2 20 0 1.00 16 48 label (RB4) {/Helvetica cf} 2 23 0 1.00 464 48 label (RB5) {/Helvetica cf} 2 23 0 1.00 464 112 label (RB6) {/Helvetica cf} 2 23 0 1.00 464 176 label (RB7) {/Helvetica cf} 2 23 0 1.00 464 240 label (OSC2/CLKOUT) {/Helvetica cf} 2 23 0 1.00 464 496 label (OSC1/CLKIN) {/Helvetica cf} 2 23 0 1.00 464 560 label (RA0) {/Helvetica cf} 2 23 0 1.00 464 624 label (RA1) {/Helvetica cf} 2 23 0 1.00 464 688 label sce mark v1 (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 224 256 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 0 688 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 0 624 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 0 560 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 0 496 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 0 368 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 0 240 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 0 176 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 0 112 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 0 48 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 480 48 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 480 112 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 480 176 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 480 240 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 480 368 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 480 496 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 480 560 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 480 624 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 480 688 pinlabel endgate } def /LTC490 { % 0 0 416 384 bbox (?) 1 beginparm 0 1.00 0 0 0 384 416 384 416 0 4 polygon (RS422) {/Helvetica cf} 2 21 0 1.00 192 176 label (Transciever) {/Helvetica cf} 2 21 0 1.00 208 128 label (LTC490) {/Helvetica-Bold cf} 2 21 0 1.00 192 256 label (Vcc) {/Helvetica cf} 2 20 0 1.00 16 336 label (R) {/Helvetica cf} 2 20 0 1.00 16 240 label (D) {/Helvetica cf} 2 20 0 1.00 16 144 label (GND) {/Helvetica cf} 2 20 0 1.00 16 48 label (Y) {/Helvetica cf} 2 23 0 1.00 400 48 label (Z) {/Helvetica cf} 2 23 0 1.00 400 144 label (B) {/Helvetica cf} 2 23 0 1.00 400 240 label (A) {/Helvetica cf} 2 23 0 1.00 400 336 label sce mark v1 (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 208 80 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 0 336 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 0 240 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 0 144 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 0 48 pinlabel (5) {/Helvetica cf} 2 20 0 1.00 416 48 pinlabel (6) {/Helvetica cf} 2 20 0 1.00 416 144 pinlabel (7) {/Helvetica cf} 2 20 0 1.00 416 240 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 416 336 pinlabel endgate } def /terminal_block { % -160 -80 320 173 bbox (?) 1 beginparm 0 1.00 -160 -80 -160 48 160 48 160 -80 4 polygon (ED100/3DS) {/Helvetica cf} 2 21 0 1.00 0 80 label 1 1.00 0 -16 32 0.00 360.00 xcarc 1 1.00 96 -16 32 0.00 360.00 xcarc 1 1.00 -96 -16 32 0.00 360.00 xcarc sce mark v1 (pcb:J) {/Helvetica cf} ctmk 21 0 1.00 0 -112 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 25 0 1.00 -96 -16 pinlabel (2) {/Helvetica cf} 2 25 0 1.00 0 -16 pinlabel (3) {/Helvetica cf} 2 25 0 1.00 96 -16 pinlabel endgate } def /LTC1152 { % -192 -192 384 384 bbox (?) 1 beginparm 0 1.00 -192 -192 -192 192 192 192 192 -192 4 polygon (LTC1152) {/Helvetica-Bold cf} 2 25 0 1.00 0 48 label (Op-amp) {/Helvetica cf} 2 29 0 1.00 0 0 label (SHDN) {/Helvetica cf} 2 20 0 1.00 -176 144 label (IN) {/Helvetica cf} (-) {/Symbol cf} 4 20 0 1.00 -176 48 label (IN) {/Helvetica cf} (+) {/Symbol cf} 4 20 0 1.00 -176 -48 label (-) {/Symbol cf} (V) {/Helvetica cf} 4 20 0 1.00 -176 -144 label (COMP) {/Helvetica cf} 2 23 0 1.00 176 -144 label (OUT) {/Helvetica cf} 2 23 0 1.00 176 -48 label (+) {/Symbol cf} (V) {/Helvetica cf} 4 23 0 1.00 176 48 label (CP) {/Helvetica cf} 2 23 0 1.00 176 144 label sce mark v1 (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -80 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -192 144 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -192 48 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -192 -48 pinlabel (5) {/Helvetica cf} 2 20 0 1.00 192 -144 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -192 -144 pinlabel (6) {/Helvetica cf} 2 20 0 1.00 192 -48 pinlabel (7) {/Helvetica cf} 2 20 0 1.00 192 48 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 192 144 pinlabel endgate } def /DSUB9 { % -160 0 320 186 bbox (?) 1 beginparm 1 1.00 -128 96 16 0.00 360.00 xcarc 1 1.00 -32 32 16 0.00 360.00 xcarc 1 1.00 0 96 16 0.00 360.00 xcarc 1 1.00 64 96 16 0.00 360.00 xcarc 1 1.00 128 96 16 15.00 375.00 xcarc 1 1.00 96 32 16 0.00 360.00 xcarc 1 1.00 32 32 16 0.00 360.00 xcarc 1 1.00 -64 96 16 0.00 360.00 xcarc 1 1.00 -96 32 16 0.00 360.00 xcarc sce mark v1 (pcb:J) {/Helvetica cf} ctmk 21 0 1.00 16 -48 infolabel 128 128 beginpath 128 96 32 450.00 333.43 arcn 124 17 1 polyc 96 32 32 333.43 270.00 arcn -96 0 1 polyc -96 32 32 270.00 206.57 arcn -156 81 1 polyc -128 96 32 206.57 90.00 arcn 128 128 1 polyc 1 1.00 endpath (AMP 745781-4) {/Helvetica cf} 2 25 0 1.00 0 160 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 25 0 1.00 -128 96 pinlabel (3) {/Helvetica cf} 2 25 0 1.00 0 96 pinlabel (2) {/Helvetica cf} 2 25 0 1.00 -64 96 pinlabel (4) {/Helvetica cf} 2 25 0 1.00 64 96 pinlabel (5) {/Helvetica cf} 2 25 0 1.00 128 96 pinlabel (6) {/Helvetica cf} 2 29 0 1.00 -96 32 pinlabel (7) {/Helvetica cf} 2 29 0 1.00 -32 32 pinlabel (8) {/Helvetica cf} 2 29 0 1.00 32 32 pinlabel (9) {/Helvetica cf} 2 29 0 1.00 96 32 pinlabel endgate } def /Crystal { % -144 -144 288 288 bbox (?) 1 beginparm 0 1.00 -144 -144 -144 144 144 144 144 -144 4 polygon (CTX169) {/Helvetica-Bold cf} 2 25 0 1.00 0 16 label (MHz) {hS} (20) {/Helvetica cf} 4 21 0 1.00 0 -32 label (N/C) {/Helvetica cf} 2 20 0 1.00 -128 96 label (GND) {/Helvetica cf} 2 20 0 1.00 -128 -96 label (OUT) {/Helvetica cf} 2 23 0 1.00 128 -96 label (Vdd) {/Helvetica cf} 2 23 0 1.00 128 96 label sce mark v1 (pcb:X) {/Helvetica cf} ctmk 21 0 1.00 0 -176 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -144 96 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -144 -96 pinlabel (3) {/Helvetica cf} 2 20 0 1.00 144 -96 pinlabel (4) {/Helvetica cf} 2 20 0 1.00 144 96 pinlabel endgate } def /ADC12138 { % -240 -464 480 928 bbox (?) 1 beginparm 0 1.00 -240 -464 -240 464 240 464 240 -464 4 polygon (CH0) {/Helvetica cf} 2 20 0 1.00 -224 416 label (CH1) {/Helvetica cf} 2 20 0 1.00 -224 352 label (CH2) {/Helvetica cf} 2 20 0 1.00 -224 288 label (CH3) {/Helvetica cf} 2 20 0 1.00 -224 224 label (CH4) {/Helvetica cf} 2 20 0 1.00 -224 160 label (CH5) {/Helvetica cf} 2 20 0 1.00 -224 96 label (CH6) {/Helvetica cf} 2 20 0 1.00 -224 32 label (CH7) {/Helvetica cf} 2 20 0 1.00 -224 -32 label (COM) {/Helvetica cf} 2 20 0 1.00 -224 -96 label (MuxOut1) {/Helvetica cf} 2 20 0 1.00 -224 -160 label (A/Din2) {/Helvetica cf} 2 20 0 1.00 -224 -352 label (DGND) {/Helvetica cf} 2 20 0 1.00 -224 -416 label (+) {/Symbol cf} (VA) {/Helvetica cf} 4 23 0 1.00 224 -416 label (-) {/Symbol cf} (Vref) {/Helvetica cf} 4 23 0 1.00 224 -352 label (+) {/Symbol cf} (Vref) {/Helvetica cf} 4 23 0 1.00 224 -288 label (AGND) {/Helvetica cf} 2 23 0 1.00 224 -224 label (PD) {/Helvetica cf} 2 23 0 1.00 224 -160 label (EOC) {/Helvetica cf} 2 23 0 1.00 224 -96 label (CONV) {ol} {/Helvetica cf} 3 23 0 1.00 224 -32 label (CS) {ol} {/Helvetica cf} 3 23 0 1.00 224 32 label (DO) {/Helvetica cf} 2 23 0 1.00 224 96 label (DI) {/Helvetica cf} 2 23 0 1.00 224 160 label (SCLK) {/Helvetica cf} 2 23 0 1.00 224 224 label (A/Din1) {/Helvetica cf} 2 20 0 1.00 -224 -224 label (MuxOut2) {/Helvetica cf} 2 20 0 1.00 -224 -288 label (CCLK) {/Helvetica cf} 2 23 0 1.00 224 288 label (DOR) {ol} {/Helvetica cf} 3 23 0 1.00 224 352 label (+) {/Symbol cf} (VD) {/Helvetica cf} 4 23 0 1.00 224 416 label (ADC12138) {/Helvetica-Bold cf} 2 21 0 1.00 0 64 label sce mark v1 (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 0 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -240 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -240 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -240 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -240 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -240 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -240 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -240 32 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -240 -32 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -240 -96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -240 -160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -240 -224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -240 -288 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -240 -352 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -240 -416 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 240 -416 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 240 -352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 240 -288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 240 -224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 240 -160 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 240 -96 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 240 -32 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 240 32 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 240 96 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 240 160 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 240 224 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 240 288 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 240 352 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 240 416 pinlabel endgate } def /TK11950 { % -336 -112 672 224 bbox (?) 1 beginparm 0 1.00 -336 -112 -336 112 336 112 336 -112 4 polygon (NOISE BYPASS) {/Helvetica cf} 2 20 0 1.00 -320 64 label (CONTROL) {/Helvetica cf} 2 20 0 1.00 -320 0 label (RESET OUT) {/Helvetica cf} 2 20 0 1.00 -320 -64 label (VO) {/Helvetica cf} 2 23 0 1.00 320 -64 label (GND) {/Helvetica cf} 2 23 0 1.00 320 0 label (VIN) {/Helvetica cf} 2 23 0 1.00 320 64 label (TK11950) {/Helvetica-Bold cf} 2 21 0 1.00 64 16 label (V) {hS} (5.0) {/Helvetica cf} 4 29 0 1.00 64 -32 label sce mark v1 (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -144 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -336 64 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -336 0 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -336 -64 pinlabel (4) {/Helvetica cf} 2 20 0 1.00 336 -64 pinlabel (5) {/Helvetica cf} 2 20 0 1.00 336 0 pinlabel (6) {/Helvetica cf} 2 20 0 1.00 336 64 pinlabel endgate } def /Capacitor { % -32 -64 186 128 bbox (1.0) (\265) (?) 3 beginparm 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel sce mark v2 v1 ( %p1 %p2 ) v3 (spice:C) {/Times-RomanISO cf} ctmk 4 0 1.00 -208 -160 infolabel sce (sim:c %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel mark (F) v2 {hS} v1 {/Times-RomanISO cf} ctmk 20 0 1.00 48 0 label sce mark v3 (pcb:C) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def /LM13700 { % -256 -256 480 544 bbox (?) 1 beginparm 0 1.00 -256 -256 -256 288 224 288 224 -256 4 polygon (BufIn1) {/Helvetica cf} 2 20 0 1.00 -240 -144 label (BufOut1) {/Helvetica cf} 2 20 0 1.00 -240 -208 label (BufIn2) {/Helvetica cf} 2 23 0 1.00 208 -144 label (+) {/Symbol cf} (V) {/Helvetica cf} 4 23 0 1.00 208 -80 label (Out2) {/Helvetica cf} 2 23 0 1.00 208 -16 label 1.000 0.000 0.000 scb (7) {/Helvetica cf} 2 23 0 1.00 -256 -144 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -256 -208 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 -144 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 -80 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 -16 pinlabel sce (LM13700) {/Helvetica-Bold cf} 2 21 0 1.00 -16 16 label (Iabc1) {/Helvetica cf} 2 20 0 1.00 -240 240 label (Dbias1) {/Helvetica cf} 2 20 0 1.00 -240 176 label (1) {/Helvetica cf} (+) {/Symbol cf} (In) {/Helvetica cf} 6 20 0 1.00 -240 112 label (Out1) {/Helvetica cf} 2 20 0 1.00 -240 -16 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -256 240 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -256 176 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -256 112 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -256 48 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -256 -16 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 112 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 176 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 240 pinlabel sce (-) {/Symbol cf} (V) {/Helvetica cf} 4 20 0 1.00 -240 -80 label 1.000 0.000 0.000 scb (6) {/Helvetica cf} 2 23 0 1.00 -256 -80 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 48 pinlabel sce (BufOut2) {/Helvetica cf} 2 23 0 1.00 208 -208 label 1.000 0.000 0.000 scb (9) {/Helvetica cf} 2 20 0 1.00 224 -208 pinlabel sce (1) {/Helvetica cf} (-) {/Symbol cf} (In) {/Helvetica cf} 6 20 0 1.00 -240 48 label (Iabc2) {/Helvetica cf} 2 23 0 1.00 208 240 label (Dbias2) {/Helvetica cf} 2 23 0 1.00 208 176 label (2) {/Helvetica cf} (+) {/Symbol cf} (In) {/Helvetica cf} 6 23 0 1.00 208 112 label (2) {/Helvetica cf} (-) {/Symbol cf} (In) {/Helvetica cf} 6 23 0 1.00 208 48 label sce mark v1 (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 -16 -304 infolabel endgate } def /Resistor { % -14 -64 157 128 bbox (1.0) (k) (?) 3 beginparm 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel sce mark v2 v1 ( %p1 %p2 ) v3 (spice:R) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel sce (sim:R %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel mark (W) {/Symbol cf} v2 {hS} v1 {/Times-Roman cf} ctmk 20 0 1.00 32 0 label sce mark v3 (pcb:R) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def /gnd { % -32 -60 64 68 bbox % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /dot { % -10 -10 20 20 bbox % trivial begingate 248 1.00 0 0 6 0.00 360.00 xcarc 1.000 0.000 0.000 scb (x) {/Times-Roman cf} 2 29 0 1.00 0 0 pinlabel endgate } def /vdd { % -32 0 64 66 bbox % trivial begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 1.000 0.000 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def %%Page: 1 1 %%PageOrientation: Portrait /pgsave save def bop % 1688 848 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 664 1648 [(5) ] PIC16C54 1.00 180 -24 2384 [(6) ] LTC490 1.00 0 712 -160 [(2) ] terminal_block 1.00 0 1800 944 [(7) ] LTC1152 1.00 0 -568 1296 [(3) ] DSUB9 1.00 180 1576 2192 [(1) ] Crystal 1.00 0 904 1088 [(2) ] ADC12138 1.00 -181 -56 1664 [(4) ] TK11950 1 1.00 1432 2288 1304 2288 1304 2208 1144 2208 4 polygon 1.00 -1 2072 1168 Capacitor 1.00 0 920 304 [(1) ] LM13700 1.00 0 1096 -160 [(1) ] terminal_block 1.00 0 1320 1424 Resistor 1.00 0 120 1984 Resistor 1.00 0 328 1456 Resistor 1.00 -1 -696 2064 Resistor 1.00 0 408 1600 Resistor 1.00 0 1384 992 Resistor 1.00 0 1784 2224 Capacitor 1.00 -1 1512 720 Capacitor 1.00 0 2088 832 Capacitor 1.00 0 -280 1456 Capacitor 1.00 0 504 416 Capacitor 1 1.00 664 544 504 544 504 480 3 polygon 1 1.00 504 352 504 224 664 224 3 polygon 1 1.00 -664 1328 -664 224 504 224 3 polygon 1.00 0 -664 224 gnd 1 1.00 664 160 -472 160 -472 1328 3 polygon 1 1.00 -696 2000 -696 1392 2 polygon 1 1.00 -440 2240 -504 2240 -504 1392 3 polygon 1 1.00 -440 2336 -568 2336 -568 1392 3 polygon 1 1.00 280 1664 408 1664 408 2336 -24 2336 4 polygon 1 1.00 -24 2048 344 2048 2 polygon 1 1.00 344 2048 344 1728 280 1728 3 polygon 1 1.00 328 1520 328 1600 280 1600 3 polygon 1 1.00 408 1664 408 1664 2 polygon 1 1.00 328 1520 408 1520 408 1536 3 polygon 1.00 -181 1704 1760 [(3) ] TK11950 1 1.00 1144 736 1352 736 2 polygon 1.00 0 1352 736 dot 1 1.00 1608 896 1384 896 1384 928 3 polygon 1 1.00 1608 1088 1384 1088 1384 1056 3 polygon 1 1.00 1992 992 2136 992 2136 1232 1384 1232 1384 1088 5 polygon 1.00 0 1384 1088 dot 1 1.00 -440 2144 -696 2144 -696 2128 3 polygon 1 1.00 -440 2048 -536 2048 -536 2000 -696 2000 4 polygon 1 1.00 -632 1392 -632 2144 2 polygon 1.00 0 -632 2144 dot 1.00 0 -696 2000 dot 1 1.00 -440 1392 -440 1888 408 1888 3 polygon 1.00 0 408 1888 dot 1.00 0 408 1664 dot 1.00 0 328 1520 dot 1 1.00 1144 2016 1368 2016 1368 2112 1432 2112 4 polygon 1 1.00 664 2016 568 2016 568 2432 1784 2432 1784 2288 1720 2288 6 polygon 1 1.00 1352 2016 1784 2016 1784 2160 3 polygon 1.00 0 1368 2016 dot 1 1.00 1144 1376 1240 1376 1240 2144 1144 2144 4 polygon 1 1.00 1144 1312 1224 1312 1224 1632 616 1632 616 1888 664 1888 6 polygon 1 1.00 1144 1248 1208 1248 1208 1616 600 1616 600 1824 664 1824 6 polygon 1 1.00 1144 1184 1192 1184 1192 1600 584 1600 584 1760 664 1760 6 polygon 1 1.00 1144 1120 1176 1120 1176 1584 568 1584 568 1696 664 1696 6 polygon 1 1.00 1144 1056 1256 1056 1256 1760 1144 1760 4 polygon 1 1.00 1144 992 1272 992 1272 1696 1144 1696 4 polygon 1 1.00 1144 2272 1208 2272 1208 2416 24 2416 24 2240 -24 2240 6 polygon 1 1.00 -24 2144 40 2144 40 2400 1176 2400 1176 2336 1144 2336 6 polygon 1 1.00 664 736 632 736 632 800 664 800 4 polygon 1 1.00 664 864 632 864 632 928 664 928 4 polygon 1 1.00 664 672 600 672 2 polygon 1.00 0 456 608 gnd 1.00 0 -280 1360 gnd 1 1.00 -280 1392 -440 1392 2 polygon 1.00 0 1368 2112 vdd 1 1.00 1992 800 2040 800 2040 768 2088 768 4 polygon 1.00 0 1512 640 dot 1 1.00 1608 800 1512 800 1512 784 3 polygon 1.00 0 2088 896 dot 1 1.00 1992 1088 2072 1088 2072 1104 3 polygon 1.00 0 2072 1232 dot 1 1.00 664 96 408 96 408 480 664 480 4 polygon 1 1.00 408 96 408 0 1208 0 1208 480 1128 480 5 polygon 1.00 0 408 96 dot 1 1.00 408 480 408 1040 536 1040 536 1440 664 1440 5 polygon 1.00 0 408 480 dot (Flare Genesis) {/Helvetica cf} 2 16 0 1.50 1896 432 label (LED Interface) {/Helvetica cf} 2 16 0 1.50 1896 336 label 1 1.00 664 416 632 416 632 16 712 16 712 -176 5 polygon 1 1.00 664 352 616 352 616 -176 3 polygon 1 1.00 1000 -176 1000 -16 1240 -16 1240 352 1144 352 5 polygon 1 1.00 1096 -176 1096 -32 1256 -32 1256 416 1144 416 5 polygon 1 1.00 1192 -176 1192 -288 344 -288 344 1072 504 1072 504 1248 664 1248 7 polygon 1 1.00 1144 288 1304 288 1304 -320 296 -320 296 1104 472 1104 472 1504 664 1504 8 polygon 1 1.00 1144 672 1288 672 1288 800 1144 800 4 polygon 1 1.00 1384 1072 1288 1072 1288 800 1192 800 4 polygon 1.00 0 1288 800 dot 1.00 0 1384 1072 dot 1 1.00 1144 864 1240 864 1240 928 1144 928 4 polygon 1 1.00 1560 848 1560 992 1608 992 3 polygon 1 1.00 1560 848 1352 848 1352 640 2136 640 2136 896 1992 896 6 polygon 1 1.00 1512 656 1512 640 2 polygon 1 1.00 1576 800 1576 720 2 polygon 1.00 0 1576 800 dot 1.00 0 1576 720 gnd 1 1.00 -392 1664 -440 1664 2 polygon 1.00 0 -440 1664 dot 1 1.00 -392 1728 -424 1728 -424 1856 472 1856 472 2144 664 2144 6 polygon 1 1.00 120 1920 120 1856 2 polygon 1.00 0 120 2048 dot 1.00 0 120 1856 dot 1 1.00 -392 1600 -408 1600 -408 1520 -280 1520 4 polygon 1 1.00 -280 1360 -280 1392 2 polygon 1.00 0 -280 1392 dot 1 1.00 328 1392 328 1248 -472 1248 3 polygon 1.00 0 -472 1248 dot 1 1.00 1144 224 1320 224 2 polygon 1 1.00 1176 224 1176 32 504 32 504 160 4 polygon 1.00 0 504 160 dot 1.00 0 1176 224 dot 1 1.00 1320 1360 1320 224 2 polygon 1 1.00 2136 1232 2136 1696 2040 1696 3 polygon 1.00 0 2136 1232 dot 1 1.00 2040 1760 2136 1760 2136 1936 1320 1936 1320 1760 1368 1760 6 polygon 1 1.00 1320 1488 1320 1584 2088 1584 2088 1824 2040 1824 5 polygon 1 1.00 664 992 600 992 600 1184 664 1184 4 polygon 1 1.00 664 1120 600 1120 2 polygon 1 1.00 664 1056 600 1056 2 polygon 1.00 0 600 1056 dot 1.00 0 600 1120 dot 1 1.00 600 992 600 608 2 polygon 1.00 0 600 672 dot 1.00 0 600 992 dot 1 1.00 1240 864 1240 608 456 608 3 polygon 1.00 0 600 608 dot 1.00 0 1240 864 dot (is not complete!) {CR} (this schematic) {/Helvetica cf} 4 16 0 1.00 1864 -80 label 0 1.00 1592 -176 1592 496 2456 496 2456 -176 4 polygon 1 1.00 1592 400 2456 400 2 polygon 1 1.00 1592 304 2456 304 2 polygon (1.0) {/Helvetica cf} 2 16 0 1.50 1896 240 label 1 1.00 1592 208 2456 208 2 polygon (Project:) {/Helvetica cf} 2 16 0 1.50 1624 432 label (Name:) {/Helvetica cf} 2 16 0 1.50 1624 336 label (Revision:) {/Helvetica cf} 2 16 0 1.50 1624 240 label (Design:) {/Helvetica cf} 2 16 0 1.50 1624 144 label (Date:) {/Helvetica cf} 2 16 0 1.50 1624 48 label (Notes:) {/Helvetica cf} 2 16 0 1.50 1624 -48 label 1 1.00 1592 112 2456 112 2 polygon 1 1.00 1592 16 2456 16 2 polygon (Harry Eaton) {/Helvetica cf} 2 16 0 1.50 1912 144 label 0 1.00 1576 -192 1576 512 2472 512 2472 -192 4 polygon 1.00 0 -664 224 dot pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/envelope.ps0000664000175000001440000003203512335667423016176 0ustar timusers%!PS-Adobe-3.0 %%Title: examples/envelope %%Creator: Xcircuit v2.3 %%CreationDate: Tue May 15 15:08:31 2001 %%Pages: 1 %%BoundingBox: -4 -4 616 796 %%DocumentNeededResources: font Helvetica font Times-Roman font HelveticaISO %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.3 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--5/15/01 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.3 1 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale /rotval exch def /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse /showflag 1 def rotval rotate Kn currentpoint translate /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt style 512 eq or { newpath } { stroke } ifelse grestore } def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /insertion {/PSobj save def /showpage {} def bop translate} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog /Helvetica findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /HelveticaISO exch definefont pop % XCircuit output starts here. /rose { % -132 -196 267 388 bbox begingate 0.125 0.541 0.125 scb 60 -176 beginpath 44 -168 36 -144 28 -128 curveto -4 -112 -44 -96 -52 -104 curveto -60 -112 -124 -120 -132 -144 curveto -116 -144 -124 -136 -100 -152 curveto 36 -168 28 -180 24 -176 16 -188 12 -184 4 -192 0 -188 -8 -196 -12 -192 -20 -196 -24 -192 -32 -196 -36 -192 -48 -192 -48 -188 -60 -188 -60 -184 -68 -184 -68 -180 -76 -176 -72 -172 -84 -168 -80 -164 -92 -160 -92 -156 25 polyc 36 -160 1 polyc 44 -168 40 -172 60 -180 curveto 241 1.00 endpath 60 -144 beginpath 68 -112 44 -88 124 -80 curveto 140 -80 148 -200 84 -176 curveto 60 -144 64 -164 64 -172 72 -172 4 polyc 241 1.00 endpath 28 -16 beginpath 36 -24 52 -120 60 -160 curveto 52 -168 56 -184 64 -188 3 polyc 44 -128 20 -16 12 -8 curveto 241 1.00 endpath 52 16 beginpath 68 16 76 0 92 0 curveto 108 0 28 8 44 8 curveto 241 1.00 endpath 12 -8 beginpath 28 -8 44 -40 60 -40 curveto 44 -32 52 -8 44 8 curveto 241 1.00 endpath -20 -16 beginpath -44 -40 -44 -48 -52 -56 curveto -52 -40 -44 -32 -44 -16 curveto 241 1.00 endpath 0.812 0.000 0.000 scb 84 88 beginpath 116 112 92 144 76 168 curveto 44 176 28 176 20 160 curveto 20 168 4 176 -4 176 curveto -4 180 -12 184 -16 180 curveto -44 200 -60 184 -84 192 curveto -92 192 -100 184 -108 160 curveto -116 160 1 polyc -116 160 -108 152 -124 152 curveto -124 116 -120 88 -108 72 curveto -116 80 -116 80 -124 80 curveto -128 56 -136 36 -124 32 curveto -92 24 -76 8 -76 0 curveto -76 -4 -80 -4 -76 -8 curveto -4 -32 52 8 52 24 curveto 84 32 92 72 84 88 curveto 241 1.00 endpath sce 1 1.00 -108 80 -124 72 -124 152 -92 48 spline 1 1.00 -100 160 -100 168 -68 160 -116 160 spline 1 1.00 -116 160 -108 152 -124 152 -116 160 spline 1 1.00 -68 152 -60 176 -20 176 -84 128 spline 1 1.00 -4 192 -4 168 12 160 -20 176 spline 1 1.00 20 152 44 136 60 104 12 160 spline 1 1.00 28 176 44 176 76 168 20 160 spline 1 1.00 92 144 116 112 84 88 76 168 spline 1 1.00 60 96 52 80 52 24 76 120 spline 1 1.00 92 72 84 32 52 24 84 88 spline 1 1.00 -52 200 -60 184 -84 192 -20 184 spline 1 1.00 -92 192 -100 184 -108 160 -84 192 spline 1 1.00 52 8 -4 -32 -76 -8 52 24 spline 1 1.00 28 64 -12 24 -36 32 52 72 spline 1 1.00 68 72 4 64 -36 32 52 72 spline 1 1.00 -20 32 -84 16 -76 -8 -36 32 spline 1 1.00 -76 8 -92 24 -124 32 -76 0 spline 1 1.00 -140 24 -132 48 -124 80 -108 32 spline 1 1.00 -92 32 -76 64 -20 48 -108 32 spline 1 1.00 -116 80 -116 80 -108 72 -124 80 spline 1 1.00 20 168 4 176 -4 176 20 160 spline 1 1.00 36 112 20 112 -4 56 12 136 spline 1 1.00 28 136 36 112 60 96 12 136 spline 1 1.00 20 120 4 152 -12 152 20 104 spline 1 1.00 4 112 -28 160 -36 152 20 104 spline 1 1.00 -20 152 -68 136 -60 96 -36 152 spline 1 1.00 -44 88 -36 80 -20 80 -52 104 spline 1 1.00 -4 72 -44 80 -44 72 12 96 spline 1 1.00 -92 128 -92 112 -100 112 -52 128 spline 1 1.00 -84 80 -100 64 -84 48 -100 112 spline 1 1.00 -76 96 -100 88 -68 80 -60 104 spline 1 1.00 -76 72 -76 64 -68 56 -84 88 spline 1 1.00 -44 72 -44 72 -36 56 -68 80 spline 1 1.00 -20 96 -20 96 -12 80 -28 104 spline 1 1.00 -36 112 -44 120 -28 128 -36 104 spline 1 1.00 -12 104 -36 104 -28 104 -12 112 spline 1 1.00 -12 112 -28 136 -28 112 -12 112 spline 1 1.00 -52 104 -52 112 -36 120 -52 104 spline 1 1.00 -44 120 -52 120 -60 104 -36 128 spline 1 1.00 -36 160 -4 144 12 128 -36 152 spline 1 1.00 -44 -40 -44 -48 -52 -56 -20 -16 spline 1 1.00 -44 -32 -52 -40 -52 -56 -44 -16 spline 1 1.00 28 -8 44 -40 60 -40 12 -8 spline 1 1.00 52 -8 44 -32 60 -40 44 8 spline 1 1.00 68 16 76 0 92 0 52 16 spline 1 1.00 108 0 28 8 44 8 92 0 spline 1 1.00 20 -16 44 -128 52 -168 12 -8 spline 1 1.00 36 -24 52 -120 60 -160 28 -16 spline 1 1.00 68 -112 44 -88 124 -80 60 -144 spline 1 1.00 140 -80 148 -200 84 -176 124 -80 spline 1 1.00 100 -120 100 -128 68 -168 116 -104 spline 1 1.00 44 -168 36 -144 28 -128 60 -176 spline 1 1.00 -4 -112 -44 -96 -52 -104 28 -128 spline 1 1.00 -60 -112 -124 -120 -132 -144 -52 -104 spline 1 1.00 -116 -144 -124 -136 -100 -152 -132 -144 spline 1 1.00 36 -168 28 -180 24 -176 16 -188 12 -184 4 -192 0 -188 -8 -196 -12 -192 -20 -196 -24 -192 -32 -196 -36 -192 -48 -192 -48 -188 -60 -188 -60 -184 -68 -184 -68 -180 -76 -176 -72 -172 -84 -168 -80 -164 -92 -160 -92 -156 -100 -152 26 polygon 1 1.00 -80 -128 -12 -136 32 -156 -116 -136 spline 1 1.00 44 -168 40 -172 60 -180 36 -160 spline 1 1.00 100 -120 100 -128 68 -168 116 -104 spline 1 1.00 -80 -128 -12 -136 32 -156 -116 -136 spline endgate } def /arrowhead { % -12 -32 24 36 bbox % trivial begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /arrow { % -12 -40 24 80 bbox % trivial begingate 1 0.80 0 -40 0 20 2 polygon 1.00 0 0 40 arrowhead endgate } def %%Page: 1 1 %%PageOrientation: Landscape /pgsave save def bop % 288 432 offsets 90 rotate 0 -612 translate 1.0000 inchscale 2.6000 setlinewidth 1.000 1.000 0.525 scb 240 1.00 768 1136 768 1248 1200 1248 1200 1136 4 polygon sce (Anywhere, USA 12345) {CR} (12345 A Street) {CR} (Return Address) {/Times-Roman cf} 6 16 0 0.80 864 1152 label 0.000 0.000 1.000 scb 0 1.00 1888 1072 1888 1232 2048 1232 2048 1072 4 polygon sce (here) {CR} (stamp) {CR} (place) {/Helvetica cf} 6 21 0 1.00 1968 1152 label 1.000 0.647 0.000 scb 512 1.00 0 1632 0 0 2112 0 2112 1632 4 polygon 512 1.00 736 1296 736 336 2112 336 2112 1296 4 polygon sce (Somewhere Else, USA 01234) {CR} (123 Another Street) {CR} (Recipient Address) {/Times-Roman cf} 6 16 0 1.00 1232 704 label 0.25 0 816 1192 rose 1.00 315 928 1584 arrow (inch paper size) {CR} (\275 \327 11) {hS} (describes 8) {CR} (Outer bounding box) {/HelveticaISO cf} 8 31 0 1.00 864 1552 label 1.00 285 688 944 arrow (envelope size.) {CR} (describes 5 \327 7 inch) {CR} (Inner bounding box) {/HelveticaISO cf} 6 31 0 1.00 608 912 label (output. ) {CR} (not appear in the) {CR} (Bounding boxes do) {/Helvetica cf} 6 28 0 1.00 256 720 label (tray for envelopes.) {CR} (to the printer's paper) {CR} (is positioned according) {CR} (Inner bounding box) {/Helvetica cf} 8 28 0 1.00 256 544 label pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/examples/xc_remote.sh0000775000175000001440000000135412335667423016341 0ustar timusers#!/usr/local/bin/wish8.5 # # Usage: xc_remote # # This script attempts to communicate with an existing xcircuit # application. If none exists, it starts a new xcircuit process. # If one exists, then it forces xcircuit to create a new window, # and the file is loaded into it as a new page. exec xhost - foreach host [lrange [split [exec xhost] \n] 1 end] { exec xhost -$host } set appname "tkcon.tcl #2" if {[catch {send $appname xcircuit::forkwindow}]} { exec xcircuit [lindex $argv 0] & } else { send $appname {config focus [lindex [config windownames] 0]} set npages [send $appname page links total] incr npages send $appname page $npages goto -force send $appname page load [lindex $argv 0] } exit xcircuit-3.9.73/examples/vcoblock.ps0000664000175000001440000002731712335667423016172 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: vcoblock %%Creator: Xcircuit v2.3 %%CreationDate: Thu Jun 21 10:22:03 2001 %%Pages: 1 %%BoundingBox: 68 68 529 537 %%DocumentNeededResources: font Times-Roman font Times-Italic %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.3 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--5/16/01 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.3 1 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale /rotval exch def /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave dup 1 add copy 0 exch {exch dup type /stringtype eq {true charpath flattenpath} {exec} ifelse } repeat pop pathbbox grestore 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse /showflag 1 def rotval rotate Kn currentpoint translate /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def {dup type /stringtype eq {show}{exec} ifelse} repeat grestore } def /pinlabel { hlevel 0 eq { /pspc 20 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate { /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale } bind def /makeparm {3 string cvs dup length 1 add string /tstr exch def tstr exch 1 exch putinterval tstr 0 (v) putinterval tstr cvn} bind def /beginparm { -1 1 {makeparm exch def} for dup type /arraytype eq { aload length -1 1 {makeparm exch def} for } if begingate } bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb} bind def /hlevel 0 def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt style 512 eq or { newpath } { stroke } ifelse grestore } def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef } def /insertion {/PSobj save def /showpage {} def bop translate} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /arrowhead { % -12 -32 24 36 bbox % trivial begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /npn { % -64 -64 72 128 bbox begingate 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 240 0 -48 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (E) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel sce (spice:Q%i %pC %pB %pE npn) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel sce (sim:b %pB %pE %pC) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /invert { % -48 -40 112 80 bbox % trivial begingate 0 1.00 -32 -40 -32 40 40 0 3 polygon 1 1.00 48 0 8 0.00 360.00 xcarc 1 1.00 -32 0 -48 0 2 polygon 1 1.00 56 0 64 0 2 polygon 1.000 0.000 0.000 scb (Out) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (In) {/Times-Roman cf} 2 7 0 1.00 -48 0 pinlabel endgate } def /polarized { % -32 -64 64 128 bbox begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 0 -80 74 66.00 114.00 xcarc 1.000 0.000 0.000 scb (t) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (b) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel sce (spice:C%i %pt %pb 1.0P) {/Times-Roman cf} 2 0 0 1.00 -208 -160 infolabel sce (sim:e %pt %pb %pb) {/Times-Roman cf} 2 0 0 1.00 -208 -208 infolabel endgate } def /source { % -32 -64 64 128 bbox % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /isource { % -32 -64 64 128 bbox begingate 1.00 0 0 0 source 1 0.75 0 20 0 -8 2 polygon 0.80 180 0 -20 arrowhead 1.000 0.000 0.000 scb (i.p) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (i.m) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel endgate } def /diode { % -8 -48 36 96 bbox begingate 248 1.00 -18 -16 0 16 18 -16 3 polygon 1 1.00 0 -48 0 -16 2 polygon 1 1.00 0 48 0 16 2 polygon 1 1.00 -18 16 18 16 2 polygon 1.000 0.000 0.000 scb (d.m) {/Times-Roman cf} 2 9 0 1.00 0 48 pinlabel (d.p) {/Times-Roman cf} 2 13 0 1.00 0 -48 pinlabel endgate } def /gnd { % -32 -60 64 68 bbox % trivial begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 1.000 0.000 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def %%Page: vcoblock 1 %%PageOrientation: Portrait /pgsave save def bop % 626 494 offsets 1.6800 inchscale 2.6000 setlinewidth 1 1.00 466 686 274 686 2 polygon 1 1.00 338 462 402 462 2 polygon 1 1.00 370 462 370 558 2 polygon 1 1.00 370 558 274 558 2 polygon 1 1.00 274 590 274 526 2 polygon 1 1.00 466 590 466 526 2 polygon 1 1.00 274 398 274 366 2 polygon 1 1.00 274 366 466 366 2 polygon 1 1.00 466 366 466 398 2 polygon 1 1.00 370 206 370 174 2 polygon 1 1.00 370 814 370 846 2 polygon 1 1.00 338 846 402 846 2 polygon 1 1.00 658 622 658 494 2 polygon 1 1.00 658 494 770 558 2 polygon 1 1.00 770 558 658 622 2 polygon 1 1.00 466 558 658 558 2 polygon 1 1.00 666 582 698 582 2 polygon 1 1.00 698 582 698 534 2 polygon 1 1.00 714 534 682 534 2 polygon 1 1.00 682 534 682 582 2 polygon 1 1.00 786 558 834 558 2 polygon 1 1.00 834 558 834 270 2 polygon 1 1.00 434 270 530 270 2 polygon 1 1.00 642 270 834 270 2 polygon 4 1.00 258 190 258 334 450 334 450 190 4 polygon 4 1.00 194 702 194 814 434 814 434 702 4 polygon 4 1.00 514 190 514 334 642 334 642 190 4 polygon 4 1.00 130 382 130 526 482 526 482 382 4 polygon 4 1.00 114 174 114 590 498 590 498 174 4 polygon 4 1.00 642 478 642 734 802 734 802 478 4 polygon 0 1.00 778 558 8 0.00 360.00 xcarc (C) {/Times-Italic cf} 2 7 0 1.00 546 494 label (Current) {/Times-Roman cf} 2 3 0 0.80 322 766 label (Source) {/Times-Roman cf} 2 3 0 0.80 322 734 label (Current) {/Times-Roman cf} 2 3 0 0.80 258 462 label (Mirror) {/Times-Roman cf} 2 3 0 0.80 258 430 label (Switch) {/Times-Roman cf} 2 3 0 0.80 370 254 label (Inverter) {/Times-Roman cf} 2 1 0 0.80 578 206 label (Schmitt) {/Times-Roman cf} 2 1 0 0.80 722 670 label (Trigger) {/Times-Roman cf} 2 1 0 0.80 722 638 label (Current) {/Times-Roman cf} 2 0 0 0.80 130 302 label (Steering) {/Times-Roman cf} 2 0 0 0.80 130 270 label (Network) {/Times-Roman cf} 2 0 0 0.80 130 238 label (Inverting) {/Times-Roman cf} 2 1 0 0.75 722 702 label 1 1.00 370 334 370 366 2 polygon 248 1.00 370 462 6 0.00 360.00 xcarc 248 1.00 370 366 6 0.00 360.00 xcarc 248 1.00 274 558 6 0.00 360.00 xcarc 248 1.00 466 558 6 0.00 360.00 xcarc 248 1.00 594 558 6 0.00 360.00 xcarc 248 1.00 370 686 6 0.00 360.00 xcarc 1.00 0 466 462 npn 1.00 -1 274 462 npn 1.00 -1 370 270 npn 1.00 -1 594 270 invert 1.00 0 594 494 polarized 1.00 0 370 750 isource 1.00 -181 466 638 diode 1.00 -181 274 638 diode 1.00 0 370 174 gnd 1.00 0 594 430 gnd pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/README.CharEncoding0000664000175000001440000001331613066774071015403 0ustar timusers------------------------------------------------------------------- Charater font encoding in xcircuit ------------------------------------------------------------------- Xcircuit supports ISO-Latin2 encoding (Eastern Europe) since version 2.0a9. This support was extended to ISO-Latin5 (Turkish) in version 2.0a10 (6/14/1999), and Cyrillic (ISO-8859-5) in version 3.9.64 (3/29/2017). Between 1999 and 2017, projects like fontforge made it much easier to obtain and use Type1 PostScript fonts. While the fonts are not generally available on printers, generally files are converted to PDF for printing, and ps2pdf takes care of inserting the proper font glyphs, and most Linux systems have URW fonts installed, or at least they are easy to obtain. In the latest version the above encodings can be reached simply by selecting Text->Encoding->(name of encoding). As of this writing, Cyrillic fonts are not available in xcircuit drawn vector form, but are available from the font rendering engine if xcircuit is compiled with Cairo graphics. Font encodings using standard glyph names (e.g., from URW fonts and others) are kept in text files in the runtime directories and are inserted into the output so that no further manipulation is needed to view the proper text characters. The instructions below are generally deprecated; use of "ogonkify" works only on ISO-Latin-X encodings (not, for example, Cyrillic). It is needed to generate the correct glyphs for sending PostScript output directly to a printer. However, as noted above, modern usage is generally to first convert to PDF format, for which ogonkify is not needed. Version 3.6.36 corrects a long-existing mistake in which only X11 keysyms 0-255 are accepted as keyboard-entry. By converting the X11 keysyms to keycodes, non-ASCII-encoded characters can be typed directly into XCircuit from the keyboard. It would be nice, though, if XCircuit would auto-detect the expected encoding from the keysym and insert the proper font encoding switch, loading fonts if necessary. When creating text in an encoding other than PostScript "standard", be sure to select "Text->Encoding->(encoding name)" from the menu. This can be enabled by default simply by having a .xcircuitrc file in your home directory containing a line such as: label encoding ISOLatin2 ------------------------------------------------------------------- 1) The best practice is to convert all xcircuit output to PDF using, typically, ps2pdf, and then ignore all the instruction below, since the PDF file contains all font information needed for printing. 2) To get proper PostScript output on a printer (when sending PostScript directly---this does not apply to PDF files!), you will need to have the (separate) program "ogonkify", found at: http://www.dcs.ed.ac.uk/home/jec/ogonkify/ ftp://ftp.dcs.ed.ac.uk/pub/jec/programs "ogonkify" is necessary because PostScript does not contain ISO-Latin2 encoding by default. The accents such as the caron and ogonek exist in the font definition, but the correct alignments for putting them together need to be provided. Ogonkify does this best. 3) Every file containing ISO-Latin2 text must be postprocessed through "ogonkify" using the following command, before it will print correctly on a PostScript printer: ogonkify -e L2 -ATH file.ps | perl -ne \ 's/StandardEncoding/ISOLatin2Encoding/g;\ s/ exch defi/ISO2 exch defi/g;print' > file.out.ps Switches: -A does Courier, -T does Times-Roman, and -H does Helvetica; use only what's necessary to keep the output file smaller. "-e L2" signifies Latin2 encoding; this is not strictly necessary as ogonkify defaults to L2. All other Latin encodings require the -e switch. Note that the output is piped through a couple of perl commands. This may seem overly complicated; the first substitution corrects a bug in ogonkify output (which may disappear from releases of ogonkify in the future). The second substitution allows xcircuit to specify the ISO-Latin2 encodings separately from ISO-Latin1 and Adobe Standard encodings, so that any and all encodings can be "mixed and matched" in the same file and even the same label. 4) In a nutshell: xcircuit defines each ISO-Latin2 font name as the original name followed by the string "ISO2". Xcircuit can then load the file and interpret the font encodings unambiguously. However, the new ISO-Latin2 font names are not defined by PostScript. Running "ogonkify" in the manner shown above will add a true PostScript definition for each of the ISO-Latin2 fonts. Without "ogonkify", a PostScript printer or interpreter will either produce an error or else substitute a default font for the unrecognized one. 5) The "ogonkification" of the file will not affect xcircuit's ability to read it back into the program. xcircuit will continue to display the ISO-Latin2 text correctly regardless of whether or not the file has been run through "ogonkify". However, the header material inserted by "ogonkify" will be lost every time xcircuit writes the file back out. 6) Other ISO-LatinX encodings: Currently ISO-Latin5 is supported, and additional encodings will be created as I get requests for them. Follow the instructions above for ISO-Latin2, but replace all occurences of "2" with "5". e.g., ogonkify -e L5 -ATH file.ps | perl -ne \ 's/StandardEncoding/ISOLatin5Encoding/g;\ s/ exch defi/ISO5 exch defi/g;print' > file.out.ps and add lines % times_romaniso5.xfe loadfontencoding % courieriso5.xfe loadfontencoding % helveticaiso5.xfe loadfontencoding to psfiles/builtins.lps (or /usr/local/lib/xcircuit-2.0/builtins.lps, if already installed). xcircuit-3.9.73/libraries.c0000664000175000001440000015506512775446255014336 0ustar timusers/*-------------------------------------------------------------------------*/ /* libraries.c --- xcircuit routines for the builtin and user libraries */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* written by Tim Edwards, 8/13/93 */ /*-------------------------------------------------------------------------*/ #include #include #include #ifndef XC_WIN32 #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #endif #endif #include /*-------------------------------------------------------------------------*/ /* Local includes */ /*-------------------------------------------------------------------------*/ #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*-------------------------------------------------------------------------*/ /* Global Variable definitions */ /*-------------------------------------------------------------------------*/ extern Display *dpy; /* Works well to make this globally accessible */ extern Cursor appcursors[NUM_CURSORS]; extern Globaldata xobjs; extern XCWindowData *areawin; extern char _STR[150]; extern short fontcount; extern fontinfo *fonts; extern Boolean was_preselected; extern int number_colors; extern colorindex *colorlist; /*---------------------------------------------------------*/ /* Find the Helvetica font for use in labeling the objects */ /*---------------------------------------------------------*/ short findhelvetica() { short fval; if (fontcount == 0) loadfontfile("Helvetica"); for (fval = 0; fval < fontcount; fval++) if (!strcmp(fonts[fval].psname, "Helvetica")) break; /* If not there, use the first Helvetica font */ if (fval == fontcount) { for (fval = 0; fval < fontcount; fval++) if (!strcmp(fonts[fval].family, "Helvetica")) break; } /* If still not there, use the first non-Symbol font */ /* If this doesn't work, then the libraries are probably misplaced. . .*/ if (fval == fontcount) { for (fval = 0; fval < fontcount; fval++) if (strcmp(fonts[fval].family, "Symbol")) break; } return fval; } /*-------------------------------------------*/ /* Return to drawing window from the library */ /*-------------------------------------------*/ void catreturn() { /* Pop the object being edited from the push stack. */ popobject(NULL, (pointertype)1, NULL); } /*------------------------------------------------------*/ /* Find page number from cursor position */ /* Mode = 0: Look for exact corresponding page number */ /* and return -1 if out-of-bounds */ /* Mode = 1: Look for position between pages, return */ /* page number of page to the right. */ /*------------------------------------------------------*/ int pageposition(short libmode, int x, int y, int mode) { int xin, yin, bpage, pages; int gxsize, gysize, xdel, ydel; pages = (libmode == PAGELIB) ? xobjs.pages : xobjs.numlibs; computespacing(libmode, &gxsize, &gysize, &xdel, &ydel); window_to_user(x, y, &areawin->save); if (mode == 0) { /* On-page */ if (areawin->save.x >= 0 && areawin->save.y <= 0) { xin = areawin->save.x / xdel; yin = areawin->save.y / ydel; if (xin < gxsize && yin > -gysize) { bpage = (xin % gxsize) - (yin * gxsize); if (bpage < pages) return bpage; } } return -1; } else { /* Between-pages */ xin = (areawin->save.x + (xdel >> 1)) / xdel; if (xin > gxsize) xin = gxsize; if (xin < 0) xin = 0; yin = areawin->save.y / ydel; if (yin > 0) yin = 0; if (yin < -gysize) yin = -gysize; bpage = (xin % (gxsize + 1)) + 1 - (yin * gxsize); if (bpage > pages + 1) bpage = pages + 1; return bpage; } } /*------------------------------------------------------*/ /* Find the number of other pages linked to the */ /* indicated page (having the same filename, and */ /* ignoring empty pages). result is the total number */ /* of pages in the output file. */ /*------------------------------------------------------*/ short pagelinks(int page) { int i; short count = 0; for (i = 0; i < xobjs.pages; i++) if (xobjs.pagelist[i]->pageinst != NULL) if (xobjs.pagelist[i]->pageinst->thisobject->parts > 0) if ((i == page) || (xobjs.pagelist[i]->filename && xobjs.pagelist[page]->filename && (!filecmp(xobjs.pagelist[i]->filename, xobjs.pagelist[page]->filename)))) count++; return count; } /*------------------------------------------------------*/ /* This is an expanded version of pagelinks() (above), */ /* to deal with the separate issues of independent top- */ /* level schematics and subcircuits. For the indicated */ /* page, return a list of pages depending on the mode: */ /* */ /* mode = INDEPENDENT: independent top-level pages */ /* mode = DEPENDENT: dependent pages (subcircuits) */ /* mode = PAGE_DEPEND: subcircuits of the current page, */ /* mode = LINKED_PAGES: subcircuits of the current */ /* page, including parameter links */ /* mode = TOTAL_PAGES: independent pages + subcircuits */ /* mode = ALL_PAGES: all pages in xcircuit */ /* */ /* The list is the size of the number of pages, and */ /* entries corresponding to the requested mode are set */ /* nonzero (the actual number indicates the number of */ /* references to the page, which may or may not be */ /* useful to know). */ /* */ /* It is the responsibility of the calling routine to */ /* free the memory allocated for the returned list. */ /*------------------------------------------------------*/ short *pagetotals(int page, short mode) { int i; short *counts, *icount; if (xobjs.pagelist[page]->pageinst == NULL) return NULL; counts = (short *)malloc(xobjs.pages * sizeof(short)); icount = (short *)malloc(xobjs.pages * sizeof(short)); for (i = 0; i < xobjs.pages; i++) { *(counts + i) = 0; *(icount + i) = 0; } /* Find all the subcircuits of this page */ if (mode != ALL_PAGES) findsubschems(page, xobjs.pagelist[page]->pageinst->thisobject, 0, counts, (mode == LINKED_PAGES) ? TRUE : FALSE); /* Check independent entries (top-level pages which are not */ /* subcircuits of another page, but have the same filename */ /* as the page we started from). Set the counts entry to -1 */ /* to mark each independent page. */ if (mode != PAGE_DEPEND) for (i = 0; i < xobjs.pages; i++) if (xobjs.pagelist[i]->pageinst != NULL) if (xobjs.pagelist[i]->pageinst->thisobject->parts > 0) { if (mode == ALL_PAGES) (*(counts + i)) = 1; else { if ((i == page) || (xobjs.pagelist[i]->filename && xobjs.pagelist[page]->filename && (!filecmp(xobjs.pagelist[i]->filename, xobjs.pagelist[page]->filename)))) if ((mode == INDEPENDENT) || (*(counts + i) == 0)) (*(icount + i))++; } } /* Check other dependent entries (top-level pages which are */ /* subcircuits of any independent page). */ if ((mode == DEPENDENT) || (mode == TOTAL_PAGES) || (mode == LINKED_PAGES)) { for (i = 0; i < xobjs.pages; i++) if ((i != page) && (*(icount + i) > 0)) findsubschems(i, xobjs.pagelist[i]->pageinst->thisobject, 0, counts, (mode == LINKED_PAGES) ? TRUE : FALSE); } if (mode == INDEPENDENT) { free((char *)counts); return icount; } else { if ((mode == TOTAL_PAGES) || (mode == LINKED_PAGES)) { /* merge dependent and independent */ for (i = 0; i < xobjs.pages; i++) if (*(icount + i) > 0) (*(counts + i))++; } free((char *)icount); return counts; } } /*---------------------------------------------------------*/ /* Test whether a library instance is a "virtual" instance */ /*---------------------------------------------------------*/ Boolean is_virtual(objinstptr thisinst) { int libno; liblistptr ilist; libno = libfindobject(thisinst->thisobject, NULL); for (ilist = xobjs.userlibs[libno].instlist; ilist != NULL; ilist = ilist->next) if ((ilist->thisinst == thisinst) && (ilist->virtual == TRUE)) return TRUE; return FALSE; } /*------------------------------------------------------*/ /* Test whether an object is a page, and return the */ /* page number if it is. Otherwise, return -1. */ /*------------------------------------------------------*/ int is_page(objectptr thisobj) { int i; for (i = 0; i < xobjs.pages; i++) if (xobjs.pagelist[i]->pageinst != NULL) if (xobjs.pagelist[i]->pageinst->thisobject == thisobj) return i; return -1; } /*------------------------------------------------------*/ /* Test whether an object is a library, and return the */ /* library number if it is. Otherwise, return -1. */ /*------------------------------------------------------*/ int is_library(objectptr thisobj) { int i; for (i = 0; i < xobjs.numlibs; i++) if (xobjs.libtop[i + LIBRARY]->thisobject == thisobj) return i; return -1; } /*------------------------------------------------------*/ /* Check for library name (string). Because XCircuit */ /* generates the text "Library: " for */ /* library names, we also check against */ /* only in these names (this library name syntax is */ /* deprecated, but the check is retained for backwards */ /* compatibility). */ /* */ /* If no library matches the given name, return -1. */ /*------------------------------------------------------*/ int NameToLibrary(char *libname) { char *slib; int i; for (i = 0; i < xobjs.numlibs; i++) { slib = xobjs.libtop[i + LIBRARY]->thisobject->name; if (!strcmp(libname, slib)) { return i; } else if (!strncmp(slib, "Library: ", 9)) { if (!strcmp(libname, slib + 9)) { return i; } } } return -1; } /*------------------------------------------------------*/ /* Move an object and all of its virtual instances from */ /* one library to another. */ /*------------------------------------------------------*/ int libmoveobject(objectptr thisobject, int libtarget) { int j, libsource; liblistptr spec, slast, srch; libsource = libfindobject(thisobject, &j); if (libsource == libtarget) return libsource; /* nothing to do */ if (libsource < 0) return libsource; /* object not in the library */ /* Move the object from library "libsource" to library "libtarget" */ xobjs.userlibs[libtarget].library = (objectptr *) realloc(xobjs.userlibs[libtarget].library, (xobjs.userlibs[libtarget].number + 1) * sizeof(objectptr)); *(xobjs.userlibs[libtarget].library + xobjs.userlibs[libtarget].number) = thisobject; xobjs.userlibs[libtarget].number++; for (; j < xobjs.userlibs[libsource].number; j++) *(xobjs.userlibs[libsource].library + j) = *(xobjs.userlibs[libsource].library + j + 1); xobjs.userlibs[libsource].number--; /* Move all instances from library "libsource" to library "libtarget" */ slast = NULL; for (spec = xobjs.userlibs[libsource].instlist; spec != NULL;) { if (spec->thisinst->thisobject == thisobject) { /* Add to end of spec list in target */ srch = xobjs.userlibs[libtarget].instlist; if (srch == NULL) xobjs.userlibs[libtarget].instlist = spec; else { for (; srch->next != NULL; srch = srch->next); spec->next = srch->next; srch->next = spec; } if (slast != NULL) { slast->next = spec->next; spec = slast->next; } else { xobjs.userlibs[libsource].instlist = spec->next; spec = xobjs.userlibs[libsource].instlist; } } else { slast = spec; spec = spec->next; } } return libsource; } /*------------------------------------------------------*/ /* Determine which library contains the specified */ /* object. If found, return the library number, or */ /* else return -1 if the object was not found in any */ /* library. If "partidx" is non-null, fill with the */ /* integer offset of the object from the beginning of */ /* the library. */ /*------------------------------------------------------*/ int libfindobject(objectptr thisobject, int *partidx) { int i, j; objectptr libobj; for (i = 0; i < xobjs.numlibs; i++) { for (j = 0; j < xobjs.userlibs[i].number; j++) { libobj = *(xobjs.userlibs[i].library + j); if (libobj == thisobject) { if (partidx != NULL) *partidx = j; return i; } } } return -1; } /*------------------------------------------------------*/ /* ButtonPress handler during page catalog viewing mode */ /*------------------------------------------------------*/ void pagecat_op(int op, int x, int y) { int bpage; short mode; for (mode = 0; mode < LIBRARY; mode++) { if (areawin->topinstance == xobjs.libtop[mode]) break; } if (mode == LIBRARY) return; /* Something went wrong if this happens */ if (op != XCF_Cancel) { if ((bpage = pageposition(mode, x, y, 0)) >= 0) { if (eventmode == ASSOC_MODE) { if (mode == PAGELIB) { /* using changepage() allows use of new page for schematic */ changepage(bpage); /* associate the new schematic */ schemassoc(topobject, areawin->stack->thisinst->thisobject); /* pop back to calling (symbol) page */ catreturn(); eventmode = NORMAL_MODE; } else { areawin->lastlibrary = bpage; startcatalog(NULL, (pointertype)(LIBRARY + bpage), NULL); } return; } else if (op == XCF_Select) { if (mode == PAGELIB) /* No such method for LIBLIB is defined. */ select_add_element(OBJINST); } else if ((op == XCF_Library_Pop) || (op == XCF_Finish)) { /* like catreturn(), but don't actually go to the popped page */ unselect_all(); eventmode = NORMAL_MODE; if (mode == PAGELIB) { newpage(bpage); } else { startcatalog(NULL, (pointertype)(LIBRARY + bpage), NULL); } return; } } } else { eventmode = NORMAL_MODE; catreturn(); } } /*------------------------------------------------------------------------------*/ /* Subroutine to find the correct scale and position of the object instance */ /* representing an entire page in the page directory. */ /*------------------------------------------------------------------------------*/ void pageinstpos(short mode, short tpage, objinstptr drawinst, int gxsize, int gysize, int xdel, int ydel) { objectptr libobj = drawinst->thisobject; float scalex, scaley; drawinst->position.x = (tpage % gxsize) * xdel; drawinst->position.y = -(tpage / gxsize + 1) * ydel; /* center the object on its page bounding box */ if (drawinst->bbox.width == 0 || drawinst->bbox.height == 0) { drawinst->scale = 0.45 * libobj->viewscale; drawinst->position.x += 0.05 * xdel - libobj->pcorner.x * drawinst->scale; drawinst->position.y += 0.05 * ydel - libobj->pcorner.y * drawinst->scale; } else { scalex = (0.9 * xdel) / drawinst->bbox.width; scaley = (0.9 * ydel) / drawinst->bbox.height; if (scalex > scaley) { drawinst->scale = scaley; drawinst->position.x -= (drawinst->bbox.lowerleft.x * scaley); drawinst->position.x += (xdel - (drawinst->bbox.width * scaley)) / 2; drawinst->position.y += 0.05 * ydel - drawinst->bbox.lowerleft.y * drawinst->scale; } else { drawinst->scale = scalex; drawinst->position.y -= (drawinst->bbox.lowerleft.y * scalex); drawinst->position.y += (ydel - (drawinst->bbox.height * scalex)) / 2; drawinst->position.x += 0.05 * xdel - drawinst->bbox.lowerleft.x * drawinst->scale; } } } /*--------------------------------------------------------------*/ /* Make a new instance for inserting into the page directory */ /*--------------------------------------------------------------*/ objinstptr newpageinst(objectptr pageobj) { objinstptr newinst = (objinstptr) malloc(sizeof(objinst)); instancedefaults(newinst, pageobj, 0, 0); newinst->type = OBJINST; newinst->color = DEFAULTCOLOR; newinst->style = NORMAL; /* Do not scale linewidth with page scale */ return newinst; } /*-----------------------------------------------------------*/ /* Find spacing of objects for pages in the page directories */ /*-----------------------------------------------------------*/ void computespacing(short mode, int *gxsize, int *gysize, int *xdel, int *ydel) { int pages = (mode == PAGELIB) ? xobjs.pages : xobjs.numlibs; *gxsize = (int)sqrt((double)pages) + 1; *gysize = 1 + pages / (*gxsize); /* 0.5 is the default vscale; g#size is the number of pages per line */ *xdel = areawin->width / (0.5 * (*gxsize)); *ydel = areawin->height / (0.5 * (*gysize)); } /*-------------------------------------------------------------------*/ /* Draw the catalog of page ordering or the library master directory */ /*-------------------------------------------------------------------*/ void composepagelib(short mode) { genericptr *pgen; objinstptr drawinst; objectptr libobj, directory = xobjs.libtop[mode]->thisobject; short i; polyptr *drawbox; labelptr *pagelabel; stringpart *strptr; pointlist pointptr; int margin, xdel, ydel, gxsize, gysize; int pages = (mode == PAGELIB) ? xobjs.pages : xobjs.numlibs; short fval = findhelvetica(); /* Like the normal libraries, instances come from a special list, so */ /* they should not be destroyed, but will be null'd out and retrieved */ /* from the list. */ for (pgen = directory->plist; pgen < directory->plist + directory->parts; pgen++) if (IS_OBJINST(*pgen)) *pgen = NULL; reset(directory, NORMAL); /* generate the list of object instances */ directory->plist = (genericptr *)malloc(sizeof(genericptr)); directory->parts = 0; computespacing(mode, &gxsize, &gysize, &xdel, &ydel); margin = xdel / 40; /* margin between pages */ for (i = 0; i < pages; i++) { drawinst = (mode == PAGELIB) ? xobjs.pagelist[i]->pageinst : xobjs.libtop[i + LIBRARY]; if (drawinst != NULL) { libobj = drawinst->thisobject; /* This is a stop-gap measure. . . should be recalculating the bounds of */ /* the instance on every action, not just before arranging the library. */ drawinst->bbox.lowerleft.x = libobj->bbox.lowerleft.x; drawinst->bbox.lowerleft.y = libobj->bbox.lowerleft.y; drawinst->bbox.width = libobj->bbox.width; drawinst->bbox.height = libobj->bbox.height; /* End stop-gap measure */ PLIST_INCR(directory); *(directory->plist + directory->parts) = (genericptr)drawinst; directory->parts++; pageinstpos(mode, i, drawinst, gxsize, gysize, xdel, ydel); } /* separate pages (including empty ones) with bounding boxes */ NEW_POLY(drawbox, directory); (*drawbox)->color = LOCALPINCOLOR; /* default red */ (*drawbox)->style = NORMAL; /* CLOSED */ (*drawbox)->width = 1.0; (*drawbox)->number = 4; (*drawbox)->points = (pointlist) malloc(4 * sizeof(XPoint)); (*drawbox)->passed = NULL; (*drawbox)->cycle = NULL; pointptr = (*drawbox)->points; pointptr->x = (i % gxsize) * xdel + margin; pointptr->y = -(i / gxsize) * ydel - margin; pointptr = (*drawbox)->points + 1; pointptr->x = ((i % gxsize) + 1) * xdel - margin; pointptr->y = -(i / gxsize) * ydel - margin; pointptr = (*drawbox)->points + 2; pointptr->x = ((i % gxsize) + 1) * xdel - margin; pointptr->y = -((i / gxsize) + 1) * ydel + margin; pointptr = (*drawbox)->points + 3; pointptr->x = (i % gxsize) * xdel + margin; pointptr->y = -((i / gxsize) + 1) * ydel + margin; /* each page gets its name printed at the bottom */ if (drawinst != NULL) { NEW_LABEL(pagelabel, directory); labeldefaults(*pagelabel, False, (pointptr->x + (pointptr-1)->x) / 2, pointptr->y - 5); (*pagelabel)->color = DEFAULTCOLOR; (*pagelabel)->scale = 0.75; (*pagelabel)->string->data.font = fval; (*pagelabel)->passed = NULL; strptr = makesegment(&((*pagelabel)->string), NULL); strptr->type = TEXT_STRING; strptr->data.string = (char *) malloc(1 + strlen(libobj->name)); strcpy(strptr->data.string, libobj->name); (*pagelabel)->anchor = TOP | NOTBOTTOM | NOTLEFT; } } /* calculate a bounding box for this display */ /* and center it in its window */ calcbbox(xobjs.libtop[mode]); centerview(xobjs.libtop[mode]); } /*------------------------------------------------------------*/ /* Update the page or library directory based on new bounding */ /* box information for the page or library passed in "tpage". */ /*------------------------------------------------------------*/ void updatepagelib(short mode, short tpage) { objectptr compobj, libinst = xobjs.libtop[mode]->thisobject; objinstptr pinst; genericptr *gelem; int i, xdel, ydel, gxsize, gysize, lpage; /* lpage is the number of the page as found on the directory page */ lpage = (mode == PAGELIB) ? tpage : tpage - LIBRARY; compobj = (mode == PAGELIB) ? xobjs.pagelist[tpage]->pageinst->thisobject : xobjs.libtop[tpage]->thisobject; computespacing(mode, &gxsize, &gysize, &xdel, &ydel); for (i = 0; i < libinst->parts; i++) { gelem = libinst->plist + i; if (IS_OBJINST(*gelem)) { pinst = TOOBJINST(gelem); if (pinst->thisobject == compobj) { /* recalculate scale and position of the object instance */ pageinstpos(mode, lpage, pinst, gxsize, gysize, xdel, ydel); break; } } } /* if there is no instance for this page, then recompose the whole library */ if (i == libinst->parts) composelib(mode); } /*----------------------*/ /* Rearrange pages */ /*----------------------*/ void pagecatmove(int x, int y) { int bpage; objinstptr exchobj; Pagedata *ipage, **testpage, **tpage2; if (areawin->selects == 0) return; else if (areawin->selects > 2) { Wprintf("Select maximum of two objects."); return; } /* Get the page corresponding to the first selected object */ exchobj = SELTOOBJINST(areawin->selectlist); for (testpage = xobjs.pagelist; testpage < xobjs.pagelist + xobjs.pages; testpage++) if (*testpage != NULL && (*testpage)->pageinst == exchobj) break; /* If two objects are selected, then exchange their order */ if (areawin->selects == 2) { exchobj = SELTOOBJINST(areawin->selectlist + 1); for (tpage2 = xobjs.pagelist; tpage2 < xobjs.pagelist + xobjs.pages; tpage2++) if (*tpage2 != NULL && (*tpage2)->pageinst == exchobj) break; ipage = *testpage; *testpage = *tpage2; *tpage2 = ipage; } /* If one object selected; find place to put from cursor position */ else if ((bpage = pageposition(PAGELIB, x, y, 1)) >= 0) { int k, epage; Pagedata *eptr; /* Find page number of the original page */ epage = (int)(testpage - xobjs.pagelist); eptr = *(xobjs.pagelist + epage); /* move page (epage) to position between current pages */ /* (bpage - 2) and (bpage - 1) by shifting pointers. */ if ((bpage - 1) < epage) { for (k = epage - 1; k >= bpage - 1; k--) { *(xobjs.pagelist + k + 1) = *(xobjs.pagelist + k); renamepage(k + 1); } *(xobjs.pagelist + bpage - 1) = eptr; renamepage(bpage - 1); } else if ((bpage - 2) > epage) { for (k = epage + 1; k <= bpage - 2; k++) { *(xobjs.pagelist + k - 1) = *(xobjs.pagelist + k); renamepage(k - 1); } *(xobjs.pagelist + bpage - 2) = eptr; renamepage(bpage - 2); } } unselect_all(); composelib(PAGELIB); drawarea(NULL, NULL, NULL); } /*-----------------------------------------*/ /* Draw the catalog of predefined elements */ /*-----------------------------------------*/ void composelib(short mode) { genericptr *pgen; objinstptr drawinst; labelptr *drawname; objectptr libobj, libpage = xobjs.libtop[mode]->thisobject; liblistptr spec; int xpos = 0, ypos = areawin->height << 1; int nypos = 220, nxpos; short fval; short llx, lly, urx, ury, width, height, xcenter; int totalarea, targetwidth; double scale, savescale; short savemode; XPoint savepos; /* Also make composelib() a wrapper for composepagelib() */ if ((mode > FONTLIB) && (mode < LIBRARY)) { composepagelib(mode); return; } /* The instances on the library page come from the library's */ /* "instlist". So that we don't destroy the actual instance when we */ /* call reset(), we find the pointer to the instance and NULL it. */ for (pgen = libpage->plist; pgen < libpage->plist + libpage->parts; pgen++) if (IS_OBJINST(*pgen)) *pgen = NULL; /* Before resetting, save the position and scale. We will restore */ /* them at the end. */ savepos = libpage->pcorner; savescale = libpage->viewscale; reset(libpage, NORMAL); /* Return if library defines no objects or virtual instances */ if (xobjs.userlibs[mode - LIBRARY].instlist == NULL) return; /* Find the Helvetica font for use in labeling the objects */ fval = findhelvetica(); /* Attempt to produce a library with the same aspect ratio as the */ /* drawing window. This is only approximate, and does not take */ /* into account factors such as the length of the name string. */ totalarea = 0; for (spec = xobjs.userlibs[mode - LIBRARY].instlist; spec != NULL; spec = spec->next) { libobj = spec->thisinst->thisobject; /* "Hidden" objects are not drawn */ if (libobj->hidden == True) continue; drawinst = spec->thisinst; drawinst->position.x = 0; drawinst->position.y = 0; /* Get the bounding box of the instance in the page's coordinate system */ calcinstbbox((genericptr *)(&drawinst), &llx, &lly, &urx, &ury); width = urx - llx; height = ury - lly; width += 30; /* space padding */ height += 30; /* height padding */ if (width < 200) width = 200; /* minimum box width */ if (height < 220) height = 220; /* minimum box height */ totalarea += (width * height); } scale = (double)totalarea / (double)(areawin->width * areawin->height); targetwidth = (int)(sqrt(scale) * (double)areawin->width); /* generate the list of object instances and their labels */ savemode = eventmode; eventmode = CATALOG_MODE; for (spec = xobjs.userlibs[mode - LIBRARY].instlist; spec != NULL; spec = spec->next) { libobj = spec->thisinst->thisobject; /* "Hidden" objects are not drawn */ if (libobj->hidden == True) continue; drawinst = spec->thisinst; drawinst->position.x = 0; drawinst->position.y = 0; /* Generate the part; unlike the usual NEW_OBJINST, the */ /* instance record isn't allocated. */ PLIST_INCR(libpage); *(libpage->plist + libpage->parts) = (genericptr)drawinst; libpage->parts++; /* Get the bounding box of the instance in the page's coordinate system */ calcinstbbox((genericptr *)(&drawinst), &llx, &lly, &urx, &ury); xcenter = (llx + urx) >> 1; width = urx - llx; height = ury - lly; /* Add an ad-hoc spacing rule of 30 for padding space between objects */ width += 30; /* Prepare the object name and determine its width. Adjust width */ /* needed for object on the library page if necessary. */ if (fval < fontcount) { stringpart *strptr; TextExtents tmpext; NEW_LABEL(drawname, libpage); labeldefaults(*drawname, False, 0, 0); (*drawname)->color = (spec->virtual) ? OFFBUTTONCOLOR : DEFAULTCOLOR; (*drawname)->scale = 0.75; (*drawname)->string->data.font = fval; strptr = makesegment(&((*drawname)->string), NULL); strptr->type = TEXT_STRING; strptr->data.string = strdup(libobj->name); (*drawname)->anchor = TOP | NOTBOTTOM | NOTLEFT; /* If the label is longer than the object width, then */ /* adjust positions accordingly. Note that as an ad- */ /* hoc spacing rule, a padding of 30 is put between */ /* objects; this padding is reduced to 5 */ tmpext = ULength(*drawname, drawinst, NULL); /* Ad-hoc spacing rule is 5 for labels */ tmpext.width += 5; if (tmpext.width > width) width = tmpext.width; } /* Minimum allowed width is 200 */ if (width < 200) width = 200; /* Determine the area needed on the page to draw the object */ nxpos = xpos + width; if ((nxpos > targetwidth) && (xpos > 0)) { nxpos -= xpos; xpos = 0; ypos -= nypos; nypos = 200; } if (height > (nypos - 50)) nypos = height + 50; drawinst->position.x = xpos + (width >> 1) - xcenter; drawinst->position.y = ypos - (height + lly); if (height <= 170) drawinst->position.y -= ((170 - height) >> 1); drawinst->color = DEFAULTCOLOR; if (fval < fontcount) { (*drawname)->position.x = xpos + (width >> 1); if (height > 170) (*drawname)->position.y = drawinst->position.y + lly - 10; else (*drawname)->position.y = ypos - 180; } xpos = nxpos; } eventmode = savemode; /* Compute the bounding box of the library page */ calcbbox(xobjs.libtop[mode]); /* Update the library directory */ updatepagelib(LIBLIB, mode); /* Restore original view position */ libpage->pcorner = savepos; libpage->viewscale = savescale; } /*----------------------------------------------------------------*/ /* Find any dependencies on an object. */ /* Return values: 0 = no dependency, 1 = dependency on page, */ /* 2 = dependency in another library object. */ /* Object/Page with dependency (if any) returned in "compobjp". */ /*----------------------------------------------------------------*/ short finddepend(objinstptr libobj, objectptr **compobjp) { genericptr *testobj; short page, i, j; objectptr *compobj; for (i = 0; i < xobjs.numlibs; i++) { for (j = 0; j < xobjs.userlibs[i].number; j++) { compobj = xobjs.userlibs[i].library + j; *compobjp = compobj; for (testobj = (*compobj)->plist; testobj < (*compobj)->plist + (*compobj)->parts; testobj++) { if (IS_OBJINST(*testobj)) { if (TOOBJINST(testobj)->thisobject == libobj->thisobject) return 2; } } } } /* also look in the xobjs.pagelist */ for (page = 0; page < xobjs.pages; page++) { if (xobjs.pagelist[page]->pageinst == NULL) continue; compobj = &(xobjs.pagelist[page]->pageinst->thisobject); *compobjp = compobj; for (testobj = (*compobj)->plist; testobj < (*compobj)->plist + (*compobj)->parts; testobj++) { if (IS_OBJINST(*testobj)) { if (TOOBJINST(testobj)->thisobject == libobj->thisobject) return 1; } } } return 0; } /*--------------------------------------------------------------*/ /* Virtual copy: Make a separate copy of an object on the same */ /* library page as the original, representing an instance of */ /* the object with different parameters. The object must have */ /* parameters for this to make sense, so check for parameters */ /* before allowing the virtual copy. */ /*--------------------------------------------------------------*/ void catvirtualcopy() { short i, *newselect; objinstptr libobj, libinst; if (areawin->selects == 0) return; else if ((i = is_library(topobject)) < 0) return; /* Check for existance of parameters in the object for each */ /* selected instance */ for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) { libobj = SELTOOBJINST(newselect); libinst = addtoinstlist(i, libobj->thisobject, TRUE); instcopy(libinst, libobj); tech_mark_changed(GetObjectTechnology(libobj->thisobject)); } clearselects(); composelib(LIBRARY + i); drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------*/ /* "Hide" an object (must have a dependency or else it disappears)*/ /*----------------------------------------------------------------*/ void cathide() { int i; short *newselect; objectptr *compobj; objinstptr libobj; if (areawin->selects == 0) return; /* Can only hide objects which are instances in other objects; */ /* Otherwise, object would be "lost". */ for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) { libobj = SELTOOBJINST(newselect); if (finddepend(libobj, &compobj) == 0) { Wprintf("Cannot hide: no dependencies"); } else { /* All's clear to hide. */ libobj->thisobject->hidden = True; } } clearselects(); if ((i = is_library(topobject)) >= 0) composelib(LIBRARY + i); drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------*/ /* Delete an object from the library if there are no dependencies */ /*----------------------------------------------------------------*/ void catdelete() { short *newselect, *libpobjs; int i; /* genericptr *testobj, *tobj; (jdk) */ objinstptr libobj; liblistptr ilist, llist; objectptr *libpage, *compobj, *tlib, *slib; if (areawin->selects == 0) return; if ((i = is_library(topobject)) >= 0) { libpage = xobjs.userlibs[i].library; libpobjs = &xobjs.userlibs[i].number; } else return; /* To-do: Should have a mechanism here for deleting pages! */ for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) { libobj = SELTOOBJINST(newselect); /* If this is just a "virtual copy", simply remove it from the list */ llist = NULL; for (ilist = xobjs.userlibs[i].instlist; ilist != NULL; llist = ilist, ilist = ilist->next) { if ((ilist->thisinst == libobj) && (ilist->virtual == TRUE)) { if (llist == NULL) xobjs.userlibs[i].instlist = ilist->next; else llist->next = ilist->next; break; } } if (ilist != NULL) { free(ilist); continue; } /* Cannot delete an object if another object uses an instance of it, */ /* or if the object is used on a page. */ if (finddepend(libobj, &compobj)) { Wprintf("Cannot delete: dependency in \"%s\"", (*compobj)->name); } else { /* All's clear to delete. */ /* Clear the undo stack so that any references to this object */ /* won't screw up the database (this could be kinder & gentler */ /* by first checking if there are any references to the object */ /* in the undo stack. . . */ flush_undo_stack(); /* Next, remove the object from the library page. */ for (tlib = libpage; tlib < libpage + *libpobjs; tlib++) if ((*tlib) == libobj->thisobject) { for (slib = tlib; slib < libpage + *libpobjs - 1; slib++) (*slib) = (*(slib + 1)); (*libpobjs)--; break; } /* Next, remove all instances of the object on the library page. */ llist = NULL; for (ilist = xobjs.userlibs[i].instlist; ilist != NULL; llist = ilist, ilist = ilist->next) { if (ilist->thisinst->thisobject == libobj->thisobject) { if (llist == NULL) { xobjs.userlibs[i].instlist = ilist->next; free(ilist); if (!(ilist = xobjs.userlibs[i].instlist)) break; } else { llist->next = ilist->next; free(ilist); if (!(ilist = llist)) break; } } } /* Finally, delete the object (permanent---no undoing this!) */ tech_mark_changed(GetObjectTechnology(libobj->thisobject)); reset(libobj->thisobject, DESTROY); } } clearselects(); if ((i = is_library(topobject)) >= 0) { composelib(LIBRARY + i); } drawarea(NULL, NULL, NULL); } /*------------------------------------------------------*/ /* Linked list rearrangement routines */ /*------------------------------------------------------*/ void linkedlistswap(liblistptr *spec, int o1, int o2) { liblistptr s1, s1m, s2, s2m, stmp; int j; if (o1 == o2) return; s1m = NULL; s1 = *spec; for (j = 0; j < o1; j++) { s1m = s1; s1 = s1->next; } s2m = NULL; s2 = *spec; for (j = 0; j < o2; j++) { s2m = s2; s2 = s2->next; } if (s2m) s2m->next = s1; else *spec = s1; if (s1m) s1m->next = s2; else *spec = s2; stmp = s1->next; s1->next = s2->next; s2->next = stmp; } /*------------------------------------------------------*/ void linkedlistinsertafter(liblistptr *spec, int o1, int o2) { liblistptr s1, s1m, s2; /* , s2m, stmp; (jdk) */ int j; if ((o1 == o2) || (o1 == (o2 + 1))) return; s1m = NULL; s1 = *spec; for (j = 0; j < o1; j++) { s1m = s1; s1 = s1->next; } s2 = *spec; for (j = 0; j < o2; j++) s2 = s2->next; if (s1m) s1m->next = s1->next; else *spec = s1->next; if (o2 == -1) { /* move s1 to front */ s1->next = *spec; *spec = s1; } else { s1->next = s2->next; s2->next = s1; } } /*------------------------------------------------------*/ /* Set the "changed" flag in a library if any object */ /* in that library has changed. */ /* */ /* If "technology" is NULL, check all objects, */ /* otherwise only check objects with a matching */ /* technology. */ /*------------------------------------------------------*/ void tech_set_changes(TechPtr refns) { TechPtr ns; int i, j; objectptr thisobj; for (i = 0; i < xobjs.numlibs; i++) { for (j = 0; j < xobjs.userlibs[i].number; j++) { thisobj = *(xobjs.userlibs[i].library + j); if (getchanges(thisobj) > 0) { ns = GetObjectTechnology(thisobj); if ((refns == NULL) || (refns == ns)) ns->flags |= TECH_CHANGED; } } } } /*------------------------------------------------------*/ /* Mark a technology as having been modified. */ /*------------------------------------------------------*/ void tech_mark_changed(TechPtr ns) { if (ns != NULL) ns->flags |= TECH_CHANGED; } /*------------------------------------------------------*/ /* Rearrange objects in the library */ /*------------------------------------------------------*/ void catmove(int x, int y) { int i, j, k, s1, s2, ocentx, ocenty, rangey, l; /* rangex, (jdk) */ liblistptr spec; objinstptr exchobj, lobj; /* make catmove() a wrapper for pagecatmove() */ if ((i = is_library(topobject)) < 0) { pagecatmove(x, y); return; } if (areawin->selects == 0) return; /* Add selected object or objects at the cursor position */ window_to_user(x, y, &areawin->save); s2 = -1; for (j = 0, spec = xobjs.userlibs[i].instlist; spec != NULL; spec = spec->next, j++) { lobj = spec->thisinst; for (k = 0; k < areawin->selects; k++) { exchobj = SELTOOBJINST(areawin->selectlist + k); if (lobj == exchobj) break; } if (k < areawin->selects) continue; /* ignore items being moved */ ocentx = lobj->position.x + lobj->bbox.lowerleft.x + (lobj->bbox.width >> 1); ocenty = lobj->position.y + lobj->bbox.lowerleft.y + (lobj->bbox.height >> 1); rangey = (lobj->bbox.height > 200) ? (lobj->bbox.height >> 1) : 100; if ((areawin->save.y < ocenty + rangey) && (areawin->save.y > ocenty - rangey)) { s2 = j - 1; if (areawin->save.x < ocentx) break; else s2 = j; } } if ((s2 == -1) && (spec == NULL)) { if (areawin->save.y < xobjs.libtop[i + LIBRARY]->thisobject->bbox.lowerleft.y) s2 = j - 1; else if (areawin->save.y <= xobjs.libtop[i + LIBRARY]->thisobject->bbox.lowerleft.y + xobjs.libtop[i + LIBRARY]->thisobject->bbox.height) { unselect_all(); Wprintf("Could not find appropriate place to insert object"); return; } } /* Find object number s2 (because s2 value may change during insertion) */ if (s2 > -1) { for (k = 0, spec = xobjs.userlibs[i].instlist; k < s2; spec = spec->next, k++); lobj = spec->thisinst; } else lobj = NULL; /* Move items; insert them after item s2 in order selected */ j = i; for (k = 0; k < areawin->selects; k++) { /* Find number of lobj (may have changed) */ if (lobj == NULL) s2 = -1; else { for (s2 = 0, spec = xobjs.userlibs[i].instlist; spec != NULL; spec = spec->next, s2++) if (spec->thisinst == lobj) break; } exchobj = SELTOOBJINST(areawin->selectlist + k); for (s1 = 0, spec = xobjs.userlibs[i].instlist; spec != NULL; spec = spec->next, s1++) if (spec->thisinst == exchobj) break; if (spec == NULL) { /* Object came from another library */ if ((l = libmoveobject(exchobj->thisobject, i)) >= 0) j = l; } else { linkedlistinsertafter(&(xobjs.userlibs[i].instlist), s1, s2); } } unselect_all(); composelib(LIBRARY + i); if (j != i) { composelib(LIBRARY + j); centerview(xobjs.libtop[LIBRARY + j]); } drawarea(NULL, NULL, NULL); } /*------------------------------------------------------*/ /* Make a duplicate of an object, put in the User */ /* Library or the current library (if we're in one). */ /* */ /* Updated 2/8/2014 for use with technology namespaces: */ /* it is most likely that the copied object is to be */ /* modified but kept in the same namespace. So, when */ /* renaming the object, prepend "_" to the object name */ /* instead of the namespace prefix. */ /*------------------------------------------------------*/ void copycat() { short *newselect; objectptr *newobj, *curlib, oldobj; objinstptr libobj; oparamptr ops, newops; int i, libnum; char *cptr; libnum = is_library(topobject); if (libnum < 0) libnum = USERLIB - LIBRARY; /* default */ for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) { libobj = SELTOOBJINST(newselect); oldobj = libobj->thisobject; /* generate new entry in user library */ curlib = (objectptr *) realloc(xobjs.userlibs[libnum].library, (xobjs.userlibs[libnum].number + 1) * sizeof(objectptr)); xobjs.userlibs[libnum].library = curlib; newobj = xobjs.userlibs[libnum].library + xobjs.userlibs[libnum].number; *newobj = (objectptr) malloc(sizeof(object)); xobjs.userlibs[libnum].number++; /* give the new object a unique name */ cptr = strstr(oldobj->name, "::"); if (cptr == NULL) sprintf((*newobj)->name, "_%s", oldobj->name); else { strcpy((*newobj)->name, oldobj->name); sprintf((*newobj)->name + (cptr - oldobj->name) + 2, "_%s", cptr + 2); } checkname(*newobj); /* copy other object properties */ (*newobj)->bbox.width = oldobj->bbox.width; (*newobj)->bbox.height = oldobj->bbox.height; (*newobj)->bbox.lowerleft.x = oldobj->bbox.lowerleft.x; (*newobj)->bbox.lowerleft.y = oldobj->bbox.lowerleft.y; (*newobj)->pcorner.x = oldobj->pcorner.x; (*newobj)->pcorner.y = oldobj->pcorner.y; (*newobj)->viewscale = oldobj->viewscale; /* don't attach the same schematic. . . */ (*newobj)->symschem = NULL; /* don't copy highlights */ (*newobj)->highlight.netlist = NULL; (*newobj)->highlight.thisinst = NULL; /* Copy the parameter structure */ (*newobj)->params = NULL; for (ops = oldobj->params; ops != NULL; ops = ops->next) { newops = (oparamptr)malloc(sizeof(oparam)); newops->next = (*newobj)->params; newops->key = strdup(ops->key); (*newobj)->params = newops; newops->type = ops->type; newops->which = ops->which; switch (ops->type) { case XC_INT: newops->parameter.ivalue = ops->parameter.ivalue; break; case XC_FLOAT: newops->parameter.fvalue = ops->parameter.fvalue; break; case XC_STRING: newops->parameter.string = stringcopy(ops->parameter.string); break; case XC_EXPR: newops->parameter.expr = strdup(ops->parameter.expr); break; } } (*newobj)->schemtype = oldobj->schemtype; (*newobj)->netnames = NULL; (*newobj)->ports = NULL; (*newobj)->calls = NULL; (*newobj)->polygons = NULL; (*newobj)->labels = NULL; (*newobj)->valid = False; (*newobj)->traversed = False; (*newobj)->hidden = False; /* copy over all the elements of the original object */ (*newobj)->parts = 0; (*newobj)->plist = (genericptr *)malloc(sizeof(genericptr)); for (i = 0; i < oldobj->parts; i++) { switch(ELEMENTTYPE(*(oldobj->plist + i))) { case(PATH): { register pathptr *npath, cpath = TOPATH(oldobj->plist + i); NEW_PATH(npath, (*newobj)); pathcopy(*npath, cpath); } break; case(ARC): { register arcptr *narc, carc = TOARC(oldobj->plist + i); NEW_ARC(narc, (*newobj)); arccopy(*narc, carc); } break; case(POLYGON): { register polyptr *npoly, cpoly = TOPOLY(oldobj->plist + i); NEW_POLY(npoly, (*newobj)); polycopy(*npoly, cpoly); } break; case(SPLINE): { register splineptr *nspl, cspl = TOSPLINE(oldobj->plist + i); NEW_SPLINE(nspl, (*newobj)); splinecopy(*nspl, cspl); } break; case(LABEL): { register labelptr *nlabel, clabel = TOLABEL(oldobj->plist + i); NEW_LABEL(nlabel, (*newobj)); labelcopy(*nlabel, clabel); } break; case(OBJINST): { register objinstptr *ninst, cinst = TOOBJINST(oldobj->plist + i); NEW_OBJINST(ninst, (*newobj)); instcopy(*ninst, cinst); } break; } } } /* make instance for library and measure its bounding box */ addtoinstlist(USERLIB - LIBRARY, *newobj, FALSE); composelib(USERLIB); unselect_all(); if (areawin->topinstance == xobjs.libtop[USERLIB]) drawarea(NULL, NULL, NULL); else startcatalog(NULL, (pointertype)USERLIB, NULL); zoomview(NULL, NULL, NULL); } /*--------------------------------------------------------*/ /* ButtonPress handler during normal catalog viewing mode */ /*--------------------------------------------------------*/ void catalog_op(int op, int x, int y) { short *newselect; objinstptr *newobject, *libobj; objectptr libpage = topobject; short ocentx, ocenty, rangex, rangey, xdiff, ydiff, flag = 0; XPoint oldpos; /* Make catalog_op() a wrapper for pagecat_op() */ if (is_library(topobject) < 0) { pagecat_op(op, x, y); return; } /* If XCF_Cancel was invoked, return without a selection. */ if (op == XCF_Cancel) { eventmode = NORMAL_MODE; catreturn(); } else { window_to_user(x, y, &areawin->save); for (libobj = (objinstptr *)topobject->plist; libobj < (objinstptr *)topobject->plist + topobject->parts; libobj++) { if (IS_OBJINST(*libobj)) { ocentx = (*libobj)->position.x + (*libobj)->bbox.lowerleft.x + ((*libobj)->bbox.width >> 1); ocenty = (*libobj)->position.y + (*libobj)->bbox.lowerleft.y + ((*libobj)->bbox.height >> 1); rangex = ((*libobj)->bbox.width > 200) ? ((*libobj)->bbox.width >> 1) : 100; rangey = ((*libobj)->bbox.height > 200) ? ((*libobj)->bbox.height >> 1) : 100; if (areawin->save.x > ocentx - rangex && areawin->save.x < ocentx + rangex && areawin->save.y < ocenty + rangey && areawin->save.y > ocenty - rangey) { /* setup to move object around and draw the selected object */ if (eventmode == ASSOC_MODE) { /* revert to old page */ topobject->viewscale = areawin->vscale; topobject->pcorner = areawin->pcorner; areawin->topinstance = (areawin->stack == NULL) ? xobjs.pagelist[areawin->page]->pageinst : areawin->stack->thisinst; /* associate the new object */ schemassoc(topobject, (*libobj)->thisobject); setpage(TRUE); catreturn(); eventmode = NORMAL_MODE; } else if ((op == XCF_Library_Pop) || (op == XCF_Library_Copy)) { int saveselects; /* revert to old page */ topobject->viewscale = areawin->vscale; topobject->pcorner = areawin->pcorner; areawin->topinstance = (areawin->stack == NULL) ? xobjs.pagelist[areawin->page]->pageinst : areawin->stack->thisinst; /* retrieve drawing window state and set position of object to be correct in reference to that window */ snap(x, y, &oldpos); saveselects = areawin->selects; areawin->selects = 0; setpage(FALSE); areawin->selects = saveselects; snap(x, y, &areawin->save); xdiff = areawin->save.x - oldpos.x; ydiff = areawin->save.y - oldpos.y; /* collect all of the selected items */ for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) { NEW_OBJINST(newobject, topobject); instcopy(*newobject, TOOBJINST(libpage->plist + *newselect)); /* color should be recast as current color */ (*newobject)->color = areawin->color; /* position modified by (xdiff, ydiff) */ (*newobject)->position.x += xdiff; (*newobject)->position.y += ydiff; u2u_snap(&((*newobject)->position)); *newselect = (short)(newobject - (objinstptr *)topobject->plist); if ((*newobject)->thisobject == (*libobj)->thisobject) flag = 1; } /* add final object to the list of object instances */ if (!flag) { NEW_OBJINST(newobject, topobject); instcopy(*newobject, *libobj); (*newobject)->color = areawin->color; (*newobject)->position.x = areawin->save.x; (*newobject)->position.y = areawin->save.y; /* add this object to the list of selected items */ newselect = allocselect(); *newselect = (short)(newobject - (objinstptr *)topobject->plist); } if (op == XCF_Library_Copy) { /* Key "c" pressed for "copy" (default binding) */ XDefineCursor(dpy, areawin->window, COPYCURSOR); eventmode = COPY_MODE; #ifndef TCL_WRAPPER xcAddEventHandler(areawin->area, PointerMotionMask | ButtonMotionMask, False, (xcEventHandler)xlib_drag, NULL); #endif } else { eventmode = MOVE_MODE; was_preselected = FALSE; register_for_undo(XCF_Library_Pop, UNDO_MORE, areawin->topinstance, areawin->selectlist, areawin->selects); } #ifdef TCL_WRAPPER /* fprintf(stderr, "Creating event handler for xctk_drag: "); */ /* printeventmode(); */ Tk_CreateEventHandler(areawin->area, PointerMotionMask | ButtonMotionMask, (Tk_EventProc *)xctk_drag, NULL); #endif catreturn(); } /* Select the closest element and stay in the catalog. */ /* Could just do "select_element" here, but would not cover */ /* the entire area in the directory surrounding the object. */ else if (op == XCF_Select) { short newinst = (short)(libobj - (objinstptr *)topobject->plist); /* (ignore this object if it is already in the list of selects) */ for (newselect = areawin->selectlist; newselect < areawin->selectlist + areawin->selects; newselect++) if (*newselect == newinst) break; if (newselect == areawin->selectlist + areawin->selects) { newselect = allocselect(); *newselect = newinst; XcTopSetForeground(SELECTCOLOR); UDrawObject(*libobj, SINGLE, SELECTCOLOR, xobjs.pagelist[areawin->page]->wirewidth, NULL); } } break; } } } } } /*------------------------------*/ /* Switch to the next catalog */ /*------------------------------*/ void changecat() { int i, j; if ((i = is_library(topobject)) < 0) { if (areawin->lastlibrary >= xobjs.numlibs) areawin->lastlibrary = 0; j = areawin->lastlibrary; eventmode = CATALOG_MODE; } else { j = (i + 1) % xobjs.numlibs; if (j == i) { Wprintf("This is the only library."); return; } areawin->lastlibrary = j; } if (eventmode == CATMOVE_MODE) delete_for_xfer(NORMAL, areawin->selectlist, areawin->selects); startcatalog(NULL, (pointertype)(j + LIBRARY), NULL); } /*--------------------------------------*/ /* Begin catalog viewing mode */ /*--------------------------------------*/ void startcatalog(xcWidget w, pointertype libmod, caddr_t nulldata) { if (xobjs.libtop == NULL) return; /* No libraries defined */ if ((xobjs.libtop[libmod]->thisobject == NULL) || (areawin->topinstance == xobjs.libtop[libmod])) return; if (libmod == FONTLIB) { XDefineCursor (dpy, areawin->window, DEFAULTCURSOR); if (eventmode == TEXT_MODE) eventmode = FONTCAT_MODE; else eventmode = EFONTCAT_MODE; } else if (eventmode == ASSOC_MODE) { XDefineCursor (dpy, areawin->window, DEFAULTCURSOR); } else if (libmod == PAGELIB || libmod == LIBLIB) { XDefineCursor (dpy, areawin->window, DEFAULTCURSOR); eventmode = CATALOG_MODE; } else if (eventmode != CATMOVE_MODE) { /* Don't know why I put this here---causes xcircuit to redraw */ /* the schematic view when switching between library pages. */ // finish_op(XCF_Cancel, 0, 0); eventmode = CATALOG_MODE; } /* Push the current page onto the push stack, unless we're going */ /* to a library from the library directory or vice versa, or */ /* library to library. */ if (!(((is_library(topobject) >= 0) || (areawin->topinstance == xobjs.libtop[LIBLIB]) || (areawin->topinstance == xobjs.libtop[PAGELIB])) && libmod >= PAGELIB)) { push_stack(&areawin->stack, areawin->topinstance, NULL); } /* set library as new object */ topobject->viewscale = areawin->vscale; topobject->pcorner = areawin->pcorner; areawin->topinstance = xobjs.libtop[libmod]; if (libmod == FONTLIB) setpage(FALSE); else { setpage(TRUE); transferselects(); } /* draw the new screen */ refresh(NULL, NULL, NULL); } /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/xtfuncs.c0000664000175000001440000015633413067303440014033 0ustar timusers/*----------------------------------------------------------------------*/ /* xtfuncs.c --- Functions associated with the XCircuit Xt GUI */ /* (no Tcl/Tk interpreter) */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*----------------------------------------------------------------------*/ #ifndef TCL_WRAPPER #include #include #include #include #include #include #include #ifndef XC_WIN32 #include #include #include #include "Xw/Xw.h" #include "Xw/MenuBtn.h" #include "Xw/PopupMgr.h" #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* External Variable definitions */ /*----------------------------------------------------------------------*/ extern char _STR2[250]; extern char _STR[150]; /* Generic multipurpose string */ extern xcWidget top; extern Display *dpy; extern Globaldata xobjs; extern XCWindowData *areawin; extern int number_colors; extern colorindex *colorlist; extern ApplicationData appdata; extern Cursor appcursors[NUM_CURSORS]; extern fontinfo *fonts; extern short fontcount; extern xcWidget menuwidgets[]; extern xcWidget toolbar; extern short popups; /* total number of popup windows */ /*----------------------------------------------------------------------*/ /* The rest of the local includes depend on the prototype declarations */ /* and some of the external global variable declarations. */ /*----------------------------------------------------------------------*/ #include "menus.h" #include "menudep.h" /*----------------------------------------------------------------------*/ /* External variable definitions */ /*----------------------------------------------------------------------*/ extern u_short *fontnumbers; extern u_char nfontnumbers; /*----------------------------------------------*/ /* Set Poly and Arc line styles and fill styles */ /*----------------------------------------------*/ #define BORDERS (NOBORDER | DOTTED | DASHED) #define ALLFILLS (FILLSOLID | FILLED) /*--------------------------------------------------------------*/ /* Menu toggle button functions (keeps Xt functions out of the */ /* file menucalls.c). These are wrappers for toggleexcl(). */ /*--------------------------------------------------------------*/ void togglegridstyles(xcWidget button) { if (button != NULL) toggleexcl(button, GridStyles, XtNumber(GridStyles)); } void toggleanchors(xcWidget button) { if (button != NULL) toggleexcl(button, Anchors, XtNumber(Anchors)); } void togglefontstyles(xcWidget button) { if (button != NULL) toggleexcl(button, FontStyles, XtNumber(FontStyles)); } void toggleencodings(xcWidget button) { if (button != NULL) toggleexcl(button, FontEncodings, XtNumber(FontEncodings)); } /*--------------------------------------------------------------*/ /* Toggle a bit in the anchoring field of a label */ /*--------------------------------------------------------------*/ void doanchorbit(xcWidget w, labelptr settext, short bitfield) { if (settext != NULL) { int oldanchor = (int)settext->anchor; undrawtext(settext); settext->anchor ^= bitfield; redrawtext(settext); pwriteback(areawin->topinstance); register_for_undo(XCF_Anchor, UNDO_MORE, areawin->topinstance, (genericptr)settext, oldanchor); } else areawin->anchor ^= bitfield; if (w != NULL) { Boolean boolval; if (settext) boolval = (settext->anchor & bitfield) ? 0 : 1; else boolval = (areawin->anchor & bitfield) ? 0 : 1; toggle(w, (pointertype)(-1), &boolval); } } /*--------------------------------------------------------------*/ /* Toggle a pin-related bit in the anchoring field of a */ /* label. This differs from doanchorbit() in that the label */ /* must be a pin, and this function cannot change the default */ /* behavior set by areawin->anchor. */ /*--------------------------------------------------------------*/ void dopinanchorbit(xcWidget w, labelptr settext, short bitfield) { if ((settext != NULL) && settext->pin) { int oldanchor = (int)settext->anchor; undrawtext(settext); settext->anchor ^= bitfield; redrawtext(settext); pwriteback(areawin->topinstance); register_for_undo(XCF_Anchor, UNDO_MORE, areawin->topinstance, (genericptr)settext, oldanchor); if (w != NULL) { Boolean boolval = (settext->anchor & bitfield) ? 0 : 1; toggle(w, (pointertype)(-1), &boolval); } } } /*----------------------------------------------------------------*/ /* Set the anchoring for the label passed as 3rd parameter */ /*----------------------------------------------------------------*/ void setanchor(xcWidget w, pointertype value, labelptr settext, short mode) { short newanchor, oldanchor; if (settext != NULL) { if (mode == 1) newanchor = (settext->anchor & (NONANCHORFIELD | TBANCHORFIELD)) | value; else newanchor = (settext->anchor & (NONANCHORFIELD | RLANCHORFIELD)) | value; if (settext->anchor != newanchor) { oldanchor = (int)settext->anchor; undrawtext(settext); settext->anchor = newanchor; redrawtext(settext); pwriteback(areawin->topinstance); register_for_undo(XCF_Anchor, UNDO_MORE, areawin->topinstance, (genericptr)settext, oldanchor); } } else { if (mode == 1) newanchor = (areawin->anchor & (NONANCHORFIELD | TBANCHORFIELD)) | value; else newanchor = (areawin->anchor & (NONANCHORFIELD | RLANCHORFIELD)) | value; areawin->anchor = newanchor; } if (w != NULL) toggleanchors(w); } /*--------------------------------------------------------------*/ /* Set vertical anchoring (top, middle, bottom) on all */ /* selected labels */ /*--------------------------------------------------------------*/ void setvanchor(xcWidget w, pointertype value, caddr_t nulldata) { short *fselect; labelptr settext; short labelcount = 0; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); setanchor(w, value, settext, 2); } else { for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { labelcount++; settext = SELTOLABEL(fselect); setanchor(NULL, value, settext, 2); } } if (labelcount == 0) setanchor(w, value, NULL, 2); else unselect_all(); } } /*----------------------------------------------------------------*/ /* Set horizontal anchoring (left, center, right) on all */ /* selected labels */ /*----------------------------------------------------------------*/ void sethanchor(xcWidget w, pointertype value, caddr_t nulldata) { short *fselect; labelptr settext; short labelcount = 0; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); setanchor(w, value, settext, 1); } else { for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { labelcount++; settext = SELTOLABEL(fselect); setanchor(NULL, value, settext, 1); } } if (labelcount == 0) setanchor(w, value, NULL, 1); else unselect_all(); } } /*--------------------------------------------------------------*/ /* Set an anchor field bit on all selected labels */ /* (flip invariance, latex mode, etc.) */ /*--------------------------------------------------------------*/ void setanchorbit(xcWidget w, pointertype value, caddr_t nulldata) { short *fselect; labelptr settext; short labelcount = 0; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); doanchorbit(w, settext, (short)value); } else { for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { labelcount++; settext = SELTOLABEL(fselect); doanchorbit(NULL, settext, (short)value); } } if (labelcount == 0) doanchorbit(w, NULL, (short)value); else unselect_all(); } } /*--------------------------------------------------------------*/ /* Set pin-related bit field of "anchor" on all selected pins */ /* (e.g., pin visibility) */ /*--------------------------------------------------------------*/ void setpinanchorbit(xcWidget w, pointertype value, caddr_t nulldata) { short *fselect; labelptr settext; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { settext = *((labelptr *)EDITPART); if (settext->pin) dopinanchorbit(w, settext, (short)value); } else { for (fselect = areawin->selectlist; fselect < areawin->selectlist + areawin->selects; fselect++) { if (SELECTTYPE(fselect) == LABEL) { settext = SELTOLABEL(fselect); if (settext->pin) dopinanchorbit(NULL, settext, (short)value); } } unselect_all(); } } /*--------------------------------------------------------------*/ /* Enable or Disable the toolbar */ /*--------------------------------------------------------------*/ #ifdef HAVE_XPM void dotoolbar(xcWidget w, caddr_t clientdata, caddr_t calldata) { Arg wargs[1]; if (areawin->toolbar_on) { areawin->toolbar_on = False; XtUnmanageChild(toolbar); XtSetArg(wargs[0], XtNlabel, "Enable Toolbar"); XtSetValues(OptionsDisableToolbarButton, wargs, 1); XtRemoveCallback(areawin->area, XtNresize, (XtCallbackProc)resizetoolbar, NULL); } else { areawin->toolbar_on = True; XtManageChild(toolbar); XtSetArg(wargs[0], XtNlabel, "Disable Toolbar"); XtSetValues(OptionsDisableToolbarButton, wargs, 1); XtAddCallback(areawin->area, XtNresize, (XtCallbackProc)resizetoolbar, NULL); } } /*--------------------------------------------------------------*/ /* Overwrite the toolbar pixmap for color or stipple entries */ /*--------------------------------------------------------------*/ #ifndef XC_WIN32 void overdrawpixmap(xcWidget button) { xcWidget pbutton; Arg args[3]; int ltype, color; Pixmap stippix; if (button == NULL) return; XtSetArg(args[0], XtNlabelType, <ype); XtGetValues(button, args, 1); if (ltype != XwRECT && button != ColorInheritColorButton) return; XtSetArg(args[0], XtNrectColor, &color); XtSetArg(args[1], XtNrectStipple, &stippix); XtGetValues(button, args, 2); if (stippix == (Pixmap)NULL && button != FillBlackButton) pbutton = ColorsToolButton; else pbutton = FillsToolButton; if (button == ColorInheritColorButton) { XtSetArg(args[0], XtNlabelType, XwIMAGE); XtSetValues(pbutton, args, 1); } else if (button == FillBlackButton) { XtSetArg(args[0], XtNlabelType, XwRECT); XtSetArg(args[1], XtNrectColor, color); XtSetArg(args[2], XtNrectStipple, (Pixmap)NULL); XtSetValues(pbutton, args, 3); } else if (button != FillOpaqueButton) { XtSetArg(args[0], XtNlabelType, XwRECT); if (stippix == (Pixmap)NULL) XtSetArg(args[1], XtNrectColor, color); else XtSetArg(args[1], XtNrectStipple, stippix); XtSetValues(pbutton, args, 2); } } #endif #else void overdrawpixmap(xcWidget button) {} #endif /* XPM */ /*--------------------------------------------------------------*/ /* Generic routine for use by all other data handling routines */ /*--------------------------------------------------------------*/ buttonsave *getgeneric(xcWidget button, void (*getfunction)(), void *dataptr) { Arg wargs[1]; buttonsave *saveptr; saveptr = (buttonsave *)malloc(sizeof(buttonsave)); saveptr->button = button; saveptr->buttoncall = getfunction; saveptr->dataptr = dataptr; if (button != NULL) { XtSetArg(wargs[0], XtNforeground, &saveptr->foreground); XtGetValues(button, wargs, 1); XtSetArg(wargs[0], XtNforeground, colorlist[OFFBUTTONCOLOR].color.pixel); XtSetValues(button, wargs, 1); XtRemoveAllCallbacks(button, XtNselect); } return saveptr; } /*--------------------------------------------------------------*/ /* Generate popup dialog for snap space value input */ /*--------------------------------------------------------------*/ void getsnapspace(xcWidget button, caddr_t clientdata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; float *floatptr = &xobjs.pagelist[areawin->page]->snapspace; savebutton = getgeneric(button, getsnapspace, (void *)floatptr); measurestr(*floatptr, buffer); popupprompt(button, "Enter value:", buffer, setgrid, savebutton, NULL); } /*--------------------------------------------------------------*/ /* Generate popup dialog for grid space value input */ /*--------------------------------------------------------------*/ void getgridspace(xcWidget button, caddr_t clientdata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; float *floatptr = &xobjs.pagelist[areawin->page]->gridspace; savebutton = getgeneric(button, getgridspace, (void *)floatptr); measurestr(*floatptr, buffer); popupprompt(button, "Enter value:", buffer, setgrid, savebutton, NULL); } /*----------------------------------------------------------------*/ /* Generic routine for setting a floating-point value (through a */ /* (float *) pointer passed as the second parameter) */ /*----------------------------------------------------------------*/ void setfloat(xcWidget w, float *dataptr) { float oldvalue = *dataptr; int res = sscanf(_STR2, "%f", dataptr); if (res == 0 || *dataptr <= 0) { *dataptr = oldvalue; Wprintf("Illegal value"); } if (oldvalue != *dataptr) drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------*/ /* Set text scale. */ /*----------------------------------------------------------------*/ void settsize(xcWidget w, labelptr settext) { float tmpres; int res = sscanf(_STR2, "%f", &tmpres); if (res == 0 || tmpres <= 0) { /* can't interpret value or bad value */ Wprintf("Illegal value"); return; } changetextscale(tmpres); if (areawin->selects > 0) unselect_all(); } /*--------------------------------------------------------------*/ /* Auto-set: Enable automatic scaling */ /*--------------------------------------------------------------*/ void autoset(xcWidget w, xcWidgetList entertext, caddr_t nulldata) { xobjs.pagelist[areawin->page]->pmode |= 2; updatetext(w, entertext, nulldata); } /*--------------------------------------------------------------*/ void autostop(xcWidget w, caddr_t clientdata, caddr_t nulldata) { xobjs.pagelist[areawin->page]->pmode &= 1; } /*--------------------------------------------------------------*/ /* Set the denomenator value of the drawing scale */ /*--------------------------------------------------------------*/ void setscaley(xcWidget w, float *dataptr) { float oldvalue = *dataptr; int res = sscanf(_STR2, "%f", dataptr); if (res == 0 || *dataptr <= 0 || topobject->bbox.height == 0) { *dataptr = oldvalue; Wprintf("Illegal value"); } else { *dataptr = (*dataptr * 72) / topobject->bbox.height; *dataptr /= getpsscale(1.0, areawin->page); } } /*----------------------------------------------------------------*/ /* Set the numerator value of the drawing scale */ /*----------------------------------------------------------------*/ void setscalex(xcWidget w, float *dataptr) { float oldvalue = *dataptr; int res = sscanf(_STR2, "%f", dataptr); if (res == 0 || *dataptr <= 0 || topobject->bbox.width == 0) { *dataptr = oldvalue; Wprintf("Illegal value"); } else { *dataptr = (*dataptr * 72) / topobject->bbox.width; *dataptr /= getpsscale(1.0, areawin->page); } } /*----------------------------------------------------------------*/ /* Set the page orientation (either Landscape or Portrait) */ /*----------------------------------------------------------------*/ void setorient(xcWidget w, short *dataptr) { Arg wargs[1]; if (*dataptr == 0) { *dataptr = 90; XtSetArg(wargs[0], XtNlabel, "Landscape"); } else { *dataptr = 0; XtSetArg(wargs[0], XtNlabel, "Portrait"); } XtSetValues(w, wargs, 1); } /*----------------------------------------------------------------*/ /* Set the output mode to "Full Page" (unencapsulated PostScript) */ /* or "Embedded" (encapsulated PostScript) */ /*----------------------------------------------------------------*/ void setpmode(xcWidget w, short *dataptr) { Arg wargs[1]; xcWidget pwidg = XtParent(w); xcWidget autowidg = XtNameToWidget(pwidg, "Auto-fit"); if (!(*dataptr & 1)) { *dataptr = 1; XtSetArg(wargs[0], XtNlabel, "Full Page"); XtManageChild(XtNameToWidget(pwidg, "fpedit")); XtManageChild(XtNameToWidget(pwidg, "fpokay")); XtManageChild(autowidg); } else { *dataptr = 0; /* This also turns off auto-fit */ XtSetArg(wargs[0], XtNset, False); XtSetValues(autowidg, wargs, 1); XtSetArg(wargs[0], XtNlabel, "Embedded"); XtUnmanageChild(XtNameToWidget(pwidg, "fpedit")); XtUnmanageChild(XtNameToWidget(pwidg, "fpokay")); XtUnmanageChild(autowidg); } XtSetValues(w, wargs, 1); } /*--------------------------------------------------------------*/ /* Set the output page size, in the current unit of measure */ /*--------------------------------------------------------------*/ void setpagesize(xcWidget w, XPoint *dataptr) { char fpedit[75]; Arg wargs[1]; Boolean is_inches; is_inches = setoutputpagesize(dataptr); sprintf(fpedit, "%3.2f x %3.2f %s", (float)xobjs.pagelist[areawin->page]->pagesize.x / 72.0, (float)xobjs.pagelist[areawin->page]->pagesize.y / 72.0, (is_inches) ? "in" : "cm"); XtSetArg(wargs[0], XtNstring, fpedit); XtSetValues(XtNameToWidget(XtParent(w), "fpedit"), wargs, 1); } /*--------------------------------------------------------------*/ /* Generate popup dialog to get a character kern value, which */ /* is two integer numbers in the range -128 to +127 (size char) */ /*--------------------------------------------------------------*/ void getkern(xcWidget button, caddr_t nulldata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; int kx, ky; stringpart *strptr, *nextptr; strcpy(buffer, "0,0"); if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { labelptr curlabel = TOLABEL(EDITPART); strptr = findstringpart(areawin->textpos - 1, NULL, curlabel->string, areawin->topinstance); nextptr = findstringpart(areawin->textpos, NULL, curlabel->string, areawin->topinstance); if (strptr->type == KERN) { kx = strptr->data.kern[0]; ky = strptr->data.kern[1]; sprintf(buffer, "%d,%d", kx, ky); } else if (nextptr && nextptr->type == KERN) { strptr = nextptr; kx = strptr->data.kern[0]; ky = strptr->data.kern[1]; sprintf(buffer, "%d,%d", kx, ky); } else strptr = NULL; } savebutton = getgeneric(button, getkern, strptr); popupprompt(button, "Enter Kern X,Y:", buffer, setkern, savebutton, NULL); } /*----------------------------------------------------------------*/ /* Generate popup dialog to get the drawing scale, specified as a */ /* whole-number ratio X:Y */ /*----------------------------------------------------------------*/ void getdscale(xcWidget button, caddr_t nulldata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; XPoint *ptptr = &(xobjs.pagelist[areawin->page]->drawingscale); savebutton = getgeneric(button, getdscale, ptptr); sprintf(buffer, "%d:%d", ptptr->x, ptptr->y); popupprompt(button, "Enter Scale:", buffer, setdscale, savebutton, NULL); } /*--------------------------------------------------------------*/ /* Generate the popup dialog for getting text scale. */ /*--------------------------------------------------------------*/ void gettsize(xcWidget button, caddr_t nulldata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; float *floatptr; Boolean local; labelptr settext; settext = gettextsize(&floatptr); sprintf(buffer, "%5.2f", *floatptr); if (settext) { savebutton = getgeneric(button, gettsize, settext); popupprompt(button, "Enter text scale:", buffer, settsize, savebutton, NULL); } else { savebutton = getgeneric(button, gettsize, floatptr); popupprompt(button, "Enter default text scale:", buffer, setfloat, savebutton, NULL); } } /*----------------------------------------------------------------*/ /* Generate popup dialog for getting object scale */ /*----------------------------------------------------------------*/ void getosize(xcWidget button, caddr_t clientdata, caddr_t calldata) { char buffer[50]; float flval; buttonsave *savebutton; short *osel = areawin->selectlist; short selects = 0; objinstptr setobj = NULL; for (; osel < areawin->selectlist + areawin->selects; osel++) if (SELECTTYPE(osel) == OBJINST) { setobj = SELTOOBJINST(osel); selects++; break; } if (setobj == NULL) { Wprintf("No objects were selected for scaling."); return; } flval = setobj->scale; savebutton = getgeneric(button, getosize, setobj); sprintf(buffer, "%4.2f", flval); popupprompt(button, "Enter object scale:", buffer, setosize, savebutton, NULL); } /*----------------------------------------------------------------*/ /* Generate popup prompt for getting global linewidth */ /*----------------------------------------------------------------*/ void getwirewidth(xcWidget button, caddr_t clientdata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; float *widthptr; widthptr = &(xobjs.pagelist[areawin->page]->wirewidth); savebutton = getgeneric(button, getwirewidth, widthptr); sprintf(buffer, "%4.2f", *widthptr / 2.0); popupprompt(button, "Enter new global linewidth:", buffer, setwidth, savebutton, NULL); } /*----------------------------------------------------------------*/ /* Generate popup dialong for getting linewidths of elements */ /*----------------------------------------------------------------*/ void getwwidth(xcWidget button, caddr_t clientdata, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; short *osel = areawin->selectlist; genericptr setel; float flval; for (; osel < areawin->selectlist + areawin->selects; osel++) { setel = *(topobject->plist + (*osel)); if (IS_ARC(setel)) { flval = ((arcptr)setel)->width; break; } else if (IS_POLYGON(setel)) { flval = ((polyptr)setel)->width; break; } else if (IS_SPLINE(setel)) { flval = ((splineptr)setel)->width; break; } else if (IS_PATH(setel)) { flval = ((pathptr)setel)->width; break; } } savebutton = getgeneric(button, getwwidth, setel); if (osel == areawin->selectlist + areawin->selects) { sprintf(buffer, "%4.2f", areawin->linewidth); popupprompt(button, "Enter new default line width:", buffer, setwwidth, savebutton, NULL); } else { sprintf(buffer, "%4.2f", flval); popupprompt(button, "Enter new line width:", buffer, setwwidth, savebutton, NULL); } } /*----------------------------------------------------------------*/ /* Generic popup prompt for getting a floating-point value */ /*----------------------------------------------------------------*/ void getfloat(xcWidget button, float *floatptr, caddr_t calldata) { char buffer[50]; buttonsave *savebutton; savebutton = getgeneric(button, getfloat, floatptr); sprintf(buffer, "%4.2f", *floatptr); popupprompt(button, "Enter value:", buffer, setfloat, savebutton, NULL); } /*----------------------------------------------------------------*/ /* Set the filename for the current page */ /*----------------------------------------------------------------*/ void setfilename(xcWidget w, char **dataptr) { short cpage, depend = 0; objectptr checkpage; char *oldstr = xobjs.pagelist[areawin->page]->filename; if ((*dataptr != NULL) && !strcmp(*dataptr, _STR2)) return; /* no change in string */ /* Make the change to the current page */ xobjs.pagelist[areawin->page]->filename = strdup(_STR2); /* All existing filenames which match the old string should also be changed */ for (cpage = 0; cpage < xobjs.pages; cpage++) { if ((xobjs.pagelist[cpage]->pageinst != NULL) && (cpage != areawin->page)) { if ((oldstr != NULL) && (!strcmp(xobjs.pagelist[cpage]->filename, oldstr))) { free(xobjs.pagelist[cpage]->filename); xobjs.pagelist[cpage]->filename = strdup(_STR2); } } } free(oldstr); } /*----------------------------------------------------------------*/ /* Set the page label for the current page */ /*----------------------------------------------------------------*/ void setpagelabel(xcWidget w, char *dataptr) { short i; /* Whitespace and non-printing characters not allowed */ for (i = 0; i < strlen(_STR2); i++) { if ((!isprint(_STR2[i])) || (isspace(_STR2[i]))) { _STR2[i] = '_'; Wprintf("Replaced illegal whitespace in name with underscore"); } } if (!strcmp(dataptr, _STR2)) return; /* no change in string */ if (strlen(_STR2) == 0) sprintf(topobject->name, "Page %d", areawin->page + 1); else sprintf(topobject->name, "%.79s", _STR2); /* For schematics, all pages with associations to symbols must have */ /* unique names. */ if (topobject->symschem != NULL) checkpagename(topobject); printname(topobject); renamepage(areawin->page); } /*--------------------------------------------------------------*/ /* Change the Button1 binding for a particular mode (non-Tcl) */ /*--------------------------------------------------------------*/ /*--------------------------------------------------------------*/ /* Change to indicated tool (key binding w/o value) */ /*--------------------------------------------------------------*/ void changetool(xcWidget w, pointertype value, caddr_t nulldata) { mode_rebinding((int)value, (short)-1); highlightexcl(w, (int)value, (int)-1); } /*--------------------------------------------------------------*/ /* Execute function binding for the indicated tool if something */ /* is selected; otherwise, change to the indicated tool mode. */ /*--------------------------------------------------------------*/ void exec_or_changetool(xcWidget w, pointertype value, caddr_t nulldata) { if (areawin->selects > 0) mode_tempbinding((int)value, -1); else { mode_rebinding((int)value, -1); highlightexcl(w, (int)value, -1); } } /*--------------------------------------------------------------*/ /* Special case of exec_or_changetool(), where an extra value */ /* is passed to the routine indication amount of rotation, or */ /* type of flip operation. */ /*--------------------------------------------------------------*/ void rotatetool(xcWidget w, pointertype value, caddr_t nulldata) { if (areawin->selects > 0) mode_tempbinding(XCF_Rotate, (int)value); else { mode_rebinding(XCF_Rotate, (int)value); highlightexcl(w, (int)XCF_Rotate, (int)value); } } /*--------------------------------------------------------------*/ /* Special case of changetool() for pan mode, where a value is */ /* required to pass to the key binding routine. */ /*--------------------------------------------------------------*/ void pantool(xcWidget w, pointertype value, caddr_t nulldata) { mode_rebinding(XCF_Pan, (int)value); highlightexcl(w, (int)XCF_Pan, (int)value); } /*--------------------------------------------------------------*/ /* Add a new font name to the list of known fonts */ /* Register the font number for the Alt-F cycling mechanism */ /* Tcl: depends on command tag mechanism for GUI menu update. */ /*--------------------------------------------------------------*/ void makenewfontbutton() { Arg wargs[1]; int n = 0; xcWidget newbutton, cascade; if (fontcount == 0) return; cascade = XtParent(FontAddNewFontButton); XtnSetArg(XtNfont, appdata.xcfont); newbutton = XtCreateWidget(fonts[fontcount - 1].family, XwmenubuttonWidgetClass, cascade, wargs, n); XtAddCallback (newbutton, XtNselect, (XtCallbackProc)setfont, Number(fontcount - 1)); XtManageChild(newbutton); nfontnumbers++; if (nfontnumbers == 1) fontnumbers = (u_short *)malloc(sizeof(u_short)); else fontnumbers = (u_short *)realloc(fontnumbers, nfontnumbers * sizeof(u_short)); fontnumbers[nfontnumbers - 1] = fontcount - 1; } /*--------------------------------------------------------------*/ /* Make new encoding menu button */ /*--------------------------------------------------------------*/ void makenewencodingbutton(char *ename, char value) { Arg wargs[1]; int n = 0; xcWidget newbutton, cascade; cascade = XtParent(EncodingStandardButton); /* return if button has already been made */ newbutton = XtNameToWidget(cascade, ename); if (newbutton != NULL) return; XtnSetArg(XtNfont, appdata.xcfont); newbutton = XtCreateWidget(ename, XwmenubuttonWidgetClass, cascade, wargs, n); XtAddCallback (newbutton, XtNselect, (XtCallbackProc)setfontencoding, Number(value)); XtManageChild(newbutton); } /*--------------------------------------------------------------*/ /* Set the menu checkmarks on the font menu */ /*--------------------------------------------------------------*/ void togglefontmark(int fontval) { Arg args[1]; xcWidget widget, cascade, sibling; short i; cascade = XtParent(FontAddNewFontButton); widget = XtNameToWidget(cascade, fonts[fontval].family); /* Remove checkmark from all widgets in the list */ XtSetArg(args[0], XtNsetMark, False); for (i = 0; i < fontcount; i++) { if (i != fontval) { sibling = XtNameToWidget(cascade, fonts[i].family); XtSetValues(sibling, args, 1); } } /* Add checkmark to designated font */ XtSetArg(args[0], XtNsetMark, True); XtSetValues(widget, args, 1); } /*--------------------------------------------------------------------*/ /* Toggle one of a set of menu items, only one of which can be active */ /*--------------------------------------------------------------------*/ void toggleexcl(xcWidget widget, menuptr menu, int menulength) { Arg args[1]; xcWidget parent = xcParent(widget); xcWidget sibling; menuptr mitem, mtest; short i; /* find the menu item which corresponds to the widget which was pushed */ for (mtest = menu; mtest < menu + menulength; mtest++) { sibling = XtNameToWidget(parent, mtest->name); if (sibling == widget) break; } /* remove checkmark from other widgets in the list */ XtSetArg(args[0], XtNsetMark, False); if (menu == Fonts) { /* special action for font list */ for (i = 0; i < fontcount; i++) { sibling = XtNameToWidget(parent, fonts[i].family); if (sibling != widget) XtSetValues(sibling, args, 1); } mtest = &Fonts[3]; /* so that mtest->func has correct value below */ } else if (mtest == menu + menulength) return; /* something went wrong? */ for (mitem = menu; mitem < menu + menulength; mitem++) { sibling = XtNameToWidget(parent, mitem->name); if (mitem->func == mtest->func) XtSetValues(sibling, args, 1); } /* Now set the currently pushed widget */ XtSetArg(args[0], XtNsetMark, True); XtSetValues(widget, args, 1); } /*----------------------------------------------------------------------*/ /* Cursor changes based on toolbar mode */ /*----------------------------------------------------------------------*/ void toolcursor(int mode) { /* Some cursor types for different modes */ switch(mode) { case XCF_Spline: case XCF_Move: case XCF_Join: case XCF_Unjoin: XDefineCursor (dpy, areawin->window, ARROW); areawin->defaultcursor = &ARROW; break; case XCF_Pan: XDefineCursor (dpy, areawin->window, HAND); areawin->defaultcursor = &HAND; break; case XCF_Delete: XDefineCursor (dpy, areawin->window, SCISSORS); areawin->defaultcursor = &SCISSORS; break; case XCF_Copy: XDefineCursor (dpy, areawin->window, COPYCURSOR); areawin->defaultcursor = ©CURSOR; break; case XCF_Push: case XCF_Select_Save: XDefineCursor (dpy, areawin->window, QUESTION); areawin->defaultcursor = &QUESTION; break; case XCF_Rotate: case XCF_Flip_X: case XCF_Flip_Y: XDefineCursor (dpy, areawin->window, ROTATECURSOR); areawin->defaultcursor = &ROTATECURSOR; break; case XCF_Edit: XDefineCursor (dpy, areawin->window, EDCURSOR); areawin->defaultcursor = &EDCURSOR; break; case XCF_Arc: XDefineCursor (dpy, areawin->window, CIRCLE); areawin->defaultcursor = &CIRCLE; break; case XCF_Text: case XCF_Pin_Label: case XCF_Pin_Global: case XCF_Info_Label: XDefineCursor (dpy, areawin->window, TEXTPTR); areawin->defaultcursor = &TEXTPTR; break; default: XDefineCursor (dpy, areawin->window, CROSS); areawin->defaultcursor = &CROSS; break; } } /*--------------------------------------------------------------------------*/ /* Highlight one of a set of toolbar items, only one of which can be active */ /*--------------------------------------------------------------------------*/ void highlightexcl(xcWidget widget, int func, int value) { #ifdef HAVE_XPM Arg args[2]; xcWidget parent = xcParent(PanToolButton); xcWidget sibling, self = (xcWidget)NULL; toolbarptr titem, ttest; /* remove highlight from all widgets in the toolbar */ XtSetArg(args[0], XtNbackground, colorlist[BACKGROUND].color.pixel); XtSetArg(args[1], XtNborderColor, colorlist[SNAPCOLOR].color.pixel); for (titem = ToolBar; titem < ToolBar + toolbuttons; titem++) { sibling = XtNameToWidget(parent, titem->name); if (sibling == widget) self = sibling; else XtSetValues(sibling, args, 2); } if (self == (xcWidget)NULL) { /* We invoked a toolbar button from somewhere else. Highlight */ /* the toolbar associated with the function value. */ switch (func) { case XCF_Pan: self = PanToolButton; break; case XCF_Rotate: if (value > 0) self = RotPToolButton; else self = RotNToolButton; break; default: for (titem = ToolBar; titem < ToolBar + toolbuttons; titem++) { if (func == (pointertype)(titem->passeddata)) { self = XtNameToWidget(parent, titem->name); break; } } break; } } /* Now highlight the currently pushed widget */ if (self != (xcWidget)NULL) { XtSetArg(args[0], XtNbackground, colorlist[RATSNESTCOLOR].color.pixel); XtSetArg(args[1], XtNborderColor, colorlist[RATSNESTCOLOR].color.pixel); XtSetValues(self, args, 2); } #endif /* HAVE_XPM */ } /*--------------------*/ /* Toggle a menu item */ /*--------------------*/ void toggle(xcWidget w, pointertype soffset, Boolean *setdata) { Arg wargs[1]; Boolean *boolvalue; if (soffset == -1) boolvalue = setdata; else boolvalue = (Boolean *)(areawin + soffset); *boolvalue = !(*boolvalue); XtSetArg(wargs[0], XtNsetMark, *boolvalue); XtSetValues(w, wargs, 1); drawarea(w, NULL, NULL); } /*----------------------------------------------------------------*/ /* Invert the color scheme used for the background/foreground */ /*----------------------------------------------------------------*/ void inversecolor(xcWidget w, pointertype soffset, caddr_t calldata) { Boolean *boolvalue = (Boolean *)(areawin + soffset); /* change color scheme */ setcolorscheme(*boolvalue); /* toggle checkmark in menu on "Alt colors" */ if (w == NULL) w = OptionsAltColorsButton; if (w != NULL) toggle(w, soffset, calldata); if (eventmode == NORMAL_MODE) XDefineCursor (dpy, areawin->window, DEFAULTCURSOR); } /*----------------------------------------------------------------*/ /* Change menu selection for reported measurement units */ /*----------------------------------------------------------------*/ void togglegrid(u_short type) { xcWidget button, bparent = XtParent(GridtypedisplayDecimalInchesButton); if (type == CM) button = XtNameToWidget(bparent, "Centimeters"); else if (type == FRAC_INCH) button = XtNameToWidget(bparent, "Fractional Inches"); else if (type == DEC_INCH) button = XtNameToWidget(bparent, "Decimal Inches"); else if (type == INTERNAL) button = XtNameToWidget(bparent, "Internal Units"); else button = XtNameToWidget(bparent, "Coordinates"); if (button) { toggleexcl(button, GridStyles, XtNumber(GridStyles)); W1printf(" "); } } /*----------------------------------------------------------------*/ /* Set the default reported grid units to inches or centimeters */ /*----------------------------------------------------------------*/ void setgridtype(char *string) { xcWidget button, bparent = XtParent(GridtypedisplayDecimalInchesButton); if (!strcmp(string, "inchscale")) { button = XtNameToWidget(bparent, "Fractional Inches"); getgridtype(button, FRAC_INCH, NULL); } else if (!strcmp(string, "cmscale")) { button = XtNameToWidget(bparent, "Centimeters"); getgridtype(button, CM, NULL); } } /*----------------------------------------------*/ /* Make new library and add a new button to the */ /* "Libraries" cascaded menu. */ /*----------------------------------------------*/ int createlibrary(Boolean force) { xcWidget libmenu, newbutton, oldbutton; Arg wargs[2]; char libstring[20]; int libnum; objectptr newlibobj; /* If there's an empty library, return its number */ if ((!force) && (libnum = findemptylib()) >= 0) return (libnum + LIBRARY); libnum = (xobjs.numlibs++) + LIBRARY; xobjs.libtop = (objinstptr *)realloc(xobjs.libtop, (libnum + 1) * sizeof(objinstptr)); xobjs.libtop[libnum] = xobjs.libtop[libnum - 1]; libnum--; newlibobj = (objectptr) malloc(sizeof(object)); initmem(newlibobj); xobjs.libtop[libnum] = newpageinst(newlibobj); sprintf(newlibobj->name, "Library %d", libnum - LIBRARY + 1); /* Create the library */ xobjs.userlibs = (Library *) realloc(xobjs.userlibs, xobjs.numlibs * sizeof(Library)); xobjs.userlibs[libnum + 1 - LIBRARY] = xobjs.userlibs[libnum - LIBRARY]; xobjs.userlibs[libnum - LIBRARY].library = (objectptr *) malloc(sizeof(objectptr)); xobjs.userlibs[libnum - LIBRARY].number = 0; xobjs.userlibs[libnum - LIBRARY].instlist = NULL; /* To-do: initialize technology list */ /* xobjs.userlibs[libnum - LIBRARY].filename = NULL; xobjs.userlibs[libnum - LIBRARY].flags = (char)0; */ /* Previously last button becomes new library pointer */ oldbutton = GotoLibraryLibrary2Button; XtRemoveAllCallbacks (oldbutton, XtNselect); XtAddCallback (oldbutton, XtNselect, (XtCallbackProc)startcatalog, Number(libnum)); XtSetArg(wargs[0], XtNlabel, xobjs.libtop[libnum]->thisobject->name); XtSetValues(oldbutton, wargs, 1); /* Make new entry in the menu to replace the User Library button */ /* xcWidget name is unique so button can be found later. Label is */ /* always set to "User Library" */ sprintf(libstring, "Library %d", libnum - LIBRARY + 2); libmenu = XtParent(GotoLibraryAddNewLibraryButton); XtSetArg(wargs[0], XtNfont, appdata.xcfont); XtSetArg(wargs[1], XtNlabel, "User Library"); newbutton = XtCreateWidget(libstring, XwmenubuttonWidgetClass, libmenu, wargs, 2); XtAddCallback (newbutton, XtNselect, (XtCallbackProc)startcatalog, Number(libnum + 1)); XtManageChild(newbutton); GotoLibraryLibrary2Button = newbutton; /* Update the library directory to include the new page */ composelib(LIBLIB); return libnum; } /*--------------------------------------------------------------*/ /* Routine called by newpage() if new button needs to be made */ /* to add to the "Pages" cascaded menu. */ /*--------------------------------------------------------------*/ void makepagebutton() { xcWidget pagemenu, newbutton; Arg wargs[1]; char pagestring[10]; /* make new entry in the menu */ pagemenu = XtParent(GotoPageAddNewPageButton); XtSetArg(wargs[0], XtNfont, appdata.xcfont); sprintf(pagestring, "Page %d", xobjs.pages); newbutton = XtCreateWidget(pagestring, XwmenubuttonWidgetClass, pagemenu, wargs, 1); XtAddCallback (newbutton, XtNselect, (XtCallbackProc)newpagemenu, Number(xobjs.pages - 1)); XtManageChild(newbutton); /* Update the page directory */ composelib(PAGELIB); } /*----------------------------------------------------------------*/ /* Find the Page menu button associated with the page number */ /* (passed parameter) and set the label of that button to the */ /* object name (= page label) */ /*----------------------------------------------------------------*/ void renamepage(short pagenumber) { int page; objinstptr thisinst = xobjs.pagelist[pagenumber]->pageinst; Arg wargs[1]; xcWidget parent = XtParent(GotoPageAddNewPageButton); xcWidget button; char bname[10]; sprintf(bname, "Page %d", pagenumber + 1); button = XtNameToWidget(parent, bname); if ((button != NULL) && (thisinst != NULL)) { if (thisinst->thisobject->name != NULL) XtSetArg(wargs[0], XtNlabel, thisinst->thisobject->name); else XtSetArg(wargs[0], XtNlabel, bname); XtSetValues(button, wargs, 1); } else if (button == NULL) Fprintf(stderr, "Error: No Button Widget named \"%9s\"\n", bname); } /*--------------------------------------------------------------*/ /* Same routine as above, for Library page menu buttons */ /*--------------------------------------------------------------*/ void renamelib(short libnumber) { Arg wargs[1]; xcWidget parent = XtParent(GotoLibraryAddNewLibraryButton); xcWidget button; char bname[13]; sprintf(bname, "Library %d", libnumber - LIBRARY + 1); button = XtNameToWidget(parent, bname); if (button != NULL) { if (xobjs.libtop[libnumber]->thisobject->name != NULL) XtSetArg(wargs[0], XtNlabel, xobjs.libtop[libnumber]->thisobject->name); else XtSetArg(wargs[0], XtNlabel, bname); XtSetValues(button, wargs, 1); } else Fprintf(stderr, "Error: No Button Widget named \"%12s\"\n", bname); } /*--------------------------------------------------------------*/ /* Set the menu checkmarks on the color menu */ /*--------------------------------------------------------------*/ void setcolormark(int colorval) { Arg args[1]; xcWidget w = NULL; short i; if (colorval == DEFAULTCOLOR) w = ColorInheritColorButton; else w = colorlist[colorval].cbutton; /* Remove mark from all menu items */ XtSetArg(args[0], XtNsetMark, False); for (i = NUMBER_OF_COLORS; i < number_colors; i++) XtSetValues(colorlist[i].cbutton, args, 1); XtSetValues(ColorInheritColorButton, args, 1); /* Add mark to the menu button for the chosen color */ if (w != (xcWidget)NULL) { overdrawpixmap(w); XtSetArg(args[0], XtNsetMark, True); XtSetValues(w, args, 1); } } /*----------------------------------------------------------------*/ /* Set the checkmarks on the element styles menu */ /*----------------------------------------------------------------*/ void setallstylemarks(u_short styleval) { xcWidget w; Arg wargs[1]; XtSetArg(wargs[0], XtNsetMark, (styleval & UNCLOSED) ? 0 : 1); XtSetValues(BorderClosedButton, wargs, 1); XtSetArg(wargs[0], XtNsetMark, (styleval & BBOX) ? 1 : 0); XtSetValues(BorderBoundingBoxButton, wargs, 1); if (styleval & NOBORDER) w = BorderUnborderedButton; else if (styleval & DASHED) w = BorderDashedButton; else if (styleval & DOTTED) w = BorderDottedButton; else w = BorderSolidButton; toggleexcl(w, BorderStyles, XtNumber(BorderStyles)); if (styleval & OPAQUE) w = FillOpaqueButton; else w = FillTransparentButton; toggleexcl(w, Stipples, XtNumber(Stipples)); if (!(styleval & FILLED)) w = FillWhiteButton; else { styleval &= FILLSOLID; styleval /= STIP0; switch(styleval) { case 0: w = FillGray87Button; break; case 1: w = FillGray75Button; break; case 2: w = FillGray62Button; break; case 3: w = FillGray50Button; break; case 4: w = FillGray37Button; break; case 5: w = FillGray25Button; break; case 6: w = FillGray12Button; break; case 7: w = FillBlackButton; break; } } toggleexcl(w, Stipples, XtNumber(Stipples)); } /*--------------------------------------------------------------*/ /* The following five routines are all wrappers for */ /* setelementstyle(), */ /* used in menudefs to differentiate between sections, each of */ /* which has settings independent of the others. */ /*--------------------------------------------------------------*/ void setfill(xcWidget w, pointertype value, caddr_t calldata) { setelementstyle(w, (u_short)value, OPAQUE | FILLED | FILLSOLID); } /*--------------------------------------------------------------*/ void makebbox(xcWidget w, pointertype value, caddr_t calldata) { setelementstyle(w, (u_short)value, BBOX); } /*--------------------------------------------------------------*/ void setclosure(xcWidget w, pointertype value, caddr_t calldata) { setelementstyle(w, (u_short)value, UNCLOSED); } /*----------------------------------------------------------------*/ void setopaque(xcWidget w, pointertype value, caddr_t calldata) { setelementstyle(w, (u_short)value, OPAQUE); } /*----------------------------------------------------------------*/ void setline(xcWidget w, pointertype value, caddr_t calldata) { setelementstyle(w, (u_short)value, BORDERS); } /*-----------------------------------------------*/ /* Set the color value for all selected elements */ /*-----------------------------------------------*/ void setcolor(xcWidget w, pointertype value, caddr_t calldata) { short *scolor; int *ecolor, cindex, cval; Arg wargs[1]; Boolean selected = False; stringpart *strptr, *nextptr; /* Get the color index value from the menu button widget itself */ if (value == 1) cindex = cval = -1; else { XtSetArg(wargs[0], XtNrectColor, &cval); XtGetValues(w, wargs, 1); for (cindex = NUMBER_OF_COLORS; cindex < number_colors; cindex++) if (colorlist[cindex].color.pixel == cval) break; if (cindex >= number_colors) { Wprintf("Error: No such color!"); return; } } if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { labelptr curlabel = TOLABEL(EDITPART); strptr = findstringpart(areawin->textpos - 1, NULL, curlabel->string, areawin->topinstance); nextptr = findstringpart(areawin->textpos, NULL, curlabel->string, areawin->topinstance); if (strptr->type == FONT_COLOR) { undrawtext(curlabel); strptr->data.color = cindex; redrawtext(curlabel); } else if (nextptr && nextptr->type == FONT_COLOR) { undrawtext(curlabel); nextptr->data.color = cindex; redrawtext(curlabel); } else { sprintf(_STR2, "%d", cindex); labeltext(FONT_COLOR, (char *)&cindex); } } else if (areawin->selects > 0) { for (scolor = areawin->selectlist; scolor < areawin->selectlist + areawin->selects; scolor++) { ecolor = &(SELTOCOLOR(scolor)); *ecolor = cindex; selected = True; } } setcolormark(cindex); if (!selected) { if (eventmode != TEXT_MODE && eventmode != ETEXT_MODE) areawin->color = cindex; overdrawpixmap(w); } } /*----------------------------------------------------------------*/ /* Parse a new color entry and add it to the color list. */ /*----------------------------------------------------------------*/ void setnewcolor(xcWidget w, caddr_t nullptr) { int ccolor, red, green, blue; char *ppos, *cpos; ppos = strchr(_STR2, '#'); cpos = strchr(_STR2, ','); if (cpos != NULL || ppos != NULL) { if (cpos != NULL || strlen(ppos + 1) == 6) { if (cpos != NULL) sscanf(_STR2, "%d, %d, %d", &red, &green, &blue); else sscanf(ppos + 1, "%2x%2x%2x", &red, &green, &blue); red *= 256; green *= 256; blue *= 256; } else if (sscanf(ppos + 1, "%4x%4x%4x", &red, &green, &blue) != 3) { Wprintf("Bad color entry. Use #rrggbb"); return; } ccolor = rgb_alloccolor(red, green, blue); } else { ccolor = xc_alloccolor(_STR2); addnewcolorentry(ccolor); } } /*----------------------------------------------------------------*/ /* Generate popup dialog for adding a new color name or RGB value */ /*----------------------------------------------------------------*/ void addnewcolor(xcWidget w, caddr_t clientdata, caddr_t calldata) { buttonsave *savebutton; savebutton = getgeneric(w, addnewcolor, NULL); popupprompt(w, "Enter color name or #rgb or r,g,b:", "\0", setnewcolor, savebutton, NULL); } /*------------------------------------------------------*/ void setfontmarks(short fvalue, short jvalue) { xcWidget w; Arg wargs[1]; if ((fvalue >= 0) && (fontcount > 0)) { switch(fonts[fvalue].flags & 0x03) { case 0: w = StyleNormalButton; break; case 1: w = StyleBoldButton; break; case 2: w = StyleItalicButton; break; case 3: w = StyleBoldItalicButton; break; } toggleexcl(w, FontStyles, XtNumber(FontStyles)); switch((fonts[fvalue].flags & 0xf80) >> 7) { case 0: w = EncodingStandardButton; break; case 2: w = EncodingISOLatin1Button; break; default: w = NULL; } if (w != NULL) toggleexcl(w, FontEncodings, XtNumber(FontEncodings)); togglefontmark(fvalue); } if (jvalue >= 0) { switch(jvalue & (RLANCHORFIELD)) { case NORMAL: w = AnchoringLeftAnchoredButton; break; case NOTLEFT: w = AnchoringCenterAnchoredButton; break; case RIGHT|NOTLEFT: w = AnchoringRightAnchoredButton; break; } toggleexcl(w, Anchors, XtNumber(Anchors)); switch(jvalue & (TBANCHORFIELD)) { case NORMAL: w = AnchoringBottomAnchoredButton; break; case NOTBOTTOM: w = AnchoringMiddleAnchoredButton; break; case TOP|NOTBOTTOM: w = AnchoringTopAnchoredButton; break; } toggleexcl(w, Anchors, XtNumber(Anchors)); /* Flip Invariance property */ w = AnchoringFlipInvariantButton; if (jvalue & FLIPINV) XtSetArg(wargs[0], XtNsetMark, True); else XtSetArg(wargs[0], XtNsetMark, False); XtSetValues(w, wargs, 1); /* Pin visibility property */ w = NetlistPinVisibilityButton; if (jvalue & PINVISIBLE) XtSetArg(wargs[0], XtNsetMark, True); else XtSetArg(wargs[0], XtNsetMark, False); XtSetValues(w, wargs, 1); } } /*----------------------------------------------*/ /* GUI wrapper for startparam() */ /*----------------------------------------------*/ void promptparam(xcWidget w, caddr_t clientdata, caddr_t calldata) { buttonsave *popdata = (buttonsave *)malloc(sizeof(buttonsave)); if (areawin->selects == 0) return; /* nothing was selected */ /* Get a name for the new object */ eventmode = NORMAL_MODE; popdata->dataptr = NULL; popdata->button = NULL; /* indicates that no button is assc'd w/ the popup */ popupprompt(w, "Enter name for new parameter:", "\0", stringparam, popdata, NULL); } /*---------------------------*/ /* Set polygon editing style */ /*---------------------------*/ void boxedit(xcWidget w, pointertype value, caddr_t nulldata) { if (w == NULL) { switch (value) { case MANHATTAN: w = PolygonEditManhattanBoxEditButton; break; case RHOMBOIDX: w = PolygonEditRhomboidXButton; break; case RHOMBOIDY: w = PolygonEditRhomboidYButton; break; case RHOMBOIDA: w = PolygonEditRhomboidAButton; break; case NORMAL: w = PolygonEditNormalButton; break; } } if (areawin->boxedit == value) return; toggleexcl(w, BoxEditStyles, XtNumber(BoxEditStyles)); areawin->boxedit = value; } /*----------------------------------------------------*/ /* Generate popup dialog for entering a new font name */ /*----------------------------------------------------*/ void addnewfont(xcWidget w, caddr_t clientdata, caddr_t calldata) { buttonsave *savebutton; char *tempstr = malloc(2 * sizeof(char)); tempstr[0] = '\0'; savebutton = getgeneric(w, addnewfont, tempstr); popupprompt(w, "Enter font name:", tempstr, locloadfont, savebutton, NULL); } /*-------------------------------------------------*/ /* Wrapper for labeltext when called from the menu */ /*-------------------------------------------------*/ void addtotext(xcWidget w, pointertype value, caddr_t nulldata) { if (eventmode != TEXT_MODE && eventmode != ETEXT_MODE) return; if (value == (pointertype)SPECIAL) dospecial(); else labeltext((int)value, (char *)1); } /*----------------------------------------------------------*/ /* Position a popup menu directly beside the toolbar button */ /*----------------------------------------------------------*/ void position_popup(xcWidget toolbutton, xcWidget menubutton) { int n = 0; Arg wargs[2]; Position pz, pw, ph; int dx, dy; xcWidget cascade = XtParent(menubutton); xcWidget pshell = XtParent(XtParent(cascade)); XtnSetArg(XtNheight, &pz); XtGetValues(toolbutton, wargs, n); n = 0; XtnSetArg(XtNwidth, &pw); XtnSetArg(XtNheight, &ph); XtGetValues(cascade, wargs, n); n = 0; dx = -pw - 6; dy = (pz - ph) >> 1; XwPostPopup(pshell, cascade, toolbutton, dx, dy); } /*------------------------------------------------------*/ /* Functions which pop up a menu cascade in sticky mode */ /*------------------------------------------------------*/ void border_popup(xcWidget w, caddr_t clientdata, caddr_t calldata) { position_popup(w, BorderLinewidthButton); } /*-------------------------------------------------------------------------*/ void color_popup(xcWidget w, caddr_t clientdata, caddr_t calldata) { position_popup(w, ColorAddNewColorButton); } /*-------------------------------------------------------------------------*/ void fill_popup(xcWidget w, caddr_t clientdata, caddr_t calldata) { position_popup(w, FillOpaqueButton); } /*-------------------------------------------------------------------------*/ void param_popup(xcWidget w, caddr_t clientdata, caddr_t calldata) { position_popup(w, ParametersSubstringButton); } /*-------------------------------------------------------------------------*/ #endif /* TCL_WRAPPER */ xcircuit-3.9.73/functions.c0000664000175000001440000030147713021313446014346 0ustar timusers/*-------------------------------------------------------------------------*/ /* functions.c */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* written by Tim Edwards, 8/13/93 */ /*-------------------------------------------------------------------------*/ #include #include #include #include #include #ifndef _MSC_VER #include #include #endif /*-------------------------------------------------------------------------*/ /* Local includes */ /*-------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER #include #endif #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*-------------------------------------------------------------------------*/ /* External Variable definitions */ /*-------------------------------------------------------------------------*/ extern Display *dpy; extern Pixmap STIPPLE[8]; extern XCWindowData *areawin; extern Globaldata xobjs; extern int number_colors; extern colorindex *colorlist; /*------------------------------------------------------------------------*/ /* find the squared length of a wire (or distance between two points in */ /* user space). */ /*------------------------------------------------------------------------*/ long sqwirelen(XPoint *userpt1, XPoint *userpt2) { long xdist, ydist; xdist = (long)userpt2->x - (long)userpt1->x; ydist = (long)userpt2->y - (long)userpt1->y; return (xdist * xdist + ydist * ydist); } /*------------------------------------------------------------------------*/ /* floating-point version of the above */ /*------------------------------------------------------------------------*/ float fsqwirelen(XfPoint *userpt1, XfPoint *userpt2) { float xdist, ydist; xdist = userpt2->x - userpt1->x; ydist = userpt2->y - userpt1->y; return (xdist * xdist + ydist * ydist); } /*------------------------------------------------------------------------*/ /* Find absolute distance between two points in user space */ /*------------------------------------------------------------------------*/ int wirelength(XPoint *userpt1, XPoint *userpt2) { u_long xdist, ydist; xdist = (long)(userpt2->x) - (long)(userpt1->x); ydist = (long)(userpt2->y) - (long)(userpt1->y); return (int)sqrt((double)(xdist * xdist + ydist * ydist)); } /*------------------------------------------------------------------------*/ /* Find the closest (squared) distance from a point to a line */ /*------------------------------------------------------------------------*/ long finddist(XPoint *linept1, XPoint *linept2, XPoint *userpt) { long a, b, c, frac; float protod; c = sqwirelen(linept1, linept2); a = sqwirelen(linept1, userpt); b = sqwirelen(linept2, userpt); frac = a - b; if (frac >= c) return b; /* "=" is important if c = 0 ! */ else if (-frac >= c) return a; else { protod = (float)(c + a - b); return (a - (long)((protod * protod) / (float)(c << 2))); } } /*----------------------------------------------------------------------*/ /* Decompose an arc segment into one to four bezier curves according */ /* the approximation algorithm lifted from the paper by L. Maisonobe */ /* (spaceroots.org). This decomposition is done when an arc in a path */ /* is read from an (older) xcircuit file, or when an arc is a selected */ /* item when a path is created. Because arcs are decomposed when */ /* encountered, we assume that the arc is the last element of the path. */ /*----------------------------------------------------------------------*/ void decomposearc(pathptr thepath) { float fnc, ang1, ang2; short ncurves, i; arcptr thearc; genericptr *pgen; splineptr *newspline; double nu1, nu2, lambda1, lambda2, alpha, tansq; XfPoint E1, E2, Ep1, Ep2; Boolean reverse = FALSE; pgen = thepath->plist + thepath->parts - 1; if (ELEMENTTYPE(*pgen) != ARC) return; thearc = TOARC(pgen); if (thearc->radius < 0) { reverse = TRUE; thearc->radius = -thearc->radius; } fnc = (thearc->angle2 - thearc->angle1) / 90.0; ncurves = (short)fnc; if (fnc - (float)((int)fnc) > 0.01) ncurves++; thepath->parts--; /* Forget the arc */ for (i = 0; i < ncurves; i++) { if (reverse) { /* arc path is reverse direction */ if (i == 0) ang1 = thearc->angle2; else ang1 -= 90; if (i == ncurves - 1) ang2 = thearc->angle1; else ang2 = ang1 - 90; } else { /* arc path is forward direction */ if (i == 0) ang1 = thearc->angle1; else ang1 += 90; if (i == ncurves - 1) ang2 = thearc->angle2; else ang2 = ang1 + 90; } lambda1 = (double)ang1 * RADFAC; lambda2 = (double)ang2 * RADFAC; nu1 = atan2(sin(lambda1) / (double)thearc->yaxis, cos(lambda1) / (double)thearc->radius); nu2 = atan2(sin(lambda2) / (double)thearc->yaxis, cos(lambda2) / (double)thearc->radius); E1.x = (float)thearc->position.x + (float)thearc->radius * (float)cos(nu1); E1.y = (float)thearc->position.y + (float)thearc->yaxis * (float)sin(nu1); E2.x = (float)thearc->position.x + (float)thearc->radius * (float)cos(nu2); E2.y = (float)thearc->position.y + (float)thearc->yaxis * (float)sin(nu2); Ep1.x = -(float)thearc->radius * (float)sin(nu1); Ep1.y = (float)thearc->yaxis * (float)cos(nu1); Ep2.x = -(float)thearc->radius * (float)sin(nu2); Ep2.y = (float)thearc->yaxis * (float)cos(nu2); tansq = tan((nu2 - nu1) / 2.0); tansq *= tansq; alpha = sin(nu2 - nu1) * 0.33333 * (sqrt(4 + (3 * tansq)) - 1); NEW_SPLINE(newspline, thepath); splinedefaults(*newspline, 0, 0); (*newspline)->style = thearc->style; (*newspline)->color = thearc->color; (*newspline)->width = thearc->width; (*newspline)->ctrl[0].x = E1.x; (*newspline)->ctrl[0].y = E1.y; (*newspline)->ctrl[1].x = E1.x + alpha * Ep1.x; (*newspline)->ctrl[1].y = E1.y + alpha * Ep1.y; (*newspline)->ctrl[2].x = E2.x - alpha * Ep2.x; (*newspline)->ctrl[2].y = E2.y - alpha * Ep2.y; (*newspline)->ctrl[3].x = E2.x; (*newspline)->ctrl[3].y = E2.y; calcspline(*newspline); } /* Delete the arc */ free_single((genericptr)thearc); } /*----------------------------------------------------------------------*/ /* Calculate points for an arc */ /*----------------------------------------------------------------------*/ void calcarc(arcptr thearc) { short idx; int sarc; float theta, delta; /* assume that angle2 > angle1 always: must be guaranteed by other routines */ sarc = (int)(thearc->angle2 - thearc->angle1) * RSTEPS; thearc->number = (sarc / 360) + 1; if (sarc % 360 != 0) thearc->number++; delta = RADFAC * ((float)(thearc->angle2 - thearc->angle1) / (thearc->number - 1)); theta = thearc->angle1 * RADFAC; for (idx = 0; idx < thearc->number - 1; idx++) { thearc->points[idx].x = (float)thearc->position.x + fabs((float)thearc->radius) * cos(theta); thearc->points[idx].y = (float)thearc->position.y + (float)thearc->yaxis * sin(theta); theta += delta; } /* place last point exactly to avoid roundoff error */ theta = thearc->angle2 * RADFAC; thearc->points[thearc->number - 1].x = (float)thearc->position.x + fabs((float)thearc->radius) * cos(theta); thearc->points[thearc->number - 1].y = (float)thearc->position.y + (float)thearc->yaxis * sin(theta); if (thearc->radius < 0) reversefpoints(thearc->points, thearc->number); } /*------------------------------------------------------------------------*/ /* Create a Bezier curve approximation from control points */ /* (using PostScript formula for Bezier cubic curve) */ /*------------------------------------------------------------------------*/ float par[INTSEGS]; float parsq[INTSEGS]; float parcb[INTSEGS]; void initsplines() { float t; short idx; for (idx = 0; idx < INTSEGS; idx++) { t = (float)(idx + 1) / (INTSEGS + 1); par[idx] = t; parsq[idx] = t * t; parcb[idx] = parsq[idx] * t; } } /*------------------------------------------------------------------------*/ /* Compute spline coefficients */ /*------------------------------------------------------------------------*/ void computecoeffs(splineptr thespline, float *ax, float *bx, float *cx, float *ay, float *by, float *cy) { *cx = 3.0 * (float)(thespline->ctrl[1].x - thespline->ctrl[0].x); *bx = 3.0 * (float)(thespline->ctrl[2].x - thespline->ctrl[1].x) - *cx; *ax = (float)(thespline->ctrl[3].x - thespline->ctrl[0].x) - *cx - *bx; *cy = 3.0 * (float)(thespline->ctrl[1].y - thespline->ctrl[0].y); *by = 3.0 * (float)(thespline->ctrl[2].y - thespline->ctrl[1].y) - *cy; *ay = (float)(thespline->ctrl[3].y - thespline->ctrl[0].y) - *cy - *by; } /*------------------------------------------------------------------------*/ void calcspline(splineptr thespline) { float ax, bx, cx, ay, by, cy; short idx; computecoeffs(thespline, &ax, &bx, &cx, &ay, &by, &cy); for (idx = 0; idx < INTSEGS; idx++) { thespline->points[idx].x = ax * parcb[idx] + bx * parsq[idx] + cx * par[idx] + (float)thespline->ctrl[0].x; thespline->points[idx].y = ay * parcb[idx] + by * parsq[idx] + cy * par[idx] + (float)thespline->ctrl[0].y; } } /*------------------------------------------------------------------------*/ /* Find the (x,y) position and tangent rotation of a point on a spline */ /*------------------------------------------------------------------------*/ void findsplinepos(splineptr thespline, float t, XPoint *retpoint, float *retrot) { float ax, bx, cx, ay, by, cy; float tsq = t * t; float tcb = tsq * t; double dxdt, dydt; computecoeffs(thespline, &ax, &bx, &cx, &ay, &by, &cy); retpoint->x = (short)(ax * tcb + bx * tsq + cx * t + (float)thespline->ctrl[0].x); retpoint->y = (short)(ay * tcb + by * tsq + cy * t + (float)thespline->ctrl[0].y); if (retrot != NULL) { dxdt = (double)(3 * ax * tsq + 2 * bx * t + cx); dydt = (double)(3 * ay * tsq + 2 * by * t + cy); *retrot = INVRFAC * atan2(dxdt, dydt); /* reversed y, x */ if (*retrot < 0) *retrot += 360; } } /*------------------------------------------------------------------------*/ /* floating-point version of the above */ /*------------------------------------------------------------------------*/ void ffindsplinepos(splineptr thespline, float t, XfPoint *retpoint) { float ax, bx, cx, ay, by, cy; float tsq = t * t; float tcb = tsq * t; computecoeffs(thespline, &ax, &bx, &cx, &ay, &by, &cy); retpoint->x = ax * tcb + bx * tsq + cx * t + (float)thespline->ctrl[0].x; retpoint->y = ay * tcb + by * tsq + cy * t + (float)thespline->ctrl[0].y; } /*------------------------------------------------------------------------*/ /* Find the closest distance between a point and a spline and return the */ /* fractional distance along the spline of this point. */ /*------------------------------------------------------------------------*/ float findsplinemin(splineptr thespline, XPoint *upoint) { XfPoint *spt, flpt, newspt; float minval = 1000000, tval, hval, ndist; short j, ival; flpt.x = (float)(upoint->x); flpt.y = (float)(upoint->y); /* get estimate from precalculated spline points */ for (spt = thespline->points; spt < thespline->points + INTSEGS; spt++) { ndist = fsqwirelen(spt, &flpt); if (ndist < minval) { minval = ndist; ival = (short)(spt - thespline->points); } } tval = (float)(ival + 1) / (INTSEGS + 1); hval = 0.5 / (INTSEGS + 1); /* short fixed iterative loop to converge on minimum t */ for (j = 0; j < 5; j++) { tval += hval; ffindsplinepos(thespline, tval, &newspt); ndist = fsqwirelen(&newspt, &flpt); if (ndist < minval) minval = ndist; else { tval -= hval * 2; ffindsplinepos(thespline, tval, &newspt); ndist = fsqwirelen(&newspt, &flpt); if (ndist < minval) minval = ndist; else tval += hval; } hval /= 2; } if (tval < 0.1) { if ((float)sqwirelen(&(thespline->ctrl[0]), upoint) < minval) tval = 0; } else if (tval > 0.9) { if ((float)sqwirelen(&(thespline->ctrl[3]), upoint) < minval) tval = 1; } return tval; } /*----------------------------------------------------------------------*/ /* Convert a polygon to a Bezier curve path */ /* Curve must be selected and there must be only one selection. */ /* */ /* Note that this routine will draw inside the perimeter of a convex */ /* hull. A routine that places spline endpoints on the polygon */ /* vertices will draw outside the perimeter of a convex hull. An */ /* optimal algorithm presumably zeros the total area between the curve */ /* and the polygon (positive and negative), but I haven't worked out */ /* what that solution is. The algorithm below seems good enough for */ /* most purposes. */ /*----------------------------------------------------------------------*/ void converttocurve() { genericptr *ggen; splineptr *newspline; polyptr thispoly; pathptr *newpath; short *newselect; XPoint firstpoint, lastpoint, initpoint; int i, numpoints; if (areawin->selects != 1) return; thispoly = TOPOLY(topobject->plist + (*areawin->selectlist)); if (ELEMENTTYPE(thispoly) != POLYGON) return; if (thispoly->number < 3) return; /* Will not convert */ standard_element_delete(ERASE); if ((thispoly->style & UNCLOSED) && (thispoly->number == 3)) { NEW_SPLINE(newspline, topobject); splinedefaults(*newspline, 0, 0); (*newspline)->ctrl[0] = thispoly->points[0]; (*newspline)->ctrl[1] = thispoly->points[1]; (*newspline)->ctrl[2] = thispoly->points[1]; (*newspline)->ctrl[3] = thispoly->points[2]; } else { numpoints = thispoly->number; /* If the polygon is closed but the first and last points */ /* overlap, treat the last point as if it doesn't exist. */ if (!(thispoly->style & UNCLOSED)) if ((thispoly->points[0].x == thispoly->points[thispoly->number - 1].x) && (thispoly->points[0].y == thispoly->points[thispoly->number - 1].y)) numpoints--; NEW_PATH(newpath, topobject); pathdefaults(*newpath, 0, 0); (*newpath)->style = thispoly->style; if (!(thispoly->style & UNCLOSED)) { lastpoint = thispoly->points[numpoints - 1]; initpoint.x = (lastpoint.x + thispoly->points[0].x) / 2; initpoint.y = (lastpoint.y + thispoly->points[0].y) / 2; firstpoint.x = (thispoly->points[0].x + thispoly->points[1].x) / 2; firstpoint.y = (thispoly->points[0].y + thispoly->points[1].y) / 2; NEW_SPLINE(newspline, (*newpath)); splinedefaults(*newspline, 0, 0); (*newspline)->ctrl[0] = initpoint; (*newspline)->ctrl[1] = thispoly->points[0]; (*newspline)->ctrl[2] = thispoly->points[0]; (*newspline)->ctrl[3] = firstpoint; calcspline(*newspline); } else firstpoint = thispoly->points[0]; for (i = 0; i < numpoints - ((!(thispoly->style & UNCLOSED)) ? 2 : 3); i++) { lastpoint.x = (thispoly->points[i + 1].x + thispoly->points[i + 2].x) / 2; lastpoint.y = (thispoly->points[i + 1].y + thispoly->points[i + 2].y) / 2; NEW_SPLINE(newspline, (*newpath)); splinedefaults(*newspline, 0, 0); (*newspline)->ctrl[0] = firstpoint; (*newspline)->ctrl[1] = thispoly->points[i + 1]; (*newspline)->ctrl[2] = thispoly->points[i + 1]; (*newspline)->ctrl[3] = lastpoint; firstpoint = lastpoint; calcspline(*newspline); } if (!(thispoly->style & UNCLOSED)) lastpoint = initpoint; else lastpoint = thispoly->points[i + 2]; NEW_SPLINE(newspline, (*newpath)); splinedefaults(*newspline, 0, 0); (*newspline)->ctrl[0] = firstpoint; (*newspline)->ctrl[1] = thispoly->points[i + 1]; (*newspline)->ctrl[2] = thispoly->points[i + 1]; (*newspline)->ctrl[3] = lastpoint; } calcspline(*newspline); calcbbox(areawin->topinstance); setoptionmenu(); drawarea(NULL, NULL, NULL); } /*----------------------------------------------------------------------*/ /* Find closest point of a polygon to the cursor */ /*----------------------------------------------------------------------*/ short closepointdistance(polyptr curpoly, XPoint *cursloc, short *mindist) { short curdist; XPoint *curpt, *savept; curpt = savept = curpoly->points; *mindist = wirelength(curpt, cursloc); while (++curpt < curpoly->points + curpoly->number) { curdist = wirelength(curpt, cursloc); if (curdist < *mindist) { *mindist = curdist; savept = curpt; } } return (short)(savept - curpoly->points); } /*----------------------------------------------------------------------------*/ /* Find closest point of a polygon to the cursor */ /*----------------------------------------------------------------------------*/ short closepoint(polyptr curpoly, XPoint *cursloc) { short mindist; return closepointdistance(curpoly, cursloc, &mindist); } /*----------------------------------------------------------------------------*/ /* Find the distance to the closest point of a polygon to the cursor */ /*----------------------------------------------------------------------------*/ short closedistance(polyptr curpoly, XPoint *cursloc) { short mindist; closepointdistance(curpoly, cursloc, &mindist); return mindist; } /*----------------------------------------------------------------------------*/ /* Coordinate system transformations */ /*----------------------------------------------------------------------------*/ /*------------------------------------------------------------------------------*/ /* Check screen bounds: minimum, maximum scale and translation is determined */ /* by values which fit in an X11 type XPoint (short int). If the window */ /* extremes exceed type short when mapped to user space, or if the page */ /* bounds exceed type short when mapped to X11 window space, return error. */ /*------------------------------------------------------------------------------*/ short checkbounds() { long lval; /* check window-to-user space */ lval = 2 * (long)((float) (areawin->width) / areawin->vscale) + (long)areawin->pcorner.x; if (lval != (long)((short)lval)) return -1; lval = 2 * (long)((float) (areawin->height) / areawin->vscale) + (long)areawin->pcorner.y; if (lval != (long)((short)lval)) return -1; /* check user-to-window space */ lval = (long)((float)(topobject->bbox.lowerleft.x - areawin->pcorner.x) * areawin->vscale); if (lval != (long)((short)lval)) return -1; lval = (long)areawin->height - (long)((float)(topobject->bbox.lowerleft.y - areawin->pcorner.y) * areawin->vscale); if (lval != (long)((short)lval)) return -1; lval = (long)((float)(topobject->bbox.lowerleft.x + topobject->bbox.width - areawin->pcorner.x) * areawin->vscale); if (lval != (long)((short)lval)) return -1; lval = (long)areawin->height - (long)((float)(topobject->bbox.lowerleft.y + topobject->bbox.height - areawin->pcorner.y) * areawin->vscale); if (lval != (long)((short)lval)) return -1; return 0; } /*------------------------------------------------------------------------*/ /* Transform X-window coordinate to xcircuit coordinate system */ /*------------------------------------------------------------------------*/ void window_to_user(short xw, short yw, XPoint *upt) { float tmpx, tmpy; tmpx = (float)xw / areawin->vscale + (float)areawin->pcorner.x; tmpy = (float)(areawin->height - yw) / areawin->vscale + (float)areawin->pcorner.y; tmpx += (tmpx > 0) ? 0.5 : -0.5; tmpy += (tmpy > 0) ? 0.5 : -0.5; upt->x = (short)tmpx; upt->y = (short)tmpy; } /*------------------------------------------------------------------------*/ /* Transform xcircuit coordinate back to X-window coordinate system */ /*------------------------------------------------------------------------*/ void user_to_window(XPoint upt, XPoint *wpt) { float tmpx, tmpy; tmpx = (float)(upt.x - areawin->pcorner.x) * areawin->vscale; tmpy = (float)areawin->height - (float)(upt.y - areawin->pcorner.y) * areawin->vscale; tmpx += (tmpx > 0) ? 0.5 : -0.5; tmpy += (tmpy > 0) ? 0.5 : -0.5; wpt->x = (short)tmpx; wpt->y = (short)tmpy; } /*----------------------------------------------------------------------*/ /* Transformations in the object hierarchy */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* Return rotation relative to a specific CTM */ /*----------------------------------------------------------------------*/ float UGetCTMRotation(Matrix *ctm) { float rads = (float)atan2((double)(ctm->d), (double)(ctm->a)); return rads / RADFAC; } /*----------------------------------------------------------------------*/ /* Return rotation relative to the top level */ /* Note that UTopRotation() is also the rotation relative to the window */ /* since the top-level drawing page is always upright relative to the */ /* window. Thus, there is no routine UTopDrawingRotation(). */ /*----------------------------------------------------------------------*/ float UTopRotation() { return UGetCTMRotation(DCTM); } /*----------------------------------------------------------------------*/ /* Return scale relative to a specific CTM */ /*----------------------------------------------------------------------*/ float UGetCTMScale(Matrix *ctm) { return (float)(sqrt((double)(ctm->a * ctm->a + ctm->d * ctm->d))); } /*----------------------------------------------------------------------*/ /* Return scale relative to window */ /*----------------------------------------------------------------------*/ float UTopScale() { return UGetCTMScale(DCTM); } /*----------------------------------------------------------------------*/ /* Return scale multiplied by length */ /*----------------------------------------------------------------------*/ float UTopTransScale(float length) { return (float)(length * UTopScale()); } /*----------------------------------------------------------------------*/ /* Return scale relative to the top-level schematic (not the window) */ /*----------------------------------------------------------------------*/ float UTopDrawingScale() { Matrix lctm, wctm; UCopyCTM(DCTM, &lctm); UResetCTM(&wctm); UMakeWCTM(&wctm); InvertCTM(&wctm); UPreMultCTMbyMat(&wctm, &lctm); return UGetCTMScale(&wctm); } /*----------------------------------------------------------------------*/ /* Return position offset relative to a specific CTM */ /*----------------------------------------------------------------------*/ void UGetCTMOffset(Matrix *ctm, int *offx, int *offy) { if (offx) *offx = (int)ctm->c; if (offy) *offy = (int)ctm->f; } /*----------------------------------------------------------------------*/ /* Return position offset relative to top-level */ /*----------------------------------------------------------------------*/ void UTopOffset(int *offx, int *offy) { UGetCTMOffset(DCTM, offx, offy); } /*----------------------------------------------------------------------*/ /* Return postion relative to the top-level schematic (not the window) */ /*----------------------------------------------------------------------*/ void UTopDrawingOffset(int *offx, int *offy) { Matrix lctm, wctm; UCopyCTM(DCTM, &lctm); UResetCTM(&wctm); UMakeWCTM(&wctm); InvertCTM(&wctm); UPreMultCTMbyMat(&wctm, &lctm); UGetCTMOffset(&wctm, offx, offy); } /*----------------------------------------------------------------------*/ /* Get the cursor position */ /*----------------------------------------------------------------------*/ XPoint UGetCursor() { Window nullwin; int nullint, xpos, ypos; u_int nullui; XPoint newpos; #ifdef TCL_WRAPPER /* Don't use areawin->window; if called from inside an object */ /* (e.g., "here" in a Tcl expression), areawin->window will be */ /* an off-screen pixmap, and cause a crash. */ #ifndef _MSC_VER XQueryPointer(dpy, Tk_WindowId(areawin->area), &nullwin, &nullwin, &nullint, &nullint, &xpos, &ypos, &nullui); #else XQueryPointer_TkW32(dpy, Tk_WindowId(areawin->area), &nullwin, &nullwin, &nullint, &nullint, &xpos, &ypos, &nullui); #endif #else XQueryPointer(dpy, areawin->window, &nullwin, &nullwin, &nullint, &nullint, &xpos, &ypos, &nullui); #endif newpos.x = xpos; newpos.y = ypos; return newpos; } /*----------------------------------------------------------------------*/ /* Get the cursor position and translate to user coordinates */ /*----------------------------------------------------------------------*/ XPoint UGetCursorPos() { XPoint winpos, userpos; winpos = UGetCursor(); window_to_user(winpos.x, winpos.y, &userpos); return userpos; } /*----------------------------------------------------------------------*/ /* Translate a point to the nearest snap-to grid point */ /*----------------------------------------------------------------------*/ /* user coordinates to user coordinates version */ void u2u_snap(XPoint *uvalue) { float tmpx, tmpy; float tmpix, tmpiy; if (areawin->snapto) { tmpx = (float)uvalue->x / xobjs.pagelist[areawin->page]->snapspace; if (tmpx > 0) tmpix = (float)((int)(tmpx + 0.5)); else tmpix = (float)((int)(tmpx - 0.5)); tmpy = (float)uvalue->y / xobjs.pagelist[areawin->page]->snapspace; if (tmpy > 0) tmpiy = (float)((int)(tmpy + 0.5)); else tmpiy = (float)((int)(tmpy - 0.5)); tmpix *= xobjs.pagelist[areawin->page]->snapspace; tmpix += (tmpix > 0) ? 0.5 : -0.5; tmpiy *= xobjs.pagelist[areawin->page]->snapspace; tmpiy += (tmpiy > 0) ? 0.5 : -0.5; uvalue->x = (int)tmpix; uvalue->y = (int)tmpiy; } } /*------------------------------------------------------------------------*/ /* window coordinates to user coordinates version */ /*------------------------------------------------------------------------*/ void snap(short valuex, short valuey, XPoint *returnpt) { window_to_user(valuex, valuey, returnpt); u2u_snap(returnpt); } /*------------------------------------------------------------------------*/ /* Transform object coordinates through scale, translation, and rotation */ /* This routine attempts to match the PostScript definition of trans- */ /* formation matrices. */ /*------------------------------------------------------------------------*/ /*------------------------------------------------------------------------*/ /* Current transformation matrix manipulation routines */ /*------------------------------------------------------------------------*/ void UResetCTM(Matrix *ctm) { ctm->a = ctm->e = 1; ctm->b = ctm->d = 0; ctm->c = ctm->f = 0; /* 0.5 for nearest-int real->int conversion? */ #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*------------------------------------------------------------------------*/ void InvertCTM(Matrix *ctm) { float det = ctm->a * ctm->e - ctm->b * ctm->d; float tx = ctm->b * ctm->f - ctm->c * ctm->e; float ty = ctm->d * ctm->c - ctm->a * ctm->f; float tmpa = ctm->a; ctm->b = -ctm->b / det; ctm->d = -ctm->d / det; ctm->a = ctm->e / det; ctm->e = tmpa / det; ctm->c = tx / det; ctm->f = ty / det; #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*------------------------------------------------------------------------*/ void UCopyCTM(fctm, tctm) Matrix *fctm, *tctm; { tctm->a = fctm->a; tctm->b = fctm->b; tctm->c = fctm->c; tctm->d = fctm->d; tctm->e = fctm->e; tctm->f = fctm->f; #ifdef HAVE_CAIRO if (tctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(tctm); #endif /* HAVE_CAIRO */ } /*-------------------------------------------------------------------------*/ /* Multiply CTM by current screen position and scale to get transformation */ /* matrix from a user point to the X11 window */ /*-------------------------------------------------------------------------*/ void UMakeWCTM(Matrix *ctm) { ctm->a *= areawin->vscale; ctm->b *= areawin->vscale; ctm->c = (ctm->c - (float)areawin->pcorner.x) * areawin->vscale + areawin->panx; ctm->d *= -areawin->vscale; ctm->e *= -areawin->vscale; ctm->f = (float)areawin->height + ((float)areawin->pcorner.y - ctm->f) * areawin->vscale + areawin->pany; #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*------------------------------------------------------------------------*/ void UMultCTM(Matrix *ctm, XPoint position, float scale, float rotate) { float tmpa, tmpb, tmpd, tmpe, yscale; float mata, matb, matc; double drot = (double)rotate * RADFAC; yscale = abs(scale); /* -scale implies flip in x direction only */ tmpa = scale * cos(drot); tmpb = yscale * sin(drot); tmpd = -scale * sin(drot); tmpe = yscale * cos(drot); mata = ctm->a * tmpa + ctm->d * tmpb; matb = ctm->b * tmpa + ctm->e * tmpb; matc = ctm->c * tmpa + ctm->f * tmpb + position.x; ctm->d = ctm->d * tmpe + ctm->a * tmpd; ctm->e = ctm->e * tmpe + ctm->b * tmpd; ctm->f = ctm->f * tmpe + ctm->c * tmpd + position.y; ctm->a = mata; ctm->b = matb; ctm->c = matc; #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*----------------------------------------------------------------------*/ /* Slanting function x' = x + beta * y, y' = y */ /*----------------------------------------------------------------------*/ void USlantCTM(Matrix *ctm, float beta) { ctm->b += ctm->a * beta; ctm->e += ctm->d * beta; #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } #define EPS 1e-9 /*----------------------------------------------------------------------*/ /* Transform text to make it right-side up within 90 degrees of page */ /* NOTE: This is not yet resolved, as xcircuit does not agree with */ /* PostScript in a few cases! */ /*----------------------------------------------------------------------*/ void UPreScaleCTM(Matrix *ctm) { /* negative X scale (-1, +1) */ if ((ctm->a < -EPS) || ((ctm->a < EPS) && (ctm->a > -EPS) && ((ctm->d * ctm->b) < 0))) { ctm->a = -ctm->a; ctm->d = -ctm->d; } /* negative Y scale (+1, -1) */ if (ctm->e > EPS) { ctm->e = -ctm->e; ctm->b = -ctm->b; } /* At 90, 270 degrees need special attention to avoid discrepencies */ /* with the PostScript output due to roundoff error. This code */ /* matches what PostScript produces. */ #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*----------------------------------------------------------------------*/ /* Adjust anchoring and CTM as necessary for flip invariance */ /*----------------------------------------------------------------------*/ short flipadjust(short anchor) { short tmpanchor = anchor & (~FLIPINV); if (anchor & FLIPINV) { if (((DCTM)->a < -EPS) || (((DCTM)->a < EPS) && ((DCTM)->a > -EPS) && (((DCTM)->d * (DCTM)->b) < 0))) { if ((tmpanchor & (RIGHT | NOTLEFT)) != NOTLEFT) tmpanchor ^= (RIGHT | NOTLEFT); /* NOTE: Justification does not change under flip invariance. */ } if ((DCTM)->e > EPS) { if ((tmpanchor & (TOP | NOTBOTTOM)) != NOTBOTTOM) tmpanchor ^= (TOP | NOTBOTTOM); } UPreScaleCTM(DCTM); } return tmpanchor; } /*------------------------------------------------------------------------*/ void UPreMultCTM(Matrix *ctm, XPoint position, float scale, float rotate) { float tmpa, tmpb, tmpd, tmpe, yscale; float mata, matd; double drot = (double)rotate * RADFAC; yscale = abs(scale); /* negative scale value implies flip in x only */ tmpa = scale * cos(drot); tmpb = yscale * sin(drot); tmpd = -scale * sin(drot); tmpe = yscale * cos(drot); ctm->c += ctm->a * position.x + ctm->b * position.y; ctm->f += ctm->d * position.x + ctm->e * position.y; mata = ctm->a * tmpa + ctm->b * tmpd; ctm->b = ctm->a * tmpb + ctm->b * tmpe; matd = ctm->d * tmpa + ctm->e * tmpd; ctm->e = ctm->d * tmpb + ctm->e * tmpe; ctm->a = mata; ctm->d = matd; #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*----------------------------------------------------------------------*/ /* Direct Matrix-Matrix multiplication */ /*----------------------------------------------------------------------*/ void UPreMultCTMbyMat(Matrix *ctm, Matrix *pre) { float mata, matd; mata = pre->a * ctm->a + pre->d * ctm->b; ctm->c += pre->c * ctm->a + pre->f * ctm->b; ctm->b = pre->b * ctm->a + pre->e * ctm->b; ctm->a = mata; matd = pre->a * ctm->d + pre->d * ctm->e; ctm->f += pre->c * ctm->d + pre->f * ctm->e; ctm->e = pre->b * ctm->d + pre->e * ctm->e; ctm->d = matd; #ifdef HAVE_CAIRO if (ctm == DCTM && areawin->redraw_ongoing) xc_cairo_set_matrix(ctm); #endif /* HAVE_CAIRO */ } /*------------------------------------------------------------------------*/ void UTransformbyCTM(Matrix *ctm, XPoint *ipoints, XPoint *points, short number) { pointlist current, ptptr = points; float fx, fy; /* short tmpx; (jdk) */ for (current = ipoints; current < ipoints + number; current++, ptptr++) { fx = ctm->a * (float)current->x + ctm->b * (float)current->y + ctm->c; fy = ctm->d * (float)current->x + ctm->e * (float)current->y + ctm->f; ptptr->x = (fx >= 0) ? (short)(fx + 0.5) : (short)(fx - 0.5); ptptr->y = (fy >= 0) ? (short)(fy + 0.5) : (short)(fy - 0.5); } } /*------------------------------------------------------------------------*/ /* (same as above routine but using type (float) for point values; this */ /* is for calculation of Bezier curve internal points. */ /*------------------------------------------------------------------------*/ void UfTransformbyCTM(Matrix *ctm, XfPoint *fpoints, XPoint *points, short number) { fpointlist current; pointlist new = points; float fx, fy; for (current = fpoints; current < fpoints + number; current++, new++) { fx = ctm->a * current->x + ctm->b * current->y + ctm->c; fy = ctm->d * current->x + ctm->e * current->y + ctm->f; new->x = (fx >= 0) ? (short)(fx + 0.5) : (short)(fx - 0.5); new->y = (fy >= 0) ? (short)(fy + 0.5) : (short)(fy - 0.5); } } /*------------------------------------------------------------------------*/ void UPopCTM() { Matrixptr lastmatrix; if (areawin->MatStack == NULL) { Wprintf("Matrix stack pop error"); return; } lastmatrix = areawin->MatStack->nextmatrix; free(areawin->MatStack); areawin->MatStack = lastmatrix; #ifdef HAVE_CAIRO xc_cairo_set_matrix(lastmatrix); #endif /* HAVE_CAIRO */ } /*------------------------------------------------------------------------*/ void UPushCTM() { Matrixptr nmatrix; nmatrix = (Matrixptr)malloc(sizeof(Matrix)); if (areawin->MatStack == NULL) UResetCTM(nmatrix); else UCopyCTM(areawin->MatStack, nmatrix); nmatrix->nextmatrix = areawin->MatStack; areawin->MatStack = nmatrix; } /*------------------------------------------------------------------------*/ void UTransformPoints(XPoint *points, XPoint *newpoints, short number, XPoint atpt, float scale, float rotate) { Matrix LCTM; UResetCTM(&LCTM); UMultCTM(&LCTM, atpt, scale, rotate); UTransformbyCTM(&LCTM, points, newpoints, number); } /*----------------------------------------------------*/ /* Transform points inward to next hierarchical level */ /*----------------------------------------------------*/ void InvTransformPoints(XPoint *points, XPoint *newpoints, short number, XPoint atpt, float scale, float rotate) { Matrix LCTM; UResetCTM(&LCTM); UPreMultCTM(&LCTM, atpt, scale, rotate); InvertCTM(&LCTM); UTransformbyCTM(&LCTM, points, newpoints, number); } /*----------------------------------------------------------------------*/ /* Adjust wire coords to force a wire to a horizontal or vertical */ /* position. */ /* "pospt" is the target position for the point of interest. */ /* "cycle" is the point number in the polygon of the point of interest. */ /* cycle == -1 is equivalent to the last point of the polygon. */ /* If "strict" is TRUE then single-segment wires are forced manhattan */ /* even if that means that the endpoint drifts from the target point. */ /* If "strict" is FALSE then single-segment wires will become non- */ /* manhattan so that the target point is reached. */ /* NOTE: It might be preferable to add a segment to maintain a */ /* manhattan layout, except that we want to avoid merging nets */ /* together. . . */ /*----------------------------------------------------------------------*/ void manhattanize(XPoint *pospt, polyptr newpoly, short cycle, Boolean strict) { XPoint *curpt, *bpt, *bbpt, *fpt, *ffpt; int deltax, deltay; if (newpoly->number == 1) return; /* sanity check */ if (cycle == -1 || cycle == newpoly->number - 1) { curpt = newpoly->points + newpoly->number - 1; bpt = newpoly->points + newpoly->number - 2; fpt = NULL; ffpt = NULL; if (newpoly->number > 2) bbpt = newpoly->points + newpoly->number - 3; else bbpt = NULL; } else if (cycle == 0) { curpt = newpoly->points; fpt = newpoly->points + 1; bpt = NULL; bbpt = NULL; if (newpoly->number > 2) ffpt = newpoly->points + 2; else ffpt = NULL; } else { curpt = newpoly->points + cycle; fpt = newpoly->points + cycle + 1; bpt = newpoly->points + cycle - 1; if (cycle > 1) bbpt = newpoly->points + cycle - 2; else bbpt = NULL; if (cycle < newpoly->number - 2) ffpt = newpoly->points + cycle + 2; else ffpt = NULL; } /* enforce constraints on point behind cycle position */ if (bpt != NULL) { if (bbpt != NULL) { if (bpt->x == bbpt->x) bpt->y = pospt->y; if (bpt->y == bbpt->y) bpt->x = pospt->x; } else if (strict) { deltax = abs(bpt->x - pospt->x); deltay = abs(bpt->y - pospt->y); /* Only one segment---just make sure it's horizontal or vertical */ if (deltay > deltax) pospt->x = bpt->x; else pospt->y = bpt->y; } } /* enforce constraints on point forward of cycle position */ if (fpt != NULL) { if (ffpt != NULL) { if (fpt->x == ffpt->x) fpt->y = pospt->y; if (fpt->y == ffpt->y) fpt->x = pospt->x; } else if (strict) { deltax = abs(fpt->x - pospt->x); deltay = abs(fpt->y - pospt->y); /* Only one segment---just make sure it's horizontal or vertical */ if (deltay > deltax) pospt->x = fpt->x; else pospt->y = fpt->y; } } } /*----------------------------------------------------------------------*/ /* Bounding box calculation routines */ /*----------------------------------------------------------------------*/ void bboxcalc(short testval, short *lowerval, short *upperval) { if (testval < *lowerval) *lowerval = testval; if (testval > *upperval) *upperval = testval; } /*----------------------------------------------------------------------*/ /* Bounding box calculation for elements which can be part of a path */ /*----------------------------------------------------------------------*/ void calcextents(genericptr *bboxgen, short *llx, short *lly, short *urx, short *ury) { switch (ELEMENTTYPE(*bboxgen)) { case(POLYGON): { pointlist bboxpts; for (bboxpts = TOPOLY(bboxgen)->points; bboxpts < TOPOLY(bboxgen)->points + TOPOLY(bboxgen)->number; bboxpts++) { bboxcalc(bboxpts->x, llx, urx); bboxcalc(bboxpts->y, lly, ury); } } break; case(SPLINE): { fpointlist bboxpts; bboxcalc(TOSPLINE(bboxgen)->ctrl[0].x, llx, urx); bboxcalc(TOSPLINE(bboxgen)->ctrl[0].y, lly, ury); bboxcalc(TOSPLINE(bboxgen)->ctrl[3].x, llx, urx); bboxcalc(TOSPLINE(bboxgen)->ctrl[3].y, lly, ury); for (bboxpts = TOSPLINE(bboxgen)->points; bboxpts < TOSPLINE(bboxgen)->points + INTSEGS; bboxpts++) { bboxcalc((short)(bboxpts->x), llx, urx); bboxcalc((short)(bboxpts->y), lly, ury); } } break; case (ARC): { fpointlist bboxpts; for (bboxpts = TOARC(bboxgen)->points; bboxpts < TOARC(bboxgen)->points + TOARC(bboxgen)->number; bboxpts++) { bboxcalc((short)(bboxpts->x), llx, urx); bboxcalc((short)(bboxpts->y), lly, ury); } } break; } } /*----------------------------------------------------------------------*/ /* Calculate the bounding box of an object instance */ /*----------------------------------------------------------------------*/ void objinstbbox(objinstptr obbox, XPoint *npoints, int extend) { XPoint points[4]; points[0].x = points[1].x = obbox->bbox.lowerleft.x - extend; points[1].y = points[2].y = obbox->bbox.lowerleft.y + obbox->bbox.height + extend; points[2].x = points[3].x = obbox->bbox.lowerleft.x + obbox->bbox.width + extend; points[0].y = points[3].y = obbox->bbox.lowerleft.y - extend; UTransformPoints(points, npoints, 4, obbox->position, obbox->scale, obbox->rotation); } /*----------------------------------------------------------------------*/ /* Calculate the bounding box of a label */ /*----------------------------------------------------------------------*/ void labelbbox(labelptr labox, XPoint *npoints, objinstptr callinst) { XPoint points[4]; TextExtents tmpext; short j; tmpext = ULength(labox, callinst, NULL); points[0].x = points[1].x = (labox->anchor & NOTLEFT ? (labox->anchor & RIGHT ? -tmpext.maxwidth : -tmpext.maxwidth / 2) : 0); points[2].x = points[3].x = points[0].x + tmpext.maxwidth; points[0].y = points[3].y = (labox->anchor & NOTBOTTOM ? (labox->anchor & TOP ? -tmpext.ascent : -(tmpext.ascent + tmpext.base) / 2) : -tmpext.base) + tmpext.descent; points[1].y = points[2].y = points[0].y + tmpext.ascent - tmpext.descent; /* separate bounding box for pinlabels and infolabels */ if (labox->pin) for (j = 0; j < 4; j++) pinadjust(labox->anchor, &points[j].x, &points[j].y, 1); UTransformPoints(points, npoints, 4, labox->position, labox->scale, labox->rotation); } /*----------------------------------------------------------------------*/ /* Calculate the bounding box of a graphic image */ /*----------------------------------------------------------------------*/ void graphicbbox(graphicptr gp, XPoint *npoints) { XPoint points[4]; int hw = xcImageGetWidth(gp->source) >> 1; int hh = xcImageGetHeight(gp->source) >> 1; points[1].x = points[2].x = hw; points[0].x = points[3].x = -hw; points[0].y = points[1].y = -hh; points[2].y = points[3].y = hh; UTransformPoints(points, npoints, 4, gp->position, gp->scale, gp->rotation); } /*--------------------------------------------------------------*/ /* Wrapper for single call to calcbboxsingle() in the netlister */ /*--------------------------------------------------------------*/ void calcinstbbox(genericptr *bboxgen, short *llx, short *lly, short *urx, short *ury) { *llx = *lly = 32767; *urx = *ury = -32768; calcbboxsingle(bboxgen, areawin->topinstance, llx, lly, urx, ury); } /*----------------------------------------------------------------------*/ /* Bounding box calculation for a single generic element */ /*----------------------------------------------------------------------*/ void calcbboxsingle(genericptr *bboxgen, objinstptr thisinst, short *llx, short *lly, short *urx, short *ury) { XPoint npoints[4]; short j; /* For each screen element, compute the extents and revise bounding */ /* box points, if necessary. */ switch(ELEMENTTYPE(*bboxgen)) { case(OBJINST): objinstbbox(TOOBJINST(bboxgen), npoints, 0); for (j = 0; j < 4; j++) { bboxcalc(npoints[j].x, llx, urx); bboxcalc(npoints[j].y, lly, ury); } break; case(LABEL): /* because a pin is offset from its position point, include */ /* that point in the bounding box. */ if (TOLABEL(bboxgen)->pin) { bboxcalc(TOLABEL(bboxgen)->position.x, llx, urx); bboxcalc(TOLABEL(bboxgen)->position.y, lly, ury); } labelbbox(TOLABEL(bboxgen), npoints, thisinst); for (j = 0; j < 4; j++) { bboxcalc(npoints[j].x, llx, urx); bboxcalc(npoints[j].y, lly, ury); } break; case(GRAPHIC): graphicbbox(TOGRAPHIC(bboxgen), npoints); for (j = 0; j < 4; j++) { bboxcalc(npoints[j].x, llx, urx); bboxcalc(npoints[j].y, lly, ury); } break; case(PATH): { genericptr *pathc; for (pathc = TOPATH(bboxgen)->plist; pathc < TOPATH(bboxgen)->plist + TOPATH(bboxgen)->parts; pathc++) calcextents(pathc, llx, lly, urx, ury); } break; default: calcextents(bboxgen, llx, lly, urx, ury); } } /*------------------------------------------------------*/ /* Find if an object is in the specified library */ /*------------------------------------------------------*/ Boolean object_in_library(short libnum, objectptr thisobject) { short i; for (i = 0; i < xobjs.userlibs[libnum].number; i++) { if (*(xobjs.userlibs[libnum].library + i) == thisobject) return True; } return False; } /*-----------------------------------------------------------*/ /* Find if an object is in the hierarchy of the given object */ /* Returns the number (position in plist) or -1 if not found */ /*-----------------------------------------------------------*/ short find_object(objectptr pageobj, objectptr thisobject) { short i, j; genericptr *pelem; for (i = 0; i < pageobj->parts; i++) { pelem = pageobj->plist + i; if (IS_OBJINST(*pelem)) { if ((TOOBJINST(pelem))->thisobject == thisobject) return i; else if ((j = find_object((TOOBJINST(pelem))->thisobject, thisobject)) >= 0) return i; /* was j---is this the right fix? */ } } return -1; } /*------------------------------------------------------*/ /* Find all pages and libraries containing this object */ /* and update accordingly. If this object is a page, */ /* just update the page directory. */ /*------------------------------------------------------*/ void updatepagebounds(objectptr thisobject) { short i, j; objectptr pageobj; if ((i = is_page(thisobject)) >= 0) { if (xobjs.pagelist[i]->background.name != (char *)NULL) backgroundbbox(i); updatepagelib(PAGELIB, i); } else { for (i = 0; i < xobjs.pages; i++) { if (xobjs.pagelist[i]->pageinst != NULL) { pageobj = xobjs.pagelist[i]->pageinst->thisobject; if ((j = find_object(pageobj, thisobject)) >= 0) { calcbboxvalues(xobjs.pagelist[i]->pageinst, (genericptr *)(pageobj->plist + j)); updatepagelib(PAGELIB, i); } } } for (i = 0; i < xobjs.numlibs; i++) if (object_in_library(i, thisobject)) composelib(i + LIBRARY); } } /*--------------------------------------------------------------*/ /* Free memory for the schematic bounding box */ /*--------------------------------------------------------------*/ void invalidateschembbox(objinstptr thisinst) { if (thisinst->schembbox != NULL) { free(thisinst->schembbox); thisinst->schembbox = NULL; } } /*--------------------------------------------------------------*/ /* Calculate the bounding box for an object instance. Use the */ /* existing bbox and finish calculation on all the elements */ /* which have parameters not taking default values. */ /* This finishes the calculation partially done by */ /* calcbboxvalues(). */ /*--------------------------------------------------------------*/ void calcbboxinst(objinstptr thisinst) { objectptr thisobj; genericptr *gelem; short llx, lly, urx, ury; short pllx, plly, purx, pury; Boolean hasschembbox = FALSE; Boolean didparamsubs = FALSE; if (thisinst == NULL) return; thisobj = thisinst->thisobject; llx = thisobj->bbox.lowerleft.x; lly = thisobj->bbox.lowerleft.y; urx = llx + thisobj->bbox.width; ury = lly + thisobj->bbox.height; pllx = plly = 32767; purx = pury = -32768; for (gelem = thisobj->plist; gelem < thisobj->plist + thisobj->parts; gelem++) { /* pins which do not appear outside of the object */ /* contribute to the objects "schembbox". */ if (IS_LABEL(*gelem)) { labelptr btext = TOLABEL(gelem); if (btext->pin && !(btext->anchor & PINVISIBLE)) { hasschembbox = TRUE; calcbboxsingle(gelem, thisinst, &pllx, &plly, &purx, &pury); continue; } } if (has_param(*gelem)) { if (didparamsubs == FALSE) { psubstitute(thisinst); didparamsubs = TRUE; } calcbboxsingle(gelem, thisinst, &llx, &lly, &urx, &ury); } /* If we have a clipmask, the clipmask is used to calculate the */ /* bounding box, not the element it is masking. */ switch(ELEMENTTYPE(*gelem)) { case POLYGON: case SPLINE: case ARC: case PATH: if (TOPOLY(gelem)->style & CLIPMASK) gelem++; break; } } thisinst->bbox.lowerleft.x = llx; thisinst->bbox.lowerleft.y = lly; thisinst->bbox.width = urx - llx; thisinst->bbox.height = ury - lly; if (hasschembbox) { if (thisinst->schembbox == NULL) thisinst->schembbox = (BBox *)malloc(sizeof(BBox)); thisinst->schembbox->lowerleft.x = pllx; thisinst->schembbox->lowerleft.y = plly; thisinst->schembbox->width = purx - pllx; thisinst->schembbox->height = pury - plly; } else invalidateschembbox(thisinst); } /*--------------------------------------------------------------*/ /* Update things based on a changed instance bounding box. */ /* If the parameter was a single-instance */ /* substitution, only the page should be updated. If the */ /* parameter was a default value, the library should be updated */ /* and any pages containing the object where the parameter */ /* takes the default value. */ /*--------------------------------------------------------------*/ void updateinstparam(objectptr bobj) { short i, j; objectptr pageobj; /* change bounds on pagelib and all pages */ /* containing this *object* if and only if the object */ /* instance takes the default value. Also update the */ /* library page. */ for (i = 0; i < xobjs.pages; i++) if (xobjs.pagelist[i]->pageinst != NULL) { pageobj = xobjs.pagelist[i]->pageinst->thisobject; if ((j = find_object(pageobj, topobject)) >= 0) { /* Really, we'd like to recalculate the bounding box only if the */ /* parameter value is the default value which was just changed. */ /* However, then any non-default values may contain the wrong */ /* substitutions. */ objinstptr cinst = TOOBJINST(pageobj->plist + j); if (cinst->thisobject->params == NULL) { calcbboxvalues(xobjs.pagelist[i]->pageinst, pageobj->plist + j); updatepagelib(PAGELIB, i); } } } for (i = 0; i < xobjs.numlibs; i++) if (object_in_library(i, topobject)) composelib(i + LIBRARY); } /*--------------------------------------------------------------*/ /* Calculate bbox on all elements of the given object */ /*--------------------------------------------------------------*/ void calcbbox(objinstptr binst) { calcbboxvalues(binst, (genericptr *)NULL); if (binst == areawin->topinstance) { updatepagebounds(topobject); } } /*--------------------------------------------------------------*/ /* Calculate bbox on the given element of the specified object. */ /* This is a wrapper for calcbboxvalues() assuming that we're */ /* on the top-level, and that page bounds need to be updated. */ /*--------------------------------------------------------------*/ void singlebbox(genericptr *gelem) { calcbboxvalues(areawin->topinstance, (genericptr *)gelem); updatepagebounds(topobject); } /*----------------------------------------------------------------------*/ /* Extend bounding box based on selected elements only */ /*----------------------------------------------------------------------*/ void calcbboxselect() { short *bsel; for (bsel = areawin->selectlist; bsel < areawin->selectlist + areawin->selects; bsel++) calcbboxvalues(areawin->topinstance, topobject->plist + *bsel); updatepagebounds(topobject); } /*--------------------------------------------------------------*/ /* Update Bounding box for an object. */ /* If newelement == NULL, calculate bounding box from scratch. */ /* Otherwise, expand bounding box to enclose newelement. */ /*--------------------------------------------------------------*/ void calcbboxvalues(objinstptr thisinst, genericptr *newelement) { genericptr *bboxgen; short llx, lly, urx, ury; objectptr thisobj = thisinst->thisobject; /* no action if there are no elements */ if (thisobj->parts == 0) return; /* If this object has parameters, then we will do a separate */ /* bounding box calculation on parameterized parts. This */ /* calculation ignores them, and the result is a base that the */ /* instance bounding-box computation can use as a starting point. */ /* set starting bounds as maximum bounds of screen */ llx = lly = 32767; urx = ury = -32768; for (bboxgen = thisobj->plist; bboxgen < thisobj->plist + thisobj->parts; bboxgen++) { /* override the "for" loop if we're doing a single element */ if (newelement != NULL) bboxgen = newelement; if ((thisobj->params == NULL) || (!has_param(*bboxgen))) { /* pins which do not appear outside of the object */ /* are ignored now---will be computed per instance. */ if (IS_LABEL(*bboxgen)) { labelptr btext = TOLABEL(bboxgen); if (btext->pin && !(btext->anchor & PINVISIBLE)) { goto nextgen; } } calcbboxsingle(bboxgen, thisinst, &llx, &lly, &urx, &ury); if (newelement == NULL) switch(ELEMENTTYPE(*bboxgen)) { case POLYGON: case SPLINE: case ARC: case PATH: if (TOPOLY(bboxgen)->style & CLIPMASK) bboxgen++; break; } } nextgen: if (newelement != NULL) break; } /* if this is a single-element calculation and its bounding box */ /* turned out to be smaller than the object's, then we need to */ /* recompute the entire object's bounding box in case it got */ /* smaller. This is not recursive, in spite of looks. */ if (newelement != NULL) { if (llx > thisobj->bbox.lowerleft.x && lly > thisobj->bbox.lowerleft.y && urx < (thisobj->bbox.lowerleft.x + thisobj->bbox.width) && ury < (thisobj->bbox.lowerleft.y + thisobj->bbox.height)) { calcbboxvalues(thisinst, NULL); return; } else { bboxcalc(thisobj->bbox.lowerleft.x, &llx, &urx); bboxcalc(thisobj->bbox.lowerleft.y, &lly, &ury); bboxcalc(thisobj->bbox.lowerleft.x + thisobj->bbox.width, &llx, &urx); bboxcalc(thisobj->bbox.lowerleft.y + thisobj->bbox.height, &lly, &ury); } } /* Set the new bounding box. In pathological cases, such as a page */ /* with only pin labels, the bounds may not have been changed from */ /* their initial values. If so, then don't touch the bounding box. */ if ((llx <= urx) && (lly <= ury)) { thisobj->bbox.lowerleft.x = llx; thisobj->bbox.lowerleft.y = lly; thisobj->bbox.width = urx - llx; thisobj->bbox.height = ury - lly; } /* calculate instance-specific values */ calcbboxinst(thisinst); } /*------------------------------------------------------*/ /* Center an object in the viewing window */ /*------------------------------------------------------*/ void centerview(objinstptr tinst) { XPoint origin, corner; Dimension width, height; float fitwidth, fitheight; objectptr tobj = tinst->thisobject; origin = tinst->bbox.lowerleft; corner.x = origin.x + tinst->bbox.width; corner.y = origin.y + tinst->bbox.height; extendschembbox(tinst, &origin, &corner); width = corner.x - origin.x; height = corner.y - origin.y; fitwidth = (float)areawin->width / ((float)width + 2 * DEFAULTGRIDSPACE); fitheight = (float)areawin->height / ((float)height + 2 * DEFAULTGRIDSPACE); tobj->viewscale = (fitwidth < fitheight) ? min(MINAUTOSCALE, fitwidth) : min(MINAUTOSCALE, fitheight); tobj->pcorner.x = origin.x - (areawin->width / tobj->viewscale - width) / 2; tobj->pcorner.y = origin.y - (areawin->height / tobj->viewscale - height) / 2; /* Copy new position values to the current window */ if ((areawin->topinstance != NULL) && (tobj == topobject)) { areawin->pcorner = tobj->pcorner; areawin->vscale = tobj->viewscale; } } /*-----------------------------------------------------------*/ /* Refresh the window and scrollbars and write the page name */ /*-----------------------------------------------------------*/ void refresh(xcWidget bw, caddr_t clientdata, caddr_t calldata) { areawin->redraw_needed = True; drawarea(NULL, NULL, NULL); if (areawin->scrollbarh) drawhbar(areawin->scrollbarh, NULL, NULL); if (areawin->scrollbarv) drawvbar(areawin->scrollbarv, NULL, NULL); printname(topobject); } /*------------------------------------------------------*/ /* Center the current page in the viewing window */ /*------------------------------------------------------*/ void zoomview(xcWidget w, caddr_t clientdata, caddr_t calldata) { if (eventmode == NORMAL_MODE || eventmode == COPY_MODE || eventmode == MOVE_MODE || eventmode == CATALOG_MODE || eventmode == FONTCAT_MODE || eventmode == EFONTCAT_MODE || eventmode == CATMOVE_MODE) { if (areawin->topinstance) centerview(areawin->topinstance); areawin->lastbackground = NULL; renderbackground(); refresh(NULL, NULL, NULL); } } /*---------------------------------------------------------*/ /* Basic X Graphics Routines in the User coordinate system */ /*---------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawSimpleLine(XPoint *pt1, XPoint *pt2) { XPoint newpt1, newpt2; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } UTransformbyCTM(DCTM, pt1, &newpt1, 1); UTransformbyCTM(DCTM, pt2, &newpt2, 1); DrawLine(dpy, areawin->window, areawin->gc, newpt1.x, newpt1.y, newpt2.x, newpt2.y); } #endif /* !HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawLine(XPoint *pt1, XPoint *pt2) { float tmpwidth = UTopTransScale(xobjs.pagelist[areawin->page]->wirewidth); if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } SetLineAttributes(dpy, areawin->gc, tmpwidth, LineSolid, CapRound, JoinBevel); UDrawSimpleLine(pt1, pt2); } #endif /* !HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Add circle at given point to indicate that the point is a parameter. */ /* The circle is divided into quarters. For parameterized y-coordinate */ /* the top and bottom quarters are drawn. For parameterized x- */ /* coordinate, the left and right quarters are drawn. A full circle */ /* indicates either both x- and y-coordinates are parameterized, or */ /* else any other kind of parameterization (presently, not used). */ /* */ /* (note that the two angles in XDrawArc() are 1) the start angle, */ /* measured in absolute 64th degrees from 0 (3 o'clock), and 2) the */ /* path length, in relative 64th degrees (positive = counterclockwise, */ /* negative = clockwise)). */ /*----------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawCircle(XPoint *upt, u_char which) { XPoint wpt; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } user_to_window(*upt, &wpt); SetThinLineAttributes(dpy, areawin->gc, 0, LineSolid, CapButt, JoinMiter); switch(which) { case P_POSITION_X: XDrawArc(dpy, areawin->window, areawin->gc, wpt.x - 4, wpt.y - 4, 8, 8, -(45 * 64), (90 * 64)); XDrawArc(dpy, areawin->window, areawin->gc, wpt.x - 4, wpt.y - 4, 8, 8, (135 * 64), (90 * 64)); break; case P_POSITION_Y: XDrawArc(dpy, areawin->window, areawin->gc, wpt.x - 4, wpt.y - 4, 8, 8, (45 * 64), (90 * 64)); XDrawArc(dpy, areawin->window, areawin->gc, wpt.x - 4, wpt.y - 4, 8, 8, (225 * 64), (90 * 64)); break; default: XDrawArc(dpy, areawin->window, areawin->gc, wpt.x - 4, wpt.y - 4, 8, 8, 0, (360 * 64)); break; } } #endif /* !HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Add "X" at string origin */ /*----------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawXAt(XPoint *wpt) { if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } SetThinLineAttributes(dpy, areawin->gc, 0, LineSolid, CapButt, JoinMiter); DrawLine(dpy, areawin->window, areawin->gc, wpt->x - 3, wpt->y - 3, wpt->x + 3, wpt->y + 3); DrawLine(dpy, areawin->window, areawin->gc, wpt->x + 3, wpt->y - 3, wpt->x - 3, wpt->y + 3); } #endif /* !HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Draw "X" on current level */ /*----------------------------------------------------------------------*/ void UDrawX(labelptr curlabel) { XPoint wpt; user_to_window(curlabel->position, &wpt); UDrawXAt(&wpt); } /*----------------------------------------------------------------------*/ /* Draw "X" on top level (only for LOCAL and GLOBAL pin labels) */ /*----------------------------------------------------------------------*/ void UDrawXDown(labelptr curlabel) { XPoint wpt; UTransformbyCTM(DCTM, &curlabel->position, &wpt, 1); UDrawXAt(&wpt); } /*----------------------------------------------------------------------*/ /* Find the "real" width, height, and origin of an object including pin */ /* labels and so forth that only show up on a schematic when it is the */ /* top-level object. */ /*----------------------------------------------------------------------*/ int toplevelwidth(objinstptr bbinst, short *rllx) { short llx, urx; short origin, corner; if (bbinst->schembbox == NULL) { if (rllx) *rllx = bbinst->bbox.lowerleft.x; return bbinst->bbox.width; } origin = bbinst->bbox.lowerleft.x; corner = origin + bbinst->bbox.width; llx = bbinst->schembbox->lowerleft.x; urx = llx + bbinst->schembbox->width; bboxcalc(llx, &origin, &corner); bboxcalc(urx, &origin, &corner); if (rllx) *rllx = origin; return(corner - origin); } /*----------------------------------------------------------------------*/ int toplevelheight(objinstptr bbinst, short *rlly) { short lly, ury; short origin, corner; if (bbinst->schembbox == NULL) { if (rlly) *rlly = bbinst->bbox.lowerleft.y; return bbinst->bbox.height; } origin = bbinst->bbox.lowerleft.y; corner = origin + bbinst->bbox.height; lly = bbinst->schembbox->lowerleft.y; ury = lly + bbinst->schembbox->height; bboxcalc(lly, &origin, &corner); bboxcalc(ury, &origin, &corner); if (rlly) *rlly = origin; return(corner - origin); } /*----------------------------------------------------------------------*/ /* Add dimensions of schematic pins to an object's bounding box */ /*----------------------------------------------------------------------*/ void extendschembbox(objinstptr bbinst, XPoint *origin, XPoint *corner) { short llx, lly, urx, ury; if ((bbinst == NULL) || (bbinst->schembbox == NULL)) return; llx = bbinst->schembbox->lowerleft.x; lly = bbinst->schembbox->lowerleft.y; urx = llx + bbinst->schembbox->width; ury = lly + bbinst->schembbox->height; bboxcalc(llx, &(origin->x), &(corner->x)); bboxcalc(lly, &(origin->y), &(corner->y)); bboxcalc(urx, &(origin->x), &(corner->x)); bboxcalc(ury, &(origin->y), &(corner->y)); } /*----------------------------------------------------------------------*/ /* Adjust a pinlabel position to account for pad spacing */ /*----------------------------------------------------------------------*/ void pinadjust (short anchor, short *xpoint, short *ypoint, short dir) { int delx, dely; dely = (anchor & NOTBOTTOM) ? ((anchor & TOP) ? -PADSPACE : 0) : PADSPACE; delx = (anchor & NOTLEFT) ? ((anchor & RIGHT) ? -PADSPACE : 0) : PADSPACE; if (xpoint != NULL) *xpoint += (dir > 0) ? delx : -delx; if (ypoint != NULL) *ypoint += (dir > 0) ? dely : -dely; } /*----------------------------------------------------------------------*/ /* Draw line for editing text (position of cursor in string is given by */ /* tpos (2nd parameter) */ /*----------------------------------------------------------------------*/ void UDrawTextLine(labelptr curlabel, short tpos) { XPoint points[2]; /* top and bottom of text cursor line */ short tmpanchor, xbase; int maxwidth; TextExtents tmpext; TextLinesInfo tlinfo; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } /* correct for position, rotation, scale, and flip invariance of text */ UPushCTM(); UPreMultCTM(DCTM, curlabel->position, curlabel->scale, curlabel->rotation); tmpanchor = flipadjust(curlabel->anchor); SetForeground(dpy, areawin->gc, AUXCOLOR); tlinfo.dostop = 0; tlinfo.tbreak = NULL; tlinfo.padding = NULL; tmpext = ULength(curlabel, areawin->topinstance, &tlinfo); maxwidth = tmpext.maxwidth; xbase = tmpext.base; tlinfo.dostop = tpos; tmpext = ULength(curlabel, areawin->topinstance, &tlinfo); points[0].x = (tmpanchor & NOTLEFT ? (tmpanchor & RIGHT ? -maxwidth : -maxwidth >> 1) : 0) + tmpext.width; if ((tmpanchor & JUSTIFYRIGHT) && tlinfo.padding) points[0].x += tlinfo.padding[tlinfo.line]; else if ((tmpanchor & TEXTCENTERED) && tlinfo.padding) points[0].x += 0.5 * tlinfo.padding[tlinfo.line]; points[0].y = (tmpanchor & NOTBOTTOM ? (tmpanchor & TOP ? -tmpext.ascent : -(tmpext.ascent + xbase) / 2) : -xbase) + tmpext.base - 3; points[1].x = points[0].x; points[1].y = points[0].y + TEXTHEIGHT + 6; if (curlabel->pin) { pinadjust(tmpanchor, &(points[0].x), &(points[0].y), 1); pinadjust(tmpanchor, &(points[1].x), &(points[1].y), 1); } if (tlinfo.padding != NULL) free(tlinfo.padding); /* draw the line */ UDrawLine(&points[0], &points[1]); UPopCTM(); UDrawX(curlabel); } /*-----------------------------------------------------------------*/ /* Draw lines for editing text when multiple characters are chosen */ /*-----------------------------------------------------------------*/ void UDrawTLine(labelptr curlabel) { UDrawTextLine(curlabel, areawin->textpos); if ((areawin->textend > 0) && (areawin->textend < areawin->textpos)) { UDrawTextLine(curlabel, areawin->textend); } } /*----------------------*/ /* Draw an X */ /*----------------------*/ #ifndef HAVE_CAIRO void UDrawXLine(XPoint opt, XPoint cpt) { XPoint upt, vpt; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } SetForeground(dpy, areawin->gc, AUXCOLOR); user_to_window(cpt, &upt); user_to_window(opt, &vpt); SetThinLineAttributes(dpy, areawin->gc, 0, LineOnOffDash, CapButt, JoinMiter); DrawLine(dpy, areawin->window, areawin->gc, vpt.x, vpt.y, upt.x, upt.y); SetThinLineAttributes(dpy, areawin->gc, 0, LineSolid, CapButt, JoinMiter); DrawLine(dpy, areawin->window, areawin->gc, upt.x - 3, upt.y - 3, upt.x + 3, upt.y + 3); DrawLine(dpy, areawin->window, areawin->gc, upt.x + 3, upt.y - 3, upt.x - 3, upt.y + 3); SetForeground(dpy, areawin->gc, areawin->gccolor); } #endif /* HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawBox(XPoint origin, XPoint corner) { XPoint worig, wcorn; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } user_to_window(origin, &worig); user_to_window(corner, &wcorn); SetForeground(dpy, areawin->gc, AUXCOLOR); SetThinLineAttributes(dpy, areawin->gc, 0, LineSolid, CapRound, JoinBevel); DrawLine(dpy, areawin->window, areawin->gc, worig.x, worig.y, worig.x, wcorn.y); DrawLine(dpy, areawin->window, areawin->gc, worig.x, wcorn.y, wcorn.x, wcorn.y); DrawLine(dpy, areawin->window, areawin->gc, wcorn.x, wcorn.y, wcorn.x, worig.y); DrawLine(dpy, areawin->window, areawin->gc, wcorn.x, worig.y, worig.x, worig.y); } #endif /* HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Get a box indicating the dimensions of the edit element that most */ /* closely reach the position "corner". */ /*----------------------------------------------------------------------*/ float UGetRescaleBox(XPoint *corner, XPoint *newpoints) { genericptr rgen; float savescale, newscale; long mindist, testdist, refdist; labelptr rlab; graphicptr rgraph; objinstptr rinst; int i; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; // return 0.0; } if (areawin->selects == 0) return 0.0; /* Use only the 1st selection as a reference to set the scale */ rgen = SELTOGENERIC(areawin->selectlist); switch(ELEMENTTYPE(rgen)) { case LABEL: rlab = (labelptr)rgen; labelbbox(rlab, newpoints, areawin->topinstance); newpoints[4] = newpoints[0]; mindist = LONG_MAX; for (i = 0; i < 4; i++) { testdist = finddist(&newpoints[i], &newpoints[i+1], corner); if (testdist < mindist) mindist = testdist; } refdist = wirelength(corner, &(rlab->position)); mindist = (int)sqrt(abs((double)mindist)); savescale = rlab->scale; if (!test_insideness((int)corner->x, (int)corner->y, newpoints)) mindist = -mindist; if (refdist == mindist) refdist = 1 - mindist; if (rlab->scale < 0) rlab->scale = -rlab->scale; newscale = fabs(rlab->scale * (float)refdist / (float)(refdist + mindist)); if (newscale > 10 * rlab->scale) newscale = 10 * rlab->scale; if (areawin->snapto) { float snapstep = 2 * (float)xobjs.pagelist[areawin->page]->gridspace / (float)xobjs.pagelist[areawin->page]->snapspace; newscale = (float)((int)(newscale * snapstep)) / snapstep; if (newscale < (1.0 / snapstep)) newscale = (1.0 / snapstep); } else if (newscale < 0.1 * rlab->scale) newscale = 0.1 * rlab->scale; rlab->scale = (savescale < 0) ? -newscale : newscale; labelbbox(rlab, newpoints, areawin->topinstance); rlab->scale = savescale; if (savescale < 0) newscale = -newscale; break; case GRAPHIC: rgraph = (graphicptr)rgen; graphicbbox(rgraph, newpoints); newpoints[4] = newpoints[0]; mindist = LONG_MAX; for (i = 0; i < 4; i++) { testdist = finddist(&newpoints[i], &newpoints[i+1], corner); if (testdist < mindist) mindist = testdist; } refdist = wirelength(corner, &(rgraph->position)); mindist = (int)sqrt(abs((double)mindist)); savescale = rgraph->scale; if (!test_insideness((int)corner->x, (int)corner->y, newpoints)) mindist = -mindist; if (refdist == mindist) refdist = 1 - mindist; /* avoid inf result */ if (rgraph->scale < 0) rgraph->scale = -rgraph->scale; newscale = fabs(rgraph->scale * (float)refdist / (float)(refdist + mindist)); if (newscale > 10 * rgraph->scale) newscale = 10 * rgraph->scale; if (areawin->snapto) { float snapstep = 2 * (float)xobjs.pagelist[areawin->page]->gridspace / (float)xobjs.pagelist[areawin->page]->snapspace; newscale = (float)((int)(newscale * snapstep)) / snapstep; if (newscale < (1.0 / snapstep)) newscale = (1.0 / snapstep); } else if (newscale < 0.1 * rgraph->scale) newscale = 0.1 * rgraph->scale; rgraph->scale = (savescale < 0) ? -newscale : newscale; graphicbbox(rgraph, newpoints); rgraph->scale = savescale; if (savescale < 0) newscale = -newscale; break; case OBJINST: rinst = (objinstptr)rgen; objinstbbox(rinst, newpoints, 0); newpoints[4] = newpoints[0]; mindist = LONG_MAX; for (i = 0; i < 4; i++) { testdist = finddist(&newpoints[i], &newpoints[i+1], corner); if (testdist < mindist) mindist = testdist; } refdist = wirelength(corner, &(rinst->position)); mindist = (int)sqrt(abs((double)mindist)); savescale = rinst->scale; if (!test_insideness((int)corner->x, (int)corner->y, newpoints)) mindist = -mindist; if (refdist == mindist) refdist = 1 - mindist; /* avoid inf result */ if (rinst->scale < 0) rinst->scale = -rinst->scale; newscale = fabs(rinst->scale * (float)refdist / (float)(refdist + mindist)); if (newscale > 10 * rinst->scale) newscale = 10 * rinst->scale; if (areawin->snapto) { float snapstep = 2 * (float)xobjs.pagelist[areawin->page]->gridspace / (float)xobjs.pagelist[areawin->page]->snapspace; newscale = (float)((int)(newscale * snapstep)) / snapstep; if (newscale < (1.0 / snapstep)) newscale = (1.0 / snapstep); } else if (newscale < 0.1 * rinst->scale) newscale = 0.1 * rinst->scale; rinst->scale = (savescale < 0) ? -newscale : newscale; objinstbbox(rinst, newpoints, 0); rinst->scale = savescale; if (savescale < 0) newscale = -newscale; break; } return newscale; } /*----------------------------------------------------------------------*/ /* Draw a box indicating the dimensions of the edit element that most */ /* closely reach the position "corner". */ /*----------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawRescaleBox(XPoint *corner) { XPoint origpoints[5], newpoints[5]; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } if (areawin->selects == 0) return; UGetRescaleBox(corner, newpoints); SetForeground(dpy, areawin->gc, AUXCOLOR); SetThinLineAttributes(dpy, areawin->gc, 0, LineSolid, CapRound, JoinBevel); UTransformbyCTM(DCTM, newpoints, origpoints, 4); strokepath(origpoints, 4, 0, 1); } #endif /* HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawBBox() { XPoint origin; XPoint worig, wcorn, corner; objinstptr bbinst = areawin->topinstance; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } if ((!areawin->bboxon) || (checkforbbox(topobject) != NULL)) return; origin = bbinst->bbox.lowerleft; corner.x = origin.x + bbinst->bbox.width; corner.y = origin.y + bbinst->bbox.height; /* Include any schematic labels in the bounding box. */ extendschembbox(bbinst, &origin, &corner); user_to_window(origin, &worig); user_to_window(corner, &wcorn); SetForeground(dpy, areawin->gc, BBOXCOLOR); DrawLine(dpy, areawin->window, areawin->gc, worig.x, worig.y, worig.x, wcorn.y); DrawLine(dpy, areawin->window, areawin->gc, worig.x, wcorn.y, wcorn.x, wcorn.y); DrawLine(dpy, areawin->window, areawin->gc, wcorn.x, wcorn.y, wcorn.x, worig.y); DrawLine(dpy, areawin->window, areawin->gc, wcorn.x, worig.y, worig.x, worig.y); } #endif /* !HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Fill and/or draw a border around the stroking path */ /*----------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void strokepath(XPoint *pathlist, short number, short style, float width) { float tmpwidth; tmpwidth = UTopTransScale(width); if (!(style & CLIPMASK) || (areawin->showclipmasks == TRUE) || (areawin->clipped < 0)) { if (style & FILLED || (!(style & FILLED) && style & OPAQUE)) { if ((style & FILLSOLID) == FILLSOLID) SetFillStyle(dpy, areawin->gc, FillSolid); else if (!(style & FILLED)) { SetFillStyle(dpy, areawin->gc, FillOpaqueStippled); SetStipple(dpy, areawin->gc, 7); } else { if (style & OPAQUE) SetFillStyle(dpy, areawin->gc, FillOpaqueStippled); else SetFillStyle(dpy, areawin->gc, FillStippled); SetStipple(dpy, areawin->gc, ((style & FILLSOLID) >> 5)); } FillPolygon(dpy, areawin->window, areawin->gc, pathlist, number, Nonconvex, CoordModeOrigin); /* return to original state */ SetFillStyle(dpy, areawin->gc, FillSolid); } if (!(style & NOBORDER)) { if (style & (DASHED | DOTTED)) { /* Set up dots or dashes */ char dashstring[2]; /* prevent values greater than 255 from folding back into */ /* type char. Limit to 63 (=255/4) to keep at least the */ /* dot/gap ratio to scale when 'gap' is at its maximum */ /* value. */ unsigned char dotsize = min(63, max(1, (short)tmpwidth)); if (style & DASHED) dashstring[0] = 4 * dotsize; else if (style & DOTTED) dashstring[0] = dotsize; dashstring[1] = 4 * dotsize; SetDashes(dpy, areawin->gc, 0, dashstring, 2); SetLineAttributes(dpy, areawin->gc, tmpwidth, LineOnOffDash, CapButt, (style & SQUARECAP) ? JoinMiter : JoinBevel); } else SetLineAttributes(dpy, areawin->gc, tmpwidth, LineSolid, (style & SQUARECAP) ? CapProjecting : CapRound, (style & SQUARECAP) ? JoinMiter : JoinBevel); /* draw the spline and close off if so specified */ DrawLines(dpy, areawin->window, areawin->gc, pathlist, number, CoordModeOrigin); if (!(style & UNCLOSED)) DrawLine(dpy, areawin->window, areawin->gc, pathlist[0].x, pathlist[0].y, pathlist[number - 1].x, pathlist[number - 1].y); } } if (style & CLIPMASK) { if (areawin->clipped == 0) { XSetForeground(dpy, areawin->cmgc, 0); XFillRectangle(dpy, areawin->clipmask, areawin->cmgc, 0, 0, areawin->width, areawin->height); XSetForeground(dpy, areawin->cmgc, 1); FillPolygon(dpy, areawin->clipmask, areawin->cmgc, pathlist, number, Nonconvex, CoordModeOrigin); XSetClipMask(dpy, areawin->gc, areawin->clipmask); // printf("level 0: Clip to clipmask\n"); // Diagnostic areawin->clipped++; } else if ((areawin->clipped > 0) && (areawin->clipped & 1) == 0) { if (areawin->pbuf == (Pixmap)NULL) { areawin->pbuf = XCreatePixmap (dpy, areawin->window, areawin->width, areawin->height, 1); } XCopyArea(dpy, areawin->clipmask, areawin->pbuf, areawin->cmgc, 0, 0, areawin->width, areawin->height, 0, 0); XSetForeground(dpy, areawin->cmgc, 0); XFillRectangle(dpy, areawin->clipmask, areawin->cmgc, 0, 0, areawin->width, areawin->height); XSetForeground(dpy, areawin->cmgc, 1); FillPolygon(dpy, areawin->clipmask, areawin->cmgc, pathlist, number, Nonconvex, CoordModeOrigin); XSetFunction(dpy, areawin->cmgc, GXand); XCopyArea(dpy, areawin->pbuf, areawin->clipmask, areawin->cmgc, 0, 0, areawin->width, areawin->height, 0, 0); XSetFunction(dpy, areawin->cmgc, GXcopy); XSetClipMask(dpy, areawin->gc, areawin->clipmask); // printf("level X: Clip to clipmask\n"); // Diagnostic areawin->clipped++; } } } #endif /* !HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ void makesplinepath(splineptr thespline, XPoint *pathlist) { XPoint *tmpptr = pathlist; UTransformbyCTM(DCTM, &(thespline->ctrl[0]), tmpptr, 1); UfTransformbyCTM(DCTM, thespline->points, ++tmpptr, INTSEGS); UTransformbyCTM(DCTM, &(thespline->ctrl[3]), tmpptr + INTSEGS, 1); } /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawSpline(splineptr thespline, float passwidth) { XPoint tmppoints[SPLINESEGS]; float scaledwidth; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } scaledwidth = thespline->width * passwidth; makesplinepath(thespline, tmppoints); strokepath(tmppoints, SPLINESEGS, thespline->style, scaledwidth); } #endif /* HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawPolygon(polyptr thepoly, float passwidth) { XPoint *tmppoints = (pointlist) malloc(thepoly->number * sizeof(XPoint)); float scaledwidth; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } scaledwidth = thepoly->width * passwidth; UTransformbyCTM(DCTM, thepoly->points, tmppoints, thepoly->number); strokepath(tmppoints, thepoly->number, thepoly->style, scaledwidth); free(tmppoints); } #endif /* HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawArc(arcptr thearc, float passwidth) { XPoint tmppoints[RSTEPS + 2]; float scaledwidth; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } scaledwidth = thearc->width * passwidth; UfTransformbyCTM(DCTM, thearc->points, tmppoints, thearc->number); strokepath(tmppoints, thearc->number, thearc->style, scaledwidth); } #endif /* HAVE_CAIRO */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawPath(pathptr thepath, float passwidth) { XPoint *tmppoints = (pointlist) malloc(sizeof(XPoint)); genericptr *genpath; polyptr thepoly; splineptr thespline; int pathsegs = 0, curseg = 0; float scaledwidth; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } for (genpath = thepath->plist; genpath < thepath->plist + thepath->parts; genpath++) { switch(ELEMENTTYPE(*genpath)) { case POLYGON: thepoly = TOPOLY(genpath); pathsegs += thepoly->number; tmppoints = (pointlist) realloc(tmppoints, pathsegs * sizeof(XPoint)); UTransformbyCTM(DCTM, thepoly->points, tmppoints + curseg, thepoly->number); curseg = pathsegs; break; case SPLINE: thespline = TOSPLINE(genpath); pathsegs += SPLINESEGS; tmppoints = (pointlist) realloc(tmppoints, pathsegs * sizeof(XPoint)); makesplinepath(thespline, tmppoints + curseg); curseg = pathsegs; break; } } scaledwidth = thepath->width * passwidth; strokepath(tmppoints, pathsegs, thepath->style, scaledwidth); free(tmppoints); } #endif /* HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Main recursive object instance drawing routine. */ /* context is the instance information passed down from above */ /* theinstance is the object instance to be drawn */ /* level is the level of recursion */ /* passcolor is the inherited color value passed to object */ /* passwidth is the inherited linewidth value passed to the object */ /* stack contains graphics context information */ /*----------------------------------------------------------------------*/ #ifndef HAVE_CAIRO void UDrawObject(objinstptr theinstance, short level, int passcolor, float passwidth, pushlistptr *stack) { genericptr *areagen; float tmpwidth; int defaultcolor = passcolor; int curcolor = passcolor; int thispart; short savesel; XPoint bboxin[2], bboxout[2]; u_char xm, ym; objectptr theobject = theinstance->thisobject; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } /* Save the number of selections and set it to zero while we do the */ /* object drawing. */ savesel = areawin->selects; areawin->selects = 0; /* All parts are given in the coordinate system of the object, unless */ /* this is the top-level object, in which they will be interpreted as */ /* relative to the screen. */ UPushCTM(); if (stack) { /* Save the current clipping mask and push it on the stack */ if (areawin->clipped > 0) { push_stack((pushlistptr *)stack, theinstance, (char *)areawin->clipmask); areawin->clipmask = XCreatePixmap(dpy, areawin->window, areawin->width, areawin->height, 1); XCopyArea(dpy, (Pixmap)(*stack)->clientdata, areawin->clipmask, areawin->cmgc, 0, 0, areawin->width, areawin->height, 0, 0); } else push_stack((pushlistptr *)stack, theinstance, (char *)NULL); } if (level != 0) UPreMultCTM(DCTM, theinstance->position, theinstance->scale, theinstance->rotation); if (theinstance->style & LINE_INVARIANT) passwidth /= fabs(theinstance->scale); /* do a quick test for intersection with the display window */ bboxin[0].x = theobject->bbox.lowerleft.x; bboxin[0].y = theobject->bbox.lowerleft.y; bboxin[1].x = theobject->bbox.lowerleft.x + theobject->bbox.width; bboxin[1].y = theobject->bbox.lowerleft.y + theobject->bbox.height; if (level == 0) extendschembbox(theinstance, &(bboxin[0]), &(bboxin[1])); UTransformbyCTM(DCTM, bboxin, bboxout, 2); xm = (bboxout[0].x < bboxout[1].x) ? 0 : 1; ym = (bboxout[0].y < bboxout[1].y) ? 0 : 1; if (bboxout[xm].x < areawin->width && bboxout[ym].y < areawin->height && bboxout[1 - xm].x > 0 && bboxout[1 - ym].y > 0) { /* make parameter substitutions */ psubstitute(theinstance); /* draw all of the elements */ tmpwidth = UTopTransScale(passwidth); SetLineAttributes(dpy, areawin->gc, tmpwidth, LineSolid, CapRound, JoinBevel); /* guard against plist being regenerated during a redraw by the */ /* expression parameter mechanism (should that be prohibited?) */ for (thispart = 0; thispart < theobject->parts; thispart++) { areagen = theobject->plist + thispart; if ((*areagen)->type & DRAW_HIDE) continue; if (defaultcolor != DOFORALL) { Boolean clipcolor = FALSE; switch(ELEMENTTYPE(*areagen)) { case(POLYGON): case(SPLINE): case(ARC): case(PATH): if (TOPOLY(areagen)->style & CLIPMASK) clipcolor = TRUE; break; } if (((*areagen)->color != curcolor) || (clipcolor == TRUE)) { if (clipcolor) curcolor = CLIPMASKCOLOR; else if ((*areagen)->color == DEFAULTCOLOR) curcolor = defaultcolor; else curcolor = (*areagen)->color; XcTopSetForeground(curcolor); } } switch(ELEMENTTYPE(*areagen)) { case(POLYGON): if (level == 0 || !((TOPOLY(areagen))->style & BBOX)) UDrawPolygon(TOPOLY(areagen), passwidth); break; case(SPLINE): UDrawSpline(TOSPLINE(areagen), passwidth); break; case(ARC): UDrawArc(TOARC(areagen), passwidth); break; case(PATH): UDrawPath(TOPATH(areagen), passwidth); break; case(GRAPHIC): UDrawGraphic(TOGRAPHIC(areagen)); break; case(OBJINST): if (areawin->editinplace && stack && (TOOBJINST(areagen) == areawin->topinstance)) { /* If stack matches areawin->stack, then don't draw */ /* because it would be redundant. */ pushlistptr alist = *stack, blist = areawin->stack; while (alist && blist) { if (alist->thisinst != blist->thisinst) break; alist = alist->next; blist = blist->next; } if ((!alist) || (!blist)) break; } if (areawin->clipped > 0) areawin->clipped += 2; UDrawObject(TOOBJINST(areagen), level + 1, curcolor, passwidth, stack); if (areawin->clipped > 0) areawin->clipped -= 2; break; case(LABEL): if (level == 0 || TOLABEL(areagen)->pin == False) UDrawString(TOLABEL(areagen), curcolor, theinstance); else if ((TOLABEL(areagen)->anchor & PINVISIBLE) && areawin->pinpointon) UDrawString(TOLABEL(areagen), curcolor, theinstance); else if (TOLABEL(areagen)->anchor & PINVISIBLE) UDrawStringNoX(TOLABEL(areagen), curcolor, theinstance); else if (level == 1 && TOLABEL(areagen)->pin && TOLABEL(areagen)->pin != INFO && areawin->pinpointon) UDrawXDown(TOLABEL(areagen)); break; } if (areawin->clipped > 0) { if ((areawin->clipped & 3) == 1) { areawin->clipped++; } else if ((areawin->clipped & 3) == 2) { areawin->clipped -= 2; if ((!stack) || ((*stack)->clientdata == (char *)NULL)) { XSetClipMask(dpy, areawin->gc, None); // printf("1: Clear clipmask\n"); // Diagnostic } else { XSetClipMask(dpy, areawin->gc, (Pixmap)((*stack)->clientdata)); // printf("1: Set to pushed clipmask\n"); // Diagnostic } } } } /* restore the color passed to the object, if different from current color */ if ((defaultcolor != DOFORALL) && (passcolor != curcolor)) { XTopSetForeground(passcolor); } if (areawin->clipped > 0) { if ((areawin->clipped & 3) != 3) { if ((!stack) || ((*stack)->clientdata == (char *)NULL)) { XSetClipMask(dpy, areawin->gc, None); // printf("2: Clear clipmask\n"); // Diagnostic } else { XSetClipMask(dpy, areawin->gc, (Pixmap)((*stack)->clientdata)); // printf("2: Set to pushed clipmask\n"); // Diagnostic } } areawin->clipped &= ~3; } } /* restore the selection list (if any) */ areawin->selects = savesel; UPopCTM(); if (stack) { if ((*stack) != NULL) { if ((*stack)->clientdata != (char *)NULL) { XFreePixmap(dpy, areawin->clipmask); areawin->clipmask = (Pixmap)(*stack)->clientdata; // printf("3: Restore clipmask\n"); // Diagnostic } } pop_stack(stack); } } #endif /* HAVE_CAIRO */ /*----------------------------------------------------------------------*/ /* Recursively run through the current page and find any labels which */ /* are declared to be style LATEX. If "checkonly" is present, we set */ /* it to TRUE or FALSE depending on whether or not LATEX labels have */ /* been encountered. If NULL, then we write LATEX output appropriately */ /* to a file named with the page filename + suffix ".tex". */ /*----------------------------------------------------------------------*/ void UDoLatex(objinstptr theinstance, short level, FILE *f, float scale, float scale2, int tx, int ty, Boolean *checkonly) { XPoint lpos, xlpos; XfPoint xfpos; labelptr thislabel; genericptr *areagen; objectptr theobject = theinstance->thisobject; char *ltext; int lranchor, tbanchor; UPushCTM(); if (level != 0) UPreMultCTM(DCTM, theinstance->position, theinstance->scale, theinstance->rotation); /* make parameter substitutions */ psubstitute(theinstance); /* find all of the elements */ for (areagen = theobject->plist; areagen < theobject->plist + theobject->parts; areagen++) { switch(ELEMENTTYPE(*areagen)) { case(OBJINST): UDoLatex(TOOBJINST(areagen), level + 1, f, scale, scale2, tx, ty, checkonly); break; case(LABEL): thislabel = TOLABEL(areagen); if (level == 0 || thislabel->pin == False || (thislabel->anchor & PINVISIBLE)) if (thislabel->anchor & LATEXLABEL) { if (checkonly) { *checkonly = TRUE; return; } else { lpos.x = thislabel->position.x; lpos.y = thislabel->position.y; UTransformbyCTM(DCTM, &lpos, &xlpos, 1); xlpos.x += tx; xlpos.y += ty; xfpos.x = (float)xlpos.x * scale; xfpos.y = (float)xlpos.y * scale; xfpos.x /= 72.0; xfpos.y /= 72.0; xfpos.x -= 1.0; xfpos.y -= 1.0; xfpos.x += 0.056; xfpos.y += 0.056; xfpos.x /= scale2; xfpos.y /= scale2; ltext = textprinttex(thislabel->string, theinstance); tbanchor = thislabel->anchor & (NOTBOTTOM | TOP); lranchor = thislabel->anchor & (NOTLEFT | RIGHT); /* The 1.2 factor accounts for the difference between */ /* Xcircuit's label scale of "1" and LaTeX's "normalsize" */ fprintf(f, " \\putbox{%3.2fin}{%3.2fin}{%3.2f}{", xfpos.x, xfpos.y, 1.2 * thislabel->scale); if (thislabel->rotation != 0) fprintf(f, "\\rotatebox{-%d}{", thislabel->rotation); if (lranchor == (NOTLEFT | RIGHT)) fprintf(f, "\\rightbox{"); else if (lranchor == NOTLEFT) fprintf(f, "\\centbox{"); if (tbanchor == (NOTBOTTOM | TOP)) fprintf(f, "\\topbox{"); else if (tbanchor == NOTBOTTOM) fprintf(f, "\\midbox{"); fprintf(f, "%s", ltext); if (lranchor != NORMAL) fprintf(f, "}"); if (tbanchor != NORMAL) fprintf(f, "}"); if (thislabel->rotation != 0) fprintf(f, "}"); fprintf(f, "}%%\n"); free(ltext); } } break; } } UPopCTM(); } /*----------------------------------------------------------------------*/ /* Top level routine for writing LATEX output. */ /*----------------------------------------------------------------------*/ void TopDoLatex() { FILE *f; float psscale, outscale; int tx, ty, width, height; polyptr framebox; XPoint origin; Boolean checklatex = FALSE; char filename[100], extend[10], *dotptr; UDoLatex(areawin->topinstance, 0, NULL, 1.0, 1.0, 0, 0, &checklatex); if (checklatex == FALSE) return; /* No LaTeX labels to write */ /* Handle cases where the file might have a ".eps" extension. */ /* Thanks to Graham Sheward for pointing this out. */ if (xobjs.pagelist[areawin->page]->filename) sprintf(filename, "%s", xobjs.pagelist[areawin->page]->filename); else sprintf(filename, "%s", xobjs.pagelist[areawin->page]->pageinst->thisobject->name); if ((dotptr = strchr(filename + strlen(filename) - 4, '.')) == NULL) { dotptr = filename + strlen(filename); sprintf(dotptr, ".ps"); } strcpy(extend, dotptr); strcpy(dotptr, ".tex"); f = fopen(filename, "w"); *dotptr = '\0'; fprintf(f, "%% XCircuit output \"%s.tex\" for LaTeX input from %s%s\n", filename, filename, extend); fprintf(f, "\\def\\putbox#1#2#3#4{\\makebox[0in][l]{\\makebox[#1][l]{}" "\\raisebox{\\baselineskip}[0in][0in]" "{\\raisebox{#2}[0in][0in]{\\scalebox{#3}{#4}}}}}\n"); fprintf(f, "\\def\\rightbox#1{\\makebox[0in][r]{#1}}\n"); fprintf(f, "\\def\\centbox#1{\\makebox[0in]{#1}}\n"); fprintf(f, "\\def\\topbox#1{\\raisebox{-0.60\\baselineskip}[0in][0in]{#1}}\n"); fprintf(f, "\\def\\midbox#1{\\raisebox{-0.20\\baselineskip}[0in][0in]{#1}}\n"); /* Modified to use \scalebox and \parbox by Alex Tercete, June 2008 */ // fprintf(f, "\\begin{center}\n"); outscale = xobjs.pagelist[areawin->page]->outscale; psscale = getpsscale(outscale, areawin->page); width = toplevelwidth(areawin->topinstance, &origin.x); height = toplevelheight(areawin->topinstance, &origin.y); /* Added 10/19/10: If there is a specified bounding box, let it */ /* determine the figure origin; otherwise, the labels will be */ /* mismatched to the bounding box. */ if ((framebox = checkforbbox(topobject)) != NULL) { int i, maxx, maxy; origin.x = maxx = framebox->points[0].x; origin.y = maxy = framebox->points[0].y; for (i = 1; i < framebox->number; i++) { if (framebox->points[i].x < origin.x) origin.x = framebox->points[i].x; if (framebox->points[i].x > maxx) maxx = framebox->points[i].x; if (framebox->points[i].y < origin.y) origin.y = framebox->points[i].y; if (framebox->points[i].y > maxy) maxy = framebox->points[i].y; } origin.x -= ((width - maxx + origin.x) / 2); origin.y -= ((height - maxy + origin.y) / 2); } tx = (int)(72 / psscale) - origin.x, ty = (int)(72 / psscale) - origin.y; fprintf(f, " \\scalebox{%g}{\n", outscale); fprintf(f, " \\normalsize\n"); fprintf(f, " \\parbox{%gin}{\n", (((float)width * psscale) / 72.0) / outscale); fprintf(f, " \\includegraphics[scale=%g]{%s}\\\\\n", 1.0 / outscale, filename); fprintf(f, " %% translate x=%d y=%d scale %3.2f\n", tx, ty, psscale); UPushCTM(); /* Save current state */ UResetCTM(DCTM); /* Set to identity matrix */ UDoLatex(areawin->topinstance, 0, f, psscale, outscale, tx, ty, NULL); UPopCTM(); /* Restore state */ fprintf(f, " } %% close \'parbox\'\n"); fprintf(f, " } %% close \'scalebox\'\n"); fprintf(f, " \\vspace{-\\baselineskip} %% this is not" " necessary, but looks better\n"); // fprintf(f, "\\end{center}\n"); fclose(f); Wprintf("Wrote auxiliary file %s.tex", filename); } xcircuit-3.9.73/netlist.c0000664000175000001440000063770713042136131014025 0ustar timusers/*----------------------------------------------------------------------*/ /* netlist.c --- xcircuit routines specific to schematic capture and */ /* netlist generation */ /*----------------------------------------------------------------------*/ /* Copyright (c) 2004 Tim Edwards, Johns Hopkins University, */ /* MultiGiG, Inc., and Open Circuit Design, Inc. */ /* Copyright (c) 2005 Tim Edwards, MultiGiG, Inc. */ /* */ /* Written April 1998 to January 2004 */ /* Original version for Pcb netlisting 3/20/98 by Chow Seong Hwai, */ /* Leeds University, U.K. */ /* */ /* Greatly modified 4/2/04 to handle bus notation; net identifier */ /* changed from a listing by net to two listings, by polygon and by */ /* label, with nets and subnets identifiers attached to each element, */ /* rather than vice versa. */ /*----------------------------------------------------------------------*/ #include #include #include #include #include /* For preventing multiple file inclusions, use stat() */ #include #ifndef _MSC_VER #include #endif #ifdef HAVE_PYTHON #include #endif #ifndef _MSC_VER #include #include #endif #ifdef TCL_WRAPPER #include #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "xcircuit.h" #include "colordefs.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" #ifdef HAVE_PYTHON extern PyObject *PyGetStringParts(stringpart *); #endif #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; extern Tcl_Obj *TclGetStringParts(stringpart *); #endif /*----------------------------------------------------------------------*/ /* Externally declared global variables */ /*----------------------------------------------------------------------*/ extern Display *dpy; /*----------------------------------------------------------------------*/ extern char _STR[150]; extern char _STR2[250]; extern XCWindowData *areawin; extern Globaldata xobjs; extern Boolean load_in_progress; extern int number_colors; extern colorindex *colorlist; LabellistPtr global_labels; typedef struct _flatindex *fidxptr; typedef struct _flatindex { char *devname; u_int index; fidxptr next; } flatindex; /* count for labeling devices in a flattened file */ flatindex *flatrecord = NULL; static char *spice_devname = "X"; /* SPICE subcircuit device name */ Boolean spice_end = True; /* whether or not to write a .end statement */ ino_t *included_files = NULL; /* Files included with "%F" escape */ #define EndPoint(n) (((n == 1) ? 1 : (int)(n - 1))) #define NextPoint(n) (((n == 1) ? 0 : 1)) /* For bus matching: whether to match by number of nets, by */ /* exact match of sub-bus numbers, or an exact match of net IDs. */ #define MATCH_EXACT 0 #define MATCH_SUBNETS 1 #define MATCH_SIZE 2 #define MATCH_OVERLAP 3 /*----------------------------------------------------------------------*/ /* Check whether two line segments attach to or cross each other */ /* Return 1 if attached, 0 if not (INLINE code) */ /* int onsegment(XPoint *a, XPoint *b, XPoint *x) {} */ /*----------------------------------------------------------------------*/ #define ONDIST 4 /* "slack" in algorithm for almost-touching lines */ #define onsegment(a, b, x) (finddist(a, b, x) <= ONDIST) /*--------------------------------------------------------------*/ /* d36a: Base 36 to string conversion */ /*--------------------------------------------------------------*/ char *d36a(int number) { static char bconv[10]; int i, locn, rem; bconv[9] = '\0'; i = 8; locn = number; while ((locn > 0) && (i >= 0)) { rem = locn % 36; locn /= 36; bconv[i--] = (rem < 10) ? (rem + '0') : (rem - 10 + 'A'); } return &bconv[i + 1]; } /*--------------------------------------------------------------*/ /* Translate a pin name to a position relative to an object's */ /* point of origin. This is used by the ASG module to find */ /* the placement of pins based on names from a netlist. */ /* */ /* returns 0 on success and fills x_ret and y_ret with the */ /* pin position coordinates. Returns -1 if the pin name did */ /* not match any label names in the object. */ /*--------------------------------------------------------------*/ int NameToPinLocation(objinstptr thisinst, char *pinname, int *x_ret, int *y_ret) { objectptr thisobj = thisinst->thisobject; genericptr *pgen; labelptr plab; if (thisobj->schemtype == SECONDARY) thisobj = thisobj->symschem; for (pgen = thisobj->plist; pgen < thisobj->plist + thisobj->parts; pgen++) { if (IS_LABEL(*pgen)) { plab = TOLABEL(pgen); if (plab->pin != False && plab->pin != INFO) { if (!textcomp(plab->string, pinname, thisinst)) { *x_ret = (int)plab->position.x; *y_ret = (int)plab->position.y; return 0; } } } } return -1; } /*--------------------------------------------------------------*/ /* Translate a point position back to the calling object's */ /* coordinate system. */ /* Original value is passed in "thispoint"; Translated value */ /* is put in "refpoint". */ /*--------------------------------------------------------------*/ void ReferencePosition(objinstptr thisinst, XPoint *thispoint, XPoint *refpoint) { /* objectptr thisobj = thisinst->thisobject; (jdk) */ Matrix locctm; /* Translate pin position back to originating object */ UResetCTM(&locctm); UPreMultCTM(&locctm, thisinst->position, thisinst->scale, thisinst->rotation); UTransformbyCTM(&locctm, thispoint, refpoint, 1); } /*--------------------------------------------------------------*/ /* Variant of NameToPinLocation(): Given a port number, find */ /* the pin associated with that port. */ /*--------------------------------------------------------------*/ labelptr PortToLabel(objinstptr thisinst, int portno) { labelptr plab; objectptr thisobj = thisinst->thisobject; PortlistPtr ports; if ((thisobj->schemtype == SYMBOL) && (thisobj->symschem != NULL)) ports = thisobj->symschem->ports; else ports = thisobj->ports; for (; ports != NULL; ports = ports->next) { if (ports->portid == portno) { plab = NetToLabel(ports->netid, thisobj); /* in the symbol! */ return plab; } } return NULL; } /*--------------------------------------------------------------*/ /* This function is the same as PortToLocalPosition() but */ /* returns the point in the coordinate system of the parent. */ /*--------------------------------------------------------------*/ Boolean PortToPosition(objinstptr thisinst, int portno, XPoint *refpoint) { labelptr plab = PortToLabel(thisinst, portno); if (plab) ReferencePosition(thisinst, &(plab->position), refpoint); return (plab != NULL) ? TRUE : FALSE; } /*----------------------------------------------------------------------*/ /* Get the hierarchy of the page stack and return as a string */ /*----------------------------------------------------------------------*/ Boolean getnexthier(pushlistptr stack, char **hierstr, objinstptr callinst, Boolean canonical) { objectptr topobj, thisobj; CalllistPtr calls; /* char numstr[12]; (jdk) */ int hierlen, devlen; char *devstr; if (!stack) return False; /* Recurse so we build up the prefix string from top down */ if (stack->next != NULL) { if (getnexthier(stack->next, hierstr, stack->thisinst, canonical) == False) return False; } else { topobj = stack->thisinst->thisobject; if (topobj->schemtype != PRIMARY && topobj->symschem != NULL) topobj = topobj->symschem; if (topobj->calls == NULL) { if (topobj->schemtype == FUNDAMENTAL) { /* Top level is a fundamental symbol */ return True; } else if ((updatenets(stack->thisinst, FALSE) <= 0) || (topobj->calls == NULL)) { Wprintf("Error in generating netlists!"); return False; } } } thisobj = stack->thisinst->thisobject; /* When we have "traveled" through both a symbol and its */ /* associated schematic, only append the prefix for the */ /* first one encountered. */ /* if (thisobj->symschem != NULL && stack->next != NULL && thisobj->symschem == stack->next->thisinst->thisobject) return True; */ if ((thisobj->calls == NULL) && (thisobj->schemtype != PRIMARY) && (thisobj->symschem != NULL)) thisobj = thisobj->symschem; /* Check for resolved device indices and generate them if necessary */ for (calls = thisobj->calls; calls != NULL; calls = calls->next) if (calls->callinst == callinst) if (calls->devindex == -1) { cleartraversed(thisobj); resolve_indices(thisobj, FALSE); break; } /* Add this level of the hierarchy to the prefix string */ for (calls = thisobj->calls; calls != NULL; calls = calls->next) { if (calls->callinst == callinst) { devlen = (canonical || calls->devname == NULL) ? strlen(callinst->thisobject->name) : strlen(calls->devname); devstr = d36a(calls->devindex); devlen += strlen(devstr) + 1; if (*hierstr == NULL) { *hierstr = malloc(devlen); hierlen = 0; } else { hierlen = strlen(*hierstr) + 2; *hierstr = realloc(*hierstr, hierlen + devlen); } if (canonical) sprintf(*hierstr + hierlen, "%s%s(%s)", ((hierlen > 0) ? "/" : ""), callinst->thisobject->name, devstr); else sprintf(*hierstr + hierlen, "%s%s%s", ((hierlen > 0) ? "/" : ""), (calls->devname == NULL) ? callinst->thisobject->name : calls->devname, devstr); break; } } return True; } /*----------------------------------------------------------------------*/ char *GetHierarchy(pushlistptr *stackptr, Boolean canonical) { Boolean pushed_top = FALSE; char *snew = NULL; if ((*stackptr) && ((*stackptr)->thisinst != areawin->topinstance)) { pushed_top = TRUE; push_stack(stackptr, areawin->topinstance, NULL); } getnexthier(*stackptr, &snew, NULL, canonical); if (pushed_top) pop_stack(stackptr); return snew; } /*----------------------------------------------------------------------*/ /* Invalidate a netlist. The invalidation must be referred to the */ /* master schematic, if the object is a secondary schematic. */ /*----------------------------------------------------------------------*/ void invalidate_netlist(objectptr thisobject) { if (thisobject->schemtype != NONETWORK) { if (thisobject->schemtype == SECONDARY) thisobject->symschem->valid = False; else thisobject->valid = False; } } /*--------------------------------------------------------------*/ /* Check if the selected items are relevant to the netlist. */ /* Only invalidate the current netlist if they are. */ /*--------------------------------------------------------------*/ void select_invalidate_netlist() { int i; Boolean netcheck = FALSE; for (i = 0; i < areawin->selects; i++) { genericptr gptr = SELTOGENERIC(areawin->selectlist + i); switch (gptr->type) { case POLYGON: if (!nonnetwork(TOPOLY(&gptr))) netcheck = TRUE; break; case LABEL: if ((TOLABEL(&gptr))->pin == LOCAL || (TOLABEL(&gptr))->pin == GLOBAL) netcheck = TRUE; break; case OBJINST: if ((TOOBJINST(&gptr))->thisobject->schemtype != NONETWORK) netcheck = TRUE; break; } } if (netcheck) invalidate_netlist(topobject); } /*------------------------------------------------------------------*/ /* Check proximity of two points (within roundoff tolerance ONDIST) */ /*------------------------------------------------------------------*/ Boolean proximity(XPoint *point1, XPoint *point2) { int dx, dy; dx = point1->x - point2->x; dy = point1->y - point2->y; if ((abs(dx) < ONDIST) && (abs(dy) < ONDIST)) return True; else return False; } /*----------------------------------------------------------------------*/ /* createnets(): Generate netlist structures */ /* */ /* Result is the creation of three linked lists inside each object in */ /* the circuit hierarchy: */ /* */ /* 1) the netlist: assigns a number to each network of polygons and */ /* pin labels on the object. */ /* 2) the ports: a list of every network which is connected from */ /* objects above this one in the hierarchy. */ /* 3) the calls: a list of calls made from the object to all sub- */ /* circuits. Each calls indicates the object and/or */ /* instance being called, and a port list which must match */ /* the ports of the object being called (the port lists */ /* are not reflexive, as the caller does not have to call */ /* all of the instance's ports, but the instance must have */ /* a port defined for every connection being called). */ /* (see structure definitions in xcircuit.h). */ /*----------------------------------------------------------------------*/ void createnets(objinstptr thisinst, Boolean quiet) { objectptr thisobject = thisinst->thisobject; if (!setobjecttype(thisobject)) { /* New in 3.3.32: Generating a netlist from a symbol is */ /* okay if the symbol has an associated netlist. */ if (thisobject->schemtype == SYMBOL && thisobject->symschem != NULL) thisobject = thisobject->symschem; else { if (!quiet) Wprintf("Error: attempt to generate netlist for a symbol."); return; } } /* Wprintf("Generating netlists"); */ /* Diagnostic */ gennetlist(thisinst); gencalls(thisobject); cleartraversed(thisobject); resolve_devnames(thisobject); /* Wprintf("Finished netlists"); */ } /*----------------------------------------------------------------------*/ /* Free all memory associated with the netlists. */ /*----------------------------------------------------------------------*/ void destroynets(objectptr thisobject) { objectptr pschem; pschem = (thisobject->schemtype == SECONDARY) ? thisobject->symschem : thisobject; freetemplabels(pschem); freenets(pschem); freeglobals(); } /*----------------------------------------------------------------------*/ /* Polygon types which are ignored when considering if a polygon */ /* belongs to a circuit network: */ /* Closed polygons (boxes) */ /* Bounding box polygons */ /* Filled polygons */ /* Dashed and dotted line-style polygons */ /*----------------------------------------------------------------------*/ Boolean nonnetwork(polyptr cpoly) { if (!(cpoly->style & UNCLOSED)) return True; if (cpoly->style & (DASHED | DOTTED | FILLSOLID | BBOX)) return True; return False; } /*----------------------------------------------------------------------*/ /* Return the largest (most negative) net number in the global netlist */ /*----------------------------------------------------------------------*/ int globalmax() { LabellistPtr gl; int bidx, sbus; buslist *lbus; int smin = 0; for (gl = global_labels; gl != NULL; gl = gl->next) { if (!(gl->subnets)) { if (gl->net.id < smin) smin = gl->net.id; } else { for (bidx = 0; bidx < gl->subnets; bidx++) { lbus = gl->net.list + bidx; sbus = lbus->netid; if (sbus < smin) smin = sbus; } } } return smin; } /*----------------------------------------------------------------------*/ /* Return the largest net number in an object's netlist */ /*----------------------------------------------------------------------*/ int netmax(objectptr cschem) { PolylistPtr gp; LabellistPtr gl; int bidx, sbus; buslist *lbus; int smax = 0; for (gp = cschem->polygons; gp != NULL; gp = gp->next) { if (!(gp->subnets)) { if (gp->net.id > smax) smax = gp->net.id; } else { for (bidx = 0; bidx < gp->subnets; bidx++) { lbus = gp->net.list + bidx; sbus = lbus->netid; if (sbus > smax) smax = sbus; } } } for (gl = cschem->labels; gl != NULL; gl = gl->next) { if (!(gl->subnets)) { if (gl->net.id > smax) smax = gl->net.id; } else { for (bidx = 0; bidx < gl->subnets; bidx++) { lbus = gl->net.list + bidx; sbus = lbus->netid; if (sbus > smax) smax = sbus; } } } return smax; } /*----------------------------------------------------------------------*/ /* Resolve nets and pins for the indicated object */ /* */ /* When encountering object instances, call gennetlist() on the object */ /* if it does not have a valid netlist, then recursively call */ /* gennetlist(). Ignore "info" labels, which are not part of the */ /* network. */ /* */ /*----------------------------------------------------------------------*/ void gennetlist(objinstptr thisinst) { genericptr *cgen; labelptr olabel, clab; polyptr cpoly, tpoly; objectptr thisobject, callobj, cschem, pschem; objinstptr cinst, labinst; int old_parts; /* netid, tmpid, sub_bus, (jdk) */ stringpart *cstr; Boolean visited; XPoint *tpt, *tpt2, *endpt, *endpt2; int i, j, n, nextnet, lbus; buslist *sbus; PolylistPtr plist; LabellistPtr lseek; Genericlist *netlist, *tmplist, *buspins, *resolved_net, newlist; newlist.subnets = 0; newlist.net.id = -1; /* Determine the type of object being netlisted */ thisobject = thisinst->thisobject; setobjecttype(thisobject); if (thisobject->schemtype == NONETWORK) return; /* Has this object been visited before? */ visited = ((thisobject->labels != NULL) || (thisobject->polygons != NULL)) ? TRUE : FALSE; if (!visited && (thisobject->schemtype == SYMBOL) && (thisobject->symschem != NULL)) { /* Make sure that schematics are netlisted before their symbols */ if ((thisobject->symschem->polygons == NULL) && (thisobject->symschem->labels == NULL)) { n = is_page(thisobject->symschem); if (n == -1) { Fprintf(stderr, "Error: associated schematic is not a page!\n"); return; } else gennetlist(xobjs.pagelist[n]->pageinst); } /* Sanity check on symbols with schematics: Are there any pins? */ for (i = 0; i < thisobject->parts; i++) { cgen = thisobject->plist + i; if (IS_LABEL(*cgen)) { clab = TOLABEL(cgen); if (clab->pin != False && clab->pin != INFO) break; } } if (i == thisobject->parts) /* Don't warn if schematic has infolabels */ if (thisobject->symschem == NULL || thisobject->symschem->infolabels == 0) Fprintf(stderr, "Warning: Symbol %s has no pins!\n", thisobject->name); } /* If this is a secondary schematic, run on the primary (master) */ pschem = (thisobject->schemtype == SECONDARY) ? thisobject->symschem : thisobject; nextnet = netmax(pschem) + 1; /* We start the loop for schematics but will modify the loop */ /* variable to execute just once in the case of a symbol. */ /* It's just not worth the trouble to turn this into a */ /* separate subroutine. . . */ for (j = 0; j < xobjs.pages; j++) { if (pschem->schemtype != PRIMARY) { j = xobjs.pages; cinst = thisinst; cschem = thisobject; } else { cinst = xobjs.pagelist[j]->pageinst; if ((cinst == NULL) || ((cinst->thisobject != pschem) && ((cinst->thisobject->schemtype != SECONDARY) || (cinst->thisobject->symschem != pschem)))) continue; cschem = cinst->thisobject; } /* Determine the existing number of parts. We do not want to */ /* search over elements that we create in this routine. */ old_parts = cschem->parts; /* Part 1: Recursion */ /* Schematic pages and symbols acting as their own schematics are the */ /* two types on which we recurse to find all sub-schematics. */ if ((!visited) && (cschem->schemtype == PRIMARY || cschem->schemtype == SECONDARY || (cschem->schemtype == SYMBOL && cschem->symschem == NULL))) { for (i = 0; i < old_parts; i++) { cgen = cschem->plist + i; if (IS_OBJINST(*cgen)) { objinstptr geninst, callinst; geninst = TOOBJINST(cgen); if (geninst->thisobject->symschem != NULL) { callobj = geninst->thisobject->symschem; n = is_page(callobj); if (n == -1) { Fprintf(stderr, "Error: associated schematic is not a page!\n"); continue; } else callinst = xobjs.pagelist[n]->pageinst; } else { callobj = geninst->thisobject; callinst = geninst; } /* object on its own schematic */ if (callobj == pschem) continue; gennetlist(callinst); /* Also generate netlist for pins in the corresponding symbol */ if (geninst->thisobject->symschem != NULL) gennetlist(geninst); } } } /* Part 2: Match pin labels to nets, and add to list of globals */ /* if appropriate. We do all pins first, before ennumerating */ /* polygons, so that buses can be handled correctly, generating */ /* overlapping subnets. */ for (i = 0; i < old_parts; i++) { cgen = cschem->plist + i; if (IS_LABEL(*cgen)) { clab = TOLABEL(cgen); if (clab->pin != False && clab->pin != INFO) { /* Check if the label has a non-default parameter. */ /* If so, we want to record the instance along */ /* the other netlist information about the pin. */ labinst = NULL; for (cstr = clab->string; cstr != NULL; cstr = cstr->nextpart) if (cstr->type == PARAM_START) if (match_instance_param(cinst, cstr->data.string) != NULL) { labinst = cinst; break; } /* If we have netlisted this object before, and the */ /* label is already in the netlist, then ignore it. */ /* This only happens for labels without instanced */ /* parameter values. */ if (visited && (labinst == NULL)) { for (lseek = pschem->labels; lseek != NULL; lseek = lseek->next) if ((lseek->label == clab) && (lseek->cinst == NULL)) break; if (lseek != NULL) continue; } else if (visited) netlist = NULL; else /* Note any overlapping labels. */ netlist = pointtonet(cschem, cinst, &clab->position); if (pschem->symschem != NULL && pschem->schemtype == SYMBOL) { /* For symbols: Check that this pin has a */ /* corresponding pin in the schematic. The schematic */ /* is netlisted before the symbol, so the netlist */ /* should be there. */ tmplist = pintonet(pschem->symschem, cinst, clab); /* There is always the possibility that the symbol */ /* pin does not correspond to anything in the */ /* schematic. If so, it gets its own unique net */ /* number. HOWEVER, this situation usually indicates */ /* an error in the schematic, so output a warning */ /* message. */ if (tmplist == NULL) { char *snew = NULL; snew = textprint(clab->string, NULL), Fprintf(stderr, "Warning: Pin \"%s\" in symbol %s has no " "connection in schematic %s\n", snew, pschem->name, pschem->symschem->name); free(snew); newlist.net.id = nextnet++; tmplist = &newlist; } } else { /* For schematics: Relate the pin to a network */ tmplist = pintonet(pschem, cinst, clab); /* If only part of a bus has been identified, generate */ /* the net ID's of the parts that haven't been. */ if ((tmplist != NULL) && (tmplist->subnets > 0)) { for (lbus = 0; lbus < tmplist->subnets; lbus++) { sbus = tmplist->net.list + lbus; if (sbus->netid == 0) sbus->netid = nextnet++; } } } if (clab->pin == LOCAL) { if (tmplist != NULL) { addpin(cschem, labinst, clab, tmplist); if (netlist != NULL) mergenets(pschem, netlist, tmplist); } else { if (netlist == NULL) { netlist = &newlist; netlist->net.id = nextnet++; buspins = break_up_bus(clab, cinst, netlist); if (buspins != NULL) { buslist *sbus = buspins->net.list + buspins->subnets - 1; nextnet = sbus->netid + 1; netlist = addpin(cschem, labinst, clab, buspins); } else { tmplist = addpin(cschem, labinst, clab, netlist); netlist = tmplist; } } else { tmplist = addpin(cschem, labinst, clab, netlist); netlist = tmplist; } } } else if (clab->pin == GLOBAL) { if (tmplist == NULL) { tmplist = &newlist; tmplist->net.id = globalmax() - 1; } addglobalpin(cschem, cinst, clab, tmplist); addpin(cschem, labinst, clab, tmplist); if (netlist != NULL) mergenets(pschem, netlist, tmplist); } } else if (clab->pin == INFO) { /* Note the presence of info labels in the */ /* subcircuit, indicating that it needs to be */ /* called because it will generate output. */ cschem->infolabels = TRUE; } } } /* Part 3: Polygon enumeration */ /* Assign network numbers to all polygons in the object. */ /* (Ignore symbols, as we only consider pins on symbols) */ /* Where multiple pins occur at a point (bus notation), */ /* polygons will be duplicated in each network. */ if ((!visited) && (cschem->schemtype == PRIMARY || cschem->schemtype == SECONDARY || (cschem->schemtype == SYMBOL && cschem->symschem == NULL))) { for (i = 0; i < old_parts; i++) { cgen = cschem->plist + i; if (IS_POLYGON(*cgen)) { cpoly = TOPOLY(cgen); /* Ignore non-network (closed, bbox, filled) polygons */ if (nonnetwork(cpoly)) continue; resolved_net = (Genericlist *)NULL; /* Check for attachment of each segment of this polygon */ /* to position of every recorded pin label. */ for (lseek = pschem->labels; lseek != NULL; lseek = lseek->next) { if (lseek->cschem != cschem) continue; else if ((lseek->cinst != NULL) && (lseek->cinst != cinst)) continue; olabel = lseek->label; tmplist = (Genericlist *)lseek; for (endpt = cpoly->points; endpt < cpoly->points + EndPoint(cpoly->number); endpt++) { endpt2 = endpt + NextPoint(cpoly->number); if (onsegment(endpt, endpt2, &olabel->position)) { if (resolved_net != NULL) { if (mergenets(pschem, resolved_net, tmplist)) resolved_net = tmplist; } if (resolved_net == NULL) { addpoly(cschem, cpoly, tmplist); resolved_net = tmplist; } } } /* if we've encountered a unique instance, then con- */ /* tinue past all other instances using this label. */ if (lseek->cinst != NULL) while (lseek->next && (lseek->next->label == lseek->label)) lseek = lseek->next; } /* Check for attachment of each segment of this polygon */ /* to endpoints of every recorded network polygon. */ for (plist = pschem->polygons; plist != NULL; plist = plist->next) { if (plist->cschem != cschem) continue; else if ((tpoly = plist->poly) == cpoly) continue; tpt = tpoly->points; tpt2 = tpoly->points + tpoly->number - 1; tmplist = (Genericlist *)plist; for (endpt = cpoly->points; endpt < cpoly->points + EndPoint(cpoly->number); endpt++) { endpt2 = endpt + NextPoint(cpoly->number); if (onsegment(endpt, endpt2, tpt) || onsegment(endpt, endpt2, tpt2)) { /* Nets previously counted distinct have */ /* been connected together by this polygon. */ if (resolved_net != NULL) { if (mergenets(pschem, resolved_net, tmplist)) resolved_net = tmplist; } if (resolved_net == NULL) { addpoly(cschem, cpoly, tmplist); resolved_net = tmplist; } } } /* Check for attachment of the endpoints of this polygon */ /* to each segment of every recorded network polygon. */ endpt = cpoly->points; endpt2 = cpoly->points + cpoly->number - 1; for (tpt = tpoly->points; tpt < tpoly->points + EndPoint(tpoly->number); tpt++) { tpt2 = tpt + NextPoint(tpoly->number); if (onsegment(tpt, tpt2, endpt) || onsegment(tpt, tpt2, endpt2)) { /* Nets previously counted distinct have */ /* been connected together by this polygon. */ if (resolved_net != 0) { if (mergenets(pschem, resolved_net, tmplist)) resolved_net = tmplist; } if (resolved_net == 0) { addpoly(cschem, cpoly, tmplist); resolved_net = tmplist; } } } } if (resolved_net == 0) { /* This polygon belongs to an unvisited */ /* network. Give this polygon a new net */ /* number and add to the net list. */ newlist.net.id = nextnet++; addpoly(cschem, cpoly, &newlist); } } } } } } /*--------------------------------------------------------------*/ /* Search a sibling of object instance "cinst" for connections */ /* between the two. Recurse through the schematic hierarchy of */ /* the sibling object. */ /*--------------------------------------------------------------*/ void search_on_siblings(objinstptr cinst, objinstptr isib, pushlistptr schemtop, short llx, short lly, short urx, short ury) { XPoint *tmppts, sbbox[2]; int i; labelptr olabel; polyptr tpoly; PolylistPtr pseek; LabellistPtr lseek; genericptr *iseek; objinstptr subsibinst; pushlistptr psearch, newlist; objectptr sibling = isib->thisobject; tmppts = (XPoint *)malloc(sizeof(XPoint)); /* If the sibling is a symbol or fundamental or trivial object, then */ /* we just look at pin labels from the parts list and return. */ if (sibling->symschem != NULL || sibling->schemtype == FUNDAMENTAL || sibling->schemtype == TRIVIAL) { for (lseek = sibling->labels; lseek != NULL; lseek = lseek->next) { olabel = lseek->label; tmppts = (XPoint *)realloc(tmppts, sizeof(XPoint)); UTransformPoints(&(olabel->position), tmppts, 1, isib->position, isib->scale, isib->rotation); /* Transform all the way up to the level above cinst */ for (psearch = schemtop; psearch != NULL; psearch = psearch->next) { subsibinst = psearch->thisinst; UTransformPoints(tmppts, tmppts, 1, subsibinst->position, subsibinst->scale, subsibinst->rotation); } searchconnect(tmppts, 1, cinst, lseek->subnets); } } /* If the sibling is a schematic, we look at connections to pins and */ /* polygons, and recursively search subschematics of the sibling. */ else { /* Look for pins connecting to pins in the object */ for (lseek = sibling->labels; lseek != NULL; lseek = lseek->next) { olabel = lseek->label; tmppts = (XPoint *)realloc(tmppts, sizeof(XPoint)); UTransformPoints(&(olabel->position), tmppts, 1, isib->position, isib->scale, isib->rotation); /* Transform all the way up to the level above cinst */ for (psearch = schemtop; psearch != NULL; psearch = psearch->next) { subsibinst = psearch->thisinst; UTransformPoints(tmppts, tmppts, 1, subsibinst->position, subsibinst->scale, subsibinst->rotation); } searchconnect(tmppts, 1, cinst, lseek->subnets); } /* Look for polygon ends connecting into the object */ for (pseek = sibling->polygons; pseek != NULL; pseek = pseek->next) { tpoly = pseek->poly; tmppts = (XPoint *)realloc(tmppts, tpoly->number * sizeof(XPoint)); UTransformPoints(tpoly->points, tmppts, tpoly->number, isib->position, isib->scale, isib->rotation); /* Transform all the way up to the level above cinst */ for (psearch = schemtop; psearch != NULL; psearch = psearch->next) { subsibinst = psearch->thisinst; UTransformPoints(tmppts, tmppts, tpoly->number, subsibinst->position, subsibinst->scale, subsibinst->rotation); } searchconnect(tmppts, tpoly->number, cinst, pseek->subnets); } /* Recursively search all schematic children of the sibling */ for (i = 0; i < sibling->parts; i++) { iseek = sibling->plist + i; if (IS_OBJINST(*iseek)) { /* objinstptr iinst = (objinstptr)iseek; (jdk) */ /* Don't search this instance unless the bounding box */ /* overlaps the bounding box of the calling object. */ calcinstbbox(iseek, &sbbox[0].x, &sbbox[0].y, &sbbox[1].x, &sbbox[1].y); for (psearch = schemtop; psearch != NULL; psearch = psearch->next) { subsibinst = psearch->thisinst; UTransformPoints(sbbox, sbbox, 2, subsibinst->position, subsibinst->scale, subsibinst->rotation); } if ((llx > sbbox[1].x) || (urx < sbbox[0].x) || (lly > sbbox[1].y) || (ury < sbbox[0].y)) continue; subsibinst = TOOBJINST(iseek); /* push stack */ newlist = (pushlistptr)malloc(sizeof(pushlist)); newlist->thisinst = isib; newlist->next = schemtop; schemtop = newlist; search_on_siblings(cinst, subsibinst, schemtop, llx, lly, urx, ury); /* pop stack */ newlist = schemtop; schemtop = schemtop->next; free(newlist); } } } free(tmppts); } /*--------------------------------------------------------------*/ /* Generate ports from pin labels for all objects: */ /* For each pin-label in the subcircuit or symbol, generate */ /* a port in the object or instance's object. */ /* Translate the pin position to the level above and search */ /* for & link in any connecting nets. */ /* */ /* Generate calls to object instances. */ /* Pick up any other nets which might be formed by */ /* juxtaposition of object instances on different levels of the */ /* schematic hierarchy (e.g., pin-to-pin connections). */ /*--------------------------------------------------------------*/ void gencalls(objectptr thisobject) { genericptr *cgen, *iseek; Matrix locctm; objinstptr cinst, isib, callinst; objectptr callobj, callsymb, cschem, pschem; XPoint xpos; short ibllx, iblly, iburx, ibury, sbllx, sblly, sburx, sbury; int i, j, k; /* , lbus; (jdk) */ /* buslist *sbus; (jdk) */ labelptr olabel; polyptr tpoly; PolylistPtr pseek; /* CalllistPtr cseek; (jdk) */ LabellistPtr lseek; Genericlist *netfrom, *netto; /* , *othernet; (jdk) */ /* The netlist is always kept in the master schematic */ pschem = (thisobject->schemtype == SECONDARY) ? thisobject->symschem : thisobject; pschem->traversed = True; /* This object has been dealt with */ pschem->valid = True; /* This object has a valid netlist */ /* We start the loop for schematics but will modify the loop */ /* variable to execute just once in the case of a symbol. */ /* (see gennetlist(), where the same thing is done) */ for (j = 0; j < xobjs.pages; j++) { if (pschem->schemtype != PRIMARY) { j = xobjs.pages; cschem = thisobject; } else { cinst = xobjs.pagelist[j]->pageinst; if ((cinst == NULL) || ((cinst->thisobject != pschem) && ((cinst->thisobject->schemtype != SECONDARY) || (cinst->thisobject->symschem != pschem)))) continue; cschem = cinst->thisobject; } for (i = 0; i < cschem->parts; i++) { cgen = cschem->plist + i; if (IS_OBJINST(*cgen)) { callinst = TOOBJINST(cgen); /* Determine where the hierarchy continues downward */ if (callinst->thisobject->symschem != NULL) callobj = callinst->thisobject->symschem; else callobj = callinst->thisobject; /* Ignore any object on its own schematic */ if (callobj == pschem) continue; callsymb = callinst->thisobject; /* Note: callobj is the next schematic in the hierarchy. */ /* callsymb is the next visible object in the hierarchy, */ /* which may be either a schematic or a symbol. */ /*-------------------------------------------------------------*/ /* For object instances which are their own schematics (i.e., */ /* have netlist elements), don't rely on any pin list but make */ /* a survey of how polygons connect into the object. */ /*-------------------------------------------------------------*/ if (callsymb->symschem == NULL && callobj->schemtype != FUNDAMENTAL && callobj->schemtype != TRIVIAL) { /* Fprintf(stdout, "*** Analyzing connections from %s" " to instance of %s\n", cschem->name, callinst->thisobject->name); */ /* Look for pins connecting to pins in the object */ for (lseek = pschem->labels; lseek != NULL; lseek = lseek->next) { if (lseek->cschem != cschem) continue; else if ((lseek->cinst != NULL) && (lseek->cinst != callinst)) continue; olabel = lseek->label; searchconnect(&(olabel->position), 1, callinst, lseek->subnets); /* if we've encountered a unique instance, then con- */ /* tinue past all other instances using this label. */ if (lseek->cinst != NULL) while (lseek->next && (lseek->next->label == lseek->label)) lseek = lseek->next; } /* Look for polygon ends connecting into the object */ for (pseek = pschem->polygons; pseek != NULL; pseek = pseek->next) { if (pseek->cschem != cschem) continue; tpoly = pseek->poly; searchconnect(tpoly->points, tpoly->number, callinst, pseek->subnets); } /* For each call to a schematic or symbol which is NOT the */ /* one under consideration, see if it touches or overlaps */ /* the object under consideration. Search for connections */ /* between the two objects. */ calcinstbbox(cgen, &ibllx, &iblly, &iburx, &ibury); /* Only need to look forward from the current position. */ for (k = i + 1; k < cschem->parts; k++) { iseek = cschem->plist + k; if (IS_OBJINST(*iseek)) { calcinstbbox(iseek, &sbllx, &sblly, &sburx, &sbury); /* Check intersection of the two object instances; */ /* don't do a search if they are disjoint. */ if ((ibllx <= sburx) && (iburx >= sbllx) && (iblly <= sbury) && (ibury >= sblly)) { isib = TOOBJINST(iseek); search_on_siblings(callinst, isib, NULL, ibllx, iblly, iburx, ibury); } } } } /*----------------------------------------------------------*/ /* Recursively call gencalls() on the schematic. */ /*----------------------------------------------------------*/ if (callobj->traversed == False) gencalls(callobj); /*----------------------------------------------------------*/ /* Create a call to the object callsymb from object cschem */ /*----------------------------------------------------------*/ addcall(cschem, callobj, callinst); /*----------------------------------------------------------*/ /* Search again on symbol pins to generate calls to ports. */ /*----------------------------------------------------------*/ UResetCTM(&locctm); UPreMultCTM(&locctm, callinst->position, callinst->scale, callinst->rotation); for (lseek = callsymb->labels; lseek != NULL; lseek = lseek->next) { /* LabellistPtr slab; (jdk) */ /* labelptr slabel; (jdk) */ if (lseek->cschem != callsymb) continue; else if ((lseek->cinst != NULL) && (lseek->cinst != callinst)) continue; olabel = lseek->label; netto = (Genericlist *)lseek; /* Translate pin position back to object cschem */ UTransformbyCTM(&locctm, &(olabel->position), &xpos, 1); /* What net in the calling object connects to this point? */ netfrom = pointtonet(cschem, callinst, &xpos); /* If there's no net, we make one */ if (netfrom == NULL) netfrom = make_tmp_pin(cschem, callinst, &xpos, netto); /* Generate a port call for a global signal if the */ /* global label appears in the symbol (9/29/04). This */ /* is a change from previous behavior, which was to not */ /* make the call. */ if ((netto->subnets == 0) && (netto->net.id < 0)) mergenets(pschem, netfrom, netto); /* Attempt to generate a port in the object. */ addport(callobj, netto); /* Generate the call to the port */ if (addportcall(pschem, netfrom, netto) == FALSE) { // If object is "dot" then copy the bus from the // net to the dot. The dot takes on whatever // dimension the bus is. if (strstr(callobj->name, "::dot") != NULL) { copy_bus(netto, netfrom); } else { Fprintf(stderr, "Error: attempt to connect bus size " "%d in %s to bus size %d in %s\n", netfrom->subnets, cschem->name, netto->subnets, callobj->name); } } /* if we've encountered a unique instance, then continue */ /* past all other instances using this label. */ if (lseek->cinst != NULL) while (lseek->next && (lseek->next->label == lseek->label)) lseek = lseek->next; } /*----------------------------------------------------------*/ /* If after all that, no ports were called, then remove the */ /* call to this object instance. However, we should check */ /* for info labels, because the device may produce output */ /* for the netlist even if it has no declared ports. This */ /* is irrespective of the presence of pin labels---if the */ /* symbol is "trivial", the netlist connections are */ /* resolved in the level of the hierarchy above, and there */ /* may be no ports, but the call list must retain the call */ /* to ensure that the netlist output is generated. */ /*----------------------------------------------------------*/ if (pschem->calls->ports == NULL) if (pschem->infolabels == FALSE) removecall(pschem, pschem->calls); /* Remove the call */ } } } } /*----------------------------------------------------------------------*/ /* Translate a net number down in the calling hierarchy */ /*----------------------------------------------------------------------*/ int translatedown(int rnet, int portid, objectptr nextobj) { PortlistPtr nport; int downnet = 0; for (nport = nextobj->ports; nport != NULL; nport = nport->next) { if (nport->portid == portid) { downnet = nport->netid; break; } } return downnet; } /*----------------------------------------------------------------------*/ /* Translate a netlist up in the calling hierarchy */ /* */ /* This routine creates a new netlist header which needs to be freed */ /* by the calling routine. */ /* */ /* Note that if the entire netlist cannot be translated up, then the */ /* routine returns NULL. This could be modified to return the part of */ /* the network that can be translated up. */ /*----------------------------------------------------------------------*/ Genericlist *translateup(Genericlist *rlist, objectptr thisobj, objectptr nextobj, objinstptr nextinst) { PortlistPtr nport; CalllistPtr ccall; int portid = 0; int upnet = 0; int rnet, lbus; buslist *sbus; Genericlist *tmplist; tmplist = (Genericlist *)malloc(sizeof(Genericlist)); tmplist->subnets = 0; tmplist->net.id = 0; copy_bus(tmplist, rlist); for (lbus = 0;; ) { if (rlist->subnets == 0) rnet = rlist->net.id; else { sbus = rlist->net.list + lbus; rnet = sbus->netid; } for (nport = nextobj->ports; nport != NULL; nport = nport->next) { if (nport->netid == rnet) { portid = nport->portid; break; } } upnet = 0; for (ccall = thisobj->calls; ccall != NULL; ccall = ccall->next) { if (ccall->callinst == nextinst) { for (nport = ccall->ports; nport != NULL; nport = nport->next) { if (nport->portid == portid) { upnet = nport->netid; break; } } if (nport != NULL) break; } } if (upnet == 0) { freegenlist(tmplist); return NULL; } else { if (tmplist->subnets == 0) { tmplist->net.id = upnet; } else { sbus = tmplist->net.list + lbus; sbus->netid = upnet; sbus->subnetid = getsubnet(upnet, thisobj); } } if (++lbus >= rlist->subnets) break; } return tmplist; } /*----------------------------------------------------------------------*/ /* Check whether the indicated polygon is already resolved into the */ /* netlist of the object hierarchy described by seltop. */ /* Return the netlist if resolved, NULL otherwise. The netlist */ /* returned is referred (translated) upward through the calling */ /* hierarchy to the topmost object containing that net or those nets. */ /* This topmost object is returned in parameter topobj. */ /* Note that the netlist returned does not necessarily correspond to */ /* any object in the top level. It is allocated and must be freed by */ /* the calling routine. */ /*----------------------------------------------------------------------*/ Genericlist *is_resolved(genericptr *rgen, pushlistptr seltop, objectptr *topobj) { objectptr thisobj = seltop->thisinst->thisobject; objectptr pschem; PolylistPtr pseek; LabellistPtr lseek; Genericlist *rlist = NULL, *newlist; pschem = (thisobj->schemtype == SECONDARY) ? thisobj->symschem : thisobj; /* Recursively call self, since we have to back out from the bottom of */ /* the stack. */ if (seltop->next != NULL) { rlist = is_resolved(rgen, seltop->next, topobj); /* Translate network ID up the hierarchy to the topmost object in which */ /* the network exists. */ if (rlist != NULL) { newlist = translateup(rlist, pschem, seltop->next->thisinst->thisobject, seltop->next->thisinst); if (newlist == NULL) /* Net does not exist upwards of this object. Pass net ID */ /* upward with "topobj" unchanged. */ return rlist; else { freegenlist(rlist); rlist = newlist; } } } else { /* Find the net ID for the listed object, which should be in the object */ /* on the bottom of the pushlist stack. */ if (IS_POLYGON(*rgen)) { for (pseek = pschem->polygons; pseek != NULL; pseek = pseek->next) { if (pseek->poly == TOPOLY(rgen)) { rlist = (Genericlist *)pseek; break; } } } else if (IS_LABEL(*rgen)) { for (lseek = pschem->labels; lseek != NULL; lseek = lseek->next) { if (lseek->label == TOLABEL(rgen)) { rlist = (Genericlist *)lseek; break; } } } if (rlist != NULL) { /* Make a copy of the netlist header from this element */ newlist = (Genericlist *)malloc(sizeof(Genericlist)); newlist->subnets = 0; copy_bus(newlist, rlist); rlist = newlist; } } /* done: (jdk) */ *topobj = (rlist == NULL) ? NULL : seltop->thisinst->thisobject; return rlist; } /*--------------------------------------------------------------*/ /* Highlight all the polygons and pin labels in a network */ /* (recursively, downward). Pin labels are drawn only on the */ /* topmost schematic object. */ /* Returns true if some part of the hierarchy declared a net to */ /* be highlighted. */ /* mode = 1 highlight, mode = 0 erase */ /*--------------------------------------------------------------*/ Boolean highlightnet(objectptr cschem, objinstptr cinst, int netid, u_char mode) { CalllistPtr calls; PortlistPtr ports; PolylistPtr plist; LabellistPtr llist; polyptr cpoly; labelptr clabel; objinstptr ccinst; int netto, locnetid, lbus; int curcolor = AUXCOLOR; Boolean rval = FALSE; objectptr pschem; SetForeground(dpy, areawin->gc, curcolor); pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; for (plist = pschem->polygons; plist != NULL; plist = plist->next) { if (plist->cschem != cschem) continue; cpoly = plist->poly; for (lbus = 0;;) { if (plist->subnets == 0) locnetid = plist->net.id; else locnetid = (plist->net.list + lbus)->netid; if (locnetid == netid) { /* Fprintf(stdout, " >> Found polygon belonging to net %d at (%d, %d)\n", locnetid, cpoly->points[0].x, cpoly->points[0].y); */ if (mode == 0 && cpoly->color != curcolor) { curcolor = cpoly->color; XTopSetForeground(curcolor); } UDrawPolygon(cpoly, xobjs.pagelist[areawin->page]->wirewidth); break; } if (++lbus >= plist->subnets) break; } } /* Highlight labels if they belong to the top-level object */ if (cschem == topobject) { for (llist = pschem->labels; llist != NULL; llist = llist->next) { if (llist->cschem != cschem) continue; else if ((llist->cinst != NULL) && (llist->cinst != cinst)) continue; clabel = llist->label; for (lbus = 0;;) { if (llist->subnets == 0) locnetid = llist->net.id; else locnetid = (llist->net.list + lbus)->netid; if (locnetid == netid) { if (clabel->string->type == FONT_NAME) { /* don't draw temp labels */ if ((mode == 0) && (clabel->color != curcolor)) { curcolor = clabel->color; UDrawString(clabel, curcolor, cinst); } else UDrawString(clabel, DOFORALL, cinst); /* Fprintf(stdout, " >> Found label belonging to net " "%d at (%d, %d)\n", locnetid, clabel->position.x, clabel->position.y); */ } break; } if (++lbus >= llist->subnets) break; } /* if we've encountered a unique instance, then continue */ /* past all other instances using this label. */ if (llist->cinst != NULL) while (llist->next && (llist->next->label == llist->label)) llist = llist->next; } /* Highlight all pins connecting this net to symbols */ } /* Connectivity recursion */ for (calls = pschem->calls; calls != NULL; calls = calls->next) { if (calls->cschem != cschem) continue; for (ports = calls->ports; ports != NULL; ports = ports->next) { if (ports->netid == netid) { ccinst = calls->callinst; /* Recurse only on objects for which network polygons are visible */ /* from the calling object: i.e., non-trivial, non-fundamental */ /* objects acting as their own schematics. */ UPushCTM(); UPreMultCTM(DCTM, ccinst->position, ccinst->scale, ccinst->rotation); if (ccinst->thisobject->symschem == NULL && ccinst->thisobject->schemtype != FUNDAMENTAL && ccinst->thisobject->schemtype != TRIVIAL) { netto = translatedown(netid, ports->portid, calls->callobj); /* Fprintf(stdout, " > Calling object %s at (%d, %d)\n", calls->callobj->name, ccinst->position.x, ccinst->position.y); */ /* Fprintf(stdout, " > Net translation from %d to %d (port %d)\n", netid, netto, ports->portid); */ if (highlightnet(calls->callobj, calls->callinst, netto, mode)) rval = TRUE; } else { /* Otherwise (symbols, fundamental, trivial, etc., objects), we */ /* highlight the pin position of the port. */ if ((clabel = PortToLabel(ccinst, ports->portid))) UDrawXDown(clabel); } UPopCTM(); } } } return rval; } /*----------------------------------------------------------------------*/ /* Highlight whatever nets are listed in the current object instance, */ /* if any. */ /*----------------------------------------------------------------------*/ void highlightnetlist(objectptr nettop, objinstptr cinst, u_char mode) { int lbus, netid; buslist *sbus; Genericlist *netlist = cinst->thisobject->highlight.netlist; objinstptr nextinst = cinst->thisobject->highlight.thisinst; if (netlist == NULL) return; for (lbus = 0;; ) { if (netlist->subnets == 0) netid = netlist->net.id; else { sbus = netlist->net.list + lbus; netid = sbus->netid; } highlightnet(nettop, nextinst, netid, mode); if (++lbus >= netlist->subnets) break; } /* If we are erasing, remove the netlist entry from the object */ if (mode == (u_char)0) { freegenlist(netlist); cinst->thisobject->highlight.netlist = NULL; cinst->thisobject->highlight.thisinst = NULL; } } /*----------------------------------------------------------------------*/ /* Push the matrix stack for each object (instance) until the indicated */ /* object is reached. This works similarly to highlightnet() above, */ /* but makes calls according to the hierarchy described by the */ /* pushlistptr parameter. */ /* Returns the number of stack objects to pop after we're done. */ /*----------------------------------------------------------------------*/ int pushnetwork(pushlistptr seltop, objectptr nettop) { pushlistptr cursel = seltop; objinstptr sinst; int rno = 0; while ((cursel->thisinst->thisobject != nettop) && (cursel->next != NULL)) { cursel = cursel->next; sinst = cursel->thisinst; UPushCTM(); UPreMultCTM(DCTM, sinst->position, sinst->scale, sinst->rotation); rno++; } if (cursel->thisinst->thisobject != nettop) { Fprintf(stderr, "Error: object does not exist in calling stack!\n"); rno = 0; } return rno; } /*----------------------------------------------------------------------*/ /* Determine if two netlists match. If "mode" is MATCH_EXACT, the */ /* net numbers and subnet numbers must all be the same. If */ /* MATCH_SUBNETS, then the subnet numbers must be the same. If */ /* MATCH_SIZE, then they need only have the same number of subnets. */ /*----------------------------------------------------------------------*/ Boolean match_buses(Genericlist *list1, Genericlist *list2, int mode) { int i; buslist *bus1, *bus2; if (list1->subnets != list2->subnets) { // A wire (no subnets) matches a bus of 1 subnet. All others // are non-matching. if (list1->subnets != 0 && list2->subnets != 0) return FALSE; else if (list1->subnets != 1 && list2->subnets != 1) return FALSE; } if (mode == MATCH_SIZE) return TRUE; if (list1->subnets == 0) { if (mode == MATCH_SUBNETS) return TRUE; if (list2->subnets != 0) { bus2 = list2->net.list + 0; if (list1->net.id != bus2->netid) return FALSE; } else if (list1->net.id != list2->net.id) return FALSE; } else if (list2->subnets == 0) { if (mode == MATCH_SUBNETS) return TRUE; bus1 = list1->net.list + 0; if (bus1->netid != list2->net.id) return FALSE; } else { for (i = 0; i < list1->subnets; i++) { bus1 = list1->net.list + i; bus2 = list2->net.list + i; /* A subnetid of < 0 indicates an unassigned bus */ if ((bus1->subnetid != -1) && (bus1->subnetid != bus2->subnetid)) return FALSE; } if (mode == MATCH_SUBNETS) return TRUE; for (i = 0; i < list1->subnets; i++) { bus1 = list1->net.list + i; bus2 = list2->net.list + i; if (bus1->netid != bus2->netid) return FALSE; } } return TRUE; } /*----------------------------------------------------------------------*/ /* Copy the netlist structure from one netlist element to another */ /*----------------------------------------------------------------------*/ void copy_bus(Genericlist *dest, Genericlist *source) { buslist *sbus, *dbus; int i; if (dest->subnets > 0) free(dest->net.list); dest->subnets = source->subnets; if (source->subnets == 0) dest->net.id = source->net.id; else { dest->net.list = (buslist *)malloc(dest->subnets * sizeof(buslist)); for (i = 0; i < dest->subnets; i++) { sbus = source->net.list + i; dbus = dest->net.list + i; dbus->netid = sbus->netid; dbus->subnetid = sbus->subnetid; } } } /*------------------------------------------------------*/ /* Create a new "temporary" label object for a pin */ /* This type of label is never drawn, so it doesn't */ /* need font info. It is identified as "temporary" by */ /* this lack of a leading font record. */ /*------------------------------------------------------*/ Genericlist *new_tmp_pin(objectptr cschem, XPoint *pinpt, char *pinstring, char *prefix, Genericlist *netlist) { labelptr *newlabel; stringpart *strptr; if (pinpt == NULL) { Fprintf(stderr, "NULL label location!\n"); return NULL; } NEW_LABEL(newlabel, cschem); labeldefaults(*newlabel, LOCAL, pinpt->x, pinpt->y); (*newlabel)->anchor = 0; (*newlabel)->color = DEFAULTCOLOR; strptr = (*newlabel)->string; strptr->type = TEXT_STRING; if (pinstring != NULL) { strptr->data.string = (char *)malloc(strlen(pinstring)); strcpy(strptr->data.string, pinstring); } else { strptr->data.string = textprintnet(prefix, NULL, netlist); } /* Add label to object's netlist and return a pointer to the */ /* netlist entry. */ return (addpin(cschem, NULL, *newlabel, netlist)); } /*------------------------------------------------------*/ /* Create a label for use in the list of global nets. */ /* This label is like a temporary label (new_tmp_pin) */ /* except that it is not represented in any object. */ /* The string contains the verbatim contents of any */ /* parameter substitutions in the original label. */ /*------------------------------------------------------*/ labelptr new_global_pin(labelptr clabel, objinstptr cinst) { labelptr newlabel; newlabel = (labelptr) malloc(sizeof(label)); newlabel->type = LABEL; labeldefaults(newlabel, GLOBAL, 0, 0); newlabel->anchor = 0; newlabel->color = DEFAULTCOLOR; free(newlabel->string); newlabel->string = stringcopyall(clabel->string, cinst); /* Add label to the global netlist and return a pointer to */ /* the netlist entry. */ return newlabel; } /*----------------------------------------------------------------------*/ /* Create a temporary I/O pin (becomes part of netlist and also part of */ /* the object itself). */ /*----------------------------------------------------------------------*/ Genericlist *make_tmp_pin(objectptr cschem, objinstptr cinst, XPoint *pinpt, Genericlist *sublist) { LabellistPtr lseek; objectptr pschem; char *pinstring = NULL; /* buslist *sbus; (jdk) */ /* int lbus; (jdk) */ Genericlist *netlist, *tmplist, newlist; newlist.subnets = 0; newlist.net.id = 0; /* Primary schematic (contains the netlist) */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; /* Determine a netlist for this pin */ netlist = pointtonet(cschem, cinst, pinpt); if (netlist == NULL) { newlist.net.id = netmax(pschem) + 1; netlist = &newlist; } /* If there is any other pin at this location, don't make another */ /* one. If there is already a temporary pin associated with the */ /* net, use its name. */ else { for (lseek = pschem->labels; lseek != NULL; lseek = lseek->next) { if (lseek->cschem != cschem) continue; else if ((lseek->cinst != NULL) && (lseek->cinst != cinst)) continue; tmplist = (Genericlist *)lseek; if (match_buses(netlist, tmplist, MATCH_EXACT)) { if (proximity(&(lseek->label->position), pinpt)) return (Genericlist *)lseek; else if (lseek->label->string->type == TEXT_STRING) pinstring = lseek->label->string->data.string; } /* if we've encountered a unique instance, then continue past */ /* all other instances using this label. */ if (lseek->cinst != NULL) while (lseek->next && (lseek->next->label == lseek->label)) lseek = lseek->next; } } return (new_tmp_pin(cschem, pinpt, pinstring, "ext", netlist)); } /*--------------------------------------------------------------*/ /* Search for connections into a non-symbol subcircuit, based */ /* on various combinations of polygon and pin label overlaps. */ /*--------------------------------------------------------------*/ int searchconnect(XPoint *points, int number, objinstptr cinst, int subnets) { XPoint *tmppts, *tpt, *tpt2, *endpt, *endpt2, *pinpt, opinpt; objinstptr tinst; genericptr *cgen; polyptr tpoly; labelptr tlab; objectptr tobj, cobj = cinst->thisobject; LabellistPtr tseek; PolylistPtr pseek; int i; /* , lbus, sub_bus; (jdk) */ int found = 0; /* Generate temporary polygon in the coordinate system of */ /* the object instance in question */ tmppts = (XPoint *)malloc(number * sizeof(XPoint)); InvTransformPoints(points, tmppts, number, cinst->position, cinst->scale, cinst->rotation); /* Fprintf(stdout, "Info: translated polygon w.r.t. object %s\n", */ /* cinst->thisobject->name); */ /* Recursion on all appropriate sub-schematics. */ /* (Use parts list, not call list, as call list may not have created yet) */ for (i = 0; i < cobj->parts; i++) { cgen = cobj->plist + i; if (IS_OBJINST(*cgen)) { tinst = TOOBJINST(cgen); if (tinst->thisobject->symschem == NULL) { tobj = tinst->thisobject; if (tobj->schemtype != FUNDAMENTAL && tobj->schemtype != TRIVIAL) found += searchconnect(tmppts, number, tinst, subnets); } } } for (endpt = tmppts; endpt < tmppts + EndPoint(number); endpt++) { endpt2 = endpt + NextPoint(number); for (i = 0; i < cobj->parts; i++) { cgen = cobj->plist + i; if (!IS_OBJINST(*cgen)) continue; tinst = TOOBJINST(cgen); /* Look at the object only (symbol, or schematic if it has no symbol) */ tobj = tinst->thisobject; /* Search for connections to pin labels */ for (tseek = tobj->labels; tseek != NULL; tseek = tseek->next) { tlab = tseek->label; UTransformPoints(&(tlab->position), &opinpt, 1, tinst->position, tinst->scale, tinst->rotation); if (onsegment(endpt2, endpt, &opinpt)) { /* Fprintf(stdout, "%s connects to pin %s of %s in %s\n", */ /* ((number > 1) ? "Polygon" : "Pin"), */ /* tlab->string + 2, tinst->thisobject->name, */ /* cinst->thisobject->name); */ make_tmp_pin(cobj, cinst, &opinpt, (Genericlist *)tseek); found += (tseek->subnets == 0) ? 1 : tseek->subnets; break; } } } for (pseek = cobj->polygons; pseek != NULL; pseek = pseek->next) { tpoly = pseek->poly; /* Search for connections from segments passed to this */ /* function to endpoints of polygons in the netlist. */ pinpt = NULL; tpt = tpoly->points; tpt2 = tpoly->points + tpoly->number - 1; if (onsegment(endpt2, endpt, tpt)) pinpt = tpt; if (onsegment(endpt2, endpt, tpt2)) pinpt = tpt2; /* Create new pinlabel (only if there is not one already there) */ if (pinpt != NULL) { make_tmp_pin(cobj, cinst, pinpt, (Genericlist *)pseek); found += (pseek->subnets == 0) ? 1 : pseek->subnets; } } } endpt = tmppts; endpt2 = tmppts + EndPoint(number) - 1; /* Search for connections from endpoints passed to this */ /* function to segments of polygons in the netlist. */ for (pseek = cobj->polygons; pseek != NULL; pseek = pseek->next) { tpoly = pseek->poly; for (tpt = tpoly->points; tpt < tpoly->points + EndPoint(tpoly->number); tpt++) { tpt2 = tpt + NextPoint(tpoly->number); pinpt = NULL; if (onsegment(tpt2, tpt, endpt)) pinpt = endpt; if (onsegment(tpt2, tpt, endpt2)) pinpt = endpt2; /* Create new pinlabel (only if there is not one already there) */ if (pinpt != NULL) { make_tmp_pin(cobj, cinst, pinpt, (Genericlist *)pseek); found += (pseek->subnets == 0) ? 1 : pseek->subnets; } } } free(tmppts); return(found); } /*----------------------------------------------------------------------*/ /* Associate polygon with given netlist and add to the object's list */ /* of network polygons (i.e., wires). */ /*----------------------------------------------------------------------*/ Genericlist *addpoly(objectptr cschem, polyptr poly, Genericlist *netlist) { PolylistPtr newpoly; objectptr pschem; /* buslist *sbus; (jdk) */ /* int lbus, sub_bus; (jdk) */ /* Netlist is in the master schematic */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; /* If this polygon is already in the list, then add an extra subnet */ /* if necessary. */ for (newpoly = pschem->polygons; newpoly != NULL; newpoly = newpoly->next) { if (newpoly->poly == poly) { if (!match_buses((Genericlist *)newpoly, netlist, MATCH_EXACT)) { Fprintf(stderr, "addpoly: Error in bus assignment\n"); return NULL; } return (Genericlist *)newpoly; } } /* Create a new entry and link to polygon list of this object */ newpoly = (PolylistPtr) malloc(sizeof(Polylist)); newpoly->cschem = cschem; newpoly->poly = poly; newpoly->subnets = 0; copy_bus((Genericlist *)newpoly, netlist); newpoly->next = pschem->polygons; pschem->polygons = newpoly; return (Genericlist *)newpoly; } /*-------------------------------------------------------------------------*/ long zsign(long a, long b) { if (a > b) return 1; else if (a < b) return -1; else return 0; } /*----------------------------------------------------------------------*/ /* Promote a single net to a bus. The bus size will be equal to the */ /* value "subnets". */ /*----------------------------------------------------------------------*/ void promote_net(objectptr cschem, Genericlist *netfrom, int subnets) { Genericlist *netref = NULL; CalllistPtr calls; PortlistPtr ports; PolylistPtr plist; LabellistPtr llist; int netid, firstid, lbus; /* curid, (jdk) */ buslist *sbus; Boolean foundlabel; /* If no promotion is required, don't do anything */ if (netfrom->subnets == subnets) return; /* It "netfrom" is already a bus, but of different size than */ /* subnets, then it cannot be changed. */ if (netfrom->subnets != 0) { Fprintf(stderr, "Attempt to change the size of a bus!\n"); return; } netid = netfrom->net.id; /* If "subnets" is 1, then "netfrom" can be promoted regardless. */ /* Otherwise, if the "netfrom" net is used in any calls, then it */ /* cannot be promoted. */ if (subnets > 1) { for (calls = cschem->calls; calls != NULL; calls = calls->next) for (ports = calls->ports; ports != NULL; ports = ports->next) if (ports->netid == netid) { Fprintf(stderr, "Cannot promote net to bus: Net already connected" " to single-wire port\n"); return; } firstid = netmax(cschem) + 1; } for (plist = cschem->polygons; plist != NULL; plist = plist->next) if ((plist->subnets == 0) && (plist->net.id == netid)) { plist->subnets = subnets; plist->net.list = (buslist *)malloc(subnets * sizeof(buslist)); for (lbus = 0; lbus < subnets; lbus++) { sbus = plist->net.list + lbus; sbus->netid = (lbus == 0) ? netid : firstid + lbus; sbus->subnetid = lbus; /* By default, number from zero */ } netref = (Genericlist *)plist; } /* It's possible for a label without bus notation to be attached */ /* to this net. */ foundlabel = FALSE; for (llist = cschem->labels; llist != NULL; llist = llist->next) if ((llist->subnets == 0) && (llist->net.id == netid)) { llist->subnets = subnets; llist->net.list = (buslist *)malloc(subnets * sizeof(buslist)); for (lbus = 0; lbus < subnets; lbus++) { sbus = llist->net.list + lbus; sbus->netid = (lbus == 0) ? netid : firstid + lbus; sbus->subnetid = lbus; /* By default, number from zero */ } netref = (Genericlist *)llist; foundlabel = TRUE; } /* We need to create a temp label associated with this net to */ /* encompass the promoted bus size. If this bus is later attached */ /* to a known bus, that bus name will be canonical. If no bus name */ /* is ever assigned to the bus, this temp one will be used. */ if (!foundlabel) { XPoint *pinpos; pinpos = NetToPosition(netid, cschem); new_tmp_pin(cschem, pinpos, NULL, "int", netref); } } /*----------------------------------------------------------------------*/ /* Change any part of the netlist "testlist" that matches the net IDs */ /* of "orignet" to the net IDs of "newnet". It is assumed that the */ /* lengths and sub-bus numbers of "orignet" and "newnet" match. */ /*----------------------------------------------------------------------*/ Boolean mergenetlist(objectptr cschem, Genericlist *testlist, Genericlist *orignet, Genericlist *newnet) { int obus, onetid, osub, nsub, nnetid, tbus; buslist *sbus; Boolean rval = FALSE; for (obus = 0;;) { if (orignet->subnets == 0) { onetid = orignet->net.id; osub = -1; } else { sbus = orignet->net.list + obus; onetid = sbus->netid; osub = sbus->subnetid; } if (newnet->subnets == 0) { nnetid = newnet->net.id; nsub = -1; } else { sbus = newnet->net.list + obus; nnetid = sbus->netid; nsub = sbus->subnetid; } if (testlist->subnets == 0) { if (testlist->net.id == onetid) { rval = TRUE; if (orignet->subnets == 0) { testlist->net.id = nnetid; return TRUE; } else { /* Promote testlist to a bus subnet of size 1 */ testlist->subnets = 1; testlist->net.list = (buslist *)malloc(sizeof(buslist)); sbus = testlist->net.list; sbus->netid = nnetid; sbus->subnetid = nsub; return rval; } } } for (tbus = 0; tbus < testlist->subnets; tbus++) { /* If the sub-bus numbers match, then change the net */ /* ID to the new net number. If the sub-bus is */ /* unnamed (has no associated bus-notation label), */ /* then it can take on the net and subnet numbers. */ sbus = testlist->net.list + tbus; if (sbus->netid == onetid) { if (sbus->subnetid == osub) { sbus->netid = nnetid; sbus->subnetid = nsub; rval = TRUE; } else { labelptr blab = NetToLabel(nnetid, cschem); if (blab == NULL) { Fprintf(stderr, "Warning: isolated subnet?\n"); sbus->netid = nnetid; /* Keep subnetid---but, does newnet need to be promoted? */ return TRUE; } else if (blab->string->type != FONT_NAME) { sbus->netid = nnetid; sbus->subnetid = nsub; rval = TRUE; Fprintf(stderr, "Warning: Unexpected subnet value in mergenetlist!\n"); } } } } if (++obus >= orignet->subnets) break; } return rval; } /*----------------------------------------------------------------------*/ /* Combine two networks in an object's linked-list Netlist */ /* Parameters: cschem - pointer to object containing netlist */ /* orignet - original netlist to be changed */ /* newnet - new netlist to be changed to */ /* */ /* Attempts to merge different subnets in a bus are thwarted. */ /*----------------------------------------------------------------------*/ Boolean netmerge(objectptr cschem, Genericlist *orignet, Genericlist *newnet) { PolylistPtr plist; LabellistPtr llist; CalllistPtr calls; PortlistPtr ports; Genericlist savenet; int i, net; buslist *obus, *nbus; Boolean rval; /* Trivial case; do nothing */ if (match_buses(orignet, newnet, MATCH_EXACT)) return TRUE; /* Disallow an attempt to convert a global net to a local net: */ /* The global net ID always dominates! */ if ((orignet->subnets == 0) && (newnet->subnets == 0) && (orignet->net.id < 0) && (newnet->net.id > 0)) { int globnet = orignet->net.id; orignet->net.id = newnet->net.id; newnet->net.id = globnet; } /* Check that the lists of changes are compatible. It appears to be */ /* okay to have non-matching buses (although they should not be */ /* merged), as this is a valid style in which buses do not have taps */ /* but the sub-buses are explicitly called out with labels. In such */ /* case, the polygons of different sub-buses touch, and this routine */ /* rejects them as being incompatible. */ if (!match_buses(orignet, newnet, MATCH_SUBNETS)) { if (match_buses(orignet, newnet, MATCH_SIZE)) { labelptr nlab; /* If only the subnet numbers don't match up, check if */ /* "orignet" has a temp label. */ nbus = orignet->net.list; if ((nlab = NetToLabel(nbus->netid, cschem)) != NULL) { if (nlab->string->type != FONT_NAME) goto can_merge; } } else Fprintf(stderr, "netmerge warning: non-matching bus subnets touching.\n"); return FALSE; } can_merge: /* If orignet is a bus size 1 and newnet is a wire, then promote */ /* newnet to a bus size 1. */ if (orignet->subnets == 1 && newnet->subnets == 0) { net = newnet->net.id; newnet->subnets = 1; newnet->net.list = (buslist *)malloc(sizeof(buslist)); obus = orignet->net.list; nbus = newnet->net.list; nbus->subnetid = obus->subnetid; nbus->netid = net; } /* Make a copy of the net so we don't overwrite it */ savenet.subnets = 0; copy_bus(&savenet, orignet); rval = FALSE; for (plist = cschem->polygons; plist != NULL; plist = plist->next) if (mergenetlist(cschem, (Genericlist *)plist, &savenet, newnet)) rval = TRUE; for (llist = cschem->labels; llist != NULL; llist = llist->next) if (mergenetlist(cschem, (Genericlist *)llist, &savenet, newnet)) { int pinnet; char *newtext; rval = TRUE; /* Because nets that have been merged away may be re-used later, */ /* change the name of any temporary labels to the new net number */ if (llist->label->string->type != FONT_NAME) { newtext = llist->label->string->data.string; if (sscanf(newtext + 3, "%d", &pinnet) == 1) { if (pinnet == savenet.net.id) { *(newtext + 3) = '\0'; llist->label->string->data.string = textprintnet(newtext, NULL, newnet); free(newtext); } } } } if (rval) { /* Reflect the net change in the object's call list, if it has one. */ for (calls = cschem->calls; calls != NULL; calls = calls->next) { for (ports = calls->ports; ports != NULL; ports = ports->next) { if (newnet->subnets == 0) { if (ports->netid == savenet.net.id) ports->netid = newnet->net.id; } else { for (i = 0; i < newnet->subnets; i++) { obus = savenet.net.list + i; nbus = newnet->net.list + i; if (ports->netid == obus->netid) ports->netid = nbus->netid; } } } } } /* Free the copy of the bus that we made, if we made one */ if (savenet.subnets > 0) free(savenet.net.list); return rval; } /*----------------------------------------------------------------------*/ /* Wrapper to netmerge() to make sure change is made both to the symbol */ /* and schematic, if both exist. */ /*----------------------------------------------------------------------*/ Boolean mergenets(objectptr cschem, Genericlist *orignet, Genericlist *newnet) { Boolean merged; if (cschem->symschem != NULL) merged = netmerge(cschem->symschem, orignet, newnet); if (netmerge(cschem, orignet, newnet)) merged = TRUE; return merged; } /*----------------------------------------------------------------------*/ /* Remove a call to an object instance from the call list of cschem */ /*----------------------------------------------------------------------*/ void removecall(objectptr cschem, CalllistPtr dontcallme) { CalllistPtr lastcall, seeklist; PortlistPtr ports, savelist; /* find the instance call before this one and link it to the one following */ lastcall = NULL; for (seeklist = cschem->calls; seeklist != NULL; seeklist = seeklist->next) { if (seeklist == dontcallme) break; lastcall = seeklist; } if (seeklist == NULL) { Fprintf(stderr, "Error in removecall(): Call does not exist!\n"); return; } if (lastcall == NULL) cschem->calls = dontcallme->next; else lastcall->next = dontcallme->next; ports = dontcallme->ports; while (ports != NULL) { savelist = ports; ports = ports->next; free (savelist); } free(dontcallme); } /*----------------------------------------------------------------------*/ /* Add a pin label to the netlist */ /* If cschem == NULL, add the pin to the list of global pins. */ /* The new label entry in the netlist gets a copy of the netlist */ /* "netlist". */ /*----------------------------------------------------------------------*/ Genericlist *addpin(objectptr cschem, objinstptr cinst, labelptr pin, Genericlist *netlist) { LabellistPtr srchlab, newlabel, lastlabel = NULL; objectptr pschem; /* buslist *sbus; (jdk) */ /* int lbus, sub_bus; (jdk) */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; for (srchlab = pschem->labels; srchlab != NULL; srchlab = srchlab->next) { if (srchlab->label == pin) { if (!match_buses(netlist, (Genericlist *)srchlab, MATCH_EXACT)) { if (srchlab->cinst == cinst) { Fprintf(stderr, "addpin: Error in bus assignment\n"); return NULL; } } else if (srchlab->cinst == NULL) return (Genericlist *)srchlab; break; /* Stop at the first record for this label */ } lastlabel = srchlab; } /* Create a new entry and link to label list of the object */ newlabel = (LabellistPtr) malloc(sizeof(Labellist)); newlabel->cschem = cschem; newlabel->cinst = cinst; newlabel->label = pin; newlabel->subnets = 0; copy_bus((Genericlist *)newlabel, netlist); /* Always put the specific (instanced) cases in front of */ /* generic cases for the same label. */ /* Generic case---make it the last record for this label */ if ((cinst == NULL) && (lastlabel != NULL)) { while ((srchlab != NULL) && (srchlab->label == pin)) { lastlabel = srchlab; srchlab = srchlab->next; } } if (lastlabel != NULL) { newlabel->next = srchlab; lastlabel->next = newlabel; } else { newlabel->next = pschem->labels; pschem->labels = newlabel; } return (Genericlist *)newlabel; } /*----------------------------------------------------------------------*/ /* Add a pin label to the list of global net names. */ /* The new label entry in the netlist gets a copy of the netlist */ /* "netlist" and a copy of label "pin" containing the *instance* value */ /* of the text. */ /*----------------------------------------------------------------------*/ Genericlist *addglobalpin(objectptr cschem, objinstptr cinst, labelptr pin, Genericlist *netlist) { LabellistPtr srchlab, newlabel, lastlabel = NULL; if (cinst == NULL) { Fprintf(stderr, "Error: Global pin does not have an associated instance!\n"); return NULL; } for (srchlab = global_labels; srchlab != NULL; srchlab = srchlab->next) { if (srchlab->label == pin) { if (!match_buses(netlist, (Genericlist *)srchlab, MATCH_EXACT)) { if (srchlab->cinst == cinst) { Fprintf(stderr, "addglobalpin: Error in bus assignment\n"); return NULL; } } else if (srchlab->cinst == NULL) return (Genericlist *)srchlab; break; /* Stop at the first record for this label */ } lastlabel = srchlab; } /* Create a new entry and link to label list of the object */ newlabel = (LabellistPtr) malloc(sizeof(Labellist)); newlabel->cschem = cschem; newlabel->cinst = cinst; newlabel->label = new_global_pin(pin, cinst); newlabel->subnets = 0; copy_bus((Genericlist *)newlabel, netlist); if (lastlabel != NULL) { newlabel->next = srchlab; lastlabel->next = newlabel; } else { newlabel->next = global_labels; global_labels = newlabel; } return (Genericlist *)newlabel; } /*----------------------------------------------------------------------*/ /* Allocate memory for the new call list element */ /* Define the values for the new call list element */ /* Insert new call into call list */ /* The new call is at the beginning of the list. */ /*----------------------------------------------------------------------*/ void addcall(objectptr cschem, objectptr callobj, objinstptr callinst) { CalllistPtr newcall; objectptr pschem; /* Netlist is on the master schematic */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; newcall = (CalllistPtr) malloc(sizeof(Calllist)); newcall->cschem = cschem; newcall->callobj = callobj; newcall->callinst = callinst; newcall->devindex = -1; newcall->devname = NULL; newcall->ports = NULL; newcall->next = pschem->calls; pschem->calls = newcall; } /*----------------------------------------------------------------------*/ /* Add a port to the object cschem which connects net "netto" to */ /* the calling object. One port is created for each net ID in "netto" */ /* (which may be a bus). The port contains the net ID in the called */ /* object. The port may already exist, in which case this routine does */ /* nothing. */ /*----------------------------------------------------------------------*/ void addport(objectptr cschem, Genericlist *netto) { PortlistPtr newport, seekport; int portid = 0, netid, lbus; buslist *sbus; Boolean duplicate; for (lbus = 0;;) { if (netto->subnets == 0) netid = netto->net.id; else { sbus = netto->net.list + lbus; netid = sbus->netid; } /* If a port already exists for this net, don't add another one! */ duplicate = FALSE; for (seekport = cschem->ports; seekport != NULL; seekport = seekport->next) { if (seekport->netid != netid) { if (seekport->portid > portid) portid = seekport->portid; } else duplicate = TRUE; } if (!duplicate) { portid++; newport = (PortlistPtr)malloc(sizeof(Portlist)); newport->netid = netid; newport->portid = portid; if (cschem->ports != NULL) newport->next = cschem->ports; else newport->next = NULL; cschem->ports = newport; } if (++lbus >= netto->subnets) break; } } /*----------------------------------------------------------------------*/ /* Add a specific port connection from object cschem into the instance */ /* cinst. This equates a net number in the calling object cschem */ /* (netfrom) to a net number in the object instance being called */ /* (netto). */ /* */ /* If we attempt to connect a bus of one size to a port of a different */ /* size, return FALSE. Otherwise, add the call and return TRUE. */ /*----------------------------------------------------------------------*/ Boolean addportcall(objectptr cschem, Genericlist *netfrom, Genericlist *netto) { CalllistPtr ccall; PortlistPtr seekport, sp, newport; objectptr instobj; objinstptr cinst; int lbus, netid_from, netid_to; buslist *sbus, *tbus; Boolean duplicate; /* The call that we need to add a port to is the first on */ /* the list for cschem, as created by addcall(). */ ccall = cschem->calls; instobj = ccall->callobj; cinst = ccall->callinst; if (netfrom->subnets != netto->subnets) { if (netfrom->subnets == 0) { /* It is possible that "netfrom" is an unlabeled polygon that */ /* is implicitly declared a bus by its connection to this */ /* port. If so, we promote "netfrom" to a bus but set the */ /* subnet entries to negative values, since we don't know what */ /* they are yet. */ promote_net(cschem, netfrom, netto->subnets); } /* Only other allowable condition is a bus size 1 connecting into */ /* a single-wire port. However, one should consider promotion of */ /* the pin in the target object to a bus on a per-instance basis. */ /* This has not yet been done. . . */ else if ((netfrom->subnets != 1) || (netto->subnets != 0)) { /* Let the caller report error information, because it knows more */ return FALSE; } } for (lbus = 0;;) { buslist bsingf, bsingo; Genericlist subnet_from, subnet_other; if (netfrom->subnets == 0) { netid_from = netfrom->net.id; subnet_from.subnets = 0; subnet_from.net.id = netid_from; subnet_other.subnets = 0; } else { sbus = netfrom->net.list + lbus; netid_from = sbus->netid; subnet_from.subnets = 1; subnet_from.net.list = &bsingf; bsingf.netid = netid_from; bsingf.subnetid = sbus->subnetid; bsingo.subnetid = lbus; subnet_other.subnets = 1; subnet_other.net.list = &bsingo; } if (netto->subnets == 0) { netid_to = netto->net.id; } else { tbus = netto->net.list + lbus; netid_to = tbus->netid; } /* Check the ports of the instance's object for the one matching */ /* the "netto" net ID. */ duplicate = FALSE; for (seekport = instobj->ports; seekport != NULL; seekport = seekport->next) { if (seekport->netid == netid_to) { /* If there is already an entry for this port, then */ /* we may need to merge nets in cschem. */ for (sp = ccall->ports; sp != NULL; sp = sp->next) if (sp->portid == seekport->portid) { if (sp->netid != netid_from) { if (netfrom->subnets == 0) subnet_other.net.id = sp->netid; else { bsingo.netid = sp->netid; bsingo.subnetid = getsubnet(bsingo.netid, cschem); } if (!mergenets(cschem, &subnet_other, &subnet_from)) { /* Upon failure, see if we can merge the other */ /* direction. */ if (!mergenets(cschem, &subnet_from, &subnet_other)) continue; else { if (subnet_from.subnets == 0) subnet_from.net.id = subnet_other.net.id; else { bsingf.netid = bsingo.netid; bsingf.subnetid = bsingo.subnetid; } } } } duplicate = TRUE; } if (!duplicate) { newport = (PortlistPtr)malloc(sizeof(Portlist)); newport->netid = netid_from; newport->portid = seekport->portid; newport->next = ccall->ports; ccall->ports = newport; } break; } } if (++lbus >= netfrom->subnets) break; } return TRUE; } /*----------------------------------------------------------------------*/ /* Find the net ID corresponding to the indicated port ID in the */ /* indicated object. */ /*----------------------------------------------------------------------*/ int porttonet(objectptr cschem, int portno) { PortlistPtr plist; for (plist = cschem->ports; plist != NULL; plist = plist->next) { if (plist->portid == portno) return plist->netid; } return 0; } /*----------------------------------------------------------------------*/ /* Traverse netlist and return netid of polygon or pin on which the */ /* indicated point is located. */ /* If point is not on any polygon or does not match any pin position, */ /* return NULL. */ /* Labels which have a non-NULL "cinst" record are instance-dependent */ /* and must match parameter "cinst". */ /* */ /* This routine checks to see if more than one net crosses the point */ /* of interest, and merges the nets if found. */ /* (the method has been removed and must be reinstated, presumably) */ /*----------------------------------------------------------------------*/ Genericlist *pointtonet(objectptr cschem, objinstptr cinst, XPoint *testpoint) { XPoint *tpt, *tpt2; PolylistPtr ppoly; LabellistPtr plab; Genericlist *preturn; objectptr pschem; /* primary schematic */ /* cschem is the object containing the point. However, if the object */ /* is a secondary schematic, the netlist is located in the master. */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; for (plab = pschem->labels; plab != NULL; plab = plab->next) { if (plab->cschem != cschem) continue; else if ((plab->cinst != NULL) && (plab->cinst != cinst)) continue; tpt = &(plab->label->position); if (proximity(tpt, testpoint)) return (Genericlist *)plab; /* if we've encountered a unique instance, then continue past */ /* all other instances using this label. */ if (plab->cinst != NULL) while (plab->next && (plab->next->label == plab->label)) plab = plab->next; } /* Check against polygons. We use this part of the routine to see */ /* if there are crossing wires on top of a port. If so, they are */ /* merged together. */ preturn = (Genericlist *)NULL; for (ppoly = pschem->polygons; ppoly != NULL; ppoly = ppoly->next) { if (ppoly->cschem != cschem) continue; for (tpt = ppoly->poly->points; tpt < ppoly->poly->points + EndPoint(ppoly->poly->number); tpt++) { tpt2 = tpt + NextPoint(ppoly->poly->number); if (onsegment(tpt, tpt2, testpoint)) { if (preturn == (Genericlist *)NULL) preturn = (Genericlist *)ppoly; else mergenets(pschem, (Genericlist *)ppoly, preturn); } } } return preturn; } /*----------------------------------------------------------------------*/ /* localpin keeps track of temporary pin labels when flattening the */ /* hierarchy without destroying the original pin names. */ /*----------------------------------------------------------------------*/ void makelocalpins(objectptr cschem, CalllistPtr clist, char *prefix) { NetnamePtr netnames; PortlistPtr ports, plist; stringpart *locpin; int locnet, callnet; objectptr callobj = clist->callobj; /* Copy all net names which are passed from above through ports */ for (ports = clist->ports; ports != NULL; ports = ports->next) { callnet = ports->netid; for (plist = callobj->ports; plist != NULL; plist = plist->next) { if (plist->portid == ports->portid) { locnet = plist->netid; locpin = nettopin(callnet, cschem, prefix); break; } } for (netnames = callobj->netnames; netnames != NULL; netnames = netnames->next) if (netnames->netid == locnet) break; if (netnames == NULL) { netnames = (NetnamePtr)malloc(sizeof(Netname)); netnames->netid = locnet; netnames->localpin = stringcopy(locpin); netnames->next = callobj->netnames; callobj->netnames = netnames; } } } /*----------------------------------------------------------------------*/ /* Find the first point associated with the net "netid" in the object */ /* cschem. */ /*----------------------------------------------------------------------*/ XPoint *NetToPosition(int netid, objectptr cschem) { PolylistPtr plist; LabellistPtr llist; buslist *sbus; int lbus, locnetid; /* sub_bus, (jdk) */ plist = cschem->polygons; for (; plist != NULL; plist = plist->next) { for (lbus = 0;;) { if (plist->subnets == 0) { locnetid = plist->net.id; } else { sbus = plist->net.list + lbus; locnetid = sbus->netid; } if (locnetid == netid) { return plist->poly->points; } if (++lbus >= plist->subnets) break; } } llist = (netid < 0) ? global_labels : cschem->labels; for (; llist != NULL; llist = llist->next) { for (lbus = 0;;) { if (llist->subnets == 0) { locnetid = llist->net.id; } else { sbus = llist->net.list + lbus; locnetid = sbus->netid; } if (locnetid == netid) { return (&(llist->label->position)); } if (++lbus >= llist->subnets) break; } } return NULL; } /*----------------------------------------------------------------------*/ /* Find a label element for the given net number. In a symbol, this */ /* will be the label representing the pin (or the first one found, if */ /* the pin has multiple labels). If no label is found, return NULL. */ /* Preferably choose a non-temporary label, if one exists */ /*----------------------------------------------------------------------*/ labelptr NetToLabel(int netid, objectptr cschem) { LabellistPtr llist; labelptr standby = NULL; buslist *sbus; int lbus, locnetid; llist = (netid < 0) ? global_labels : cschem->labels; for (; llist != NULL; llist = llist->next) { for (lbus = 0;;) { if (llist->subnets == 0) { locnetid = llist->net.id; } else { sbus = llist->net.list + lbus; locnetid = sbus->netid; } if (locnetid == netid) { if (llist->label->string->type == FONT_NAME) return llist->label; else if (standby == NULL) standby = llist->label; } if (++lbus >= llist->subnets) break; } } return standby; } /*----------------------------------------------------------------------*/ /* Find the subnet number of the given net. This routine should be */ /* used only as a last resort in case the subnet number is not */ /* available; it has to look through the polygon and label lists in */ /* detail to find the specified net ID. */ /*----------------------------------------------------------------------*/ int getsubnet(int netid, objectptr cschem) { PolylistPtr plist; LabellistPtr llist; buslist *sbus; int lbus, sub_bus, locnetid; plist = cschem->polygons; for (; plist != NULL; plist = plist->next) { for (lbus = 0;;) { if (plist->subnets == 0) { locnetid = plist->net.id; sub_bus = -1; } else { sbus = plist->net.list + lbus; locnetid = sbus->netid; sub_bus = sbus->subnetid; } if (locnetid == netid) { return sub_bus; } if (++lbus >= plist->subnets) break; } } llist = (netid < 0) ? global_labels : cschem->labels; for (; llist != NULL; llist = llist->next) { for (lbus = 0;;) { if (llist->subnets == 0) { locnetid = llist->net.id; sub_bus = -1; } else { sbus = llist->net.list + lbus; locnetid = sbus->netid; sub_bus = sbus->subnetid; } if (locnetid == netid) { return sub_bus; } if (++lbus >= llist->subnets) break; } } return -1; } /*----------------------------------------------------------------------*/ /* Find a pin name for the given net number */ /* Either take the last pin name with the net, or generate a new pin, */ /* assigning it a net number for a string. */ /* prefix = NULL indicates spice netlist, but is also used for PCB-type */ /* netlists because the calling hierarchy is generated elsewhere. */ /*----------------------------------------------------------------------*/ stringpart *nettopin(int netid, objectptr cschem, char *prefix) { NetnamePtr netname; labelptr pinlab; LabellistPtr netlabel; char *newtext, *snew = NULL; XPoint *pinpos; int locnetid; /* lbus, (jdk) */ /* buslist *sbus; (jdk) */ Genericlist newnet; static stringpart *newstring = NULL; /* prefix is NULL for hierarchical (spice) netlists and for */ /* internal netlist manipulation. */ if (prefix == NULL) { pinlab = NetToLabel(netid, cschem); if (pinlab != NULL) { /* If this is a "temp label", regenerate the name according to */ /* the actual net number, if it does not match. This prevents */ /* unrelated temp labels from getting the same name. */ if (pinlab->string->type != FONT_NAME) { if (sscanf(pinlab->string->data.string + 3, "%d", &locnetid) == 1) { if (locnetid != netid) { newtext = pinlab->string->data.string; newtext[3] = '\0'; newnet.subnets = 0; newnet.net.id = netid; pinlab->string->data.string = textprintnet(newtext, NULL, &newnet); free(newtext); } } } return pinlab->string; } else { /* If there's no label associated with this network, make one */ /* called "intn" where n is the net number (netid). This is a */ /* temp label (denoted by lack of a font specifier). */ newnet.subnets = 0; newnet.net.id = netid; pinpos = NetToPosition(netid, cschem); netlabel = (LabellistPtr)new_tmp_pin(cschem, pinpos, NULL, "int", &newnet); return (netlabel) ? netlabel->label->string : NULL; } } /* Flattened (e.g., sim) netlists */ for (netname = cschem->netnames; netname != NULL; netname = netname->next) { if (netname->netid == netid) { if (netname->localpin != NULL) return netname->localpin; break; } } /* Generate the string for the local instantiation of this pin */ /* If this node does not have a pin, create one using the current */ /* hierarchy prefix as the string. */ pinlab = NetToLabel(netid, cschem); if (pinlab != NULL) { stringpart *tmpstring = pinlab->string; snew = textprint(tmpstring, NULL); } else { snew = (char *)malloc(12); sprintf(snew, "int%d", netid); } if (netid < 0) { newtext = snew; } else { newtext = (char *)malloc(1 + strlen(snew) + strlen(prefix)); sprintf(newtext, "%s%s", prefix, snew); free(snew); } /* "newstring" is allocated only once and should not be free'd */ /* by the calling routine. */ if (newstring == NULL) { newstring = (stringpart *)malloc(sizeof(stringpart)); newstring->nextpart = NULL; newstring->type = TEXT_STRING; } else { free(newstring->data.string); } newstring->data.string = newtext; return newstring; } /*----------------------------------------------------------------------*/ /* Find the net which connects to the given pin label */ /* Return NULL (no net) if no match was found. */ /*----------------------------------------------------------------------*/ Genericlist *pintonet(objectptr cschem, objinstptr cinst, labelptr testpin) { LabellistPtr seeklabel; int lbus, matched; buslist *sbus, *tbus; Genericlist netlist, *tmplist; /* check against local pins, if this pin is declared local */ seeklabel = (testpin->pin == GLOBAL) ? global_labels : cschem->labels; netlist.subnets = 0; for (; seeklabel != NULL; seeklabel = seeklabel->next) if (!stringcomprelaxed(seeklabel->label->string, testpin->string, cinst)) { /* Quick simple case: no bus */ if (seeklabel->subnets == 0) return (Genericlist *)seeklabel; tmplist = break_up_bus(testpin, cinst, (Genericlist *)seeklabel); /* It is necessary to be able to put together a netlist from */ /* partial sources none of which may be complete. */ if (tmplist != NULL) { if (netlist.subnets == 0) copy_bus(&netlist, tmplist); matched = 0; for (lbus = 0; lbus < tmplist->subnets; lbus++) { sbus = netlist.net.list + lbus; tbus = tmplist->net.list + lbus; if (sbus->netid == 0) sbus->netid = tbus->netid; /* copy forward */ else if (tbus->netid == 0) tbus->netid = sbus->netid; /* copy back */ if (sbus->netid != 0) matched++; } if (matched == netlist.subnets) { free(netlist.net.list); return tmplist; } } } if (netlist.subnets != 0) { free(netlist.net.list); return tmplist; /* Returns list with partial entries */ } return NULL; /* No matches found */ } #ifdef TCL_WRAPPER /*----------------------------------------------------------------------*/ /* Automatic Schematic Generation stuff--- */ /* Blow away all polygons in the schematic and replace them with a */ /* simple rat's-nest (point-to-point). */ /* */ /* This routine is more of a proof-of-concept than a useful routine, */ /* intended to be called only from the Tcl console. It is intended to */ /* reveal most of the issues related to automatic schematic generation, */ /* in which the netlist, or a portion of it, can be redrawn as objects */ /* are moved around to maintain the relationships present in the */ /* calls structure. */ /*----------------------------------------------------------------------*/ void ratsnest(objinstptr thisinst) { CalllistPtr calls; PortlistPtr ports; PolylistPtr plist; LabellistPtr llist; objectptr pschem, cschem; objinstptr cinst; polyptr ppoly, *newpoly; buslist *sbus; int i, netid, points, sub_bus, lbus; XPoint portpos; Boolean result; cschem = thisinst->thisobject; pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; /* Go through the netlist and remove all polygons. Remove */ /* the polygons from the object as well as from the netlist. */ for (plist = pschem->polygons; plist != NULL; plist = plist->next) { ppoly = plist->poly; ppoly->type += REMOVE_TAG; /* tag for removal */ } freepolylist(&pschem->polygons); /* for each schematic (PRIMARY or SECONDARY), remove the tagged */ /* elements. */ for (i = 0; i < xobjs.pages; i++) { cinst = xobjs.pagelist[i]->pageinst; if (cinst && (cinst->thisobject->schemtype == SECONDARY) && (cinst->thisobject->symschem == pschem)) { delete_tagged(cinst); } else if (cinst == thisinst) delete_tagged(cinst); } /* Now, for each net ID in the label list, run through the calls and */ /* find all points in the calls connecting to that net. Link */ /* them with as many polygons as needed. These polygons are point- */ /* to-point lines, turning the schematic representation into a */ /* "rat's-nest". */ for (llist = pschem->labels; llist != NULL; llist = llist->next) { for (lbus = 0;;) { if (llist->subnets == 0) { netid = llist->net.id; sub_bus = -1; } else { sbus = llist->net.list + lbus; netid = sbus->netid; sub_bus = sbus->subnetid; } points = 0; for (calls = pschem->calls; calls != NULL; calls = calls->next) { /* Determine schematic object from the object called. Start a */ /* new polygon any time we switch schematic pages. */ if (calls->cschem != cschem) points = 0; cschem = calls->cschem; for (ports = calls->ports; ports != NULL; ports = ports->next) { if (ports->netid == netid) { /* Find the location of this port in the coordinates of cschem */ result = PortToPosition(calls->callinst, ports->portid, &portpos); if (result == True) { points++; if (points == 1) { NEW_POLY(newpoly, cschem); polydefaults(*newpoly, 1, portpos.x, portpos.y); (*newpoly)->style |= UNCLOSED; (*newpoly)->color = RATSNESTCOLOR; addpoly(cschem, *newpoly, (Genericlist *)llist); } else poly_add_point(*newpoly, &portpos); } else { Fprintf(stderr, "Error: Cannot find pin connection in symbol!\n"); /* Deal with error condition? */ } } } } if (++lbus >= llist->subnets) break; } } /* Now, move all the labels to reconnect to their networks */ /* (to be done) */ /* Refresh the screen */ drawarea(NULL, NULL, NULL); } #endif /*----------------------------------------------------------------------*/ /* Find a net or netlist in object cschem with the indicated name. */ /* */ /* This is the same routine as above, but finds the net with the given */ /* name, or all nets which are a subset of the given name, if the name */ /* is the name of a bus. Return NULL if no match was found. */ /*----------------------------------------------------------------------*/ Genericlist *nametonet(objectptr cschem, objinstptr cinst, char *netname) { LabellistPtr seeklabel; stringpart newstring; /* Build a simple xcircuit string from "netname" (nothing malloc'd) */ newstring.type = TEXT_STRING; newstring.nextpart = NULL; newstring.data.string = netname; /* Check against local networks */ for (seeklabel = cschem->labels; seeklabel != NULL; seeklabel = seeklabel->next) if (!stringcomprelaxed(seeklabel->label->string, &newstring, cinst)) return (Genericlist *)seeklabel; /* Check against global networks */ for (seeklabel = global_labels; seeklabel != NULL; seeklabel = seeklabel->next) if (!stringcomprelaxed(seeklabel->label->string, &newstring, cinst)) return (Genericlist *)seeklabel; return NULL; } /*----------------------------------------------------------------------*/ /* Check if two parts may have the same component index. This is true */ /* for parts with parameterized pins, such as those in the "quadparts" */ /* library. Compare the names of the ports in each instance. If none */ /* match, then these are unique subparts of a single component, and we */ /* should return FALSE. Otherwise, return TRUE. */ /*----------------------------------------------------------------------*/ Boolean samepart(CalllistPtr clist1, CalllistPtr clist2) { PortlistPtr port; labelptr plab; char *pinname1, *pinname2; Boolean rvalue; if (clist1->callobj != clist2->callobj) return FALSE; rvalue = FALSE; for (port = clist1->ports; port != NULL; port = port->next) { plab = PortToLabel(clist1->callinst, port->portid); pinname1 = textprint(plab->string, clist1->callinst); pinname2 = textprint(plab->string, clist2->callinst); if (!strcmp(pinname1, pinname2)) rvalue = TRUE; free(pinname1); free(pinname2); } return rvalue; } /*----------------------------------------------------------------------*/ /* Generate an index number for a device in a flat netlist format. */ /* We ignore any values given to "index" (this is a to-do item, since */ /* many schematics are only a single level of hierarchy, so it makes */ /* sense to keep designated indices when possible), but do generate */ /* independent index numbering for different device classes. */ /*----------------------------------------------------------------------*/ u_int devflatindex(char *devname) { flatindex *fp = flatrecord; while (fp != NULL) { if (!strcmp(devname, fp->devname)) { return ++fp->index; } fp = fp->next; } fp = (flatindex *)malloc(sizeof(flatindex)); fp->next = flatrecord; flatrecord = fp; fp->index = 1; fp->devname = devname; return 1; } /*----------------------------------------------------------------------*/ /* Free the list of per-class flat device indices */ /*----------------------------------------------------------------------*/ void freeflatindex() { flatindex *fpnext, *fp = flatrecord; while (fp != NULL) { fpnext = fp->next; free(fp); fp = fpnext; } flatrecord = NULL; } /*---------------------------------------------------------*/ /* Convert a number (up to 99999) to its base-36 equivalent */ /*---------------------------------------------------------*/ int convert_to_b36(int number) { int b36idx, tmpidx; tmpidx = number; b36idx = (tmpidx / 10000) * 1679616; tmpidx %= 10000; b36idx += (tmpidx / 1000) * 46656; tmpidx %= 1000; b36idx += (tmpidx / 100) * 1296; tmpidx %= 100; b36idx += ((tmpidx / 10) * 36) + (tmpidx % 10); return b36idx; } /*----------------------------------------------------------------------*/ /* Generate an index number for this device. Count all devices having */ /* the same device name (as printed in the netlist) in the calls of */ /* the calling object (cfrom) */ /* */ /* Update (9/29/04): Remove any leading whitespace from the device */ /* name to prevent treating, for example, "J?" and " J?" as separate */ /* device types. */ /* */ /* Update (7/28/05): To allow SPICE device indices to include all */ /* alphanumerics, we parse in base-36, and count in the subset of */ /* base-36 that can be interpreted as decimal (1-9, 36-45, etc.) */ /*----------------------------------------------------------------------*/ u_int devindex(objectptr cfrom, CalllistPtr clist) { CalllistPtr cptr, listfrom = cfrom->calls; objectptr devobj = clist->callobj; u_int *occupied, total, objindex, i, b36idx; char *devname, *cname; /* oparamptr ops; (jdk) */ if (listfrom == NULL) return (u_int)0; if (clist->devindex >= 0) return clist->devindex; devname = (clist->devname == NULL) ? devobj->name : clist->devname; while (isspace(*devname)) devname++; /* Count total number of devices */ for (cptr = listfrom, total = 0; cptr != NULL; cptr = cptr->next, total++); occupied = (u_int *)malloc(total * sizeof(u_int)); objindex = 1; for (cptr = listfrom, total = 0; cptr != NULL; cptr = cptr->next, total++) { occupied[total] = 0; if (cptr == clist) continue; cname = (cptr->devname == NULL) ? cptr->callobj->name : cptr->devname; while (isspace(*cname)) cname++; if (!strcmp(cname, devname)) { occupied[total] = cptr->devindex; if (cptr->devindex == objindex) objindex++; } } b36idx = convert_to_b36(objindex); for (; objindex <= total; objindex++) { b36idx = convert_to_b36(objindex); for (i = 0; i < total; i++) if (occupied[i] == b36idx) break; if (i == total) break; } free(occupied); clist->devindex = b36idx; return objindex; } /*----------------------------------------------------------------------*/ /* Generate and return a list of all info label prefixes in a design */ /* This does not depend on the netlist being generated (i.e., does not */ /* use CalllistPtr) */ /*----------------------------------------------------------------------*/ void genprefixlist(objectptr cschem, slistptr *modelist) { int locpos; genericptr *pgen; labelptr plabel; objinstptr cinst; stringpart *strptr; slistptr modeptr; for (pgen = cschem->plist; pgen < cschem->plist + cschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plabel = TOLABEL(pgen); if (plabel->pin == INFO) { strptr = findtextinstring(":", &locpos, plabel->string, cinst); if (locpos <= 0 || strptr == NULL) continue; /* null after netlist type designator, don't count */ for (modeptr = *modelist; modeptr; modeptr = modeptr->next) if (!strncmp(modeptr->alias, strptr->data.string, locpos)) break; if (modeptr == NULL) { /* Mode has not been enumerated */ modeptr = (slistptr)malloc(sizeof(stringlist)); modeptr->alias = (char *)malloc(locpos + 1); strncpy(modeptr->alias, strptr->data.string, locpos); modeptr->next = *modelist; *modelist = modeptr; } } } else if (IS_OBJINST(*pgen)) { cinst = TOOBJINST(pgen); genprefixlist(cinst->thisobject, modelist); if (cinst->thisobject->symschem != NULL) genprefixlist(cinst->thisobject->symschem, modelist); } } } /*----------------------------------------------------------------------*/ /* Create and return an ordered list of info labels for the schematic */ /* page cschem. A linked label list is returned, combining info labels */ /* from all schematic pages related to cschem (master and slave pages). */ /* It is the responsibility of the calling routine to free the linked */ /* list. */ /*----------------------------------------------------------------------*/ LabellistPtr geninfolist(objectptr cschem, objinstptr cinst, char *mode) { int locpos, j; int vmax; genericptr *pgen; labelptr plabel; LabellistPtr newllist, listtop, srchlist; u_char *strt; stringpart *strptr; listtop = NULL; vmax = 0; for (pgen = cschem->plist; pgen < cschem->plist + cschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plabel = TOLABEL(pgen); if ((plabel->pin == INFO) && !textncomp(plabel->string, mode, cinst)) { if (mode[0] == '\0') { strptr = findtextinstring(":", &locpos, plabel->string, cinst); locpos--; } else strptr = findstringpart(strlen(mode), &locpos, plabel->string, cinst); if (locpos < 0) continue; /* null after netlist type designator */ strt = strptr->data.string + locpos + 1; if (*strt != ':') { if (sscanf(strt, "%d", &j) != 1) continue; /* Consider only positive-valued numbers. Negative */ /* indices are handled by "writenet" by merging the */ /* minus character into the mode name. */ if (j < 0) continue; if (j >= vmax) vmax = j + 1; } else j = ++vmax; newllist = (LabellistPtr)malloc(sizeof(Labellist)); newllist->label = plabel; newllist->cschem = cschem; newllist->cinst = cinst; newllist->net.id = j; /* use this to find the ordering */ newllist->subnets = 0; /* so free() doesn't screw up */ /* Order the linked list */ if ((listtop == NULL) || (listtop->net.id >= j)) { newllist->next = listtop; listtop = newllist; } else { for (srchlist = listtop; srchlist != NULL; srchlist = srchlist->next) { if ((srchlist->next != NULL) && (srchlist->next->net.id >= j)) { newllist->next = srchlist->next; srchlist->next = newllist; break; } else if (srchlist->next == NULL) { srchlist->next = newllist; newllist->next = NULL; } } } } } } return listtop; } /*----------------------------------------------------------------------*/ /* Trivial default pin name lookup. Parse an object's pin labels for */ /* pin names. Return the text of the nth pin name, as counted by the */ /* position in the object's parts list. If there are fewer than (n+1) */ /* pin labels in the object, return NULL. Otherwise, return the pin */ /* name in a malloc'd character string which the caller must free. */ /*----------------------------------------------------------------------*/ char *defaultpininfo(objinstptr cinst, int pidx) { genericptr *pgen; labelptr plabel; objectptr cschem = cinst->thisobject; int count = 0; char *stxt; for (pgen = cschem->plist; pgen < cschem->plist + cschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plabel = TOLABEL(pgen); if (plabel->pin == LOCAL) { if (count == pidx) { stxt = textprint(plabel->string, cinst); return stxt; } count++; } } } return NULL; } /*----------------------------------------------------------------------*/ /* Parse an object's info labels for pin names. This is *not* a */ /* netlist function. The nth pin name is returned, or NULL if not */ /* found. Return value is a malloc'd string which the caller must */ /* free. */ /*----------------------------------------------------------------------*/ char *parsepininfo(objinstptr cinst, char *mode, int pidx) { genericptr *pgen; labelptr plabel; u_char *strt, *fnsh; int slen, i, locpos; objectptr cschem = cinst->thisobject; stringpart *strptr; char *sout; int count = 0; for (pgen = cschem->plist; pgen < cschem->plist + cschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plabel = TOLABEL(pgen); if (plabel->pin == INFO) { slen = stringlength(plabel->string, True, cinst); for (i = 1; i < slen; i++) { strptr = findstringpart(i, &locpos, plabel->string, cinst); if (locpos >= 0 && *(strptr->data.string + locpos) == ':') break; } /* Currently we are not checking against "mode". . .*/ /* interpret all characters after the colon */ for (++i; i < slen; i++) { strptr = findstringpart(i, &locpos, plabel->string, cinst); if (locpos >= 0) { /* Do for all text characters */ strt = strptr->data.string + locpos; if (*strt == '%') { strt++; i++; if (*strt == 'p') { /* Pin found! */ if (count == pidx) { /* Get pin text */ strt++; fnsh = strt + 1; while (*fnsh != ' ' && *fnsh != '\0') fnsh++; sout = malloc(fnsh - strt + 1); strncpy(sout, strt, fnsh - strt); return sout; } count++; } } } } } } } return NULL; } /*----------------------------------------------------------------------*/ /* Look for information labels in the object parts list. Parse the */ /* information labels and print results to specified output device. */ /* (This is not very robust to errors---needs work!) */ /* */ /* If "autonumber" is true, then the parsed info label is used to */ /* auto-number devices. */ /*----------------------------------------------------------------------*/ char *parseinfo(objectptr cfrom, objectptr cthis, CalllistPtr clist, char *prefix, char *mode, Boolean autonumber, Boolean no_output) { /* genericptr *pgen; (jdk) */ stringpart *strptr, *ppin, *optr; char *snew, *sout = NULL, *pstring; u_char *strt, *fnsh; PortlistPtr ports; oparamptr ops, instops; int portid, locpos, i, k, subnet, slen; /* j, (jdk) */ char *key = NULL; u_int newindex; Boolean is_flat = False, is_symbol = False, is_iso = False, is_quoted; Boolean do_update = True, include_once = False; char *locmode, *b36str, *sptr; LabellistPtr infolist, infoptr; FILE *finclude; /* For flat netlists, prefix the mode with the word "flat". */ /* As of 3/8/07, this includes the ".sim" format, which */ /* should be called as mode "flatsim". */ locmode = mode; if (locmode && (!strncmp(mode, "flat", 4) || !strncmp(mode, "pseu", 4))) { locmode += 4; is_flat = True; } /* mode == "" is passed when running resolve_devindex() and indicates */ /* that the routine should be used to assign devindex to calls whose */ /* devices have been manually assigned numbers. The preferred method */ /* is to assign these values through the "index" parameter. Use of */ /* parseinfo() ensures that objects that have no "index" parameter */ /* but have valid info-labels for SPICE or PCB output will be */ /* assigned the correct device index. */ /* Sept. 3, 2006---The use of the prepended "@" character on */ /* parameter names means that I can replace the cryptic "idx" with */ /* the more obvious "index", which previously conflicted with the */ /* PostScript command of the same name. Parameters "index" and "idx" */ /* are treated interchangeably by the netlister. */ if (locmode[0] == '\0') do_update = False; /* 1st pass: look for valid labels; see if more than one applies. */ /* If so, order them correctly. Labels may not be numbered in */ /* sequence, and may begin with zero. We allow a lot of flexibility */ /* but the general expectation is that sequences start at 0 or 1 and */ /* increase by consecutive integers. */ infolist = geninfolist(cthis, clist->callinst, locmode); /* Now parse each label in sequence and output the result to */ /* the return string. */ sout = (char *)malloc(1); *sout = '\0'; for (infoptr = infolist; infoptr != NULL; infoptr = infoptr->next) { objectptr pschem, cschem = infoptr->cschem; labelptr plabel = infoptr->label; objinstptr cinst = infoptr->cinst; /* move to colon character */ slen = stringlength(plabel->string, True, cinst); for (i = 1; i < slen; i++) { strptr = findstringpart(i, &locpos, plabel->string, cinst); if (locpos >= 0 && *(strptr->data.string + locpos) == ':') break; } /* interpret all characters after the colon */ for (++i; i < slen; i++) { strptr = findstringpart(i, &locpos, plabel->string, cinst); if (locpos >= 0) { /* Do for all text characters */ strt = strptr->data.string + locpos; if (*strt == '%') { is_quoted = False; strt++; i++; switch(*strt) { case '%': sout = (char *)realloc(sout, strlen(sout) + 2); strcat(sout, "%"); break; case 'r': sout = (char *)realloc(sout, strlen(sout) + 2); strcat(sout, "\n"); break; case 't': sout = (char *)realloc(sout, strlen(sout) + 2); strcat(sout, "\t"); break; case 'i': if (clist->devname == NULL) clist->devname = strdup(sout); if (do_update) { if (is_flat) newindex = devflatindex(clist->devname); else newindex = devindex(cfrom, clist); b36str = d36a(newindex); sout = (char *)realloc(sout, strlen(sout) + strlen(b36str) + 1); sprintf(sout + strlen(sout), "%s", b36str); } break; case 'N': sout = (char *)realloc(sout, strlen(sout) + strlen(cschem->name) + 1); strcat(sout, cschem->name); break; case 'n': sptr = strstr(cschem->name, "::"); if (sptr == NULL) sptr = cschem->name; else sptr += 2; sout = (char *)realloc(sout, strlen(sout) + strlen(sptr) + 1); strcat(sout, sptr); break; case 'x': sout = (char *)realloc(sout, strlen(sout) + 7); sprintf(sout + strlen(sout), "%d", cinst->position.x); break; case 'y': sout = (char *)realloc(sout, strlen(sout) + 7); sprintf(sout + strlen(sout), "%d", cinst->position.y); break; case 'F': if (no_output) break; include_once = True; /* drop through */ case 'f': if (no_output) break; /* Followed by a filename to include verbatim into */ /* the output. Filename either has no spaces or */ /* is in quotes. */ /* Use textprint to catch any embedded parameters */ snew = textprint(strptr, cinst); strt = snew; while (*strt != '\0') { if (*strt == '%') { if (include_once && *(strt + 1) == 'F') break; else if (!include_once && *(strt + 1) == 'f') break; } strt++; } if (*strt == '\0') { /* No filename; print verbatim */ free(snew); include_once = False; break; } strt += 2; if (*strt == '"') strt++; if (*strt == '"' || *strt == '\0') break; fnsh = strt + 1; while (*fnsh != '\0' && !isspace(*fnsh) && *fnsh != '"') fnsh++; strncpy(_STR, strt, (int)(fnsh - strt)); _STR[(int)(fnsh - strt)] = '\0'; free(snew); i = slen; /* Do variable and tilde expansion on the filename */ xc_tilde_expand(_STR, 149); xc_variable_expand(_STR, 149); /* Check if this file has been included already */ if (include_once) { if (check_included(_STR)) { include_once = False; break; } append_included(_STR); } /* Open the indicated file and dump to the output */ finclude = fopen(_STR, "r"); if (finclude != NULL) { char *sptr = sout; int nlen; int stlen = strlen(sout); while (fgets(_STR, 149, finclude)) { nlen = strlen(_STR); sout = (char *)realloc(sout, stlen + nlen + 1); sptr = sout + stlen; strcpy(sptr, _STR); stlen += nlen; } fclose(finclude); } else { Wprintf("No file named %s found", _STR); } include_once = False; break; case 'p': /* Pin name either has no spaces or is in quotes */ strt++; if (*strt == '"') { is_quoted = True; strt++; i++; } if (*strt == '"' || *strt == '\0') break; fnsh = strt + 1; while (*fnsh != '\0' && !isspace(*fnsh) && *fnsh != '"') fnsh++; strncpy(_STR2, strt, (int)(fnsh - strt)); _STR2[(int)(fnsh - strt)] = '\0'; i += (fnsh - strt); /* if (is_quoted || *fnsh == '\0') i++; */ if (is_quoted) i++; /* Find the port which corresponds to this pin name */ /* in the called object (cschem). If this is a */ /* linked symbol/schematic, then the port list will */ /* be in the schematic view, not in the symbol view */ pschem = cschem; if (cschem->ports == NULL && cschem->symschem != NULL && cschem->symschem->ports != NULL) pschem = cschem->symschem; for (ports = pschem->ports; ports != NULL; ports = ports->next) { subnet = getsubnet(ports->netid, pschem); ppin = nettopin(ports->netid, pschem, NULL); // NOTE: _STR is used inside textprintsubnet() pstring = textprintsubnet(ppin, NULL, subnet); if (!strcmp(pstring, _STR2)) { portid = ports->portid; free(pstring); break; } else free(pstring); } if (ports != NULL) { /* Find the matching port in the calling object instance */ for (ports = clist->ports; ports != NULL; ports = ports->next) if (ports->portid == portid) break; if (ports != NULL) { ppin = nettopin(ports->netid, cfrom, prefix); subnet = getsubnet(ports->netid, cfrom); snew = textprintsubnet(ppin, cinst, subnet); sout = (char *)realloc(sout, strlen(sout) + strlen(snew) + 1); strcat(sout, snew); free(snew); break; } else { Fprintf(stderr, "Error: called non-existant port\n"); } } else { Wprintf("No pin named %s in device %s", _STR, cschem->name); } break; case 'v': /* Parameter name either has no spaces or is in quotes */ strt++; if (*strt == '"') { is_quoted = True; strt++; i++; } if (*strt == '"' || *strt == '\0') break; fnsh = strt + 1; while (*fnsh != '\0' && !isspace(*fnsh) && *fnsh != '"') fnsh++; strncpy(_STR, strt, (int)(fnsh - strt)); _STR[(int)(fnsh - strt)] = '\0'; i += (fnsh - strt); /* if (is_quoted || *fnsh == '\0') i++; */ if (is_quoted) i++; /* Compare this name against the parameter keys */ ops = match_param(cschem, _STR); /* For backwards compatibility, also try matching against */ /* the parameter default value (method used before */ /* implementing parameters as key:value pairs). */ if (ops == NULL) { for (ops = cschem->params; ops != NULL; ops = ops->next) { if (ops->type == XC_STRING) { if (!textcomp(ops->parameter.string, _STR, NULL)) { /* substitute the parameter or default */ instops = find_param(cinst, ops->key); optr = instops->parameter.string; if (stringlength(optr, True, cinst) > 0) { snew = textprint(optr, cinst); sout = (char *)realloc(sout, strlen(sout) + strlen(snew) + 1); strcat(sout, snew); free(snew); } break; } } } } if (ops == NULL) { Wprintf("No parameter named %s in device %s", _STR, cschem->name); } break; default: /* Presence of ".ends" statement forces xcircuit */ /* not to write ".end" at the end of the netlist. */ if (*strt == '.') if (!strncmp(strt + 1, "ends", 4)) spice_end = FALSE; sout = (char *)realloc(sout, strlen(sout) + 2); *(sout + strlen(sout) - 1) = *strt; *(sout + strlen(sout)) = '\0'; } } else { if (key != NULL) if (clist->devname == NULL) clist->devname = strdup(sout); /* Parameters with unresolved question marks are treated */ /* like a "%i" string. */ if ((key != NULL) && !textncomp(strptr, "?", cinst)) { if (do_update || autonumber) { if (is_flat || (cfrom == NULL)) newindex = devflatindex(clist->devname); else newindex = devindex(cfrom, clist); k = strlen(sout); b36str = d36a(newindex); sout = (char *)realloc(sout, strlen(sout) + strlen(b36str) + 1); sprintf(sout + k, "%s", b36str); } /* When called with autonumber = TRUE, generate a parameter */ /* instance, replacing the question mark with the new index */ /* number. */ if (autonumber) { copyparams(cinst, cinst); ops = match_instance_param(cinst, key); optr = ops->parameter.string; if (!textncomp(optr, "?", cinst)) { optr->data.string = (char *)realloc(optr->data.string, strlen(sout + k) + 1); strcpy(optr->data.string, sout + k); } else Wprintf("Error while auto-numbering parameters"); resolveparams(cinst); } } else { /* A "?" default parameter that has a (different) */ /* instance value becomes the device number. */ int stlen; if ((key != NULL) && (clist->devindex < 0)) { ops = match_param(cschem, key); if (ops->type == XC_STRING) { CalllistPtr plist; if (!textcomp(ops->parameter.string, "?", NULL)) { if (is_flat) { /* Ignore the value and generate one instead */ newindex = devflatindex(clist->devname); b36str = d36a(newindex); k = strlen(sout); sout = (char *)realloc(sout, strlen(sout) + strlen(b36str) + 1); sprintf(sout + k, "%s", b36str); continue; /* go on to next stringpart */ } else if (cfrom != NULL) { /* Interpret parameter string as a component */ /* number so we can check for duplicates. Assume */ /* a base-36 number, which includes all alphabet */ /* characters. This will disambiguate, e.g., "1" */ /* and "1R", but flag case-sensitivity, e.g., */ /* "1R" and "1r". Thanks to Carsten Thomas for */ /* pointing out the problem with assuming */ /* numerical component values. */ char *endptr; newindex = (u_int) strtol(strt, &endptr, 36); if (*endptr != '\0') { Fprintf(stderr, "Warning: Use of non-alphanumeric" " characters in component number \"%s\"\n", strt); } clist->devindex = newindex; for (plist = cfrom->calls; plist; plist = plist->next) { if ((plist == clist) || (plist->callobj != clist->callobj)) continue; /* Two parts have been named the same. Flag */ /* it, but don't try to do anything about it. */ /* 11/22/06---additionally check part numbers, */ /* in case the symbol is a component sub-part. */ if (plist->devindex == newindex) { if (samepart(plist, clist)) { Fprintf(stderr, "Warning: duplicate part number" " %s%s and %s%s\n", sout, strt, sout, strt); break; } } } } } } } stlen = strlen(sout); sout = (char *)realloc(sout, stlen + 2); /* By convention, greek "mu" becomes ASCII "u", NOT "m", */ /* otherwise we get, e.g., millifarads instead of microfarads */ if ((is_symbol && (*strt == 'm')) || (is_iso && (*strt == 0265))) *(sout + stlen) = 'u'; else *(sout + stlen) = *strt; *(sout + stlen + 1) = '\0'; } } } /* Some label controls are interpreted. Most are ignored */ else { switch(strptr->type) { case PARAM_START: key = strptr->data.string; break; case PARAM_END: key = NULL; break; case RETURN: sout = (char *)realloc(sout, strlen(sout) + 2); strcat(sout, "\n"); break; case TABFORWARD: sout = (char *)realloc(sout, strlen(sout) + 2); strcat(sout, "\t"); break; case FONT_NAME: is_symbol = issymbolfont(strptr->data.font); is_iso = isisolatin1(strptr->data.font); break; } } } /* Insert a newline between multiple valid info labels */ if (infoptr->next != NULL) { sout = (char *)realloc(sout, strlen(sout) + 2); strcat(sout, "\n"); } } freelabellist(&infoptr); if (*sout == '\0') { free(sout); return NULL; } return sout; } /*----------------------------------------------------------------------*/ /* Write a low-level device */ /*----------------------------------------------------------------------*/ int writedevice(FILE *fp, char *mode, objectptr cfrom, CalllistPtr clist, char *prefix) { char *sout; objectptr cthis; if (clist == NULL) { if (fp != NULL) fprintf(fp, "error: null device\n"); return -1; } /* Devices are always symbols. If the call indicates a schematic */ /* and a separate associated symbol, then we want the symbol. */ /* If we're writing a flat netlist, then return -1 to indicate that */ /* the symbol instance needs to be flattened. */ cthis = clist->callobj; if (clist->callobj->schemtype == PRIMARY || clist->callobj->schemtype == SECONDARY) if (clist->callobj->symschem != NULL) { if (!strncmp(mode, "flat", 4)) return -1; else cthis = clist->callobj->symschem; } /* Look for information labels in the object parts list. */ if ((sout = parseinfo(cfrom, cthis, clist, prefix, mode, FALSE, FALSE)) != NULL) { if (fp != NULL) { fputs(sout, fp); fprintf(fp, "\n"); } free(sout); return 0; } /* Information labels do not necessarily exist. */ return -1; } #ifdef TCL_WRAPPER /*----------------------------------------------------------------------*/ /* Translate a hierarchical net name into an object and instance. */ /* Return TRUE if found, FALSE if not. If found, object and instance */ /* are returned in the argument pointers. */ /*----------------------------------------------------------------------*/ Boolean HierNameToObject(objinstptr cinst, char *hiername, pushlistptr *stack) { CalllistPtr calls; char *nexttoken, *hptr, *pptr; objectptr cschem, curobj, newobj; objinstptr newinst; int devindex, devlen; /* pushlistptr stackentry; (jdk) */ cschem = cinst->thisobject; curobj = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; if (curobj->calls == NULL) { if ((updatenets(cinst, FALSE) <= 0) || (curobj->calls == NULL)) { Wprintf("Error in generating netlists!"); return False; } } hptr = hiername; while (hptr != NULL) { nexttoken = strchr(hptr, '/'); if (nexttoken != NULL) *nexttoken = '\0'; pptr = strrchr(hptr, '('); if (pptr != NULL) { if (sscanf(pptr + 1, "%d", &devindex) == 0) { pptr = NULL; devindex = 0; } else *pptr = '\0'; } else devindex = -1; /* check to make sure that the netlist and device indices have been generated */ for (calls = curobj->calls; calls != NULL; calls = calls->next) { if (calls->devindex == -1) { cleartraversed(curobj); resolve_indices(curobj, FALSE); } } /* hptr is now the object name, and devindex is the instance's call index */ /* find the object corresponding to the name. */ newobj = NameToObject(hptr, &newinst, TRUE); if (newobj == NULL) { /* Try device names (for netlist output) instead of object names */ for (calls = curobj->calls; calls != NULL; calls = calls->next) { if (calls->devname != NULL) { devlen = strlen(calls->devname); if (!strncmp(hptr, calls->devname, devlen)) { if (devindex == -1) { if (sscanf(hptr + devlen, "%d", &devindex) == 0) devindex = 0; } if (calls->devindex == devindex) { newobj = calls->callinst->thisobject; break; } } } } } else { for (calls = curobj->calls; calls != NULL; calls = calls->next) if ((calls->callobj == newobj) && (calls->devindex == devindex)) break; } if (newobj == NULL || calls == NULL) { Fprintf(stderr, "object %s in hierarchy not found in schematic.\n", hptr); free_stack(stack); return FALSE; } /* Diagnostic information */ /* fprintf(stderr, "object %s(%d) = %s\n", newobj->name, devindex, hptr); */ curobj = calls->callobj; push_stack(stack, calls->callinst, NULL); if (pptr != NULL) *pptr = '('; if (nexttoken == NULL) break; *nexttoken = '/'; hptr = nexttoken + 1; } return TRUE; } #endif /*----------------------------------------------------------------------*/ /* Save netlist into a flattened sim or spice file */ /*----------------------------------------------------------------------*/ void writeflat(objectptr cschem, CalllistPtr cfrom, char *prefix, FILE *fp, char *mode) { CalllistPtr calls = cschem->calls; char *newprefix = (char *)malloc(sizeof(char)); /* reset device indexes */ for (calls = cschem->calls; calls != NULL; calls = calls->next) calls->devindex = -1; /* The naming convention for nodes below the top level uses a */ /* slash-separated list of hierarchical names. Thus the call to */ /* the hierarchical resolve_indices(). Indices used by bottom-most */ /* symbols (e.g., flattened spice) will be generated by a separate */ /* routine devflatindex(), unrelated to what is generated here, */ /* which only affects the hierarchical naming of nodes. */ resolve_indices(cschem, FALSE); /* write all the subcircuits */ for (calls = cschem->calls; calls != NULL; calls = calls->next) { makelocalpins(cschem, calls, prefix); if (writedevice(fp, mode, cschem, calls, prefix) < 0) { sprintf(_STR, "%s_%u", calls->callobj->name, devindex(cschem, calls)); newprefix = (char *)realloc(newprefix, sizeof(char) * (strlen(prefix) + strlen(_STR) + 2)); sprintf(newprefix, "%s%s/", prefix, _STR); /* Allow cross-referenced parameters between symbols and schematics */ /* by substituting into a schematic from its corresponding symbol */ opsubstitute(calls->callobj, calls->callinst); /* psubstitute(calls->callinst); */ writeflat(calls->callobj, calls, newprefix, fp, mode); } clearlocalpins(calls->callobj); } free(newprefix); } /*----------------------------------------------------------------------*/ /* Topmost call to write a flattened netlist */ /*----------------------------------------------------------------------*/ void topflat(objectptr cschem, objinstptr thisinst, CalllistPtr cfrom, char *prefix, FILE *fp, char *mode) { char *locmode, *stsave = NULL; int modlen; Calllist loccalls; /* Set up local call list for parsing info labels in the top-level schematic */ loccalls.cschem = NULL; loccalls.callobj = cschem; loccalls.callinst = thisinst; loccalls.devindex = -1; loccalls.ports = NULL; loccalls.next = NULL; modlen = strlen(mode); locmode = malloc(2 + modlen); strcpy(locmode, mode); locmode[modlen + 1] = '\0'; /* "@" lines go in front */ locmode[modlen] = '@'; if (fp != NULL) stsave = parseinfo(NULL, cschem, &loccalls, NULL, locmode, FALSE, FALSE); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); free(stsave); stsave = NULL; } writeflat(cschem, cfrom, prefix, fp, mode); freeflatindex(); /* Check for negative-numbered info labels, indicated output that */ /* should be processed after everything else. */ locmode[modlen] = '-'; stsave = parseinfo(NULL, cschem, &loccalls, NULL, locmode, FALSE, FALSE); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); free(stsave); stsave = NULL; } free(locmode); } /*----------------------------------------------------------------------*/ /* Write out the list of global nets and their pin names */ /*----------------------------------------------------------------------*/ void writeglobals(objectptr cschem, FILE *fp) { LabellistPtr llist; labelptr gpin; char *snew; if (fp == NULL) return; for (llist = global_labels; llist != NULL; llist = llist->next) { gpin = llist->label; snew = textprint(gpin->string, NULL); fprintf(fp, ".GLOBAL %s\n", snew); /* hspice format */ /* fprintf(fp, "%s = %d\n", snew, -gptr->netid); */ /* generic format */ free(snew); } fprintf(fp, "\n"); } /*----------------------------------------------------------------------*/ /* Write a SPICE subcircuit entry. */ /*----------------------------------------------------------------------*/ void writesubcircuit(FILE *fp, objectptr cschem) { PortlistPtr ports; char *pstring; stringpart *ppin; int netid, length, plen, subnet; /* portid, (jdk) */ /* Objects which have no ports are not written */ if ((cschem->ports != NULL) && (fp != NULL)) { fprintf(fp, ".subckt %s", cschem->name); length = 9 + strlen(cschem->name); /* List of parameters in subcircuit. */ /* Each parameter connects to a net which may have multiple */ /* names, so find the net associated with the parameter */ /* and convert it back into a pin name in the usual manner */ /* using nettopin(). */ for (ports = cschem->ports; ports != NULL; ports = ports->next) { netid = ports->netid; subnet = getsubnet(netid, cschem); ppin = nettopin(netid, cschem, NULL); pstring = textprintsubnet(ppin, NULL, subnet); plen = strlen(pstring) + 1; if (length + plen > 78) { fprintf(fp, "\n+ "); /* SPICE line break & continuation */ length = 0; } else length += plen; fprintf(fp, " %s", pstring); free(pstring); } fprintf(fp, "\n"); } } /*----------------------------------------------------------------------*/ /* Resolve device names (fill calllist structure member "devname") */ /*----------------------------------------------------------------------*/ void resolve_devnames(objectptr cschem) { CalllistPtr calls; char *stmp; oparamptr ops; for (calls = cschem->calls; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { calls->callobj->traversed = True; resolve_devnames(calls->callobj); } if (calls->devname == NULL) { /* Check for "class" parameter. Note that although this */ /* parameter may take a different instance value, the */ /* device class is determined by the default value. */ ops = find_param(calls->callinst, "class"); if (ops && (ops->type == XC_STRING)) calls->devname = textprint(ops->parameter.string, NULL); else { /* The slow way---parse info labels for any device information */ if ((stmp = parseinfo(cschem, calls->callinst->thisobject, calls, NULL, "", FALSE, TRUE)) != NULL) free(stmp); } } } } /*----------------------------------------------------------------------*/ /* Resolve (hierarchical) component numbering. If "autonumber" is TRUE */ /* then this routine does auto-numbering. Otherwise, it auto-generates */ /* device indices internally (in the "calllist" structure) but does not */ /* copy them into parameter space. */ /* */ /* Note: resolve_devindex() only operates on a single object. Use */ /* resolve_indices() to operate on the entire hierarchy. */ /*----------------------------------------------------------------------*/ void resolve_devindex(objectptr cschem, Boolean autonumber) { CalllistPtr calls; char *stmp, *endptr; char *idxtype[] = {"index", "idx", NULL}; oparamptr ops, ips; objinstptr cinst; stringpart *optr; int newindex, j; for (calls = cschem->calls; calls != NULL; calls = calls->next) { /* Check if there is an "index" parameter set to "?" in */ /* the object with no existing instance value. */ for (j = 0; idxtype[j] != NULL; j++) if ((ops = match_param(calls->callinst->thisobject, idxtype[j])) != NULL) break; if (ops && (ops->type == XC_STRING)) { if (!textcomp(ops->parameter.string, "?", NULL)) { cinst = calls->callinst; ips = match_instance_param(cinst, idxtype[j]); if ((autonumber == TRUE) && (ips == NULL)) { copyparams(cinst, cinst); ops = match_instance_param(cinst, idxtype[j]); optr = ops->parameter.string; newindex = devindex(cschem, calls); stmp = d36a(newindex); optr->data.string = (char *)realloc(optr->data.string, strlen(stmp) + 1); sprintf(optr->data.string, "%s", stmp); } else if (calls->devindex < 0) { if (ips != NULL) { optr = ips->parameter.string; if (optr->type != TEXT_STRING) { /* Not a simple string. Dump the text. */ char *snew = NULL; snew = textprint(optr, NULL), newindex = (u_int) strtol(snew, &endptr, 36); free(snew); } else { newindex = (u_int) strtol(optr->data.string, &endptr, 36); } if (*endptr != '\0') { /* It is possible to get an instance value that is */ /* the same as the default, although this normally */ /* doesn't happen. If it does, quietly remove the */ /* unneeded instance value. */ if (!stringcomp(ops->parameter.string, ips->parameter.string)) resolveparams(cinst); else Fprintf(stderr, "Warning: Use of non-alphanumeric" " characters in component \"%s%s\" (instance" " of %s)\n", (calls->devname) ? calls->devname : calls->callobj->name, optr->data.string, calls->callobj->name); } else calls->devindex = newindex; } else /* if (autonumber) */ devindex(cschem, calls); } } } else { /* The slow way---parse info labels for any index information */ if ((stmp = parseinfo(cschem, calls->callinst->thisobject, calls, NULL, "", autonumber, TRUE)) != NULL) free(stmp); } } } /*----------------------------------------------------------------------*/ /* Recursive call to resolve_devindex() through the circuit hierarchy */ /*----------------------------------------------------------------------*/ void resolve_indices(objectptr cschem, Boolean autonumber) { CalllistPtr calls; for (calls = cschem->calls; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { calls->callobj->traversed = True; resolve_indices(calls->callobj, autonumber); } } resolve_devindex(cschem, autonumber); } /*----------------------------------------------------------------------*/ /* Recursive call to clear all generated device numbers. */ /*----------------------------------------------------------------------*/ void clear_indices(objectptr cschem) { CalllistPtr calls; for (calls = cschem->calls; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { calls->callobj->traversed = True; clear_indices(calls->callobj); } calls->devindex = -1; } } /*----------------------------------------------------------------------*/ /* Recursive call to clear all device indexes (parameter "index") */ /*----------------------------------------------------------------------*/ void unnumber(objectptr cschem) { CalllistPtr calls; oparamptr ops, ips; char *idxtype[] = {"index", "idx", NULL}; int j; for (calls = cschem->calls; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { calls->callobj->traversed = True; unnumber(calls->callobj); } for (j = 0; idxtype[j] != NULL; j++) if ((ops = match_param(calls->callobj, idxtype[j])) != NULL) break; if (ops && (ops->type == XC_STRING)) { if (!textcomp(ops->parameter.string, "?", NULL)) { ips = match_instance_param(calls->callinst, idxtype[j]); if (ips != NULL) free_instance_param(calls->callinst, ips); } } } } /*----------------------------------------------------------------------*/ /* Save netlist into a hierarchical file */ /*----------------------------------------------------------------------*/ void writehierarchy(objectptr cschem, objinstptr thisinst, CalllistPtr cfrom, FILE *fp, char *mode) { CalllistPtr calls = cschem->calls; PortlistPtr ports, plist; int pnet, portid, length, plen, subnet, modlen; /* netid, (jdk) */ char *locmode = mode, *stsave = NULL, *pstring; stringpart *ppin; Calllist loccalls; if (cschem->traversed == True) return; /* Set up local call list for parsing info labels in this schematic */ loccalls.cschem = NULL; loccalls.callobj = cschem; loccalls.callinst = thisinst; loccalls.devindex = -1; loccalls.ports = NULL; loccalls.next = NULL; modlen = strlen(mode); locmode = malloc(2 + modlen); strcpy(locmode, mode); locmode[modlen + 1] = '\0'; /* "@" lines go before any subcircuit calls */ locmode[modlen] = '@'; if (fp != NULL) stsave = parseinfo(NULL, cschem, &loccalls, NULL, locmode, FALSE, FALSE); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); free(stsave); stsave = NULL; } /* Subcircuits which make no calls or have no devices do not get written */ if (calls != NULL) { /* Make sure that all the subcircuits have been written first */ for (; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { psubstitute(calls->callinst); writehierarchy(calls->callobj, calls->callinst, calls, fp, mode); calls->callobj->traversed = True; } } if (cschem->schemtype == FUNDAMENTAL) { free(locmode); return; } } /* Info-labels on a schematic (if any) get printed out first */ if ((fp != NULL) && (cschem->calls != NULL)) { stsave = parseinfo(NULL, cschem, &loccalls, NULL, mode, FALSE, FALSE); if (stsave != NULL) { /* Check stsave for embedded SPICE subcircuit syntax */ if (!strcmp(mode, "spice")) if (strstr(stsave, ".subckt ") == NULL) writesubcircuit(fp, cschem); fputs(stsave, fp); fprintf(fp, "\n"); free(stsave); stsave = NULL; } else if (cschem->calls != NULL) /* top-level schematics will be ignored because they have no ports */ writesubcircuit(fp, cschem); } /* Resolve all fixed part assignments (devindex) */ resolve_devindex(cschem, FALSE); /* If the output file is NULL, then we're done */ if (fp == NULL) { free(locmode); return; } for (calls = cschem->calls; calls != NULL; calls = calls->next) { /* writedevice() is just another call to parseinfo() */ if (writedevice(fp, mode, cschem, calls, NULL) < 0) { /* If the device did not produce any output in writedevice(), but */ /* does not make any calls itself, then it is implicitly a TRIVIAL */ /* symbol. */ if ((calls->callobj->schemtype == TRIVIAL) || (calls->callobj->calls == NULL)) continue; /* No syntax indicating how to write this call. Use SPICE "X" */ /* format and arrange the parameters according to the structure. */ calls->devname = strdup(spice_devname); fprintf(fp, "X%s", d36a(devindex(cschem, calls))); stsave = calls->callobj->name; length = 6; /* The object's definition lists calls in the order of the object's */ /* port list. Therefore, use this order to find the port list. */ /* This will also deal with the fact that not every port has to be */ /* called by the instance (ports may be left disconnected). */ for (ports = calls->callobj->ports; ports != NULL; ports = ports->next) { portid = ports->portid; for (plist = calls->ports; plist != NULL; plist = plist->next) if (plist->portid == ports->portid) break; pnet = (plist == NULL) ? netmax(cschem) + 1 : plist->netid; subnet = getsubnet(pnet, cschem); ppin = nettopin(pnet, cschem, NULL); pstring = textprintsubnet(ppin, NULL, subnet); plen = strlen(pstring) + 1; if (length + plen > 78) { fprintf(fp, "\n+ "); /* SPICE line continuation */ length = 0; } else length += plen; fprintf(fp, " %s", pstring); free(pstring); } plen = 1 + strlen(stsave); if (length + plen > 78) fprintf(fp, "\n+ "); /* SPICE line cont. */ fprintf(fp, " %s\n", stsave); } } /* Check for negative-numbered info labels, indicated output that */ /* should be processed after everything else. If we're processing */ /* SPICE output but the schematic does not provide a ".ends" */ /* statement, then add it to the end of the deck. */ if (cschem->calls != NULL) { locmode[modlen] = '-'; stsave = parseinfo(NULL, cschem, &loccalls, NULL, locmode, FALSE, FALSE); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); if (cfrom != NULL) if (!strcmp(mode, "spice")) if (strstr(stsave, ".ends") == NULL) fprintf(fp, ".ends\n"); free(stsave); } else if (cfrom != NULL) fprintf(fp, ".ends\n"); fprintf(fp, "\n"); } free(locmode); } /*----------------------------------------------------------------------*/ /* Create generic netlist in the Tcl interpreter variable space */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER static Tcl_Obj *tclparseinfo(objectptr cschem) { genericptr *pgen; labelptr plabel; Tcl_Obj *rlist = Tcl_NewListObj(0, NULL); for (pgen = cschem->plist; pgen < cschem->plist + cschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plabel = TOLABEL(pgen); if (plabel->pin == INFO) { Tcl_ListObjAppendElement(xcinterp, rlist, TclGetStringParts(plabel->string)); } } } return rlist; } /*----------------------------------------------------------------------*/ /* Write global variables to Tcl list (in key-value pairs which can be */ /* turned into an array variable using the "array set" command) */ /* */ /* Note: argument "cinst" is unused, but it really should be. We */ /* should not assume that different schematics have the same list of */ /* globals! */ /*----------------------------------------------------------------------*/ Tcl_Obj *tclglobals(objinstptr cinst) { LabellistPtr llist; labelptr gpin; Tcl_Obj *gdict; /*, *netnum; (jdk) */ buslist *sbus; int netid, lbus; gdict = Tcl_NewListObj(0, NULL); for (llist = global_labels; llist != NULL; llist = llist->next) { gpin = llist->label; Tcl_ListObjAppendElement(xcinterp, gdict, TclGetStringParts(gpin->string)); for (lbus = 0;;) { if (llist->subnets == 0) { netid = llist->net.id; } else { sbus = llist->net.list + lbus; netid = sbus->netid; } Tcl_ListObjAppendElement(xcinterp, gdict, Tcl_NewIntObj(netid)); if (++lbus >= llist->subnets) break; } } return gdict; } /*----------------------------------------------------------------------*/ /* Write a generic hierarchical netlist into Tcl list "subcircuits" */ /*----------------------------------------------------------------------*/ void tclhierarchy(objectptr cschem, objinstptr cinst, CalllistPtr cfrom, Tcl_Obj *cktlist) { CalllistPtr calls = cschem->calls; PortlistPtr ports, plist; int netid, pnet, portid; /* , length, plen, i; (jdk) */ Tcl_Obj *tclports, *tclcalls, *tclnewcall, *tclnets, *netnum; Tcl_Obj *tcldevs, *tclparams, *subckt, *newdev, *tcllabel, *portnum; oparamptr paramlist; /* , locparam; (jdk) */ char *netsdone; /* Trivial objects are by definition those that are supposed */ /* to be resolved by the netlist generation prior to output */ /* and ignored by the output generator. */ if (cschem->schemtype == TRIVIAL) return; /* Make sure that all the subcircuits have been written first */ for (; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { tclhierarchy(calls->callobj, calls->callinst, calls, cktlist); calls->callobj->traversed = True; } } /* Write own subcircuit netlist */ subckt = Tcl_NewListObj(0, NULL); /* Prepare the list of network cross-references */ tclnets = Tcl_NewListObj(0, NULL); /* Make list of the nets which have been written so we don't redundantly */ /* list any entries (use of calloc() initializes all entries to FALSE). */ /* (calloc() replaced by malloc() and bzero() because Tcl doesn't */ /* have a calloc() function (2/6/04)) */ netsdone = (char *)malloc(2 + netmax(cschem)); #ifdef _MSC_VER memset((void *)netsdone, 0, 2 + netmax(cschem)); #else bzero((void *)netsdone, 2 + netmax(cschem)); #endif /* Write the name (key value pair) */ Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("name", 4)); Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj(cschem->name, strlen(cschem->name))); /* Write the handle of the object instance (key value pair) */ Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("handle", 6)); Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewHandleObj(cinst)); /* Write the list of ports */ if ((ports = cschem->ports) != NULL) { /* List of ports in subcircuit. */ /* Each parameter connects to a net which may have multiple */ /* names, so find the net associated with the parameter */ /* and convert it back into a pin name in the usual manner */ /* using nettopin(). */ tclports = Tcl_NewListObj(0, NULL); for (; ports != NULL; ports = ports->next) { netid = ports->netid; portid = ports->portid; netnum = Tcl_NewIntObj(netid); portnum = Tcl_NewIntObj(portid); Tcl_ListObjAppendElement(xcinterp, tclports, portnum); Tcl_ListObjAppendElement(xcinterp, tclports, netnum); if ((netid >= 0) && (netsdone[netid] == (char)0)) { Tcl_ListObjAppendElement(xcinterp, tclnets, netnum); Tcl_ListObjAppendElement(xcinterp, tclnets, TclGetStringParts(nettopin(netid, cschem, NULL))); /* record this net as having been added to the list */ netsdone[netid] = (char)1; } } Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("ports", 5)); Tcl_ListObjAppendElement(xcinterp, subckt, tclports); } /* Write the list of parameter defaults (key:value pairs) */ if (cschem->params != NULL) { tclparams = Tcl_NewListObj(0, NULL); for (paramlist = cschem->params; paramlist != NULL; paramlist = paramlist->next) { Tcl_ListObjAppendElement(xcinterp, tclparams, Tcl_NewStringObj(paramlist->key, strlen(paramlist->key))); switch(paramlist->type) { case XC_INT: Tcl_ListObjAppendElement(xcinterp, tclparams, Tcl_NewIntObj((int)paramlist->parameter.ivalue)); break; case XC_FLOAT: Tcl_ListObjAppendElement(xcinterp, tclparams, Tcl_NewDoubleObj((double)paramlist->parameter.fvalue)); break; case XC_STRING: tcllabel = TclGetStringParts(paramlist->parameter.string); /* Should get rid of last entry, "End Parameter"; not needed */ Tcl_ListObjAppendElement(xcinterp, tclparams, tcllabel); break; case XC_EXPR: Tcl_ListObjAppendElement(xcinterp, tclparams, evaluate_raw(cschem, paramlist, cinst, NULL)); break; } } Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("parameters", 10)); Tcl_ListObjAppendElement(xcinterp, subckt, tclparams); } /* Write the list of calls to subcircuits */ if ((calls = cschem->calls) != NULL) { tclcalls = Tcl_NewListObj(0, NULL); for (; calls != NULL; calls = calls->next) { /* Don't write calls to non-functional subcircuits. */ if (calls->callobj->schemtype == TRIVIAL) continue; tclnewcall = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, tclnewcall, Tcl_NewStringObj("name", 4)); Tcl_ListObjAppendElement(xcinterp, tclnewcall, Tcl_NewStringObj(calls->callobj->name, strlen(calls->callobj->name))); /* Log any local parameter instances */ if (calls->callinst->params != NULL) { tclparams = Tcl_NewListObj(0, NULL); for (paramlist = calls->callinst->params; paramlist != NULL; paramlist = paramlist->next) { Tcl_ListObjAppendElement(xcinterp, tclparams, Tcl_NewStringObj(paramlist->key, strlen(paramlist->key))); switch(paramlist->type) { case XC_INT: Tcl_ListObjAppendElement(xcinterp, tclparams, Tcl_NewIntObj((int)paramlist->parameter.ivalue)); break; case XC_FLOAT: Tcl_ListObjAppendElement(xcinterp, tclparams, Tcl_NewDoubleObj((double)paramlist->parameter.fvalue)); break; case XC_STRING: Tcl_ListObjAppendElement(xcinterp, tclparams, TclGetStringParts(paramlist->parameter.string)); break; case XC_EXPR: Tcl_ListObjAppendElement(xcinterp, tclparams, evaluate_raw(cschem, paramlist, cinst, NULL)); break; } } Tcl_ListObjAppendElement(xcinterp, tclnewcall, Tcl_NewStringObj("parameters", 10)); Tcl_ListObjAppendElement(xcinterp, tclnewcall, tclparams); } /* Called ports are listed by key:value pair (port number: net id) */ if (calls->callobj->ports != NULL) { tclports = Tcl_NewListObj(0, NULL); for (ports = calls->callobj->ports; ports != NULL; ports = ports->next) { portid = ports->portid; for (plist = calls->ports; plist != NULL; plist = plist->next) if (plist->portid == ports->portid) break; pnet = (plist == NULL) ? netmax(cschem) + 1 : plist->netid; netnum = Tcl_NewIntObj((int)pnet); portnum = Tcl_NewIntObj(portid); Tcl_ListObjAppendElement(xcinterp, tclports, portnum); Tcl_ListObjAppendElement(xcinterp, tclports, netnum); if ((pnet >= 0) && (netsdone[pnet] == (char)0)) { Tcl_ListObjAppendElement(xcinterp, tclnets, netnum); Tcl_ListObjAppendElement(xcinterp, tclnets, TclGetStringParts(nettopin(pnet, cschem, NULL))); /* record this net as having been added to the list */ netsdone[pnet] = (char)1; } } Tcl_ListObjAppendElement(xcinterp, tclnewcall, Tcl_NewStringObj("ports", 5)); Tcl_ListObjAppendElement(xcinterp, tclnewcall, tclports); } Tcl_ListObjAppendElement(xcinterp, tclcalls, tclnewcall); } Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("calls", 5)); Tcl_ListObjAppendElement(xcinterp, subckt, tclcalls); } free(netsdone); /* If the object has info labels, write a device list. */ /* Check both the schematic and its symbol for info labels. */ tcldevs = Tcl_NewListObj(0, NULL); if (cschem->symschem != NULL) { newdev = tclparseinfo(cschem->symschem); Tcl_ListObjAppendElement(xcinterp, tcldevs, newdev); } newdev = tclparseinfo(cschem); Tcl_ListObjAppendElement(xcinterp, tcldevs, newdev); Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("devices", 7)); Tcl_ListObjAppendElement(xcinterp, subckt, tcldevs); /* Write the network cross-reference dictionary */ Tcl_ListObjAppendElement(xcinterp, subckt, Tcl_NewStringObj("nets", 4)); Tcl_ListObjAppendElement(xcinterp, subckt, tclnets); Tcl_ListObjAppendElement(xcinterp, cktlist, subckt); } /*----------------------------------------------------------------------*/ Tcl_Obj *tcltoplevel(objinstptr cinst) { Tcl_Obj *cktlist; objectptr cschem = cinst->thisobject; cktlist = Tcl_NewListObj(0, NULL); cleartraversed(cschem); tclhierarchy(cschem, cinst, NULL, cktlist); return cktlist; } #endif /* TCL_WRAPPER */ /*----------------------------------------------------------------------*/ /* Create generic netlist in the Python interpreter variable space */ /*----------------------------------------------------------------------*/ #ifdef HAVE_PYTHON static PyObject *pyparseinfo(objectptr cschem) { genericptr *pgen; labelptr plabel; PyObject *rlist = PyList_New(0); for (pgen = cschem->plist; pgen < cschem->plist + cschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plabel = TOLABEL(pgen); if (plabel->pin == INFO) PyList_Append(rlist, PyGetStringParts(plabel->string)); } } return rlist; } /*----------------------------------------------------------------------*/ /* Write global variables to Python dictionary */ /*----------------------------------------------------------------------*/ PyObject *pyglobals(objectptr cschem) { LabellistPtr llist; labelptr gpin; PyObject *gdict, *netnum; int netid, lbus; buslist *sbus; gdict = PyDict_New(); for (llist = global_labels; llist != NULL; llist = llist->next) { gpin = llist->label; for (lbus = 0;;) { if (llist->subnets == 0) netid = llist->net.id; else { sbus = llist->net.list + lbus; netid = sbus->netid; } netnum = PyInt_FromLong((long)(netid)); PyDict_SetItem(gdict, netnum, PyGetStringParts(gpin->string)); if (++lbus >= llist->subnets) break; } } return gdict; } /*----------------------------------------------------------------------*/ /* Write a generic hierarchical netlist into Python list "subcircuits" */ /*----------------------------------------------------------------------*/ void pyhierarchy(objectptr cschem, CalllistPtr cfrom, PyObject *cktlist) { CalllistPtr calls = cschem->calls; PortlistPtr ports, plist; int netid, pnet, portid, length, plen, i; PyObject *pyports, *pycalls, *pynewcall, *pynets, *netnum; PyObject *pydevs, *pyparams, *subckt, *newdev, *pylabel; oparamptr paramlist; /* Trivial objects are by definition those that are supposed */ /* to be resolved by the netlist generation prior to output */ /* and ignored by the output generator. */ if (cschem->schemtype == TRIVIAL) return; /* Make sure that all the subcircuits have been written first */ for (; calls != NULL; calls = calls->next) { if (calls->callobj->traversed == False) { calls->callobj->traversed = True; pyhierarchy(calls->callobj, calls, cktlist); } } /* Write own subcircuit netlist */ subckt = PyDict_New(); /* Prepare the dictionary of network cross-references */ pynets = PyDict_New(); /* Write the name */ PyDict_SetItem(subckt, PyString_FromString("name"), PyString_FromString(cschem->name)); /* Write the list of ports */ if ((ports = cschem->ports) != NULL) { /* List of ports in subcircuit. */ /* Each parameter connects to a net which may have multiple */ /* names, so find the net associated with the parameter */ /* and convert it back into a pin name in the usual manner */ /* using nettopin(). */ pyports = PyList_New(0); for (; ports != NULL; ports = ports->next) { netid = ports->netid; netnum = PyInt_FromLong((long)netid); PyList_Append(pyports, netnum); if (netid >= 0) PyDict_SetItem(pynets, netnum, PyGetStringParts(nettopin(netid, cschem, NULL))); } PyDict_SetItem(subckt, PyString_FromString("ports"), pyports); } /* Write the list of parameters */ if (cschem->params != NULL) { pyparams = PyList_New(0); for (paramlist = cschem->params; paramlist != NULL; paramlist = paramlist->next) { if (paramlist->type == XC_INT) PyList_Append(pyparams, PyInt_FromLong((long)paramlist->parameter.ivalue)); if (paramlist->type == XC_FLOAT) PyList_Append(pyparams, PyFloat_FromDouble((double)paramlist->parameter.fvalue)); else if (paramlist->type == XC_STRING) { pylabel = PyGetStringParts(paramlist->parameter.string); /* Should get rid of last entry, "End Parameter"; not needed */ PyList_Append(pyparams, pylabel); } } PyDict_SetItem(subckt, PyString_FromString("parameters"), pyparams); } /* Write the list of calls to subcircuits */ if ((calls = cschem->calls) != NULL) { pycalls = PyList_New(0); for (; calls != NULL; calls = calls->next) { /* Don't write calls to non-functional subcircuits. */ if (calls->callobj->schemtype == TRIVIAL) continue; pynewcall = PyDict_New(); PyDict_SetItem(pynewcall, PyString_FromString("name"), PyString_FromString(calls->callobj->name)); /* Log any local parameter instances */ if (calls->callinst->params != NULL) { pyparams = PyList_New(0); for (paramlist = cschem->params; paramlist != NULL; paramlist = paramlist->next) { if (paramlist->type == XC_INT) PyList_Append(pyparams, PyInt_FromLong((long)paramlist->parameter.ivalue)); else if (paramlist->type == XC_FLOAT) PyList_Append(pyparams, PyFloat_FromDouble((double)paramlist->parameter.fvalue)); else if (paramlist->type == XC_STRING) PyList_Append(pyparams, PyGetStringParts(paramlist->parameter.string)); } PyDict_SetItem(pynewcall, PyString_FromString("parameters"), pyparams); } /* The object's definition lists calls in the order of the object's */ /* port list. Therefore, use this order to find the port list. */ /* Unconnected ports will be NULL entries in the list (?). */ if (calls->callobj->ports != NULL) { pyports = PyList_New(0); for (ports = calls->callobj->ports; ports != NULL; ports = ports->next) { portid = ports->portid; for (plist = calls->ports; plist != NULL; plist = plist->next) if (plist->portid == ports->portid) break; pnet = (plist == NULL) ? netmax(cschem) + 1 : plist->netid; netnum = PyInt_FromLong((long)pnet); PyList_Append(pyports, netnum); if (pnet >= 0) PyDict_SetItem(pynets, netnum, PyGetStringParts(nettopin(pnet, cschem, NULL))); } PyDict_SetItem(pynewcall, PyString_FromString("ports"), pyports); } PyList_Append(pycalls, pynewcall); } PyDict_SetItem(subckt, PyString_FromString("calls"), pycalls); } /* If the object has info labels, write a device list. */ /* Check both the schematic and its symbol for info labels. */ pydevs = PyList_New(0); if (cschem->symschem != NULL) { newdev = pyparseinfo(cschem->symschem); PyList_Append(pydevs, newdev); } newdev = pyparseinfo(cschem); PyList_Append(pydevs, newdev); PyDict_SetItem(subckt, PyString_FromString("devices"), pydevs); /* Write the network cross-reference dictionary */ PyDict_SetItem(subckt, PyString_FromString("nets"), pynets); PyList_Append(cktlist, subckt); } /*----------------------------------------------------------------------*/ PyObject *pytoplevel(objectptr cschem) { PyObject *cktlist; cktlist = PyList_New(0); cleartraversed(cschem); pyhierarchy(cschem, NULL, cktlist); return cktlist; } #endif /* HAVE_PYTHON */ /*----------------------------------------------------------------------*/ /* Update networks in an object by checking if the network is valid, */ /* and destroying and recreating the network if necessary. */ /* */ /* Run cleartraversed() on all types. The traversed flag allows a */ /* check for infinite recursion when creating calls. */ /* */ /* Returns -1 on discovery of infinite recursion, 0 on failure to */ /* generate a net, and 1 on success. */ /*----------------------------------------------------------------------*/ int updatenets(objinstptr uinst, Boolean quiet) { objectptr thisobject; objinstptr thisinst; int spage; /* Never try to generate a netlist while a file is being read, as */ /* can happen if an expression parameter attempts to query a netlist */ /* node. */ if (load_in_progress) return 0; if (uinst->thisobject->symschem != NULL && uinst->thisobject->schemtype != PRIMARY) { thisobject = uinst->thisobject->symschem; if ((spage = is_page(thisobject)) >= 0) thisinst = xobjs.pagelist[spage]->pageinst; } else { thisobject = uinst->thisobject; thisinst = uinst; } if (checkvalid(thisobject) == -1) { uselection *ssave; if (cleartraversed(thisobject) == -1) { Wprintf("Netlist error: Check for recursion in circuit!"); return -1; } /* Note: destroy/create nets messes up the part list. Why?? */ if (areawin->selects > 0) ssave = remember_selection(areawin->topinstance, areawin->selectlist, areawin->selects); destroynets(thisobject); createnets(thisinst, quiet); if (areawin->selects > 0) { areawin->selectlist = regen_selection(areawin->topinstance, ssave); free_selection(ssave); } } if (thisobject->labels == NULL && thisobject->polygons == NULL) { if (quiet == FALSE) Wprintf("Netlist error: No netlist elements in object %s", thisobject->name); return 0; } return 1; } /*----------------------------------------------------------------------*/ /* Generate netlist, write information according to mode, and then */ /* destroy the netlist (this will be replaced eventually with a dynamic */ /* netlist model in which the netlist changes according to editing of */ /* individual elements, not created and destroyed wholesale) */ /*----------------------------------------------------------------------*/ void writenet(objectptr thisobject, char *mode, char *suffix) { objectptr cschem; objinstptr thisinst; char filename[100]; char *prefix, *cpos, *locmode = mode, *stsave = NULL; FILE *fp; /* Calllist topcell; (jdk) */ Boolean is_spice = FALSE, sp_end_save = spice_end; /* Always use the master schematic, if there is one. */ if (thisobject->schemtype == SECONDARY) cschem = thisobject->symschem; else cschem = thisobject; /* Update the netlist if this has not been done */ if (NameToPageObject(cschem->name, &thisinst, NULL) == NULL) { Wprintf("Not a schematic. . . cannot generate output!\n"); return; } if (updatenets(thisinst, FALSE) <= 0) { Wprintf("No file written!"); return; } prefix = (char *)malloc(sizeof(char)); *prefix = '\0'; if ((cpos = strchr(cschem->name, ':')) != NULL) *cpos = '\0'; sprintf(filename, "%s.%s", cschem->name, suffix); if (cpos != NULL) *cpos = ':'; if (!strncmp(mode, "index", 5)) { /* This mode generates no output */ locmode += 5; fp = (FILE *)NULL; } else if ((fp = fopen(filename, "w")) == NULL) { Wprintf("Could not open file %s for writing.", filename); free(prefix); return; } /* Clear device indices from any previous netlist output */ cleartraversed(cschem); clear_indices(cschem); /* Make sure list of include-once files is empty */ free_included(); /* Handle different netlist modes */ if (!strcmp(mode, "spice")) { if (thisobject->schemtype == SYMBOL) cschem = thisobject->symschem; is_spice = TRUE; fprintf(fp, "*SPICE %scircuit <%s> from XCircuit v%g rev %d\n\n", (thisobject->schemtype == SYMBOL) ? "sub" : "", cschem->name, PROG_VERSION, PROG_REVISION); /* writeglobals(cschem, fp); */ cleartraversed(cschem); writehierarchy(cschem, thisinst, NULL, fp, mode); } else if (!strcmp(mode, "flatspice")) { is_spice = TRUE; fprintf(fp, "*SPICE (flattened) circuit \"%s\" from XCircuit v%g rev %d\n\n", cschem->name, PROG_VERSION, PROG_REVISION); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); } topflat(cschem, thisinst, NULL, prefix, fp, mode); } else if (!strcmp(mode, "pseuspice")) { is_spice = TRUE; fprintf(fp, "*SPICE subcircuit \"%s\" from XCircuit v%g rev %d\n\n", cschem->name, PROG_VERSION, PROG_REVISION); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); } writeflat(cschem, NULL, prefix, fp, mode); freeflatindex(); } else if (!strcmp(mode, "flatsim") || !strcmp(mode, "pseusim")) { fprintf(fp, "| sim circuit \"%s\" from XCircuit v%3.2f rev %d\n", cschem->name, PROG_VERSION, PROG_REVISION); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); } topflat(cschem, thisinst, NULL, prefix, fp, mode); } else if (!strcmp(locmode, "pcb")) { struct Ptab *ptable = (struct Ptab *)NULL; writepcb(&ptable, cschem, NULL, "", mode); if (stsave != NULL) { fputs(stsave, fp); fprintf(fp, "\n"); } outputpcb(ptable, fp); freepcb(ptable); } else if (!strncmp(mode, "flat", 4)) { /* User-defined modes beginning with the word "flat": */ /* Assume a flattened netlist, and assume nothing else. */ if (thisobject->schemtype == SYMBOL) cschem = thisobject->symschem; cleartraversed(cschem); writeflat(cschem, NULL, prefix, fp, mode); freeflatindex(); } else if (!strncmp(mode, "pseu", 4)) { /* User-defined modes beginning with the word "pseu": */ /* Assume a flattened netlist for everything under the top level. */ if (thisobject->schemtype == SYMBOL) cschem = thisobject->symschem; cleartraversed(cschem); topflat(cschem, thisinst, NULL, prefix, fp, mode); } else { /* All user-defined modes: Assume a hierarchical netlist, and */ /* assume nothing else. */ if (thisobject->schemtype == SYMBOL) cschem = thisobject->symschem; cleartraversed(cschem); writehierarchy(cschem, thisinst, NULL, fp, mode); } /* Finish up SPICE files with a ".end" statement (if requested) */ if (is_spice && (spice_end == True)) fprintf(fp, ".end\n"); spice_end = sp_end_save; /* Finish up */ if (fp != NULL) { fclose(fp); Wprintf("%s netlist saved as %s", mode, filename); } if (stsave != NULL) free(stsave); free(prefix); } /*----------------------------------------------------------------------*/ /* Flatten netlist and save into a table of pcb-style nets */ /* The routine is recursive. Each call returns TRUE if some nested */ /* call generated output; this is a reasonable way to tell if we have */ /* reached the bottom of the hierarchy. */ /*----------------------------------------------------------------------*/ Boolean writepcb(struct Ptab **ptableptr, objectptr cschem, CalllistPtr cfrom, char *prefix, char *mode) { PolylistPtr plist; LabellistPtr llist; CalllistPtr calls; PortlistPtr ports; int i, testnet, tmplen, subnet; char *newprefix = (char *)malloc(sizeof(char)); char *sout, *snew; struct Ptab *hidx, *htmp; struct Pstr *tmpstr; struct Pnet *tmpnet; objinstptr cinst; buslist *sbus; int locnet, lbus; Boolean outputdone = FALSE; Boolean outputcall; /* Step 1A: Go through the polygons of this object and add */ /* any unvisited nets to the table. */ for (plist = cschem->polygons; plist != NULL; plist = plist->next) { for (lbus = 0;;) { if (plist->subnets == 0) testnet = plist->net.id; else { sbus = plist->net.list + lbus; testnet = sbus->netid; } hidx = *ptableptr; while (hidx != NULL) { if (hidx->nets != NULL) { for (i = 0; i < hidx->nets->numnets; i++) if (*(hidx->nets->netidx + i) == testnet) break; if (i < hidx->nets->numnets) break; } hidx = hidx->next; } if (hidx == NULL) { /* make new entry for net in table */ htmp = (struct Ptab *)malloc(sizeof(struct Ptab)); tmpnet = (struct Pnet *)malloc(sizeof(struct Pnet)); tmpnet->numnets = 1; tmpnet->netidx = (int *)malloc(sizeof(int)); *(tmpnet->netidx) = testnet; tmpnet->next = NULL; htmp->cschem = cschem; htmp->nets = tmpnet; htmp->pins = NULL; htmp->next = *ptableptr; *ptableptr = htmp; /* Fprintf(stdout, "Added new index entry for net %d\n", testnet); */ } if (++lbus >= plist->subnets) break; } } /* Step 1B: Do the same thing for labels. */ for (llist = cschem->labels; llist != NULL; llist = llist->next) { for (lbus = 0;;) { if (llist->subnets == 0) testnet = llist->net.id; else { sbus = llist->net.list + lbus; testnet = sbus->netid; } hidx = *ptableptr; while (hidx != NULL) { if (hidx->nets != NULL) { for (i = 0; i < hidx->nets->numnets; i++) if (*(hidx->nets->netidx + i) == testnet) break; if (i < hidx->nets->numnets) break; } hidx = hidx->next; } if (hidx == NULL) { /* make new entry for net in table */ htmp = (struct Ptab *)malloc(sizeof(struct Ptab)); tmpnet = (struct Pnet *)malloc(sizeof(struct Pnet)); tmpnet->numnets = 1; tmpnet->netidx = (int *)malloc(sizeof(int)); *(tmpnet->netidx) = testnet; tmpnet->next = NULL; htmp->cschem = cschem; htmp->nets = tmpnet; htmp->pins = NULL; htmp->next = *ptableptr; *ptableptr = htmp; /* Fprintf(stdout, "Added new index entry for net %d\n", testnet); */ } if (++lbus >= llist->subnets) break; } } /* Step 2: Resolve fixed device indices */ resolve_devindex(cschem, FALSE); /* Step 3: Go through the list of calls to search for endpoints */ for (calls = cschem->calls; calls != NULL; calls = calls->next) { objectptr cthis; cinst = calls->callinst; /* Trivial objects should have been dealt with already. */ /* If we don't continue the loop here, you get netlist output for */ /* objects like dots and circles. */ if (calls->callobj->schemtype == TRIVIAL) continue; /* Step 4: If call is to a bottom-most schematic, output the device connections */ /* Info-label can provide an alternate name or specify the instance number */ cthis = calls->callobj; if (calls->callobj->schemtype == PRIMARY || calls->callobj->schemtype == SECONDARY) if (calls->callobj->symschem != NULL) cthis = calls->callobj->symschem; if ((sout = parseinfo(cschem, cthis, calls, prefix, mode, FALSE, TRUE)) == NULL) { if (calls->devname == NULL) calls->devname = strdup(calls->callinst->thisobject->name); sprintf(_STR, "%s_%s", calls->devname, d36a(devindex(cschem, calls))); } else { sscanf(sout, "%s", _STR); /* Copy the first word out of sout */ } newprefix = (char *)realloc(newprefix, sizeof(char) * (strlen(prefix) + strlen(_STR) + 2)); sprintf(newprefix, "%s%s/", prefix, _STR); /*----------------------------------------------------------------*/ /* Parsing of the "pcb:" info label--- */ /* Find all = strings and create the appropriate nets */ /*----------------------------------------------------------------*/ if (sout) { char rsave, *lhs, *rhs, *rend, *sptr = sout, *tmppinname; while ((rhs = strchr(sptr, '=')) != NULL) { Genericlist *implicit, newlist; struct Pstr *psrch = NULL; lhs = rhs - 1; while ((lhs >= sptr) && isspace(*lhs)) lhs--; while ((lhs >= sptr) && !isspace(*lhs)) lhs--; *rhs = '\0'; rhs++; if (isspace(*lhs)) lhs++; while ((*rhs) && isspace(*rhs)) rhs++; for (rend = rhs; (*rend) && (!isspace(*rend)); rend++); rsave = *rend; *rend = '\0'; /* Get the net from the equation RHS. If none exists, assume */ /* the name is a global net and add it to the list of globals. */ implicit = nametonet(cschem, cinst, rhs); if (implicit == NULL) { stringpart *strptr; label templabel; labeldefaults(&templabel, GLOBAL, 0, 0); strptr = templabel.string; strptr->type = TEXT_STRING; strptr->data.string = strdup(rhs); newlist.subnets = 0; newlist.net.id = globalmax() - 1; addglobalpin(cschem, cinst, &templabel, &newlist); implicit = &newlist; free(strptr->data.string); } /* Get the name of the pin */ tmppinname = (char *)malloc(strlen(newprefix) + strlen(lhs) + 2); strcpy(tmppinname, newprefix); if ((tmplen = strlen(newprefix)) > 0) tmppinname[tmplen - 1] = '-'; strcat(tmppinname, lhs); /* Find the net in the ptable, or create a new entry for it */ hidx = *ptableptr; while (hidx != NULL) { if (hidx->nets != NULL) { for (i = 0; i < hidx->nets->numnets; i++) if (*(hidx->nets->netidx + i) == implicit->net.id) break; if (i < hidx->nets->numnets) break; } hidx = hidx->next; } if (hidx == NULL) { htmp = (struct Ptab *)malloc(sizeof(struct Ptab)); tmpnet = (struct Pnet *)malloc(sizeof(struct Pnet)); tmpnet->numnets = 1; tmpnet->netidx = (int *)malloc(sizeof(int)); *(tmpnet->netidx) = implicit->net.id; tmpnet->next = NULL; htmp->cschem = cschem; htmp->nets = tmpnet; htmp->pins = NULL; htmp->next = *ptableptr; *ptableptr = htmp; hidx = htmp; } else { /* Check if any entries are the same as tmppinname */ for (psrch = hidx->pins; psrch != NULL; psrch = psrch->next) { if (!strcmp(psrch->string->data.string, tmppinname)) break; } } /* Get the pin name from the equation LHS */ if (psrch == NULL) { tmpstr = (struct Pstr *)malloc(sizeof(struct Pstr)); tmpstr->string = (stringpart *)malloc(sizeof(stringpart)); tmpstr->string->type = TEXT_STRING; tmpstr->string->nextpart = NULL; tmpstr->string->data.string = tmppinname; tmpstr->next = hidx->pins; hidx->pins = tmpstr; } else { free(tmppinname); } /* Proceed to the next LHS=RHS pair */ *rend = rsave; sptr = rend; } free(sout); } outputcall = FALSE; if (calls->callobj->calls != NULL) { /* Step 4A: Push current net translations */ /* (Don't push or pop global net numbers: no translation needed!) */ hidx = *ptableptr; while (hidx != NULL) { if ((hidx->nets != NULL) && (((hidx->nets->numnets > 0) && (*(hidx->nets->netidx) >= 0)) || (hidx->nets->numnets == 0))) { tmpnet = (struct Pnet *)malloc(sizeof(struct Pnet)); tmpnet->numnets = 0; tmpnet->netidx = NULL; tmpnet->next = hidx->nets; hidx->nets = tmpnet; } hidx = hidx->next; } /* Step 4B: Generate net translation table for each subcircuit */ for (ports = calls->ports; ports != NULL; ports = ports->next) { for (hidx = *ptableptr; hidx != NULL; hidx = hidx->next) { if (hidx->nets != NULL) { if (hidx->nets->next != NULL) { for (i = 0; i < hidx->nets->next->numnets; i++) if (*(hidx->nets->next->netidx + i) == ports->netid) break; if (i < hidx->nets->next->numnets) break; } else if (ports->netid < 0) { if (hidx->nets->netidx != NULL) if (*(hidx->nets->netidx) == ports->netid) break; } } } if (hidx != NULL) { hidx->nets->numnets++; if (hidx->nets->numnets == 1) hidx->nets->netidx = (int *)malloc(sizeof(int)); else hidx->nets->netidx = (int *)realloc(hidx->nets->netidx, hidx->nets->numnets * sizeof(int)); /* Translate net value */ locnet = translatedown(ports->netid, ports->portid, calls->callobj); *(hidx->nets->netidx + hidx->nets->numnets - 1) = locnet; /* Fprintf(stdout, "Translation: net %d in object %s is net " "%d in object %s\n", ports->netid, cschem->name, locnet, calls->callobj->name); */ } } /* Step 4C: Run routine recursively on the subcircuit */ /* Fprintf(stdout, "Recursive call of writepcb() to %s\n", calls->callobj->name); */ outputcall = writepcb(ptableptr, calls->callobj, calls, newprefix, mode); /* Step 4D: Pop the translation table */ /* (Don't pop global nets (designated by negative net number)) */ hidx = *ptableptr; while (hidx != NULL) { if ((hidx->nets != NULL) && (((hidx->nets->numnets > 0) && (*(hidx->nets->netidx) >= 0)) || (hidx->nets->numnets == 0))) { tmpnet = hidx->nets->next; if (hidx->nets->numnets > 0) free(hidx->nets->netidx); free(hidx->nets); hidx->nets = tmpnet; } hidx = hidx->next; } } if (!outputcall) { stringpart *ppin; /* Fprintf(stdout, "Reached lowest-level schematic: Finding connections\n"); */ for (ports = calls->ports; ports != NULL; ports = ports->next) { locnet = translatedown(ports->netid, ports->portid, calls->callobj); /* Global pin names should probably be ignored, not just */ /* when an object is declared to be "trivial". Not sure if */ /* this breaks certain netlists. . . */ if (locnet < 0) continue; /* Get the name of the pin in the called object with no prefix. */ subnet = getsubnet(locnet, calls->callobj); ppin = nettopin(locnet, calls->callobj, NULL); hidx = *ptableptr; while (hidx != NULL) { if (hidx->nets != NULL) { for (i = 0; i < hidx->nets->numnets; i++) if (*(hidx->nets->netidx + i) == ports->netid) break; if (i < hidx->nets->numnets) break; } hidx = hidx->next; } if (hidx == NULL) { snew = textprintsubnet(ppin, cinst, subnet); Fprintf(stdout, "Warning: Unconnected pin %s%s\n", newprefix, snew); free(snew); } else { outputcall = TRUE; outputdone = TRUE; tmpstr = (struct Pstr *)malloc(sizeof(struct Pstr)); tmpstr->string = (stringpart *)malloc(sizeof(stringpart)); tmpstr->string->type = TEXT_STRING; tmpstr->string->nextpart = NULL; snew = textprintsubnet(ppin, cinst, subnet); tmpstr->string->data.string = (char *)malloc(strlen(newprefix) + strlen(snew) + 2); strcpy(tmpstr->string->data.string, newprefix); /* Replace slash '/' with dash '-' at bottommost level */ if ((tmplen = strlen(newprefix)) > 0) tmpstr->string->data.string[tmplen - 1] = '-'; strcat(tmpstr->string->data.string, snew); free(snew); tmpstr->next = hidx->pins; hidx->pins = tmpstr; /* diagnositic information */ { struct Pnet *locnet = hidx->nets; int ctr = 0; while (locnet->next != NULL) { locnet = locnet->next; ctr++; } /* Fprintf(stdout, "Logged level-%d net %d (local net %d) pin %s\n", ctr, *(locnet->netidx), *(hidx->nets->netidx + i), tmpstr->string); */ } } } } } /* Step 5: Cleanup */ free(newprefix); return outputdone; } /*----------------------------------------------------------------------*/ /* Save PCB table into pcb-style file */ /*----------------------------------------------------------------------*/ void outputpcb(struct Ptab *ptable, FILE *fp) { int netidx = 1, ccol, subnet; struct Ptab *pseek; struct Pstr *sseek; char *snew; stringpart *ppin; if (fp == NULL) return; for (pseek = ptable; pseek != NULL; pseek = pseek->next) { if (pseek->pins != NULL) { if ((pseek->nets != NULL) && (pseek->nets->numnets > 0)) { subnet = getsubnet(*(pseek->nets->netidx), pseek->cschem); ppin = nettopin(*(pseek->nets->netidx), pseek->cschem, ""); snew = textprintsubnet(ppin, NULL, subnet); strcpy(_STR, snew); free(snew); } else sprintf(_STR, "NET%d ", netidx++); fprintf(fp, "%-11s ", _STR); ccol = 12; for (sseek = pseek->pins; sseek != NULL; sseek = sseek->next) { ccol += stringlength(sseek->string, False, NULL) + 3; if (ccol > 78) { fprintf(fp, "\\\n "); ccol = 18 + stringlength(sseek->string, False, NULL); } snew = textprint(sseek->string, NULL); fprintf(fp, "%s ", snew); free(snew); } fprintf(fp, "\n"); } /* else fprintf(fp, "NET%d *UNCONNECTED*\n", netidx++); */ } } /*----------------------------------------------*/ /* free memory allocated to PCB net tables */ /*----------------------------------------------*/ void freepcb(struct Ptab *ptable) { struct Ptab *pseek, *pseek2; struct Pstr *sseek, *sseek2; struct Pnet *nseek, *nseek2; pseek = ptable; pseek2 = pseek; while (pseek2 != NULL) { pseek = pseek->next; sseek = pseek2->pins; sseek2 = sseek; while (sseek2 != NULL) { sseek = sseek->next; freelabel(sseek2->string); free(sseek2); sseek2 = sseek; } nseek = pseek2->nets; nseek2 = nseek; while (nseek2 != NULL) { nseek = nseek->next; if (nseek2->numnets > 0) free(nseek2->netidx); free(nseek2); nseek2 = nseek; } free(pseek2); pseek2 = pseek; } } /*----------------------------------------------------------------------*/ /* Remove an element from the netlist. This is necessary when an */ /* element is deleted from the object, so that the netlist does not */ /* refer to a nonexistant element, or try to perform netlist function */ /* on it. */ /* */ /* Return True or False depending on whether a pin was "orphaned" on */ /* the corresponding schematic or symbol (if any), as this may cause */ /* the class of the object (FUNDAMENTAL, TRIVIAL, etc.) to change. */ /*----------------------------------------------------------------------*/ Boolean RemoveFromNetlist(objectptr thisobject, genericptr thiselem) { Boolean pinchanged = False; labelptr nlab; polyptr npoly; objectptr pschem; objinstptr ninst; PolylistPtr plist, plast; LabellistPtr llist, llast; CalllistPtr clist, clast; pschem = (thisobject->schemtype == SECONDARY) ? thisobject->symschem : thisobject; switch (thiselem->type) { case OBJINST: ninst = (objinstptr)thiselem; /* If this is an object instance, remove it from the calls */ clast = NULL; for (clist = pschem->calls; clist != NULL; clist = clist->next) { if (clist->callinst == ninst) { if (clast == NULL) pschem->calls = clist->next; else clast->next = clist->next; freecalls(clist); clist = (clast) ? clast : pschem->calls; break; } else clast = clist; } break; case POLYGON: npoly = (polyptr)thiselem; if (nonnetwork(npoly)) break; /* If this is a polygon, remove it from the netlist */ plast = NULL; for (plist = pschem->polygons; plist != NULL; plist = plist->next) { if (plist->poly == npoly) { if (plast == NULL) pschem->polygons = plist->next; else plast->next = plist->next; if (plist->subnets > 0) free(plist->net.list); break; } else plast = plist; } break; case LABEL: nlab = (labelptr)thiselem; if ((nlab->pin != LOCAL) && (nlab->pin != GLOBAL)) break; /* If this is a label, remove it from the netlist */ llast = NULL; for (llist = pschem->labels; llist != NULL; llist = llist->next) { if (llist->label == nlab) { if (llast == NULL) pschem->labels = llist->next; else llast->next = llist->next; if (llist->subnets > 0) free(llist->net.list); break; } else llast = llist; } /* Mark pin label in corresponding schematic/symbol as "orphaned" */ /* by changing designation from type "pin" to type "label". */ if (findlabelcopy(nlab, nlab->string) == NULL) { changeotherpins(NULL, nlab->string); if (nlab->pin == INFO) pinchanged = True; } } return pinchanged; } /*----------------------------------------------------------------------*/ /* Remove one element from the netlist */ /*----------------------------------------------------------------------*/ void remove_netlist_element(objectptr cschem, genericptr genelem) { objectptr pschem; CalllistPtr clist, clast, cnext; LabellistPtr llist, llast, lnext; PolylistPtr plist, plast, pnext; Boolean found = FALSE; /* Always call on the primary schematic */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; switch (ELEMENTTYPE(genelem)) { case POLYGON: /* remove polygon from polygon list */ plast = NULL; for (plist = pschem->polygons; plist != NULL; ) { pnext = plist->next; if ((genericptr)plist->poly == genelem) { found = TRUE; if (plist->subnets > 0) free(plist->net.list); free(plist); if (plast != NULL) plast->next = pnext; else pschem->polygons = pnext; break; } else plast = plist; plist = pnext; } break; case LABEL: /* remove label from label list */ llast = NULL; for (llist = pschem->labels; llist != NULL; ) { lnext = llist->next; if ((genericptr)llist->label == genelem) { found = TRUE; if (llist->subnets > 0) free(llist->net.list); free(llist); if (llast != NULL) llast->next = lnext; else pschem->labels = lnext; break; } else llast = llist; llist = lnext; } /* also check the globals */ llast = NULL; for (llist = global_labels; llist != NULL; ) { lnext = llist->next; if ((genericptr)llist->label == genelem) { found = TRUE; if (llist->subnets > 0) free(llist->net.list); free(llist); if (llast != NULL) llast->next = lnext; else global_labels = lnext; break; } else llast = llist; llist = lnext; } break; case OBJINST: /* remove instance from call list */ clast = NULL; for (clist = pschem->calls; clist != NULL; ) { cnext = clist->next; if ((genericptr)clist->callinst == genelem) { found = TRUE; freecalls(clist); if (clast != NULL) clast->next = cnext; else pschem->calls = cnext; } else clast = clist; clist = cnext; } break; } if (found) pschem->valid = FALSE; } /*----------------------------------------------------------------------*/ /* Free memory allocated for the ports in a calls. */ /*----------------------------------------------------------------------*/ void freecalls(CalllistPtr calls) { PortlistPtr ports, pptr; for (ports = calls->ports; ports != NULL;) { pptr = ports->next; free(ports); ports = pptr; } if (calls->devname != NULL) free(calls->devname); free(calls); } /*----------------------------------------------------------------------*/ /* Free memory for a Genericlist structure (may also be a Labellist or */ /* Polylist structure). */ /*----------------------------------------------------------------------*/ void freegenlist(Genericlist *nets) { if (nets == NULL) return; if (nets->subnets > 0) free(nets->net.list); free(nets); } /*----------------------------------------------------------------------*/ /* Free memory allocated for the label list in a netlist. */ /*----------------------------------------------------------------------*/ void freelabellist(LabellistPtr *listtop) { LabellistPtr labellist, llist; for (labellist = *listtop; labellist != NULL;) { llist = labellist->next; freegenlist((Genericlist *)labellist); labellist = llist; } *listtop = NULL; } /*----------------------------------------------------------------------*/ /* Free memory allocated for the polygon list in a netlist. */ /*----------------------------------------------------------------------*/ void freepolylist(PolylistPtr *listtop) { PolylistPtr polylist, plist; for (polylist = *listtop; polylist != NULL;) { plist = polylist->next; freegenlist((Genericlist *)polylist); polylist = plist; } *listtop = NULL; } /*----------------------------------------------------------------------*/ /* Free memory allocated for netlist */ /*----------------------------------------------------------------------*/ void freenetlist(objectptr cschem) { PolylistPtr *plist; LabellistPtr *llist; plist = &cschem->polygons; freepolylist(plist); llist = &cschem->labels; freelabellist(llist); } /*----------------------------------------------------------------------*/ /* Clear the "traversed" flag in all objects of the hierarchy. */ /*----------------------------------------------------------------------*/ int cleartraversed_level(objectptr cschem, int level) { genericptr *cgen; objinstptr cinst; objectptr callobj, pschem; /* Always call on the primary schematic */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; /* Recursively call cleartraversed() on all subobjects, a la gennetlist() */ /* Use the parts list of the object, not the calls, because calls */ /* may have been removed. */ if (level == HIERARCHY_LIMIT) return -1; for (cgen = pschem->plist; cgen < pschem->plist + pschem->parts; cgen++) { if (IS_OBJINST(*cgen)) { cinst = TOOBJINST(cgen); if (cinst->thisobject->symschem != NULL) callobj = cinst->thisobject->symschem; else callobj = cinst->thisobject; /* Don't infinitely recurse if object is on its own schematic */ /* However, we need to take a stab at more subtle recursion, too */ if (callobj != pschem) if (cleartraversed_level(callobj, level + 1) == -1) return -1; } } pschem->traversed = False; return 0; } /*----------------------------------------------------------------------*/ /* This is the routine normally called, as it hides the "level" */ /* argument tagging the level of recursion. */ /*----------------------------------------------------------------------*/ int cleartraversed(objectptr cschem) { return cleartraversed_level(cschem, 0); } /*----------------------------------------------------------------------*/ /* If any part of the netlist is invalid, destroy the entire netlist */ /*----------------------------------------------------------------------*/ int checkvalid(objectptr cschem) { genericptr *cgen; objinstptr cinst; objectptr callobj, pschem; /* If the object has been declared a non-network object, ignore it */ if (cschem->schemtype == NONETWORK) return 0; /* Always operate on the master schematic */ pschem = (cschem->schemtype == SECONDARY) ? cschem->symschem : cschem; /* Stop immediately if the netlist is invalid */ if (pschem->valid == False) return -1; /* Otherwise, recursively call checkvalid() on all subobjects. */ /* Use the parts list of the object, not the calls, because calls */ /* may have been removed. */ for (cgen = pschem->plist; cgen < pschem->plist + pschem->parts; cgen++) { if (IS_OBJINST(*cgen)) { cinst = TOOBJINST(cgen); if (cinst->thisobject->symschem != NULL) callobj = cinst->thisobject->symschem; else callobj = cinst->thisobject; /* Don't infinitely recurse if object is on its own schematic */ if (callobj == pschem) continue; /* If there is a symbol, don't check its parts, but check if */ /* its netlist has been checkvalid. */ if ((cinst->thisobject->symschem != NULL) && (cinst->thisobject->labels == NULL) && (cinst->thisobject->polygons == NULL) && (cinst->thisobject->valid == False)) return -1; /* Recursive call on subschematic */ if (checkvalid(callobj) == -1) return -1; } } return 0; /* All subnetlists and own netlist are valid */ } /*----------------------------------------------------------------------*/ /* Free memory allocated to temporary labels generated for the netlist */ /*----------------------------------------------------------------------*/ void freetemplabels(objectptr cschem) { genericptr *cgen; objinstptr cinst; objectptr callobj; /* Recursively call freetemplabels() on all subobjects, a la gennetlist() */ /* Use the parts list of the object, not the calls, because calls */ /* may have been removed. */ for (cgen = cschem->plist; cgen < cschem->plist + cschem->parts; cgen++) { if (IS_OBJINST(*cgen)) { cinst = TOOBJINST(cgen); if (cinst->thisobject->symschem != NULL) callobj = cinst->thisobject->symschem; else callobj = cinst->thisobject; /* Don't infinitely recurse if object is on its own schematic */ if (callobj != cschem) freetemplabels(callobj); /* Also free the temp labels of any associated symbol */ if (cinst->thisobject->symschem != NULL) freetemplabels(cinst->thisobject); } /* Free any temporary labels which have been created */ else if (IS_LABEL(*cgen)) { labelptr clab = TOLABEL(cgen); /* int tmpval = (int)(cgen - cschem->plist); (jdk) */ if (clab->string->type != FONT_NAME) { genericptr *tgen; clab = TOLABEL(cgen); freelabel(clab->string); free(clab); for (tgen = cgen + 1; tgen < cschem->plist + cschem->parts; tgen++) *(tgen - 1) = *tgen; cschem->parts--; cgen--; } } } } /*----------------------------------------------------------------------*/ /* Free memory allocated for netlists, ports, and calls */ /*----------------------------------------------------------------------*/ void freenets(objectptr cschem) { CalllistPtr calls, cptr; PortlistPtr ports, pptr; genericptr *cgen; objinstptr cinst; objectptr callobj; /* Recursively call freenets() on all subobjects, a la gennetlist() */ /* Use the parts list of the object, not the calls, because calls */ /* may have been removed. */ if (cschem->schemtype == PRIMARY || cschem->schemtype == SECONDARY || (cschem->schemtype == SYMBOL && cschem->symschem == NULL)) { for (cgen = cschem->plist; cgen < cschem->plist + cschem->parts; cgen++) { if (IS_OBJINST(*cgen)) { cinst = TOOBJINST(cgen); if (cinst->thisobject->symschem != NULL) callobj = cinst->thisobject->symschem; else callobj = cinst->thisobject; /* Don't infinitely recurse if object is on its own schematic */ if (callobj != cschem) freenets(callobj); /* Also free the netlist of any associated symbol */ if (cinst->thisobject->symschem != NULL) freenets(cinst->thisobject); } } } /* Free the allocated structures for this object */ for (calls = cschem->calls; calls != NULL;) { cptr = calls->next; freecalls(calls); calls = cptr; } cschem->calls = NULL; for (ports = cschem->ports; ports != NULL;) { pptr = ports->next; free(ports); ports = pptr; } cschem->ports = NULL; freenetlist(cschem); cschem->traversed = False; cschem->valid = False; freegenlist(cschem->highlight.netlist); cschem->highlight.netlist = NULL; cschem->highlight.thisinst = NULL; } /*----------------------------------------------------------------------*/ /* Free the global pin list */ /*----------------------------------------------------------------------*/ void freeglobals() { LabellistPtr labellist, llist; for (labellist = global_labels; labellist != NULL;) { llist = labellist->next; /* Labels in the global list are temporary and must be deallocated */ freelabel(labellist->label->string); free(labellist->label); freegenlist((Genericlist *)labellist); labellist = llist; } global_labels = NULL; } /*----------------------------------------------------------------------*/ /* Get rid of locally-defined pin names */ /*----------------------------------------------------------------------*/ void clearlocalpins(objectptr cschem) { NetnamePtr netnames, nextname; for (netnames = cschem->netnames; netnames != NULL; ) { nextname = netnames->next; if (netnames->localpin != NULL) { freelabel(netnames->localpin); } free(netnames); netnames = nextname; } cschem->netnames = NULL; } /*----------------------------------------------------------------------*/ /* Handle lists of included files */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* check_included() --- check if a file has already been included. */ /* Check by inode instead of filename so that we cannot trick the */ /* program by giving, e.g., one relative path and one full path. */ /*----------------------------------------------------------------------*/ Boolean check_included(char *filename) { struct stat filestatus; int numi; if (stat(filename, &filestatus) == 0) { if (included_files == NULL) return FALSE; for (numi = 0; *(included_files + numi) != (ino_t)NULL; numi++) { if (*(included_files + numi) == filestatus.st_ino) return TRUE; } } return FALSE; } /*----------------------------------------------------------------------*/ /* append_included() --- update the list of included files by adding */ /* the inode of filename to the list. */ /*----------------------------------------------------------------------*/ void append_included(char *filename) { struct stat filestatus; int numi; if (stat(filename, &filestatus) == 0) { if (included_files == NULL) { included_files = (ino_t *)malloc(2 * sizeof(ino_t)); *included_files = filestatus.st_ino; *(included_files + 1) = (ino_t)NULL; } else { for (numi = 0; *(included_files + numi) != (ino_t)NULL; numi++); included_files = (ino_t *)realloc(included_files, (++numi + 1) * sizeof(ino_t)); *(included_files + numi - 1) = filestatus.st_ino; *(included_files + numi) = (ino_t)NULL; } } else { Wprintf("Error: Cannot stat include file \"%s\"\n", filename); } } /*----------------------------------------------------------------------*/ void free_included() { if (included_files != NULL) { free(included_files); included_files = NULL; } } /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/xcircuit.c0000664000175000001440000013471513135712777014207 0ustar timusers/*----------------------------------------------------------------------*/ /* xcircuit.c --- An X-windows program for drawing circuit diagrams */ /* Copyright (c) 2002 R. Timothy Edwards */ /* */ /* 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. */ /* */ /* 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, write to: */ /* Free Software Foundation, Inc. */ /* 59 Temple Place, Suite 330 */ /* Boston, MA 02111-1307 USA */ /* */ /* See file ./README for contact information */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* Uses the Xw widget set (see directory Xw) */ /* Xcircuit written by Tim Edwards beginning 8/13/93 */ /*----------------------------------------------------------------------*/ #include #include #include #include #include #include #include #include #include #include #include #ifndef XC_WIN32 #include /* for unlink() */ #include #include #include #include #include #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #include "Xw/Form.h" #include "Xw/WorkSpace.h" #include "Xw/PButton.h" #include "Xw/SText.h" #include "Xw/Cascade.h" #include "Xw/PopupMgr.h" #include "Xw/MenuBtn.h" #include "Xw/BBoard.h" #include "Xw/TextEdit.h" #include "Xw/Toggle.h" #endif #endif #if defined(XC_WIN32) && defined(TCL_WRAPPER) #include #include #include #include #endif #ifndef P_tmpdir #define P_tmpdir TMPDIR #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "xcircuit.h" #include "cursors.h" #include "colordefs.h" #include "menudep.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* Global Variable definitions */ /*----------------------------------------------------------------------*/ char _STR2[250]; /* Specifically for text returned from the popup prompt */ char _STR[150]; /* Generic multipurpose string */ int pressmode; /* Whether we are in a press & hold state */ Display *dpy = NULL; /* Works well to make this globally accessible */ Colormap cmap; Pixmap STIPPLE[STIPPLES]; /* Polygon fill-style stipple patterns */ Cursor appcursors[NUM_CURSORS]; ApplicationData appdata; XCWindowData *areawin; Globaldata xobjs; int number_colors; colorindex *colorlist; short menusize; xcIntervalId printtime_id; short beeper; short fontcount; fontinfo *fonts; short popups; /* total number of popup widgets on the screen */ /*----------------------------------------------------------------------*/ /* Externally defined variables */ /*----------------------------------------------------------------------*/ extern aliasptr aliastop; extern float version; #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #else extern XtAppContext app; #endif #if !defined(HAVE_CAIRO) extern Pixmap dbuf; #endif /* Bad hack for problems with the DECstation. . . don't know why */ #ifdef UniqueContextProblem #undef XUniqueContext XContext XUniqueContext() { return XrmUniqueQuark(); } #endif /* End of bad hack. . . */ /*----------------------------------------------------------------------*/ /* Update the list of colors in the colormap */ /*----------------------------------------------------------------------*/ void addtocolorlist(xcWidget button, int cvalue) { number_colors++; colorlist = (colorindex *)realloc(colorlist, number_colors * sizeof(colorindex)); colorlist[number_colors - 1].cbutton = button; colorlist[number_colors - 1].color.pixel = cvalue; /* Get and store the RGB values of the new color */ XQueryColors(dpy, cmap, &(colorlist[number_colors - 1].color), 1); } /*----------------------------------------------------------------------*/ /* Add a new color button to the color menu */ /* called if new color button needs to be made */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER int addnewcolorentry(int ccolor) { xcWidget newbutton = (xcWidget)NULL; int i; /* check to see if entry is already in the color list */ for (i = NUMBER_OF_COLORS; i < number_colors; i++) if (colorlist[i].color.pixel == ccolor) break; /* make new entry in the menu */ if (i == number_colors) { addtocolorlist(newbutton, ccolor); sprintf(_STR2, "xcircuit::newcolorbutton %d %d %d %d", colorlist[i].color.red, colorlist[i].color.green, colorlist[i].color.blue, i); Tcl_Eval(xcinterp, _STR2); } return i; } #endif /* TCL_WRAPPER */ /*---------------*/ /* Quit xcircuit */ /*---------------*/ void quit(xcWidget w, caddr_t nulldata) { int i; Matrixptr curmatrix, dmatrix; /* free up CTM Matrix Stack */ if (areawin != NULL) { curmatrix = areawin->MatStack; while (curmatrix != NULL) { dmatrix = curmatrix->nextmatrix; free(curmatrix); curmatrix = dmatrix; } areawin->MatStack = NULL; } /* free the colormap if a new one has been installed */ if (dpy != NULL) if (cmap != DefaultColormap(dpy, DefaultScreen(dpy))) XFreeColormap(dpy, cmap); /* exit ghostscript if background rendering was enabled */ exit_gs(); #ifdef TCL_WRAPPER /* exit ngspice if the simulator is still running */ exit_spice(); #endif /* remove any temporary files created for background rendering */ for (i = 0; i < xobjs.pages; i++) { if (xobjs.pagelist[i]->pageinst != NULL) if (xobjs.pagelist[i]->background.name != (char *)NULL) if (*(xobjs.pagelist[i]->background.name) == '@') unlink(xobjs.pagelist[i]->background.name + 1); } /* remove the temporary file and free the filename memory */ /* if w = NULL, quit() was reached from Ctrl-C. Don't */ /* remove the temporary file; instead, notify user of the */ /* filename. */ if (xobjs.tempfile != NULL) { if (w != NULL) { #ifndef XC_WIN32 if (unlink(xobjs.tempfile) < 0) Fprintf(stderr, "Error %d unlinking file \"%s\"\n", errno, xobjs.tempfile); #else if (DeleteFile(xobjs.tempfile) != TRUE) Fprintf(stderr, "Error %d unlinking file \"%s\"\n", GetLastError(), xobjs.tempfile); #endif } else Fprintf(stderr, "Ctrl-C exit: reload workspace from \"%s\"\n", xobjs.tempfile); free(xobjs.tempfile); xobjs.tempfile = NULL; } #if defined(HAVE_PYTHON) /* exit by exiting the Python interpreter, if enabled */ exit_interpreter(); #elif defined(TCL_WRAPPER) /* Let Tcl/Tk handle exit */ return; #elif defined(XC_WIN32) PostQuitMessage(0); #else exit(0); #endif } /*--------------------------------------------------------------*/ /* Check for changes in an object and all of its descendents */ /*--------------------------------------------------------------*/ u_short getchanges(objectptr thisobj) { genericptr *pgen; objinstptr pinst; u_short changes = thisobj->changes; for (pgen = thisobj->plist; pgen < thisobj->plist + thisobj->parts; pgen++) { if (IS_OBJINST(*pgen)) { pinst = TOOBJINST(pgen); changes += getchanges(pinst->thisobject); } } return changes; } /*--------------------------------------------------------------*/ /* Check to see if any objects in xcircuit have been modified */ /* without saving. */ /*--------------------------------------------------------------*/ u_short countchanges(char **promptstr) { int slen = 1, i; /* , j; (jdk) */ u_short locchanges, changes = 0, words = 1; objectptr thisobj; char *fname; TechPtr ns; if (promptstr != NULL) slen += strlen(*promptstr); for (i = 0; i < xobjs.pages; i++) { if (xobjs.pagelist[i]->pageinst != NULL) { thisobj = xobjs.pagelist[i]->pageinst->thisobject; locchanges = getchanges(thisobj); if (locchanges > 0) { if (promptstr != NULL) { slen += strlen(thisobj->name) + 2; *promptstr = (char *)realloc(*promptstr, slen); if ((words % 8) == 0) strcat(*promptstr, ",\n"); else if (changes > 0) strcat(*promptstr, ", "); strcat(*promptstr, thisobj->name); words++; } changes += locchanges; } } } /* Check all library objects for unsaved changes */ for (ns = xobjs.technologies; ns != NULL; ns = ns->next) { tech_set_changes(ns); if ((ns->flags & TECH_CHANGED) != 0) { changes++; if (promptstr != NULL) { fname = ns->filename; if (fname != NULL) { slen += strlen(fname) + 2; *promptstr = (char *)realloc(*promptstr, slen); if ((words % 8) == 0) strcat(*promptstr, ",\n"); else if (changes > 0) strcat(*promptstr, ", "); strcat(*promptstr, fname); words++; } } } } return changes; } /*----------------------------------------------*/ /* Check for conditions to approve program exit */ /* Return 0 if prompt "Okay" button ends the */ /* program, 1 if the program should exit */ /* immediately. */ /*----------------------------------------------*/ #ifdef TCL_WRAPPER int quitcheck(xcWidget w, caddr_t clientdata, caddr_t calldata) { char *promptstr; Boolean doprompt = False; /* enable default interrupt signal handler during this time, so that */ /* a double Control-C will ALWAYS exit. */ signal(SIGINT, SIG_DFL); promptstr = (char *)malloc(60); strcpy(promptstr, ".query.title.field configure -text \"Unsaved changes in: "); /* Check all page objects for unsaved changes */ doprompt = (countchanges(&promptstr) > 0) ? True : False; /* If any changes have not been saved, generate a prompt */ if (doprompt) { promptstr = (char *)realloc(promptstr, strlen(promptstr) + 15); strcat(promptstr, "\nQuit anyway?"); strcat(promptstr, "\""); Tcl_Eval(xcinterp, promptstr); Tcl_Eval(xcinterp, ".query.bbar.okay configure -command {quitnocheck}"); Tcl_Eval(xcinterp, "wm deiconify .query"); Tcl_Eval(xcinterp, "raise .query"); free(promptstr); return 0; } else { free(promptstr); quit(w, NULL); // preparation for quit Tcl_Eval(xcinterp, "quitnocheck"); // actual quit return 1; // not reached } } #endif /*--------------------------------------*/ /* A gentle Ctrl-C shutdown */ /*--------------------------------------*/ void dointr(int signum) { quitcheck(NULL, NULL, NULL); } /*--------------*/ /* Null routine */ /*--------------*/ void DoNothing(xcWidget w, caddr_t clientdata, caddr_t calldata) { /* Nothing here! */ } /*-----------------------------------------------------------------------*/ /* Write page scale (overall scale, and X and Y dimensions) into strings */ /*-----------------------------------------------------------------------*/ void writescalevalues(char *scdest, char *xdest, char *ydest) { float oscale, psscale; int width, height; Pagedata *curpage; curpage = xobjs.pagelist[areawin->page]; oscale = curpage->outscale; psscale = getpsscale(oscale, areawin->page); width = toplevelwidth(curpage->pageinst, NULL); height = toplevelheight(curpage->pageinst, NULL); sprintf(scdest, "%6.5f", oscale); if (curpage->coordstyle == CM) { sprintf(xdest, "%6.5f", (width * psscale) / IN_CM_CONVERT); sprintf(ydest, "%6.5f", (height * psscale) / IN_CM_CONVERT); } else { sprintf(xdest, "%6.5f", (width * psscale) / 72.0); sprintf(ydest, "%6.5f", (height * psscale) / 72.0); } } /*-------------------------------------------------------------------------*/ /* Destroy an interactive text-editing popup box */ /*-------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER /* Just pop it down. . . */ void destroypopup(xcWidget button, popupstruct *callstruct, caddr_t calldata) { Tk_UnmapWindow(callstruct->popup); popups--; /* free the allocated structure space */ free(callstruct->buttonptr); if (callstruct->filter != NULL) free(callstruct->filter); free(callstruct); /* in the case of "quitcheck", we want to make sure that the signal */ /* handler is reset to default behavior if the quit command is */ /* canceled from inside the popup prompt window. */ signal(SIGINT, dointr); } /*-------------------------------------------------------------------------*/ /* Create a popup window with "OK" and "Cancel" buttons, */ /* and text and label fields. */ /*-------------------------------------------------------------------------*/ void popupprompt(xcWidget button, char *request, char *current, void (*function)(), buttonsave *datastruct, const char *filter) { Tk_Window popup; popup = Tk_NameToWindow(xcinterp, ".dialog", Tk_MainWindow(xcinterp)); Tk_MapWindow(popup); } /*-------------------------------------------------------------------------*/ /* Create a popup window for property changes */ /*-------------------------------------------------------------------------*/ void outputpopup(xcWidget button, caddr_t clientdata, caddr_t calldata) { Tcl_Eval(xcinterp, "wm deiconify .output"); } /*-------------------------------------------------*/ /* Print a string to the message widget. */ /* Note: Widget message must be a global variable. */ /* For formatted strings, format first into _STR */ /*-------------------------------------------------*/ /* XXX it looks like this routine is an orphan */ void clrmessage(caddr_t clientdata) { char buf1[50], buf2[50]; /* Don't write over the report of the edit string contents, */ /* if we're in one of the label edit modes */ if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) charreport(TOLABEL(EDITPART)); else { measurestr(xobjs.pagelist[areawin->page]->gridspace, buf1); measurestr(xobjs.pagelist[areawin->page]->snapspace, buf2); Wprintf("Grid %.50s : Snap %.50s", buf1, buf2); } } #endif /* TCL_WRAPPER */ /*------------------------------------------------------------------------------*/ /* diagnostic tool for translating the event mode into a string and printing */ /* to stderr (for debugging only). */ /*------------------------------------------------------------------------------*/ void printeventmode() { Fprintf(stderr, "eventmode is \'"); switch(eventmode) { case NORMAL_MODE: Fprintf(stderr, "NORMAL"); break; case MOVE_MODE: Fprintf(stderr, "MOVE"); break; case COPY_MODE: Fprintf(stderr, "COPY"); break; case SELAREA_MODE: Fprintf(stderr, "SELAREA"); break; case CATALOG_MODE: Fprintf(stderr, "CATALOG"); break; case CATTEXT_MODE: Fprintf(stderr, "CATTEXT"); break; case CATMOVE_MODE: Fprintf(stderr, "CATMOVE"); break; case FONTCAT_MODE: Fprintf(stderr, "FONTCAT"); break; case EFONTCAT_MODE: Fprintf(stderr, "EFONTCAT"); break; case TEXT_MODE: Fprintf(stderr, "TEXT"); break; case ETEXT_MODE: Fprintf(stderr, "ETEXT"); break; case WIRE_MODE: Fprintf(stderr, "WIRE"); break; case BOX_MODE: Fprintf(stderr, "BOX"); break; case EPOLY_MODE: Fprintf(stderr, "EPOLY"); break; case ARC_MODE: Fprintf(stderr, "ARC"); break; case EARC_MODE: Fprintf(stderr, "EARC"); break; case SPLINE_MODE: Fprintf(stderr, "SPLINE"); break; case ESPLINE_MODE: Fprintf(stderr, "ESPLINE"); break; case EPATH_MODE: Fprintf(stderr, "EPATH"); break; case EINST_MODE: Fprintf(stderr, "EINST"); break; case ASSOC_MODE: Fprintf(stderr, "ASSOC"); break; case RESCALE_MODE: Fprintf(stderr, "RESCALE"); break; case PAN_MODE: Fprintf(stderr, "PAN"); break; default: Fprintf(stderr, "(unknown)"); break; } Fprintf(stderr, "_MODE\'\n"); } /*------------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER /*------------------------------------------------------------------------------*/ /* "docommand" de-iconifies the TCL console. */ /*------------------------------------------------------------------------------*/ void docommand() { Tcl_Eval(xcinterp, "catch xcircuit::raiseconsole"); } /*------------------------------------------------------------------------------*/ /* When all else fails, install your own colormap */ /*------------------------------------------------------------------------------*/ int installowncmap() { Colormap newcmap; Fprintf(stdout, "Installing my own colormap\n"); /* allocate a new colormap */ newcmap = XCopyColormapAndFree(dpy, cmap); if (newcmap == (Colormap)NULL) return (-1); cmap = newcmap; return(1); } #endif /* TCL_WRAPPER */ /*------------------------------------------------------------------------------*/ /* Find the nearest color in the colormap to cvexact and return its pixel value */ /*------------------------------------------------------------------------------*/ #if defined(TCL_WRAPPER) || !defined(XC_WIN32) int findnearcolor(XColor *cvexact) { /* find the nearest-matching color in the colormap */ int i, ncolors = DisplayCells(dpy, DefaultScreen(dpy)); XColor *cmcolors; long rdist, bdist, gdist; u_long dist, mindist; int minidx; cmcolors = (XColor *)malloc(ncolors * sizeof(XColor)); for (i = 0; i < ncolors; i++) { cmcolors[i].pixel = i; cmcolors[i].flags = DoRed | DoGreen | DoBlue; } XQueryColors(dpy, cmap, cmcolors, ncolors); mindist = ULONG_MAX; for (i = 0; i < ncolors; i++) { rdist = (cmcolors[i].red - cvexact->red); bdist = (cmcolors[i].blue - cvexact->blue); gdist = (cmcolors[i].green - cvexact->green); dist = rdist * rdist + bdist * bdist + gdist * gdist; if (dist < mindist) { mindist = dist; minidx = i; } } free(cmcolors); /* if we can't get the right color or something reasonably close, */ /* then allocate our own colormap. If we've allocated so many */ /* colors that the new colormap is full, then we give up and use */ /* whatever color was closest, no matter how far away it was. */ /* findnearcolor already used 512 per component, so to match that, */ /* 3 * (512 * 512) = 786432 ~= 750000 */ if (dist > 750000) { if (installowncmap() > 0) { if (XAllocColor(dpy, cmap, cvexact) != 0) minidx = cvexact->pixel; } } return minidx; } #endif /*----------------------------------------------------------------------*/ /* Return the pixel value of a database color in the colorlist vector */ /* Since this is generally called by defined name, e.g., */ /* xc_getlayoutcolor(RATSNESTCOLOR), it does not check for invalid */ /* values of cidx. */ /*----------------------------------------------------------------------*/ int xc_getlayoutcolor(int cidx) { return colorlist[cidx].color.pixel; } /*----------------------------------------------------------------------*/ /* Obtain red, green and blue values from a color index */ /* the colour values range from 0 to 65535 */ /*----------------------------------------------------------------------*/ void xc_get_color_rgb(unsigned long cidx, unsigned short *red, unsigned short *green, unsigned short *blue) { XColor loccolor = { .pixel = cidx, .flags = DoRed | DoGreen | DoBlue }; XQueryColors(dpy, cmap, &loccolor, 1); *red = loccolor.red; *green = loccolor.green; *blue = loccolor.blue; } /*-------------------------------------------------------------------------*/ /* Hack on the resource database Color allocation */ /* */ /* This overrides the built-in routine. The difference is that if a */ /* color cell cannot be allocated (colormap is full), then the color */ /* map is searched for the closest RGB value to the named color. */ /* */ /* This code depends on Display *dpy being set: Do not install the */ /* converter until after XtInitialize(), when using the Xt (not Tcl) GUI. */ /*-------------------------------------------------------------------------*/ #if defined(TCL_WRAPPER) || !defined(XC_WIN32) caddr_t CvtStringToPixel(XrmValuePtr args, int *nargs, XrmValuePtr fromVal, XrmValuePtr toVal) { static XColor cvcolor; XColor cvexact; if (dpy == NULL) return NULL; if (*nargs != 0) Fprintf(stderr, "String to Pixel conversion takes no arguments"); /* Color defaults to black if name is not found */ if (XAllocNamedColor(dpy, cmap, (char *)fromVal->addr, &cvcolor, &cvexact) == 0) { if (XLookupColor(dpy, cmap, (char *)fromVal->addr, &cvexact, &cvcolor) == 0) cvcolor.pixel = BlackPixel(dpy, DefaultScreen(dpy)); else cvcolor.pixel = findnearcolor(&cvexact); } toVal->size = sizeof(u_long); toVal->addr = (caddr_t) &(cvcolor.pixel); return NULL; } #endif /*-------------------------------------------------------------------------*/ /* Allocate new color using the CvtStringToPixel routine */ /*-------------------------------------------------------------------------*/ #if defined(XC_WIN32) && !defined(TCL_WRAPPER) int xc_alloccolor(char *name) { return WinNamedColor(name); } #else int xc_alloccolor(char *name) { XrmValue fromC, toC; int zval = 0, pixval; fromC.size = strlen(name); fromC.addr = name; CvtStringToPixel(NULL, &zval, &fromC, &toC); pixval = (int)(*((u_long *)toC.addr)); return pixval; } #endif /*----------------------------------------------------------------------*/ /* Check if color within RGB roundoff error exists in xcircuit's color */ /* table. Assume 24-bit color, in which resolution can be no less than */ /* 256 for each color component. Visual acuity is a bit less than 24- */ /* bit color, so assume difference should be no less than 512 per */ /* component for colors to be considered "different". Psychologically, */ /* we should really find the just-noticable-difference for each color */ /* component separately! But that's too complicated for this simple */ /* routine. */ /* */ /* Return the table entry of the color, if it is in xcircuit's color */ /* table, or ERRORCOLOR if not. If it is in the color table, then */ /* return the actual pixel value from the table in the "pixval" pointer */ /*----------------------------------------------------------------------*/ int rgb_querycolor(int red, int green, int blue, int *pixval) { int i; for (i = NUMBER_OF_COLORS; i < number_colors; i++) { if (abs(colorlist[i].color.red - red) < 512 && abs(colorlist[i].color.green - green) < 512 && abs(colorlist[i].color.blue - blue) < 512) { if (pixval) *pixval = colorlist[i].color.pixel; return i; break; } } return ERRORCOLOR; } /*-----------------------------------------------------------------------*/ /* Allocate new color from RGB values (e.g., from PS file "scb" command) */ /*-----------------------------------------------------------------------*/ #if defined(XC_WIN32) && !defined(TCL_WRAPPER) int rgb_alloccolor(int red, int green, int blue) { ERROR FIXME! // XCircuit version 3.9: This no longer works. Need to // allocate the color and return an index into colorlist[]. return RGB(red >> 8, green >> 8, blue >> 8); } #else int rgb_alloccolor(int red, int green, int blue) { XColor newcolor; int pixval, tableidx; /* i, (jdk) */ /* if color is not already in list, try to allocate it; if allocation */ /* fails, grab the closest match in the colormap. */ tableidx = rgb_querycolor(red, green, blue, &pixval); if (tableidx < 0) { newcolor.red = red; newcolor.green = green; newcolor.blue = blue; newcolor.flags = DoRed | DoGreen | DoBlue; if (XAllocColor(dpy, cmap, &newcolor) == 0) pixval = findnearcolor(&newcolor); else pixval = newcolor.pixel; // Add this to the colormap tableidx = addnewcolorentry(pixval); } return tableidx; } #endif /*----------------------------------------------------------------------*/ /* Query a color by name to see if it is in the color table. */ /* Return the table index (NOT the pixel value) of the entry, */ /* ERRORCOLOR if the color is not in the table, and BADCOLOR if the */ /* color name could not be parsed by XLookupColor(). */ /*----------------------------------------------------------------------*/ int query_named_color(char *cname) { XColor cvcolor, cvexact; int tableidx, result; result = XLookupColor(dpy, cmap, cname, &cvexact, &cvcolor); if (result == 0) return BADCOLOR; tableidx = rgb_querycolor(cvcolor.red, cvcolor.green, cvcolor.blue, NULL); return tableidx; } /*-------------------------------------------------------------------------*/ /* Make the cursors from the cursor bit data */ /*-------------------------------------------------------------------------*/ void makecursors() { XColor fgcolor, bgcolor; Window win = areawin->window; #ifdef TCL_WRAPPER Tk_Uid fg_uid, bg_uid; #endif bgcolor.pixel = colorlist[BACKGROUND].color.pixel; fgcolor.pixel = colorlist[FOREGROUND].color.pixel; XQueryColors(dpy, cmap, &fgcolor, 1); XQueryColors(dpy, cmap, &bgcolor, 1); #ifdef TCL_WRAPPER #ifdef XC_WIN32 #define Tk_GetCursorFromData CreateW32Cursor #endif fg_uid = Tk_GetUid(Tk_NameOfColor(&fgcolor)); bg_uid = Tk_GetUid(Tk_NameOfColor(&bgcolor)); ARROW = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), arrow_bits, arrowmask_bits, arrow_width, arrow_height, arrow_x_hot, arrow_y_hot, fg_uid, bg_uid); CROSS = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), cross_bits, crossmask_bits, cross_width, cross_height, cross_x_hot, cross_y_hot, fg_uid, bg_uid); SCISSORS = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), scissors_bits, scissorsmask_bits, scissors_width, scissors_height, scissors_x_hot, scissors_y_hot, fg_uid, bg_uid); EDCURSOR = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), exx_bits, exxmask_bits, exx_width, exx_height, exx_x_hot, exx_y_hot, fg_uid, bg_uid); COPYCURSOR = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), copy_bits, copymask_bits, copy_width, copy_height, copy_x_hot, copy_y_hot, fg_uid, bg_uid); ROTATECURSOR = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), rot_bits, rotmask_bits, rot_width, rot_height, circle_x_hot, circle_y_hot, fg_uid, bg_uid); QUESTION = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), question_bits, questionmask_bits, question_width, question_height, question_x_hot, question_y_hot, fg_uid, bg_uid); CIRCLE = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), circle_bits, circlemask_bits, circle_width, circle_height, circle_x_hot, circle_y_hot, fg_uid, bg_uid); HAND = (Cursor)Tk_GetCursorFromData(xcinterp, Tk_IdToWindow(dpy, win), hand_bits, handmask_bits, hand_width, hand_height, hand_x_hot, hand_y_hot, fg_uid, bg_uid); #ifdef XC_WIN32 #undef Tk_GetCursorFromData #endif #else ARROW = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, arrow_bits, arrow_width, arrow_height), XCreateBitmapFromData(dpy, win, arrowmask_bits, arrow_width, arrow_height), &fgcolor, &bgcolor, arrow_x_hot, arrow_y_hot); CROSS = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, cross_bits, cross_width, cross_height), XCreateBitmapFromData(dpy, win, crossmask_bits, cross_width, cross_height), &fgcolor, &bgcolor, cross_x_hot, cross_y_hot); SCISSORS = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, scissors_bits, scissors_width, scissors_height), XCreateBitmapFromData(dpy, win, scissorsmask_bits, scissors_width, scissors_height), &fgcolor, &bgcolor, scissors_x_hot, scissors_y_hot); EDCURSOR = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, exx_bits, exx_width, exx_height), XCreateBitmapFromData(dpy, win, exxmask_bits, exx_width, exx_height), &fgcolor, &bgcolor, exx_x_hot, exx_y_hot); COPYCURSOR = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, copy_bits, copy_width, copy_height), XCreateBitmapFromData(dpy, win, copymask_bits, copy_width, copy_height), &fgcolor, &bgcolor, copy_x_hot, copy_y_hot); ROTATECURSOR = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, rot_bits, rot_width, rot_height), XCreateBitmapFromData(dpy, win, rotmask_bits, rot_width, rot_height), &fgcolor, &bgcolor, circle_x_hot, circle_y_hot); QUESTION = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, question_bits, question_width, question_height), XCreateBitmapFromData(dpy, win, questionmask_bits, question_width, question_height), &fgcolor, &bgcolor, question_x_hot, question_y_hot); CIRCLE = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, circle_bits, circle_width, circle_height), XCreateBitmapFromData(dpy, win, circlemask_bits, circle_width, circle_height), &fgcolor, &bgcolor, circle_x_hot, circle_y_hot); HAND = XCreatePixmapCursor(dpy, XCreateBitmapFromData(dpy, win, hand_bits, hand_width, hand_height), XCreateBitmapFromData(dpy, win, handmask_bits, hand_width, hand_height), &fgcolor, &bgcolor, hand_x_hot, hand_y_hot); #endif TEXTPTR = XCreateFontCursor(dpy, XC_xterm); WAITFOR = XCreateFontCursor(dpy, XC_watch); XRecolorCursor(dpy, TEXTPTR, &fgcolor, &bgcolor); } /*----------------------------------------------------------------------*/ /* Remove a window structure and deallocate all memory used by it. */ /* If it is the last window, this is equivalent to calling "quit". */ /*----------------------------------------------------------------------*/ void delete_window(XCWindowData *window) { XCWindowData *searchwin, *lastwin = NULL; if (xobjs.windowlist->next == NULL) { quitcheck((window == NULL) ? NULL : window->area, NULL, NULL); return; } for (searchwin = xobjs.windowlist; searchwin != NULL; searchwin = searchwin->next) { if (searchwin == window) { Matrixptr thismat; /* Free any select list */ if (searchwin->selects > 0) free(searchwin->selectlist); /* Free the matrix and pushlist stacks */ while (searchwin->MatStack != NULL) { thismat = searchwin->MatStack; searchwin->MatStack = searchwin->MatStack->nextmatrix; free(thismat); } free_stack(&searchwin->hierstack); free_stack(&searchwin->stack); /* Free the GC */ XFreeGC(dpy, searchwin->gc); if (lastwin != NULL) lastwin->next = searchwin->next; else xobjs.windowlist = searchwin->next; break; } lastwin = searchwin; } if (searchwin == NULL) { Wprintf("No such window in list!\n"); } else { if (areawin == searchwin) areawin = xobjs.windowlist; free(searchwin); } } /*----------------------------------------------------------------------*/ /* Create a new window structure and initialize it. */ /* Return a pointer to the new window. */ /*----------------------------------------------------------------------*/ XCWindowData *create_new_window() { XCWindowData *newwindow; newwindow = (XCWindowData *)malloc(sizeof(XCWindowData)); #ifndef TCL_WRAPPER #ifdef HAVE_XPM newwindow->toolbar_on = True; #endif #endif newwindow->area = (xcWidget)NULL; newwindow->mapped = False; newwindow->psfont = 0; newwindow->anchor = FLIPINV; newwindow->page = 0; newwindow->MatStack = NULL; newwindow->textscale = 1.0; newwindow->linewidth = 1.0; newwindow->zoomfactor = SCALEFAC; newwindow->style = UNCLOSED; newwindow->invert = False; newwindow->axeson = True; newwindow->snapto = True; newwindow->gridon = True; newwindow->center = True; newwindow->bboxon = False; newwindow->filter = ALL_TYPES; newwindow->editinplace = True; newwindow->selects = 0; newwindow->selectlist = NULL; newwindow->lastlibrary = 0; newwindow->manhatn = False; newwindow->boxedit = MANHATTAN; newwindow->pathedit = TANGENTS; newwindow->lastbackground = NULL; newwindow->editstack = (objectptr) malloc(sizeof(object)); newwindow->stack = NULL; /* at the top of the hierarchy */ newwindow->hierstack = NULL; initmem(newwindow->editstack); newwindow->pinpointon = False; newwindow->showclipmasks = True; newwindow->pinattach = False; newwindow->buschar = '('; /* Vector notation for buses */ newwindow->defaultcursor = &CROSS; newwindow->event_mode = NORMAL_MODE; newwindow->attachto = -1; newwindow->color = DEFAULTCOLOR; newwindow->gccolor = 0; newwindow->time_id = 0; newwindow->redraw_needed = True; newwindow->redraw_ongoing = False; #ifdef HAVE_CAIRO newwindow->fixed_pixmap = NULL; newwindow->cr = NULL; #else /* HAVE_CAIRO */ newwindow->clipmask = (Pixmap)NULL; newwindow->pbuf = (Pixmap)NULL; newwindow->cmgc = (GC)NULL; newwindow->clipped = 0; newwindow->fixed_pixmap = (Pixmap) NULL; #endif /* !HAVE_CAIRO */ newwindow->vscale = 1; newwindow->pcorner.x = newwindow->pcorner.y = 0; newwindow->topinstance = (objinstptr)NULL; newwindow->panx = newwindow->pany = 0; /* Prepend to linked window list in global data (xobjs) */ newwindow->next = xobjs.windowlist; xobjs.windowlist = newwindow; return newwindow; } /*----------------------------------------------------------------------*/ /* Preparatory initialization (to be run before setting up the GUI) */ /*----------------------------------------------------------------------*/ void pre_initialize() { short i, page; /*-------------------------------------------------------------*/ /* Force LC_NUMERIC locale to en_US for decimal point = period */ /* notation. The environment variable LC_NUMERIC overrides if */ /* it is set explicitly, so it has to be unset first to allow */ /* setlocale() to work. */ /*-------------------------------------------------------------*/ #ifdef HAVE_PUTENV putenv("LC_ALL=en_US"); putenv("LC_NUMERIC=en_US"); putenv("LANG=POSIX"); #else unsetenv("LC_ALL"); unsetenv("LC_NUMERIC"); setenv("LANG", "POSIX", 1); #endif setlocale(LC_ALL, "en_US"); /*---------------------------*/ /* initialize user variables */ /*---------------------------*/ version = PROG_VERSION; aliastop = NULL; xobjs.pagelist = (Pagedata **) malloc(PAGES * sizeof(Pagedata *)); for (page = 0; page < PAGES; page++) { xobjs.pagelist[page] = (Pagedata *) malloc(sizeof(Pagedata)); xobjs.pagelist[page]->pageinst = NULL; xobjs.pagelist[page]->filename = NULL; } /* Set values for the first page */ xobjs.pagelist[0]->wirewidth = 2.0; xobjs.pagelist[0]->outscale = 1.0; xobjs.pagelist[0]->background.name = (char *)NULL; xobjs.pagelist[0]->pmode = 2; /* set auto-fit ON by default */ xobjs.pagelist[0]->orient = 0; xobjs.pagelist[0]->gridspace = DEFAULTGRIDSPACE; xobjs.pagelist[0]->snapspace = DEFAULTSNAPSPACE; xobjs.pagelist[0]->drawingscale.x = xobjs.pagelist[0]->drawingscale.y = 1; xobjs.pagelist[0]->coordstyle = INTERNAL; xobjs.pagelist[0]->pagesize.x = 612; xobjs.pagelist[0]->pagesize.y = 792; xobjs.pagelist[0]->margins.x = 72; xobjs.pagelist[0]->margins.y = 72; xobjs.hold = TRUE; xobjs.showtech = FALSE; xobjs.suspend = (signed char)0; /* Suspend graphics until finished with startup */ xobjs.new_changes = 0; xobjs.filefilter = TRUE; xobjs.tempfile = NULL; xobjs.retain_backup = False; /* default: remove backup after file write */ signal(SIGINT, dointr); printtime_id = 0; xobjs.technologies = NULL; xobjs.undostack = NULL; xobjs.redostack = NULL; /* Set the temporary directory name as compiled, unless overridden by */ /* environment variable "TMPDIR". */ xobjs.tempdir = getenv("TMPDIR"); if (xobjs.tempdir == NULL) xobjs.tempdir = strdup(TEMP_DIR); xobjs.windowlist = (XCWindowDataPtr)NULL; areawin = NULL; xobjs.numlibs = LIBS - LIBRARY - 1; xobjs.fontlib.number = 0; xobjs.userlibs = (Library *) malloc(xobjs.numlibs * sizeof(Library)); for (i = 0; i < xobjs.numlibs; i++) { xobjs.userlibs[i].library = (objectptr *) malloc(sizeof(objectptr)); xobjs.userlibs[i].instlist = NULL; xobjs.userlibs[i].number = 0; } xobjs.imagelist = NULL; xobjs.images = 0; xobjs.pages = PAGES; xobjs.libsearchpath = (char *)NULL; xobjs.filesearchpath = (char *)NULL; fontcount = 0; fonts = (fontinfo *) malloc(sizeof(fontinfo)); fonts[0].encoding = NULL; /* To prevent segfaults */ fonts[0].psname = NULL; fonts[0].family = NULL; /* Initialization of objects requires values for the window width and height, */ /* so set up the widgets and realize them first. */ popups = 0; /* no popup windows yet */ beeper = 1; /* Ring bell on certain warnings or errors */ pressmode = 0; /* not in a button press & hold mode yet */ initsplines(); /* create lookup table of spline parameters */ } #ifdef TCL_WRAPPER /*----------------------------------------------------------------------*/ /* Create a new Handle object in Tcl */ /*----------------------------------------------------------------------*/ static void UpdateStringOfHandle _ANSI_ARGS_((Tcl_Obj *objPtr)); static int SetHandleFromAny _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); static Tcl_ObjType tclHandleType = { "handle", /* name */ (Tcl_FreeInternalRepProc *) NULL, /* freeIntRepProc */ (Tcl_DupInternalRepProc *) NULL, /* dupIntRepProc */ UpdateStringOfHandle, /* updateStringProc */ SetHandleFromAny /* setFromAnyProc */ }; /*----------------------------------------------------------------------*/ static void UpdateStringOfHandle(objPtr) Tcl_Obj *objPtr; /* Int object whose string rep to update. */ { char buffer[TCL_INTEGER_SPACE]; int len; sprintf(buffer, "H%08lX", objPtr->internalRep.longValue); len = strlen(buffer); objPtr->bytes = Tcl_Alloc((u_int)len + 1); strcpy(objPtr->bytes, buffer); objPtr->length = len; } /*----------------------------------------------------------------------*/ static int SetHandleFromAny(interp, objPtr) Tcl_Interp *interp; /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr; /* The object to convert. */ { Tcl_ObjType *oldTypePtr = (Tcl_ObjType *)objPtr->typePtr; char *string, *end; int length; char *p; long newLong; pushlistptr newstack = NULL; string = Tcl_GetStringFromObj(objPtr, &length); errno = 0; for (p = string; isspace((u_char)(*p)); p++); nexthier: if (*p++ != 'H') { if (interp != NULL) { Tcl_ResetResult(interp); Tcl_AppendToObj(Tcl_GetObjResult(interp), "handle is identified by leading H and hexidecimal value only", -1); } free_stack(&newstack); return TCL_ERROR; } else { newLong = strtoul(p, &end, 16); } if (end == p) { badHandle: if (interp != NULL) { /* * Must copy string before resetting the result in case a caller * is trying to convert the interpreter's result to an int. */ char buf[100]; sprintf(buf, "expected handle but got \"%.50s\"", string); Tcl_ResetResult(interp); Tcl_AppendToObj(Tcl_GetObjResult(interp), buf, -1); } free_stack(&newstack); return TCL_ERROR; } if (errno == ERANGE) { if (interp != NULL) { char *s = "handle value too large to represent"; Tcl_ResetResult(interp); Tcl_AppendToObj(Tcl_GetObjResult(interp), s, -1); Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW", s, (char *) NULL); } free_stack(&newstack); return TCL_ERROR; } /* * Make sure that the string has no garbage after the end of the handle. */ while ((end < (string+length)) && isspace((u_char)(*end))) end++; if (end != (string+length)) { /* Check for handles separated by slashes. If present, */ /* then generate a hierstack. */ if ((end != NULL) && (*end == '/')) { objinstptr refinst, chkinst; genericptr *rgen; *end = '\0'; newLong = strtoul(p, &end, 16); p = end + 1; *end = '/'; refinst = (newstack == NULL) ? areawin->topinstance : newstack->thisinst; chkinst = (objinstptr)((pointertype)(newLong)); /* Ensure that chkinst is in the plist of */ /* refinst->thisobject, and that it is type objinst. */ for (rgen = refinst->thisobject->plist; rgen < refinst->thisobject->plist + refinst->thisobject->parts; rgen++) { if ((objinstptr)(*rgen) == chkinst) { if (ELEMENTTYPE(*rgen) != OBJINST) { free_stack(&newstack); Tcl_SetResult(interp, "Hierarchical element handle " "component is not an object instance.", NULL); return TCL_ERROR; } break; } } if (rgen == refinst->thisobject->plist + refinst->thisobject->parts) { Tcl_SetResult(interp, "Bad component in hierarchical " "element handle.", NULL); free_stack(&newstack); return TCL_ERROR; } push_stack(&newstack, chkinst, NULL); goto nexthier; } else goto badHandle; } /* Note that this check won't prevent a hierarchical selection from */ /* being added to a non-hierarchical selection. */ if (areawin->hierstack != NULL) { if ((newstack == NULL) || (newstack->thisinst != areawin->hierstack->thisinst)) { Tcl_SetResult(interp, "Attempt to select components in different " "objects.", NULL); free_stack(&newstack); return TCL_ERROR; } } free_stack(&areawin->hierstack); areawin->hierstack = newstack; /* * The conversion to handle succeeded. Free the old internalRep before * setting the new one. We do this as late as possible to allow the * conversion code, in particular Tcl_GetStringFromObj, to use that old * internalRep. */ if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) { oldTypePtr->freeIntRepProc(objPtr); } objPtr->internalRep.longValue = newLong; objPtr->typePtr = &tclHandleType; return TCL_OK; } /*----------------------------------------------------------------------*/ Tcl_Obj * Tcl_NewHandleObj(optr) void *optr; /* Int used to initialize the new object. */ { Tcl_Obj *objPtr; objPtr = Tcl_NewObj(); objPtr->bytes = NULL; objPtr->internalRep.longValue = (long)(optr); objPtr->typePtr = &tclHandleType; return objPtr; } /*----------------------------------------------------------------------*/ int Tcl_GetHandleFromObj(interp, objPtr, handlePtr) Tcl_Interp *interp; /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr; /* The object from which to get a int. */ void **handlePtr; /* Place to store resulting int. */ { long l; int result; if (objPtr->typePtr != &tclHandleType) { result = SetHandleFromAny(interp, objPtr); if (result != TCL_OK) { return result; } } l = objPtr->internalRep.longValue; if (((long)((int)l)) == l) { *handlePtr = (void *)objPtr->internalRep.longValue; return TCL_OK; } if (interp != NULL) { Tcl_ResetResult(interp); Tcl_AppendToObj(Tcl_GetObjResult(interp), "value too large to represent as handle", -1); } return TCL_ERROR; } #endif /*----------------------------------------------------------------------*/ /* Routine to initialize variables after the GUI has been set up */ /*----------------------------------------------------------------------*/ void post_initialize() { short i; /*--------------------------------------------------*/ /* Setup the (simple) colormap and make the cursors */ /*--------------------------------------------------*/ setcolorscheme(True); makecursors(); /* Now that we have values for the window width and height, we can initialize */ /* the page objects. */ xobjs.libtop = (objinstptr *)malloc(LIBS * sizeof(objinstptr)); for (i = 0; i < LIBS; i++) { objectptr newlibobj = (objectptr) malloc(sizeof(object)); initmem(newlibobj); xobjs.libtop[i] = newpageinst(newlibobj); } /* Give names to the five default libraries */ strcpy(xobjs.libtop[FONTLIB]->thisobject->name, "Font Character List"); strcpy(xobjs.libtop[PAGELIB]->thisobject->name, "Page Directory"); strcpy(xobjs.libtop[LIBLIB]->thisobject->name, "Library Directory"); strcpy(xobjs.libtop[USERLIB]->thisobject->name, "User Library"); renamelib(USERLIB); changepage(0); /* Centering the view is not required here because the default values */ /* set in initmem() should correctly position the empty page in the */ /* middle of the viewing window. */ #if !defined(HAVE_CAIRO) if (dbuf == (Pixmap)NULL) dbuf = XCreatePixmap(dpy, areawin->window, areawin->width, areawin->height, DefaultDepthOfScreen(xcScreen(areawin->area))); #endif /* Set up fundamentally necessary colors black and white */ addnewcolorentry(xc_alloccolor("Black")); addnewcolorentry(xc_alloccolor("White")); #ifdef TCL_WRAPPER /* Set up new Tcl type "handle" for element handles */ Tcl_RegisterObjType(&tclHandleType); #endif /*-----------------------------------------------------*/ /* Set the cursor as a crosshair for the area widget. */ /*-----------------------------------------------------*/ XDefineCursor (dpy, areawin->window, DEFAULTCURSOR); /*---------------------------------------------------*/ /* Set up a timeout for automatic save to a tempfile */ /*---------------------------------------------------*/ xobjs.save_interval = appdata.timeout; xobjs.timeout_id = xcAddTimeOut(app, 60000 * xobjs.save_interval, savetemp, NULL); } /*----------------------------------------------------------------------*/ xcircuit-3.9.73/prototypes.h0000664000175000001440000012271013066774071014600 0ustar timusers/*----------------------------------------------------------------------*/ /* prototypes.h: */ /* Master list of function prototypes */ /*----------------------------------------------------------------------*/ /* from undo.c */ /* Note variable argument list for register_for_undo() */ extern void register_for_undo(u_int, u_char, objinstptr, ...); extern void undo_finish_series(void); extern void undo_action(void); extern void redo_action(void); extern void flush_undo_stack(void); extern void flush_redo_stack(void); extern void truncate_undo_stack(void); extern void free_undo_record(Undoptr); extern void free_redo_record(Undoptr); extern stringpart *get_original_string(labelptr); extern short *recover_selectlist(Undoptr); extern void free_selection(uselection *); extern uselection *remember_selection(objinstptr, short *, int); extern short *regen_selection(objinstptr, uselection *); #ifndef TCL_WRAPPER extern void undo_call(xcWidget, caddr_t, caddr_t); extern void redo_call(xcWidget, caddr_t, caddr_t); #endif /* from tclxcircuit.c */ #ifdef TCL_WRAPPER extern void xctk_drag(ClientData, XEvent *); extern void xctk_draglscroll(ClientData, XEvent *); extern void xctk_dragfilebox(ClientData, XEvent *); extern void tcl_stdflush(FILE *); extern void tcl_printf(FILE *, const char *, ...); extern int XcTagCallback(Tcl_Interp *, int, Tcl_Obj *CONST objv[]); extern Tcl_Obj *evaluate_raw(objectptr, oparamptr, objinstptr, int *); extern char *TCL_to_PS(char *); extern XCWindowData *GUI_init(int, Tcl_Obj *CONST objv[]); extern void build_app_database(Tk_Window); extern int XcInternalTagCall(Tcl_Interp *, int, ...); extern char *translateparamtype(int); extern char *translatestyle(int); extern char *translateencoding(int); #endif extern char *evaluate_expr(objectptr, oparamptr, objinstptr); /* from elements.c: */ /* element constructor functions */ extern labelptr new_label(objinstptr, stringpart *, int, int, int, u_char); extern labelptr new_simple_label(objinstptr, char *, int, int, int); extern labelptr new_temporary_label(objectptr, char *, int, int); extern polyptr new_polygon(objinstptr, pointlist *, int); extern splineptr new_spline(objinstptr, pointlist); extern arcptr new_arc(objinstptr, int, int, int); extern objinstptr new_objinst(objinstptr, objinstptr, int, int); /* element destructor function */ extern void remove_element(objinstptr, genericptr); /* functions to set default values for element types */ extern void polydefaults(polyptr, int, int, int); extern void splinedefaults(splineptr, int, int); extern void arcdefaults(arcptr, int, int); extern void pathdefaults(pathptr, int, int); extern void instancedefaults(objinstptr, objectptr, int, int); extern void labeldefaults(labelptr, u_char, int, int); extern void converttocurve(); extern void poly_add_point(polyptr, XPoint *); extern void drawdot(int, int); extern void copyalleparams(genericptr, genericptr); extern void copyparams(objinstptr, objinstptr); extern void textbutton(u_char, int, int); extern void charreport(labelptr); extern Boolean labeltext(int, char *); extern void textreturn(void); extern void reanchor(short); extern void findconstrained(polyptr); extern void reversepoints(XPoint *, short); extern void reversefpoints(XfPoint *, short); extern void freeparts(short *, short); extern void removep(short *, short); extern void unjoin(void); extern labelptr findlabelcopy(labelptr, stringpart *); extern Boolean neartest(XPoint *, XPoint *); extern void join(void); extern genericptr getsubpart(pathptr, int *); /* interactive manipulation of elements */ extern void splinebutton(int, int); extern void updatepath(pathptr); extern void trackelement(xcWidget, caddr_t, caddr_t); extern void arcbutton(int, int); extern void trackarc(xcWidget, caddr_t, caddr_t); extern void boxbutton(int, int); extern void trackbox(xcWidget, caddr_t, caddr_t); extern void trackwire(xcWidget, caddr_t, caddr_t); extern void startwire(XPoint *); extern void setendpoint(short *, short, XPoint **, XPoint *); extern void wire_op(int, int ,int); void arc_mode_draw(xcDrawType type, arc *newarc); void spline_mode_draw(xcDrawType type, spline *newspline); void poly_mode_draw(xcDrawType type, polygon *newpoly); void path_mode_draw(xcDrawType type, path *newpoly); void text_mode_draw(xcDrawType type, label *newlabel); void selarea_mode_draw(xcDrawType type, void *unused); void rescale_mode_draw(xcDrawType type, void *unused); void move_mode_draw(xcDrawType type, void *unused); void normal_mode_draw(xcDrawType type, void *unused); /* from events.c: */ extern Boolean recursefind(objectptr, objectptr); extern void transferselects(void); extern void select_invalidate_netlist(void); extern void newmatrix(void); extern void setpage(Boolean); extern int changepage(short); extern void newpage(short); extern void pushobject(objinstptr); extern void push_stack(pushlistptr *, objinstptr, char *); extern void pop_stack(pushlistptr *); extern void free_stack(pushlistptr *); extern void popobject(xcWidget, pointertype, caddr_t); extern void resetbutton(xcWidget, pointertype, caddr_t); extern void drawhbar(xcWidget, caddr_t, caddr_t); extern void drawvbar(xcWidget, caddr_t, caddr_t); extern void panhbar(xcWidget, caddr_t, XButtonEvent *); extern void endhbar(xcWidget, caddr_t, XButtonEvent *); extern void panvbar(xcWidget, caddr_t, XButtonEvent *); extern void endvbar(xcWidget, caddr_t, XButtonEvent *); extern void zoombox(xcWidget, caddr_t, caddr_t); extern void zoomin(int, int); extern void zoomout(int, int); extern void warppointer(int, int); extern void panbutton(u_int, int, int, float); extern void zoominrefresh(int, int); extern void zoomoutrefresh(int, int); extern void panrefresh(u_int, int, int, float); extern void checkwarp(XPoint *); extern void warparccycle(arcptr, short); extern int checkcycle(genericptr, short); extern pointselect *getrefpoint(genericptr, XPoint **); extern void copyvirtual(void); extern void nextpathcycle(pathptr, short); extern void nextpolycycle(polyptr *, short); extern void nextsplinecycle(splineptr *, short); extern void nextarccycle(arcptr *, short); extern void buttonhandler(xcWidget, caddr_t, XButtonEvent *); extern void keyhandler(xcWidget, caddr_t, XKeyEvent *); extern Boolean compatible_function(int); extern int eventdispatch(int, int, int); extern int functiondispatch(int, short, int, int); extern void releasehandler(xcWidget, caddr_t, XKeyEvent *); extern void setsnap(short); extern void snapelement(void); extern int ipow10(int); extern int calcgcf(int, int); extern void fraccalc(float, char *); extern void printpos(short, short); extern void findwirex(XPoint *, XPoint *, XPoint *, XPoint *, float *); extern void findattach(XPoint *, float *, XPoint *); extern XPoint *pathclosepoint(pathptr, XPoint *); extern void placeselects(short, short, XPoint *); extern void drag(int, int); extern void xlib_drag(xcWidget, caddr_t, XEvent *); extern void elemrotate(genericptr *, float, XPoint *); extern void elementrotate(float, XPoint *); extern void edit(int, int); extern void pathedit(genericptr); extern void xc_lower(); extern void xc_raise(); extern void xc_top(short *, short *); extern void xc_bottom(short *, short *); extern void exchange(void); extern void elhflip(genericptr *, short); extern void elvflip(genericptr *, short); extern void elementflip(XPoint *); extern void elementvflip(XPoint *); extern short getkeynum(void); #ifdef TCL_WRAPPER extern void makepress(ClientData); #else extern void makepress(XtPointer, xcIntervalId *); #endif extern void reviseselect(short *, int, short *); extern void deletebutton(int, int); extern void delete_one_element(objinstptr, genericptr); extern short *xc_undelete(objinstptr, objectptr, short, short *); extern objectptr delete_element(objinstptr, short *, int, short); extern void printname(objectptr); extern Boolean checkname(objectptr); extern char *checkvalidname(char *, objectptr); extern objectptr finddot(void); extern void movepoints(genericptr *, short, short); extern void editpoints(genericptr *, short, short); #ifndef TCL_WRAPPER extern void xlib_makeobject(xcWidget, caddr_t); #endif extern objinstptr domakeobject(int, char *, Boolean); extern void selectsave(xcWidget, caddr_t, caddr_t); extern void arceditpush(arcptr); extern void splineeditpush(splineptr); extern void polyeditpush(polyptr); extern void patheditpush(pathptr); extern pointlist copypoints(pointlist, int); extern void labelcopy(labelptr, labelptr); extern void arccopy(arcptr, arcptr); extern void polycopy(polyptr, polyptr); extern void splinecopy(splineptr, splineptr); extern void pathcopy(pathptr, pathptr); extern void instcopy(objinstptr, objinstptr); extern void delete_tagged(objinstptr); extern void createcopies(void); extern void copydrag(void); extern void copy_op(int, int, int); extern Boolean checkmultiple(XButtonEvent *); extern void continue_op(int, int, int); extern void finish_op(int, int, int); extern void path_op(genericptr, int, int, int); extern void inst_op(genericptr, int, int, int); extern void resizearea(xcWidget, caddr_t, caddr_t); void draw_grids(void); void draw_fixed(void); extern void drawarea(xcWidget, caddr_t, caddr_t); extern void standard_element_delete(short); extern void delete_for_xfer(short, short *, int); extern void delete_noundo(short); /* from filelist.c: */ extern int fcompare(const void *, const void *); extern void dragfilebox(xcWidget, caddr_t, XMotionEvent *); extern void startfiletrack(xcWidget, caddr_t, XCrossingEvent *); extern void endfiletrack(xcWidget, caddr_t, XCrossingEvent *); extern char *getcrashfilename(void); extern void crashrecover(void); extern void findcrashfiles(void); extern void listfiles(xcWidget, popupstruct *, caddr_t); extern void newfilelist(xcWidget, popupstruct *); extern void fileselect(xcWidget, popupstruct *, XButtonEvent *); extern void showlscroll(xcWidget, caddr_t, caddr_t); extern void draglscroll(xcWidget, popupstruct *, XButtonEvent *); extern void genfilelist(xcWidget, popupstruct *, Dimension); extern int lookdirectory(char *, int); /* from files.c: */ #ifdef ASG extern void importspice(void); #endif extern char *ridnewline(char *); extern void free_single(genericptr); extern void reset(objectptr, short); extern void pagereset(short); extern void initmem(objectptr); extern void freelabel(stringpart *); extern Boolean compare_single(genericptr *, genericptr *); extern Boolean elemcompare(genericptr *, genericptr *); extern short objcompare(objectptr, objectptr); extern float getpsscale(float, short); extern void dostcount(FILE *, short *, short); extern short printparams(FILE *, objinstptr, short); extern void printobjectparams(FILE *, objectptr); extern void varcheck(FILE *, short, objectptr, short *, genericptr, u_char); extern void varfcheck(FILE *, float, objectptr, short *, genericptr, u_char); extern Boolean varpcheck(FILE *, short, objectptr, int, short *, genericptr, u_char); extern Boolean varpathcheck(FILE *, short, objectptr, int, short *, genericptr *, pathptr, u_char); extern void getfile(xcWidget, pointertype, caddr_t); extern int filecmp(char *, char *); extern Boolean nextfilename(void); extern FILE *libopen(char *, short, char *, int); extern void loadfontlib(void); extern void loadglib(Boolean, short, short); extern void loadulib(void); extern void loadblib(void); extern void getlib(xcWidget, caddr_t, caddr_t); extern void getuserlib(xcWidget, caddr_t, caddr_t); extern Boolean loadlibrary(short); extern void startloadfile(int); extern void normalloadfile(void); extern void importfile(void); extern void importgraphic(void); extern Boolean loadfile(short, int); extern void readlabel(objectptr, char *, stringpart **); extern void readparams(objectptr, objinstptr, objectptr, char *); extern u_char *find_match(u_char *); extern char *advancetoken(char *); extern char *varpscan(objectptr, char *, short *, genericptr, int, int, u_char); extern char *varscan(objectptr, char *, short *, genericptr, u_char); extern char *varfscan(objectptr, char *, float *, genericptr, u_char); extern objinstptr addtoinstlist(int, objectptr, Boolean); extern Boolean objectread(FILE *, objectptr, short, short, short, char *, int, TechPtr); void importfromlibrary(short, char *, char *); objectptr *new_library_object(short, char *, objlistptr *, TechPtr); Boolean library_object_unique(short, objectptr, objlistptr); void add_object_to_library(short, objectptr); u_char *find_delimiter(u_char *); char standard_delimiter_end(char); void output_graphic_data(FILE *, short *); extern Boolean CompareTechnology(objectptr, char *); extern TechPtr LookupTechnology(char *); extern TechPtr GetObjectTechnology(objectptr); extern TechPtr AddNewTechnology(char *, char *); extern void AddObjectTechnology(objectptr); extern void TechReplaceSave(); extern void TechReplaceRestore(); extern void TechReplaceAll(); extern void TechReplaceNone(); #ifdef TCL_WRAPPER extern void setfile(char *, int); extern void savetemp(ClientData); #else extern void setfile(xcWidget, xcWidget, caddr_t); extern void savetemp(XtPointer, xcIntervalId *); #endif extern void incr_changes(objectptr); extern void savelibpopup(xcWidget, char *, caddr_t); #ifndef TCL_WRAPPER extern void savelibrary(xcWidget, char *); #endif extern void savetechnology(char *, char *); extern void findfonts(objectptr, short *); extern void savefile(short); extern int printRGBvalues(char *, int, const char *); extern char *nosprint(char *, int *, int *); extern FILE *fileopen(char *, char *, char *, int); extern Boolean xc_tilde_expand(char *, int); extern Boolean xc_variable_expand(char *, int); extern short writelabel(FILE *, stringpart *, short *); extern char *writesegment(stringpart *, float *, int *, int *, int *); extern int writelabelsegs(FILE *, short *, stringpart *); extern void printobjects(FILE *, objectptr, objectptr **, short *, int); extern void printrefobjects(FILE *, objectptr, objectptr **, short *); extern void printpageobject(FILE *, objectptr, short, short); /* from fontfile.c: */ extern FILE *findfontfile(char *); extern int loadfontfile(char *); /* from formats.c: */ extern void loadlgf(int); extern void loadmat4(caddr_t); /* from functions.c: */ extern long sqwirelen(XPoint *, XPoint *); extern float fsqwirelen(XfPoint *, XfPoint *); extern int wirelength(XPoint *, XPoint *); extern long finddist(XPoint *,XPoint *, XPoint *); extern void calcarc(arcptr); extern void decomposearc(pathptr); extern void initsplines(void); extern void computecoeffs(splineptr, float *, float *, float *, float *, float *, float *); extern void calcspline(splineptr); extern void findsplinepos(splineptr, float, XPoint *, float *); extern void ffindsplinepos(splineptr, float, XfPoint *); extern float findsplinemin(splineptr, XPoint *); extern short closepoint(polyptr, XPoint *); extern short closedistance(polyptr, XPoint *); extern void updateinstparam(objectptr); extern short checkbounds(void); extern void window_to_user(short, short, XPoint *); extern void user_to_window(XPoint, XPoint *); extern float UTopScale(void); extern float UTopTransScale(float); extern float UTopDrawingScale(void); extern float UTopRotation(void); extern void UTopOffset(int *, int *); extern void UTopDrawingOffset(int *, int *); extern XPoint UGetCursor(void); extern XPoint UGetCursorPos(void); extern void u2u_snap(XPoint *); extern void snap(short, short, XPoint *); extern void UResetCTM(Matrix *); extern void InvertCTM(Matrix *); extern void UCopyCTM(Matrix *, Matrix *); extern void UMakeWCTM(Matrix *); extern void UMultCTM(Matrix *, XPoint, float, float); extern void USlantCTM(Matrix *, float); extern void UPreScaleCTM(Matrix *); extern short flipadjust(short); extern void UPreMultCTM(Matrix *, XPoint, float, float); extern void UPreMultCTMbyMat(Matrix *, Matrix *); extern void UTransformbyCTM(Matrix *, XPoint *, XPoint *, short); extern void UfTransformbyCTM(Matrix *, XfPoint *, XPoint *, short); extern void UPopCTM(void); extern void UPushCTM(void); extern void UTransformPoints(XPoint *, XPoint *, short, XPoint, float, float); extern void InvTransformPoints(XPoint *, XPoint *, short, XPoint, float, float); extern void manhattanize(XPoint *, polyptr, short, Boolean); extern void bboxcalc(short, short *, short *); extern void calcextents(genericptr *, short *, short *, short *, short *); extern void objinstbbox(objinstptr, XPoint *, int); extern void labelbbox(labelptr, XPoint *, objinstptr); extern void graphicbbox(graphicptr, XPoint *); extern void calcinstbbox(genericptr *, short *, short *, short *, short *); extern void calcbboxsingle(genericptr *, objinstptr, short *, short *, short *, short *); extern Boolean object_in_library(short, objectptr); extern void calcbboxinst(objinstptr); extern short find_object(objectptr, objectptr); extern void updatepagebounds(objectptr); extern void calcbbox(objinstptr); extern void calcbboxparam(objectptr, int); extern void singlebbox(genericptr *); extern void calcbboxselect(void); extern void calcbboxvalues(objinstptr, genericptr *); extern void centerview(objinstptr); extern void refresh(xcWidget, caddr_t, caddr_t); extern void zoomview(xcWidget, caddr_t, caddr_t); extern void UDrawSimpleLine(XPoint *, XPoint *); extern void UDrawLine(XPoint *, XPoint *); extern void UDrawCircle(XPoint *, u_char); extern void UDrawX(labelptr); extern void UDrawXDown(labelptr); extern int toplevelwidth(objinstptr, short *); extern int toplevelheight(objinstptr, short *); extern void extendschembbox(objinstptr, XPoint *, XPoint *); extern void pinadjust(short, short *, short *, short); extern void UDrawTextLine(labelptr, short); extern void UDrawTLine(labelptr); extern void UDrawXLine(XPoint, XPoint); extern void UDrawBox(XPoint, XPoint); extern float UGetRescaleBox(XPoint *corner, XPoint *newpoints); extern void UDrawRescaleBox(XPoint *); extern void UDrawBBox(void); extern void strokepath(XPoint *, short, short, float); extern void makesplinepath(splineptr, XPoint *); extern void UDrawSpline(splineptr, float); extern void UDrawPolygon(polyptr, float); extern void UDrawArc(arcptr, float); extern void UDrawPath(pathptr, float); extern void UDrawObject(objinstptr, short, int, float, pushlistptr *); extern void TopDoLatex(void); /* from help.c: */ extern void showhsb(xcWidget, caddr_t, caddr_t); extern void printhelppix(void); extern void starthelp(xcWidget, caddr_t, caddr_t); extern void simplescroll(xcWidget, xcWidget, XPointerMovedEvent *); extern void exposehelp(xcWidget, caddr_t, caddr_t); extern void printhelp(xcWidget); /* from keybindings.c */ extern int firstbinding(xcWidget, int); extern Boolean ismacro(xcWidget, int); extern int boundfunction(xcWidget, int, short *); extern int string_to_func(const char *, short *); extern int string_to_key(const char *); extern char *function_binding_to_string(xcWidget, int); extern char *key_binding_to_string(xcWidget, int); extern char *compat_key_to_string(xcWidget, int); extern char *func_to_string(int); extern char *key_to_string(int); extern void printeditbindings(void); extern int add_vbinding(xcWidget, int, int, short); extern int add_binding(xcWidget, int, int); extern int add_keybinding(xcWidget, const char *, const char *); extern void default_keybindings(void); extern int remove_binding(xcWidget, int, int); extern void remove_keybinding(xcWidget, const char *, const char *); #ifndef TCL_WRAPPER extern void mode_rebinding(int, int); extern void mode_tempbinding(int, int); #endif /* from libraries.c: */ extern short findhelvetica(void); extern void catreturn(void); extern int pageposition(short, int, int, int); extern short pagelinks(int); extern short *pagetotals(int, short); extern Boolean is_virtual(objinstptr); extern int is_page(objectptr); extern int is_library(objectptr); extern int NameToLibrary(char *); extern void tech_set_changes(TechPtr); extern void tech_mark_changed(TechPtr); extern int libfindobject(objectptr, int *); extern int libmoveobject(objectptr, int); extern void pagecat_op(int, int, int); extern void pageinstpos(short, short, objinstptr, int, int, int, int); extern objinstptr newpageinst(objectptr); extern void computespacing(short, int *, int *, int *, int *); extern void composepagelib(short); extern void updatepagelib(short, short); extern void pagecatmove(int, int); extern void composelib(short); extern short finddepend(objinstptr, objectptr **); extern void cathide(void); extern void catvirtualcopy(void); extern void catdelete(void); extern void catmove(int, int); extern void copycat(void); extern void catalog_op(int, int, int); extern void changecat(void); extern void startcatalog(xcWidget, pointertype, caddr_t); /* from menucalls.c: */ extern void setgrid(xcWidget, float *); extern void measurestr(float, char *); extern void setwidth(xcWidget, float *); extern void changetextscale(float); extern void autoscale(int); extern float parseunits(char *); extern Boolean setoutputpagesize(XPoint *); extern void setkern(xcWidget, stringpart *); extern void setdscale(xcWidget, XPoint *); extern void setosize(xcWidget, objinstptr); extern void setwwidth(xcWidget, void *); #ifdef TCL_WRAPPER extern void renamepage(short); extern void renamelib(short); extern void setcolormark(int); extern void setallstylemarks(u_short); #endif extern labelptr gettextsize(float **); extern void stringparam(xcWidget, caddr_t, caddr_t); extern int setelementstyle(xcWidget, u_short, u_short); extern void togglegrid(u_short); extern void togglefontmark(int); extern void setcolorscheme(Boolean); extern void getgridtype(xcWidget, pointertype, caddr_t); extern void newlibrary(xcWidget, caddr_t, caddr_t); extern int createlibrary(Boolean); extern void makepagebutton(void); extern int findemptylib(void); extern polyptr checkforbbox(objectptr); #ifdef TCL_WRAPPER extern void setcolor(xcWidget, int); extern void setfontmarks(short, short); #endif extern void startparam(xcWidget, pointertype, caddr_t); extern void startunparam(xcWidget, pointertype, caddr_t); extern void setdefaultfontmarks(void); extern void setanchorbit(xcWidget, pointertype, caddr_t); extern void setpinanchorbit(xcWidget, pointertype, caddr_t); extern void setanchor(xcWidget, pointertype, labelptr, short); extern void setvanchor(xcWidget, pointertype, caddr_t); extern void sethanchor(xcWidget, pointertype, caddr_t); extern void boxedit(xcWidget, pointertype, caddr_t); extern void locloadfont(xcWidget, char *); extern short findbestfont(short, short, short, short); extern void setfontval(xcWidget, pointertype, labelptr); extern void setfont(xcWidget, pointertype, caddr_t); extern void setfontstyle(xcWidget, pointertype, labelptr); extern void fontstyle(xcWidget, pointertype, caddr_t); extern void setfontencoding(xcWidget, pointertype, labelptr); extern void fontencoding(xcWidget, pointertype, caddr_t); extern void addtotext(xcWidget, pointertype, caddr_t); extern Boolean dospecial(void); /* from xtfuncs.c: */ extern void makenewfontbutton(void); /* either here or menucalls.c */ #ifndef TCL_WRAPPER extern void setfloat(xcWidget, float *); extern void autoset(xcWidget, xcWidgetList, caddr_t); extern void autostop(xcWidget, caddr_t, caddr_t); extern void togglegridstyles(xcWidget); extern void toggleanchors(xcWidget); extern void togglefontstyles(xcWidget); extern void toggleencodings(xcWidget); extern void getkern(xcWidget, caddr_t, caddr_t); extern void setcolor(xcWidget, pointertype, caddr_t); extern void setfill(xcWidget, pointertype, caddr_t); extern void makebbox(xcWidget, pointertype, caddr_t); extern void setclosure(xcWidget, pointertype, caddr_t); extern void setopaque(xcWidget, pointertype, caddr_t); extern void setline(xcWidget, pointertype, caddr_t); extern void changetool(xcWidget, pointertype, caddr_t); extern void exec_or_changetool(xcWidget, pointertype, caddr_t); extern void rotatetool(xcWidget, pointertype, caddr_t); extern void pantool(xcWidget, pointertype, caddr_t); extern void toggleexcl(xcWidget, menuptr, int); extern void highlightexcl(xcWidget, int, int); extern void toolcursor(int); extern void promptparam(xcWidget, caddr_t, caddr_t); extern void gettsize(xcWidget, caddr_t, caddr_t); extern void settsize(xcWidget, labelptr); extern void dotoolbar(xcWidget, caddr_t, caddr_t); extern void overdrawpixmap(xcWidget); extern buttonsave *getgeneric(xcWidget, void (*getfunction)(), void *); extern void getsnapspace(xcWidget, caddr_t, caddr_t); extern void getgridspace(xcWidget, caddr_t, caddr_t); extern void setscaley(xcWidget, float *); extern void setscalex(xcWidget, float *); extern void setorient(xcWidget, short *); extern void setpmode(xcWidget, short *); extern void setpagesize(xcWidget, XPoint *); extern void getdscale(xcWidget, caddr_t, caddr_t); extern void getosize(xcWidget, caddr_t, caddr_t); extern void getwirewidth(xcWidget, caddr_t, caddr_t); extern void getwwidth(xcWidget, caddr_t, caddr_t); extern void getfloat(xcWidget, float *, caddr_t); extern void setfilename(xcWidget, char **); extern void setpagelabel(xcWidget, char *); extern void makenewfontbutton(void); extern void newpagemenu(xcWidget, pointertype, caddr_t); extern void makenewencodingbutton(char *, char); extern void toggle(xcWidget, pointertype, Boolean *); extern void inversecolor(xcWidget, pointertype, caddr_t); extern void setgridtype(char *); extern void renamepage(short); extern void renamelib(short); extern void setcolormark(int); extern void setallstylemarks(u_short); extern void setnewcolor(xcWidget, caddr_t); extern void addnewcolor(xcWidget, caddr_t, caddr_t); extern void setfontmarks(short, short); extern void position_popup(xcWidget, xcWidget); extern void border_popup(xcWidget, caddr_t, caddr_t); extern void color_popup(xcWidget, caddr_t, caddr_t); extern void fill_popup(xcWidget, caddr_t, caddr_t); extern void param_popup(xcWidget, caddr_t, caddr_t); extern void addnewfont(xcWidget, caddr_t, caddr_t); #endif /* from netlist.c: */ #ifdef TCL_WRAPPER extern Tcl_Obj *tclglobals(objinstptr); extern Tcl_Obj *tcltoplevel(objinstptr); void ratsnest(objinstptr); #endif extern void ReferencePosition(objinstptr, XPoint *, XPoint *); extern int NameToPinLocation(objinstptr, char *, int *, int *); extern Boolean RemoveFromNetlist(objectptr, genericptr); extern labelptr NetToLabel(int, objectptr); extern void NameToPosition(objinstptr, labelptr, XPoint *); extern XPoint *NetToPosition(int, objectptr); extern int getsubnet(int, objectptr); extern void invalidate_netlist(objectptr); extern void remove_netlist_element(objectptr, genericptr); extern int updatenets(objinstptr, Boolean); extern void createnets(objinstptr, Boolean); extern Boolean nonnetwork(polyptr); extern int globalmax(void); extern LabellistPtr geninfolist(objectptr, objinstptr, char *); extern void gennetlist(objinstptr); extern void gencalls(objectptr); extern void search_on_siblings(objinstptr, objinstptr, pushlistptr, short, short, short, short); extern char *GetHierarchy(pushlistptr *, Boolean); extern Boolean HierNameToObject(objinstptr, char *, pushlistptr *); extern void resolve_devindex(objectptr, Boolean); extern void copy_bus(Genericlist *, Genericlist *); extern Genericlist *is_resolved(genericptr *, pushlistptr, objectptr *); extern Boolean highlightnet(objectptr, objinstptr, int, u_char); extern void highlightnetlist(objectptr, objinstptr, u_char); extern int pushnetwork(pushlistptr, objectptr); extern Boolean match_buses(Genericlist *, Genericlist *, int); extern int onsegment(XPoint *, XPoint *, XPoint *); extern Boolean neardist(long); extern Boolean nearpoint(XPoint *, XPoint *); extern int searchconnect(XPoint *, int, objinstptr, int); extern Genericlist *translateup(Genericlist *, objectptr, objectptr, objinstptr); extern Genericlist *addpoly(objectptr, polyptr, Genericlist *); extern long zsign(long, long); extern Boolean mergenets(objectptr, Genericlist *, Genericlist *); extern void removecall(objectptr, CalllistPtr); extern Genericlist *addpin(objectptr, objinstptr, labelptr, Genericlist *); extern Genericlist *addglobalpin(objectptr, objinstptr, labelptr, Genericlist *); extern void addcall(objectptr, objectptr, objinstptr); extern void addport(objectptr, Genericlist *); extern Boolean addportcall(objectptr, Genericlist *, Genericlist *); extern void makelocalpins(objectptr, CalllistPtr, char *); extern int porttonet(objectptr, int); extern stringpart *nettopin(int, objectptr, char *); extern Genericlist *pointtonet(objectptr, objinstptr, XPoint *); extern Genericlist *pintonet(objectptr, objinstptr, labelptr); extern Genericlist *nametonet(objectptr, objinstptr, char *); extern Genericlist *new_tmp_pin(objectptr, XPoint *, char *, char *, Genericlist *); extern Genericlist *make_tmp_pin(objectptr, objinstptr, XPoint *, Genericlist *); extern void resolve_devnames(objectptr); extern void resolve_indices(objectptr, Boolean); extern void clear_indices(objectptr); extern void unnumber(objectptr); extern char *parsepininfo(objinstptr, char *, int); extern char *defaultpininfo(objinstptr, int); extern char *parseinfo(objectptr, objectptr, CalllistPtr, char *, char *, Boolean, Boolean); extern int writedevice(FILE *, char *, objectptr, CalllistPtr, char *); extern void writeflat(objectptr, CalllistPtr, char *, FILE *, char *); extern void writeglobals(objectptr, FILE *); extern void writehierarchy(objectptr, objinstptr, CalllistPtr, FILE *, char *); extern void writenet(objectptr, char *, char *); extern Boolean writepcb(struct Ptab **, objectptr, CalllistPtr, char *, char *); extern void outputpcb(struct Ptab *, FILE *); extern void freepcb(struct Ptab *); extern void freegenlist(Genericlist *); extern void freepolylist(PolylistPtr *); extern void freenetlist(objectptr); extern void freelabellist(LabellistPtr *); extern void freecalls(CalllistPtr); extern void freenets(objectptr); extern void freetemplabels(objectptr); extern void freeglobals(void); extern void destroynets(objectptr); extern int cleartraversed(objectptr); extern int checkvalid(objectptr); extern void clearlocalpins(objectptr); extern void append_included(char *); extern Boolean check_included(char *); extern void free_included(void); extern void genprefixlist(objectptr, slistptr *); /* from ngspice.c: */ extern int exit_spice(void); /* from parameter.c: */ extern char *find_indirect_param(objinstptr, char *); extern oparamptr match_param(objectptr, char *); extern oparamptr match_instance_param(objinstptr, char *); extern oparamptr find_param(objinstptr, char *); extern int get_num_params(objectptr); extern void free_all_eparams(genericptr); extern void free_object_param(objectptr, oparamptr); extern oparamptr free_instance_param(objinstptr, oparamptr); extern void free_element_param(genericptr, eparamptr); extern oparamptr make_new_parameter(char *); extern eparamptr make_new_eparam(char *); extern char *getnumericalpkey(u_int); extern char *makeexprparam(objectptr, char *, char *, int); extern Boolean makefloatparam(objectptr, char *, float); extern Boolean makestringparam(objectptr, char *, stringpart *); extern void std_eparam(genericptr, char *); extern void indicateparams(genericptr); extern void setparammarks(genericptr); extern void makenumericalp(genericptr *, u_int, char *, short); extern void noparmstrcpy(u_char *, u_char *); extern void insertparam(void); extern void makeparam(labelptr, char *); extern void searchinst(objectptr, objectptr, char *); extern stringpart *searchparam(stringpart *); extern void unmakeparam(labelptr, objinstptr, stringpart *); extern void removenumericalp(genericptr *, u_int); extern void unparameterize(int); extern void parameterize(int, char *, short); extern genericptr findparam(objectptr, void *, u_char); extern Boolean paramcross(objectptr, labelptr); extern oparamptr parampos(objectptr, labelptr, char *, short *, short *); extern int opsubstitute(objectptr, objinstptr); extern void exprsub(genericptr); extern int epsubstitute(genericptr, objectptr, objinstptr, Boolean *); extern int psubstitute(objinstptr); extern Boolean has_param(genericptr); extern oparamptr copyparameter(oparamptr); extern eparamptr copyeparam(eparamptr, genericptr); extern void pwriteback(objinstptr); extern short paramlen(u_char *); extern int natstrlen(u_char *); extern int natstrcmp(u_char *, u_char *); extern void curtail(u_char *); extern int checklibtop(void); extern void removeinst(objinstptr); extern void removeparams(objectptr); extern void resolveparams(objinstptr); /* from python.c: */ #ifdef HAVE_PYTHON extern int python_key_command(int); extern void init_interpreter(void); extern void exit_interpreter(void); #endif #ifdef HAVE_XPM extern xcWidget *pytoolbuttons(int *); #endif /* from rcfile.c: */ extern short execcommand(short, char *); #ifdef TCL_WRAPPER extern int defaultscript(void); extern int loadrcfile(void); #else extern void defaultscript(void); extern void loadrcfile(void); #endif extern void execscript(void); #ifndef HAVE_PYTHON extern short readcommand(short, FILE *); #endif /* from graphic.c */ extern void count_graphics(objectptr, short *); extern void UDrawGraphic(graphicptr); extern Imagedata *addnewimage(char *, int, int); extern graphicptr new_graphic(objinstptr, char *, int, int); extern graphicptr gradient_field(objinstptr, int, int, int, int); extern void invalidate_graphics(objectptr); extern void freegraphic(graphicptr); extern short *collect_graphics(short *); xcImage *xcImageCreate(int width, int height); void xcImageDestroy(xcImage *img); int xcImageGetWidth(xcImage *img); int xcImageGetHeight(xcImage *img); void xcImagePutPixel(xcImage *img, int x, int y, u_char r, u_char g, u_char b); void xcImageGetPixel(xcImage *img, int x, int y, u_char *r, u_char *g, u_char *b); /* from flate.c */ #ifdef HAVE_LIBZ extern u_long large_deflate(u_char *, u_long, u_char *, u_long); extern u_long large_inflate(u_char *, u_long, u_char **, u_long); extern unsigned long ps_deflate (unsigned char *, unsigned long, unsigned char *, unsigned long); extern unsigned long ps_inflate (unsigned char *, unsigned long, unsigned char **, unsigned long); #endif /* from render.c: */ extern void ghostinit(void); extern void send_client(Atom); extern void ask_for_next(void); extern void start_gs(void); extern void parse_bg(FILE *, FILE *); extern void bg_get_bbox(void); extern void backgroundbbox(int); extern void readbackground(FILE *); extern void savebackground(FILE *, char *); extern void register_bg(char *); extern void loadbackground(void); extern void send_to_gs(char *); extern int renderbackground(void); extern int copybackground(void); extern int exit_gs(void); extern int reset_gs(void); void write_scale_position_and_run_gs(float norm, float xpos, float ypos, const char *bgfile); #ifndef TCL_WRAPPER extern Boolean render_client(XEvent *); #endif /* from schema.c: */ extern objectptr NameToPageObject(char *, objinstptr *, int *); extern objectptr NameToObject(char *, objinstptr *, Boolean); extern int checkpagename(objectptr); extern void callwritenet(xcWidget, pointertype, caddr_t); extern void startconnect(xcWidget, caddr_t, caddr_t); extern void connectivity(xcWidget, caddr_t, caddr_t); extern Boolean setobjecttype(objectptr); extern void pinconvert(labelptr, pointertype); extern void dopintype(xcWidget, pointertype, caddr_t); extern void setsymschem(void); extern int findpageobj(objectptr); extern void collectsubschems(int); extern int findsubschems(int, objectptr, int, short *, Boolean); extern void copypinlabel(labelptr); extern int checkschem(objectptr, char *); extern int checksym(objectptr, char *); extern int changeotherpins(labelptr, stringpart *); extern void swapschem(int, int, char *); extern void dobeforeswap(xcWidget, caddr_t, caddr_t); extern void schemdisassoc(void); extern void startschemassoc(xcWidget, pointertype, caddr_t); extern Boolean schemassoc(objectptr, objectptr); #ifndef TCL_WRAPPER extern void xlib_swapschem(xcWidget, pointertype, caddr_t); #endif /* from selection.c: */ extern void enable_selects(objectptr, short *, int); extern void disable_selects(objectptr, short *, int); extern void selectfilter(xcWidget, pointertype, caddr_t); extern Boolean checkselect(short); extern Boolean checkselect_draw(short, Boolean); extern void geneasydraw(short, int, objectptr, objinstptr); extern void gendrawselected(short *, objectptr, objinstptr); extern selection *genselectelement(short, u_char, objectptr, objinstptr); extern short *allocselect(void); extern void setoptionmenu(void); extern int test_insideness(int, int, XPoint *); extern Boolean pathselect(genericptr *, short, float); extern Boolean areaelement(genericptr *, XPoint *, Boolean, short); extern Boolean selectarea(objectptr, XPoint *, short); extern void startdesel(xcWidget, caddr_t, caddr_t); extern void deselect(xcWidget, caddr_t, caddr_t); extern void draw_normal_selected(objectptr, objinstptr); extern void freeselects(void); extern void draw_all_selected(void); extern void clearselects_noundo(void); extern void clearselects(void); extern void unselect_all(void); extern void select_connected_pins(); extern void reset_cycles(); extern selection *recurselect(short, u_char, pushlistptr *); extern short *recurse_select_element(short, u_char); extern void startselect(void); extern void trackselarea(void); extern void trackrescale(void); extern Boolean compareselection(selection *, selection *); extern pointselect *addcycle(genericptr *, short, u_char); extern void addanticycle(pathptr, splineptr, short); extern void copycycles(pointselect **, pointselect **); extern void advancecycle(genericptr *, short); extern void removecycle(genericptr *); extern void removeothercycles(pathptr, genericptr); extern Boolean checkforcycles(short *, int); extern void makerefcycle(pointselect *, short); /* from text.c: */ extern Boolean hasparameter(labelptr); extern void joinlabels(void); extern void drawparamlabels(labelptr, short); extern stringpart *nextstringpart(stringpart *, objinstptr); extern stringpart *nextstringpartrecompute(stringpart *, objinstptr); extern stringpart *makesegment(stringpart **, stringpart *); extern stringpart *splitstring(int, stringpart **, objinstptr); extern stringpart *mergestring(stringpart *); extern stringpart *linkstring(objinstptr, stringpart *, Boolean); extern int findcurfont(int, stringpart *, objinstptr); extern stringpart *findtextinstring(char *, int *, stringpart *, objinstptr); extern stringpart *findstringpart(int, int *, stringpart *, objinstptr); extern void charprint(char *, stringpart *, int); extern void charprinttex(char *, stringpart *, int); extern char *stringprint(stringpart *, objinstptr); extern char *textprint(stringpart *, objinstptr); extern char *textprinttex(stringpart *, objinstptr); extern char *textprintsubnet(stringpart *, objinstptr, int); extern char *textprintnet(char *, char *, Genericlist *); extern int textcomp(stringpart *, char *, objinstptr); extern int textncomp(stringpart *, char *, objinstptr); extern int stringcomp(stringpart *, stringpart *); extern Boolean issymbolfont(int); extern Boolean issansfont(int); extern Boolean isisolatin1(int); extern int stringcomprelaxed(stringpart *, stringpart *, objinstptr); extern int stringparts(stringpart *); extern int stringlength(stringpart *, Boolean, objinstptr); extern stringpart *stringcopy(stringpart *); extern stringpart *stringcopyall(stringpart *, objinstptr); extern stringpart *stringcopyback(stringpart *, objinstptr); extern stringpart *deletestring(stringpart *, stringpart **, objinstptr); extern Genericlist *break_up_bus(labelptr, objinstptr, Genericlist *); extern int sub_bus_idx(labelptr, objinstptr); extern Boolean pin_is_bus(labelptr, objinstptr); extern int find_cardinal(int, labelptr, objinstptr); extern int find_ordinal(int, labelptr, objinstptr); void UDrawCharString(u_char *text, int start, int end, XfPoint *offset, short styles, short ffont, int groupheight, int passcolor, float tmpscale); extern void UDrawString(labelptr, int, objinstptr); extern void UDrawStringNoX(labelptr, int, objinstptr); extern void CheckMarginStop(labelptr, objinstptr, Boolean); extern TextExtents ULength(labelptr, objinstptr, TextLinesInfo *); extern void undrawtext(labelptr); extern void redrawtext(labelptr); extern void composefontlib(short); extern void fontcat_op(int, int, int); /* from xcircuit.c: */ extern void Wprintf(char *, ...); extern void W1printf(char *, ...); extern void W2printf(char *, ...); extern void W3printf(char *, ...); extern XCWindowData *create_new_window(void); extern void pre_initialize(void); extern void post_initialize(void); extern void delete_window(XCWindowDataPtr); extern void printeventmode(void); extern void popupprompt(xcWidget, char *, char *, void (*function)(), buttonsave *, const char *); extern void getproptext(xcWidget, propstruct *, caddr_t); extern int rgb_alloccolor(int, int, int); extern void addtocolorlist(xcWidget, int); extern int addnewcolorentry(int); extern int xc_getlayoutcolor(int); void xc_get_color_rgb(unsigned long cidx, unsigned short *red, unsigned short *green, unsigned short *blue); extern int query_named_color(char *); extern caddr_t CvtStringToPixel(XrmValuePtr, int *, XrmValuePtr, XrmValuePtr); extern void outputpopup(xcWidget, caddr_t, caddr_t); extern void docommand(void); extern int installowncmap(void); /* sometimes from xtgui.c */ extern void destroypopup(xcWidget, popupstruct *, caddr_t); extern int xc_alloccolor(char *); extern void dointr(int); extern void DoNothing(xcWidget, caddr_t, caddr_t); extern u_short countchanges(char **); extern u_short getchanges(objectptr); extern int quitcheck(xcWidget, caddr_t, caddr_t); extern void quit(xcWidget, caddr_t); extern void resizetoolbar(void); extern void writescalevalues(char *, char *, char *); #ifdef TCL_WRAPPER extern Tcl_Obj *Tcl_NewHandleObj(void *); extern int Tcl_GetHandleFromObj(Tcl_Interp *, Tcl_Obj *, void **); #else extern void updatetext(xcWidget, xcWidgetList, caddr_t); extern void delwin(xcWidget, popupstruct *, XClientMessageEvent *); #endif extern void makecursors(void); /* from cairo.c */ void xc_cairo_set_matrix(const Matrix *xcm); void xc_cairo_set_color(int coloridx); void xc_cairo_set_fontinfo(size_t fontidx); xcircuit-3.9.73/menus.h0000664000175000001440000003764613067303440013501 0ustar timusers/*-------------------------------------------------------------------------*/ /* menus.h */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* Hierarchical menus must be listed in bottom-up order */ /*-------------------------------------------------------------------------*/ /* Note: underscore (_) before name denotes a color to paint the button. */ /* colon (:) before name denotes a stipple, defined by the data */ /* passed to setfill(). */ /*-------------------------------------------------------------------------*/ #ifdef _MENUDEP #define submenu(a) a, (sizeof (a) / sizeof(menustruct)), NULL, NULL #define action(b,c) NULL, 0, NULL, NULL #define setaction(b,c) NULL, 1, NULL, NULL #define toolaction(b,c) NULL, NULL #define noaction NULL, 0, NULL, NULL #define offset(a) 0 #else /* real definitions. . .*/ #define submenu(a) a, (sizeof (a) / sizeof(menustruct)), \ (XtCallbackProc)DoNothing, NULL #define action(b,c) NULL, 0, (XtCallbackProc)b, c #define setaction(b,c) NULL, 1, (XtCallbackProc)b, c #define toolaction(b,c) (XtCallbackProc)b, c #define noaction NULL, 0, (XtCallbackProc)DoNothing, NULL #define offset(a) Number(XtOffset(XCWindowDataPtr, a)) #endif /* Inclusions for pixmap icons */ #include "tool_bar.h" /* Things commented out here are reminders of future implementations. */ menustruct Fonts[] = { {"Add New Font", action(addnewfont, NULL)}, {" ", noaction}, }; /* Note the unorthodox passing of integer constants through type pointer */ menustruct FontStyles[] = { {"Normal", setaction(fontstyle, Number(0))}, {"Bold", action(fontstyle, Number(1))}, {"Italic", action(fontstyle, Number(2))}, {"BoldItalic", action(fontstyle, Number(3))}, {" ", noaction}, {"Subscript", action(addtotext, Number(SUBSCRIPT))}, {"Superscript", action(addtotext, Number(SUPERSCRIPT))}, {"Normalscript", action(addtotext, Number(NORMALSCRIPT))}, {" ", noaction}, {"Underline", action(addtotext, Number(UNDERLINE))}, {"Overline", action(addtotext, Number(OVERLINE))}, {"No line", action(addtotext, Number(NOLINE))}, }; menustruct FontEncodings[] = { {"Standard", action(fontencoding, Number(0))}, {"ISO-Latin1", setaction(fontencoding, Number(2))}, }; menustruct TextSpacing[] = { {"Tab stop", action(addtotext, Number(TABSTOP))}, {"Tab forward", action(addtotext, Number(TABFORWARD))}, {"Tab backward", action(addtotext, Number(TABBACKWARD))}, {"Carriage Return", action(addtotext, Number(RETURN))}, {"1/2 space", action(addtotext, Number(HALFSPACE))}, {"1/4 space", action(addtotext, Number(QTRSPACE))}, {"Kern", action(getkern, NULL)}, {"Character", action(addtotext, Number(SPECIAL))}, }; menustruct Anchors[] = { {"Left Anchored", setaction(sethanchor, Number(NORMAL))}, {"Center Anchored", action(sethanchor, Number(NOTLEFT))}, {"Right Anchored", action(sethanchor, Number(NOTLEFT | RIGHT))}, {" ", noaction}, {"Top Anchored", action(setvanchor, Number(NOTBOTTOM | TOP))}, {"Middle Anchored", action(setvanchor, Number(NOTBOTTOM))}, {"Bottom Anchored", setaction(setvanchor, Number(NORMAL))}, {" ", noaction}, {"Flip Invariant", setaction(setanchorbit, Number(FLIPINV))}, }; menustruct BoxEditStyles[] = { {"Manhattan Box Edit", setaction(boxedit, Number(MANHATTAN))}, {"Rhomboid X", action(boxedit, Number(RHOMBOIDX))}, {"Rhomboid Y", action(boxedit, Number(RHOMBOIDY))}, {"Rhomboid A", action(boxedit, Number(RHOMBOIDA))}, {"Normal", action(boxedit, Number(NORMAL))}, }; menustruct GridStyles[] = { {"Decimal Inches", action(getgridtype, Number(DEC_INCH))}, {"Fractional Inches", setaction(getgridtype, Number(FRAC_INCH))}, {"Centimeters", action(getgridtype, Number(CM))}, {" ", noaction}, {"Drawing Scale", action(getdscale, NULL)}, }; menustruct Libraries[] = { {"Add New Library", action(newlibrary, NULL)}, {" ", noaction}, {"Library 1", action(startcatalog, Number(LIBRARY))}, {"Library 2", action(startcatalog, Number(LIBRARY + 1))}, }; menustruct Pages[] = { {"Add New Page", action(newpagemenu, Number(255))}, {" ", noaction}, {"Page 1", action(newpagemenu, Number(0))}, {"Page 2", action(newpagemenu, Number(1))}, {"Page 3", action(newpagemenu, Number(2))}, {"Page 4", action(newpagemenu, Number(3))}, {"Page 5", action(newpagemenu, Number(4))}, {"Page 6", action(newpagemenu, Number(5))}, {"Page 7", action(newpagemenu, Number(6))}, {"Page 8", action(newpagemenu, Number(7))}, {"Page 9", action(newpagemenu, Number(8))}, {"Page 10", action(newpagemenu, Number(9))} }; menustruct BorderStyles[] = { {"Linewidth", action(getwwidth, NULL)}, {" ", noaction}, {"Solid", setaction(setline, Number(NORMAL))}, {"Dashed", action(setline, Number(DASHED))}, {"Dotted", action(setline, Number(DOTTED))}, {"Unbordered", action(setline, Number(NOBORDER))}, {" ", noaction}, {"Closed", action(setclosure, Number(UNCLOSED))}, {"Bounding Box", action(makebbox, Number(BBOX))}, }; menustruct Colors[] = { {"Add New Color", action(addnewcolor, NULL)}, {" ", noaction}, {"Inherit Color", setaction(setcolor, Number(1))}, {"_Black", action(setcolor, NULL)}, {"_White", action(setcolor, NULL)}, }; menustruct Parameterize[] = { {"Substring", action(promptparam, NULL)}, {"Numeric", action(startparam, Number(P_NUMERIC))}, {"Style", action(startparam, Number(P_STYLE))}, {"Anchoring", action(startparam, Number(P_ANCHOR))}, {"Start Angle", action(startparam, Number(P_ANGLE1))}, {"End Angle", action(startparam, Number(P_ANGLE2))}, {"Radius", action(startparam, Number(P_RADIUS))}, {"Minor Axis", action(startparam, Number(P_MINOR_AXIS))}, {"Rotation", action(startparam, Number(P_ROTATION))}, {"Scale", action(startparam, Number(P_SCALE))}, {"Linewidth", action(startparam, Number(P_LINEWIDTH))}, {"Color", action(startparam, Number(P_COLOR))}, {"Position", action(startparam, Number(P_POSITION))}, }; menustruct Stipples[] = { {":Black", action(setfill, Number(OPAQUE | FILLED | FILLSOLID))}, {":Gray12", action(setfill, Number(OPAQUE | FILLED | STIP2 | STIP1))}, {":Gray25", action(setfill, Number(OPAQUE | FILLED | STIP2 | STIP0))}, {":Gray37", action(setfill, Number(OPAQUE | FILLED | STIP2))}, {":Gray50", action(setfill, Number(OPAQUE | FILLED | STIP0 | STIP1))}, {":Gray62", action(setfill, Number(OPAQUE | FILLED | STIP1))}, {":Gray75", action(setfill, Number(OPAQUE | FILLED | STIP0))}, {":Gray87", action(setfill, Number(OPAQUE | FILLED))}, {":White", setaction(setfill, Number(FILLSOLID))}, {" ", noaction}, {"Opaque", action(setopaque, Number(OPAQUE))}, {"Transparent", setaction(setopaque, Number(NORMAL))}, }; menustruct TextMenu[] = { {"Text Size", action(gettsize, NULL)}, {"Font", submenu(Fonts)}, {"Style", submenu(FontStyles)}, {"Encoding", submenu(FontEncodings)}, {"Insert", submenu(TextSpacing)}, {"Anchoring (keypad)", submenu(Anchors)}, {"Parameterize", action(promptparam, NULL)}, {"Unparameterize", action(startunparam, Number(P_SUBSTRING))}, {" ", noaction}, {"Set LaTeX Mode", action(setanchorbit, Number(LATEXLABEL))}, {" ", noaction}, {"Make Label (t)", action(changetool, Number(XCF_Text))}, }; menustruct PolyMenu[] = { {"Border", submenu(BorderStyles)}, {"Fill", submenu(Stipples)}, {"Color", submenu(Colors)}, {" ", noaction}, {"Object size", action(getosize, NULL)}, {"Parameters", submenu(Parameterize)}, {"Center Object", setaction(toggle, offset(center))}, {"Manhattan Draw", action(toggle, offset(manhatn))}, {"Polygon Edit", submenu(BoxEditStyles)}, }; menustruct FilterMenu[] = { {"Labels", setaction(selectfilter, Number(LABEL))}, {"Objects", setaction(selectfilter, Number(OBJINST))}, {"Polygons", setaction(selectfilter, Number(POLYGON))}, {"Arcs", setaction(selectfilter, Number(ARC))}, {"Splines", setaction(selectfilter, Number(SPLINE))}, {"Paths", setaction(selectfilter, Number(PATH))}, }; menustruct RotateMenu[] = { {"Flip Horizontal (f)", action(exec_or_changetool, Number(XCF_Flip_X))}, {"Flip Vertical (F)", action(exec_or_changetool, Number(XCF_Flip_Y))}, {" ", noaction}, {"Rotate CW 90", action(rotatetool, Number(90))}, {"Rotate CW 45", action(rotatetool, Number(45))}, {"Rotate CW 30", action(rotatetool, Number(30))}, {"Rotate CW 15 (r)", action(rotatetool, Number(15))}, {"Rotate CW 5 (o)", action(rotatetool, Number(3))}, {"Rotate CW 1", action(rotatetool, Number(1))}, {" ", noaction}, {"Rotate CCW 90", action(rotatetool, Number(-90))}, {"Rotate CCW 45", action(rotatetool, Number(-45))}, {"Rotate CCW 30", action(rotatetool, Number(-30))}, {"Rotate CCW 15 (R)", action(rotatetool, Number(-15))}, {"Rotate CCW 5 (O)", action(rotatetool, Number(-5))}, {"Rotate CCW 1", action(rotatetool, Number(-1))}, }; menustruct LineMenu[] = { {"Global Linewidth", action(getwirewidth, NULL)}, {"Wire Linewidth", action(getwwidth, NULL)}, }; menustruct GridMenu[] = { {"Grid", setaction(toggle, offset(gridon))}, {"Axes", setaction(toggle, offset(axeson))}, {"Grid spacing", action(getgridspace, NULL)}, {"Grid type/display", submenu(GridStyles)}, }; menustruct SnapMenu[] = { {"Snap-to", setaction(toggle, offset(snapto))}, {"Snap spacing", action(getsnapspace, NULL)}, }; menustruct PinConvert[] = { {"Normal label", action(dopintype, Number(NORMAL))}, {"Local Pin", action(dopintype, Number(LOCAL))}, {"Global Pin", action(dopintype, Number(GLOBAL))}, {"Info label", action(dopintype, Number(INFO))}, }; menustruct SchemaMenu[] = { {"Make Pin (T)", action(changetool, Number(XCF_Pin_Label))}, {"Make Info Pin (I)", action(changetool, Number(XCF_Info_Label))}, {"Make Global Pin (G)", action(changetool, Number(XCF_Pin_Global))}, {"Convert Label to...", submenu(PinConvert)}, {"Pin Visibility", action(setpinanchorbit, Number(PINVISIBLE))}, /* {"Make Object Non-Schematic", action(maketrivial, NULL)}, */ {"Make Matching Symbol", action(dobeforeswap, NULL)}, {"Associate with Symbol", action(startschemassoc, Number(1))}, {"Highlight Connectivity", action(startconnect, NULL)}, {"Auto-number Components", action(callwritenet, Number(4))}, {" ", noaction}, {"Write spice", action(callwritenet, Number(0))}, {"Write flattened spice", action(callwritenet, Number(3))}, {"Write sim", action(callwritenet, Number(1))}, {"Write pcb", action(callwritenet, Number(2))}, }; menustruct WindowMenu[] = { {"Zoom In (Z)", action(zoominrefresh, NULL)}, {"Zoom Out (z)", action(zoomoutrefresh, NULL)}, {"Full View (v)", action(zoomview, NULL)}, {"Pan (p)", action(pantool, Number(6))}, {"Refresh ( )", action(refresh, NULL)}, {" ", noaction}, {"Library Directory (L)", action(startcatalog, Number(LIBLIB))}, {"Goto Library", submenu(Libraries)}, {" ", noaction}, {"Page Directory (P)", action(startcatalog, Number(PAGELIB))}, {"Goto Page", submenu(Pages)} }; menustruct FileMenu[] = { #ifdef XC_WIN32 {"New window", action(win32_new_window, NULL)}, {" ", noaction}, #endif {"Read Xcircuit File", action(getfile, Number(NORMAL))}, {"Import Xcircuit PS", action(getfile, Number(IMPORT))}, #if !defined(HAVE_CAIRO) || defined(HAVE_GS) {"Import background PS", action(getfile, Number(PSBKGROUND))}, #endif #ifdef HAVE_CAIRO {"Import graphic image", action(getfile, Number(IMPORTGRAPHIC))}, #endif #ifdef ASG {"Import SPICE deck", action(getfile, Number(IMPORTSPICE))}, #endif {"Execute script", action(getfile, Number(SCRIPT))}, {"Write Xcircuit PS (W)", action(outputpopup, NULL)}, {" ", noaction}, {"Add To Library", action(getlib, NULL)}, {"Load New Library", action(getuserlib, NULL)}, {"Save Library", action(savelibpopup, NULL)}, {" ", noaction}, {"Clear Page", action(resetbutton, Number(0))}, {" ", noaction}, {"Quit", action(quitcheck, NULL)}, }; menustruct OptionMenu[] = { {"Alt Colors", action(inversecolor, offset(invert))}, {"Show Bounding box", action(toggle, offset(bboxon))}, {"Edit in place", setaction(toggle, offset(editinplace))}, {"Show Pin Positions", action(toggle, offset(pinpointon))}, #ifdef HAVE_XPM {"Disable Toolbar", action(dotoolbar, NULL)}, #endif {"Grid", submenu(GridMenu)}, {"Snap-to", submenu(SnapMenu)}, {"Linewidth", submenu(LineMenu)}, {"Elements", submenu(PolyMenu)}, {" ", noaction}, {"Help!", action(starthelp, NULL)}, }; menustruct EditMenu[] = { {"Undo (u)", action(undo_call, NULL)}, {"Redo (U)", action(redo_call, NULL)}, {" ", noaction}, {"Delete (d)", action(exec_or_changetool, Number(XCF_Delete))}, {"Copy (c)", action(exec_or_changetool, Number(XCF_Copy))}, {"Edit (e)", action(exec_or_changetool, Number(XCF_Edit))}, {"Rotate/Flip", submenu(RotateMenu)}, {"Deselect (x)", action(startdesel, NULL)}, {"Select filter", submenu(FilterMenu)}, {"Push selected (>)", action(exec_or_changetool, Number(XCF_Push))}, {"Pop hierarchy (<)", action(popobject, Number(0))}, {" ", noaction}, {"Make User Object (m)", action(selectsave, NULL)}, {"Make Arc (a)", action(changetool, Number(XCF_Arc))}, {"Make Box (b)", action(changetool, Number(XCF_Box))}, {"Make Spline (s)", action(changetool, Number(XCF_Spline))}, {"Join (j)", action(join, NULL)}, }; menustruct TopButtons[] = { {"File", submenu(FileMenu)}, {"Edit", submenu(EditMenu)}, {"Text", submenu(TextMenu)}, {"Options", submenu(OptionMenu)}, {"Window", submenu(WindowMenu)}, {"Netlist", submenu(SchemaMenu)}, }; short maxbuttons = sizeof(TopButtons) / sizeof(menustruct); #ifdef HAVE_XPM /* Toolbar buttons */ toolbarstruct ToolBar[] = { {"Pan", pn_xpm, toolaction(pantool, Number(6)), "pan mode"}, {"Wire", w_xpm, toolaction(changetool, Number(XCF_Wire)), "draw wire"}, {"Box", b_xpm, toolaction(changetool, Number(XCF_Box)), "draw box"}, {"Arc", a_xpm, toolaction(changetool, Number(XCF_Arc)), "draw arc"}, {"Spline", s_xpm, toolaction(changetool, Number(XCF_Spline)), "draw spline"}, {"Text", t_xpm, toolaction(changetool, Number(XCF_Text)), "enter text"}, {"Move", mv_xpm, toolaction(exec_or_changetool, Number(XCF_Move)), "move element"}, {"Copy", cp_xpm, toolaction(exec_or_changetool, Number(XCF_Copy)), "copy element"}, {"Edit", e_xpm, toolaction(exec_or_changetool, Number(XCF_Edit)), "edit element"}, {"Delete", d2_xpm, toolaction(exec_or_changetool, Number(XCF_Delete)), "delete element"}, {"RotP", cw_xpm, toolaction(rotatetool, Number(15)), "rotate 15 degrees clockwise"}, {"RotN", ccw_xpm, toolaction(rotatetool, Number(-15)), "rotate 15 degrees counterclockwise"}, {"HFlip", fx_xpm, toolaction(exec_or_changetool, Number(XCF_Flip_X)), "flip horizontal"}, {"VFlip", fy_xpm, toolaction(exec_or_changetool, Number(XCF_Flip_Y)), "flip vertical"}, {"Push", pu2_xpm, toolaction(exec_or_changetool, Number(XCF_Push)), "push (edit object)"}, {"Pop", po2_xpm, toolaction(popobject, Number(0)), "pop (return from object edit)"}, {"Make", mk_xpm, toolaction(selectsave, NULL), "make an object from selected elements"}, {"Join", pz_xpm, toolaction(join, NULL), "join elements into polygon or path"}, {"Unjoin", uj_xpm, toolaction(unjoin, NULL), "separate path into elements"}, {"Colors", co_xpm, toolaction(color_popup, NULL), "set color"}, {"Border", bd_xpm, toolaction(border_popup, NULL), "set border and line properties"}, {"Fills", fi_xpm, toolaction(fill_popup, NULL), "set fill properties"}, {"Parameters", pm_xpm, toolaction(param_popup, NULL), "parameterize properties"}, {"Library",li_xpm, toolaction(changecat, NULL), "go to next library"}, {"Libdir", yp_xpm, toolaction(startcatalog, Number(LIBLIB)), "go to library directory"}, {"Pagedir",pl_xpm, toolaction(startcatalog, Number(PAGELIB)), "go to page directory"}, {"ZoomI", z4_xpm, toolaction(zoominrefresh, NULL), "zoom in"}, {"ZoomO", z5_xpm, toolaction(zoomoutrefresh, NULL), "zoom out"}, {"Help", i_xpm, toolaction(starthelp, NULL), "pop up help window"}, }; short toolbuttons = sizeof(ToolBar) / sizeof(toolbarstruct); #endif #undef submenu #undef action #undef setaction #undef toolaction #undef noaction #undef offset /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/elements.c0000664000175000001440000025117413066774071014166 0ustar timusers/*----------------------------------------------------------------------*/ /* elements.c --- xcircuit routines for creating basic elements */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* written by Tim Edwards, 8/13/93 */ /*----------------------------------------------------------------------*/ #include #include #include #ifndef XC_WIN32 #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #endif #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "xcircuit.h" #include "colordefs.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* Global Variable definitions */ /*----------------------------------------------------------------------*/ extern Display *dpy; /* Works well to make this globally accessible */ extern Cursor appcursors[NUM_CURSORS]; extern XCWindowData *areawin; extern Globaldata xobjs; extern xcWidget top; extern fontinfo *fonts; extern short fontcount; extern char _STR[150], _STR2[250]; extern int number_colors; extern colorindex *colorlist; #if !defined(HAVE_CAIRO) extern Pixmap dbuf; #endif extern double atan2(); /*------------------------------------------------------------------------*/ /* Declarations of global variables */ /*------------------------------------------------------------------------*/ char extchar[20]; double saveratio; u_char texttype; /*--------------------------------------*/ /* Element constructor functions */ /*--------------------------------------*/ /*--------------------------------------------------------------*/ /* Label constructor: Create a new label element in the object */ /* whose instance is "destinst" and return a pointer to it. */ /* */ /* "destinst" is the destination instance. If NULL, the */ /* top-level instance (areawin->topinstance) is used. */ /* "strptr" is a pointer to a stringpart string, and may */ /* be NULL. If non-NULL, should NOT be free'd by the */ /* calling routine. */ /* "pintype" is NORMAL, LOCAL, GLOBAL, or INFO */ /* "x" and "y" are the label coordinates. */ /* if "dochange" is FALSE, then this label is being drawn */ /* as part of a font or library and should not cause */ /* changes count to increment. */ /* */ /* Other properties must be set individually by the calling */ /* routine. */ /* */ /* Return value is a pointer to the newly created label. */ /*--------------------------------------------------------------*/ labelptr new_label(objinstptr destinst, stringpart *strptr, int pintype, int x, int y, u_char dochange) { labelptr *newlab; objectptr destobject; objinstptr locdestinst; locdestinst = (destinst == NULL) ? areawin->topinstance : destinst; destobject = locdestinst->thisobject; NEW_LABEL(newlab, destobject); labeldefaults(*newlab, pintype, x, y); if (strptr->type == FONT_NAME) { free ((*newlab)->string); (*newlab)->string = strptr; } else (*newlab)->string->nextpart = strptr; calcbboxvalues(locdestinst, (genericptr *)newlab); updatepagebounds(destobject); if (dochange != (u_char)0) incr_changes(destobject); return *newlab; } /*--------------------------------------------------------------*/ /* Variant of the above; creates a label from a (char *) string */ /* instead of a stringpart pointer. Like the stringpart */ /* pointer above, "cstr" should NOT be free'd by the calling */ /* routine. */ /*--------------------------------------------------------------*/ labelptr new_simple_label(objinstptr destinst, char *cstr, int pintype, int x, int y) { stringpart *strptr; strptr = (stringpart *)malloc(sizeof(stringpart)); strptr->type = TEXT_STRING; strptr->nextpart = NULL; strptr->data.string = cstr; return new_label(destinst, strptr, pintype, x, y, (u_char)0); } /*--------------------------------------------------------------*/ /* Another variant of the above; creates a "temporary" label */ /* from a (char *) string. As above, "cstr" should NOT be */ /* free'd by the calling routine. The "temporary" label has no */ /* font information, and cannot be displayed nor saved/loaded */ /* from the PostScript output file. Used to name networks or */ /* to mark port positions. Pin type is always LOCAL. Does not */ /* require updating bounding box info since it cannot be */ /* displayed. Consequently, only requires passing the object */ /* to get the new label, not its instance. */ /*--------------------------------------------------------------*/ labelptr new_temporary_label(objectptr destobject, char *cstr, int x, int y) { labelptr *newlab; NEW_LABEL(newlab, destobject); labeldefaults(*newlab, LOCAL, x, y); (*newlab)->string->type = TEXT_STRING; /* overwrites FONT record */ (*newlab)->string->data.string = cstr; return *newlab; } /*--------------------------------------------------------------*/ /* Polygon constructor: Create a new polygon element in the */ /* object whose instance is "destinst" and return a pointer to */ /* it. */ /* */ /* "destinst" is the destination instance. If NULL, the */ /* top-level instance (areawin->topinstance) is used. */ /* "points" is a list of XPoint pointers, should not be */ /* NULL. It is transferred to the polygon verbatim, */ /* and should NOT be free'd by the calling routine. */ /* "number" is the number of points in the list, or zero */ /* if "points" is NULL. */ /* */ /* Other properties must be set individually by the calling */ /* routine. */ /* */ /* Return value is a pointer to the newly created polygon. */ /*--------------------------------------------------------------*/ polyptr new_polygon(objinstptr destinst, pointlist *points, int number) { polyptr *newpoly; objectptr destobject; objinstptr locdestinst; locdestinst = (destinst == NULL) ? areawin->topinstance : destinst; destobject = locdestinst->thisobject; NEW_POLY(newpoly, destobject); polydefaults(*newpoly, 0, 0, 0); (*newpoly)->number = number; (*newpoly)->points = *points; calcbboxvalues(locdestinst, (genericptr *)newpoly); updatepagebounds(destobject); incr_changes(destobject); return *newpoly; } /*--------------------------------------------------------------*/ /* Spline constructor: Create a new spline element in the */ /* object whose instance is "destinst" and return a pointer to */ /* it. */ /* */ /* "destinst" is the destination instance. If NULL, the */ /* top-level instance (areawin->topinstance) is used. */ /* "points" is a array of 4 XPoints; should not be NULL. */ /* */ /* Other properties must be set individually by the calling */ /* routine. */ /* */ /* Return value is a pointer to the newly created spline. */ /*--------------------------------------------------------------*/ splineptr new_spline(objinstptr destinst, pointlist points) { splineptr *newspline; objectptr destobject; objinstptr locdestinst; int i; locdestinst = (destinst == NULL) ? areawin->topinstance : destinst; destobject = locdestinst->thisobject; NEW_SPLINE(newspline, destobject); splinedefaults(*newspline, 0, 0); for (i = 0; i < 4; i++) (*newspline)->ctrl[i] = points[i]; calcspline(*newspline); calcbboxvalues(locdestinst, (genericptr *)newspline); updatepagebounds(destobject); incr_changes(destobject); return *newspline; } /*--------------------------------------------------------------*/ /* Arc constructor: Create a new arc element in the object */ /* whose instance is "destinst" and return a pointer to it. */ /* */ /* "destinst" is the destination instance. If NULL, the */ /* top-level instance (areawin->topinstance) is used. */ /* "radius" is the radius of the (circular) arc. */ /* "x" and "y" represents the arc center position. */ /* */ /* Other properties must be set individually by the calling */ /* routine. */ /* */ /* Return value is a pointer to the newly created arc. */ /*--------------------------------------------------------------*/ arcptr new_arc(objinstptr destinst, int radius, int x, int y) { arcptr *newarc; objectptr destobject; objinstptr locdestinst; locdestinst = (destinst == NULL) ? areawin->topinstance : destinst; destobject = locdestinst->thisobject; NEW_ARC(newarc, destobject); arcdefaults(*newarc, x, y); (*newarc)->radius = (*newarc)->yaxis = radius; calcarc(*newarc); calcbboxvalues(locdestinst, (genericptr *)newarc); updatepagebounds(destobject); incr_changes(destobject); return *newarc; } /*--------------------------------------------------------------*/ /* Instance constructor: Create a new object instance element */ /* in the object whose instance is "destinst" and return a */ /* pointer to it. */ /* */ /* "destinst" is the destination instance. If NULL, the */ /* top-level instance (areawin->topinstance) is used. */ /* "srcinst" is the source instance of which this is a */ /* copy. */ /* "x" and "y" represents the instance position. */ /* */ /* Other properties must be set individually by the calling */ /* routine. */ /* */ /* Return value is a pointer to the newly created arc. */ /*--------------------------------------------------------------*/ objinstptr new_objinst(objinstptr destinst, objinstptr srcinst, int x, int y) { objinstptr *newobjinst; objectptr destobject; objinstptr locdestinst; locdestinst = (destinst == NULL) ? areawin->topinstance : destinst; destobject = locdestinst->thisobject; NEW_OBJINST(newobjinst, destobject); instcopy(*newobjinst, srcinst); (*newobjinst)->position.x = x; (*newobjinst)->position.y = y; calcbboxvalues(locdestinst, (genericptr *)newobjinst); updatepagebounds(destobject); incr_changes(destobject); return *newobjinst; } /*--------------------------------------------------------------*/ /* Generic element destructor function */ /* (Note---this function is not being used anywhere. . .) */ /*--------------------------------------------------------------*/ void remove_element(objinstptr destinst, genericptr genelem) { objectptr destobject; objinstptr locdestinst; locdestinst = (destinst == NULL) ? areawin->topinstance : destinst; destobject = locdestinst->thisobject; genelem->type &= REMOVE_TAG; delete_tagged(locdestinst); calcbboxvalues(locdestinst, (genericptr *)NULL); updatepagebounds(destobject); } /*-------------------------------------*/ /* Sane values for a new path instance */ /*-------------------------------------*/ void pathdefaults(pathptr newpath, int x, int y) { UNUSED(x); UNUSED(y); newpath->style = NORMAL; newpath->width = areawin->linewidth; newpath->style = areawin->style; newpath->color = areawin->color; newpath->parts = 0; newpath->plist = (genericptr *)NULL; newpath->passed = NULL; } /*---------------------------------------*/ /* Sane values for a new object instance */ /*---------------------------------------*/ void instancedefaults(objinstptr newinst, objectptr thisobj, int x, int y) { newinst->position.x = x; newinst->position.y = y; newinst->rotation = 0.0; newinst->scale = 1.0; newinst->style = LINE_INVARIANT; newinst->thisobject = thisobj; newinst->color = areawin->color; newinst->params = NULL; newinst->passed = NULL; newinst->bbox.lowerleft.x = thisobj->bbox.lowerleft.x; newinst->bbox.lowerleft.y = thisobj->bbox.lowerleft.y; newinst->bbox.width = thisobj->bbox.width; newinst->bbox.height = thisobj->bbox.height; newinst->schembbox = NULL; } /*--------------------------------------*/ /* Draw a dot at the current point. */ /*--------------------------------------*/ void drawdot(int xpos, int ypos) { arcptr *newarc; objinstptr *newdot; objectptr dotobj; /* Find the object "dot" in the builtin library, or else use an arc */ if ((dotobj = finddot()) != (objectptr)NULL) { NEW_OBJINST(newdot, topobject); instancedefaults(*newdot, dotobj, xpos, ypos); register_for_undo(XCF_Dot, UNDO_DONE, areawin->topinstance, *newdot); } else { NEW_ARC(newarc, topobject); arcdefaults(*newarc, xpos, ypos); (*newarc)->radius = 6; (*newarc)->yaxis = 6; (*newarc)->width = 1.0; (*newarc)->style = FILLED | FILLSOLID | NOBORDER; (*newarc)->passed = NULL; (*newarc)->cycle = NULL; calcarc(*newarc); register_for_undo(XCF_Arc, UNDO_DONE, areawin->topinstance, *newarc); } incr_changes(topobject); } /*--------------------------------------*/ /* Sane default values for a label */ /*--------------------------------------*/ void labeldefaults(labelptr newlabel, u_char dopin, int x, int y) { newlabel->rotation = 0.0; newlabel->color = areawin->color; newlabel->scale = areawin->textscale; newlabel->string = (stringpart *)malloc(sizeof(stringpart)); newlabel->passed = NULL; newlabel->cycle = NULL; /* initialize string with font designator */ newlabel->string->type = FONT_NAME; newlabel->string->data.font = areawin->psfont; newlabel->string->nextpart = NULL; newlabel->pin = dopin; if (dopin == LOCAL) newlabel->color = LOCALPINCOLOR; else if (dopin == GLOBAL) newlabel->color = GLOBALPINCOLOR; else if (dopin == INFO) newlabel->color = INFOLABELCOLOR; newlabel->anchor = areawin->anchor; newlabel->position.x = x; newlabel->position.y = y; } /*--------------------------------------*/ /* Button handler when creating a label */ /*--------------------------------------*/ void textbutton(u_char dopin, int x, int y) { labelptr *newlabel; XPoint userpt; short tmpheight, *newselect; XDefineCursor(dpy, areawin->window, TEXTPTR); W3printf("Click to end or cancel."); if (fontcount == 0) Wprintf("Warning: No fonts available!"); unselect_all(); NEW_LABEL(newlabel, topobject); newselect = allocselect(); *newselect = topobject->parts - 1; snap(x, y, &userpt); labeldefaults(*newlabel, dopin, userpt.x, userpt.y); tmpheight = (short)(TEXTHEIGHT * (*newlabel)->scale); userpt.y -= ((*newlabel)->anchor & NOTBOTTOM) ? (((*newlabel)->anchor & TOP) ? tmpheight : tmpheight / 2) : 0; areawin->origin.x = userpt.x; areawin->origin.y = userpt.y; areawin->textpos = 1; /* Text position is *after* the font declaration */ text_mode_draw(xcDRAW_EDIT, *newlabel); } /*----------------------------------------------------------------------*/ /* Report on characters surrounding the current text position */ /*----------------------------------------------------------------------*/ #define MAXCHARS 10 void charreport(labelptr curlabel) { int i, locpos, cleft = 149; stringpart *strptr; _STR2[0] = '\0'; for (i = areawin->textpos - MAXCHARS; i <= areawin->textpos + MAXCHARS - 1; i++) { if (i < 0) continue; strptr = findstringpart(i, &locpos, curlabel->string, areawin->topinstance); if (i == areawin->textpos) { strncat(_STR2, "| ", cleft); cleft -= 2; } if (strptr == NULL) break; if (strptr->type != RETURN || strptr->data.flags == 0) { charprint(_STR, strptr, locpos); cleft -= strlen(_STR); strncat(_STR2, _STR, cleft); strncat(_STR2, " ", --cleft); if (cleft <= 0) break; } } W3printf("%s", _STR2); } /*----------------------------------------------------------------------*/ /* See if a (pin) label has a copy (at least one) in this drawing. */ /*----------------------------------------------------------------------*/ labelptr findlabelcopy(labelptr curlabel, stringpart *curstring) { genericptr *tgen; labelptr tlab; for (tgen = topobject->plist; tgen < topobject->plist + topobject->parts; tgen++) { if (IS_LABEL(*tgen)) { tlab = TOLABEL(tgen); if (tlab->pin != LOCAL) continue; else if (tlab == curlabel) continue; /* Don't count self! */ else if (!stringcomp(tlab->string, curstring)) return tlab; } } return NULL; } /*--------------------------------------------------------------*/ /* Interpret string and add to current label. */ /* keypressed is a KeySym */ /* clientdata can pass information for label controls */ /* */ /* Return TRUE if labeltext handled the character, FALSE if the */ /* character was not recognized. */ /*--------------------------------------------------------------*/ Boolean labeltext(int keypressed, char *clientdata) { labelptr curlabel; stringpart *curpos, *labelbuf; int locpos; Boolean r = True, do_redraw = False; short cfont; TextExtents tmpext; TechPtr oldtech, newtech; curlabel = TOLABEL(EDITPART); if (curlabel == NULL || curlabel->type != LABEL) { Wprintf("Error: Bad label string"); text_mode_draw(xcDRAW_EMPTY, curlabel); eventmode = NORMAL_MODE; return FALSE; } /* find text segment of the current position */ curpos = findstringpart(areawin->textpos, &locpos, curlabel->string, areawin->topinstance); if (clientdata != NULL && keypressed == TEXT_DELETE) { if (areawin->textpos > 1) { int curloc, strpos; stringpart *strptr; if (areawin->textend == 0) areawin->textend = areawin->textpos - 1; undrawtext(curlabel); for (strpos = areawin->textpos - 1; strpos >= areawin->textend; strpos--) { strptr = findstringpart(strpos, &curloc, curlabel->string, areawin->topinstance); if (curloc >= 0) { memmove(strptr->data.string + curloc, strptr->data.string + curloc + 1, strlen(strptr->data.string + curloc + 1) + 1); if (strlen(strptr->data.string) == 0) deletestring(strptr, &curlabel->string, areawin->topinstance); } /* Don't delete any parameter boundaries---must use */ /* "unparameterize" command for that. */ else if (strptr != NULL) { if ((strptr->type != PARAM_START) && (strptr->type != PARAM_END)) deletestring(strptr, &curlabel->string, areawin->topinstance); else areawin->textpos++; } else Fprintf(stdout, "Error: Unexpected NULL string part\n"); areawin->textpos--; } areawin->textend = 0; do_redraw = True; } } else if (clientdata != NULL && keypressed == TEXT_DEL_PARAM) { if (areawin->textpos > 1) { int curloc, strpos; stringpart *strptr; strpos = areawin->textpos - 1; strptr = findstringpart(strpos, &curloc, curlabel->string, areawin->topinstance); if (curloc > 0) strpos -= curloc; /* move to beginning of string */ if ((strptr != NULL) && (strptr->type != PARAM_START) && (strpos > 0)) { strpos--; strptr = findstringpart(strpos--, &curloc, curlabel->string, areawin->topinstance); } if ((strptr != NULL) && (strptr->type == PARAM_START)) { if (strpos >= 0) { undrawtext(curlabel); unmakeparam(curlabel, areawin->topinstance, strptr); do_redraw = True; } } } } else if (clientdata != NULL && keypressed == TEXT_RETURN) { Boolean hasstuff = False; /* Check for null string */ stringpart *tmppos; for (tmppos = curlabel->string; tmppos != NULL; tmppos = tmppos->nextpart) { if (tmppos->type == PARAM_START) hasstuff = True; else if (tmppos->type == TEXT_STRING) hasstuff = True; } XDefineCursor(dpy, areawin->window, DEFAULTCURSOR); W3printf(""); if (hasstuff && (eventmode != ETEXT_MODE && eventmode != CATTEXT_MODE)) { register_for_undo(XCF_Text, UNDO_MORE, areawin->topinstance, curlabel); incr_changes(topobject); invalidate_netlist(topobject); } else if (!hasstuff && (eventmode == ETEXT_MODE)) { if (*(areawin->selectlist) < topobject->parts) { /* Force the "delete" undo record to be a continuation of */ /* the undo series containing the edit. That way, "undo" */ /* does not generate a label with null text. */ xobjs.undostack->idx = -xobjs.undostack->idx; standard_element_delete(NORMAL); } else { /* Label had just been created; just delete it w/o undo */ freelabel(curlabel->string); free(curlabel); topobject->parts--; unselect_all(); } } if ((!hasstuff) && (eventmode == CATTEXT_MODE)) { /* can't have null labels! */ undo_action(); redrawtext(curlabel); areawin->redraw_needed = False; /* ignore previous redraw requests */ text_mode_draw(xcDRAW_FINAL, curlabel); Wprintf("Object must have a name!"); eventmode = CATALOG_MODE; } else if (!hasstuff) { areawin->redraw_needed = False; /* ignore previous redraw requests */ text_mode_draw(xcDRAW_FINAL, curlabel); eventmode = NORMAL_MODE; } else if (eventmode == CATTEXT_MODE) { objectptr libobj; stringpart *oldname; int page, libnum; /* Get the library object whose name matches the original string */ oldname = get_original_string(curlabel); if ((libobj = NameToObject(oldname->nextpart->data.string, NULL, FALSE)) != NULL) { /* Set name of object to new string. Don't overwrite the */ /* object's technology *unless* the new string has a */ /* namespace, in which case the object's technology gets */ /* changed. */ char *techptr, *libobjname = libobj->name; if ((techptr = strstr(libobjname, "::")) != NULL && (strstr(curlabel->string->nextpart->data.string, "::") == NULL)) libobjname = techptr + 2; /* Save a pointer to the old technology before we overwrite the name */ oldtech = GetObjectTechnology(libobj); strcpy(libobjname, curlabel->string->nextpart->data.string); /* If checkname() alters the name, it has to be copied back to */ /* the catalog label for the object. */ if (checkname(libobj)) { undrawtext(curlabel); curlabel->string->nextpart->data.string = (char *)realloc( curlabel->string->nextpart->data.string, (strlen(libobj->name) + 1) * sizeof(char)); strcpy(curlabel->string->nextpart->data.string, libobj->name); redrawtext(curlabel); } AddObjectTechnology(libobj); /* If the technology name has changed, then both the old */ /* technology and the new technology need to be marked as */ /* having been modified. */ newtech = GetObjectTechnology(libobj); if (oldtech != newtech) { if (oldtech) oldtech->flags |= (u_char)TECH_CHANGED; if (newtech) newtech->flags |= (u_char)TECH_CHANGED; } } /* Check if we altered a page name */ else if ((libobj = NameToPageObject(oldname->nextpart->data.string, NULL, &page)) != NULL) { strcpy(libobj->name, curlabel->string->nextpart->data.string); renamepage(page); } /* Check if we altered a library name */ else if ((libnum = NameToLibrary(oldname->nextpart->data.string)) != -1) { libobj = xobjs.libtop[libnum + LIBRARY]->thisobject; strcpy(libobj->name, curlabel->string->nextpart->data.string); } else { Wprintf("Error: Cannot match name to any object, page, or library!"); refresh(NULL, NULL, NULL); } areawin->redraw_needed = False; /* ignore previous redraw requests */ text_mode_draw(xcDRAW_FINAL, curlabel); eventmode = CATALOG_MODE; } else { /* (hasstuff && eventmode != CATTEXT_MODE) */ areawin->redraw_needed = False; /* ignore previous redraw requests */ text_mode_draw(xcDRAW_FINAL, curlabel); eventmode = NORMAL_MODE; incr_changes(topobject); if (curlabel->pin != False) invalidate_netlist(topobject); } setdefaultfontmarks(); setcolormark(areawin->color); if (!hasstuff) { /* Delete empty labels */ standard_element_delete(NORMAL); } else if ((labelbuf = get_original_string(curlabel)) != NULL) { /* If the original label (before modification) is a pin in a */ /* schematic/symbol with a matching symbol/schematic, and the */ /* name is unique, change every pin in the matching symbol/ */ /* schematic to match the new text. */ if ((curlabel->pin == LOCAL) && (topobject->symschem != NULL) && (topobject->symschem->schemtype != PRIMARY)) { if ((findlabelcopy(curlabel, labelbuf) == NULL) && (findlabelcopy(curlabel, curlabel->string) == NULL)) { if (changeotherpins(curlabel, labelbuf) > 0) { if (topobject->schemtype == PRIMARY || topobject->schemtype == SECONDARY) Wprintf("Changed corresponding pin in associated symbol"); else Wprintf("Changed corresponding pin in associated schematic"); incr_changes(topobject->symschem); invalidate_netlist(topobject->symschem); } } } resolveparams(areawin->topinstance); updateinstparam(topobject); setobjecttype(topobject); } else calcbbox(areawin->topinstance); unselect_all(); return r; } else if (clientdata != NULL && keypressed == TEXT_RIGHT) { if (curpos != NULL) areawin->textpos++; } else if (clientdata != NULL && keypressed == TEXT_LEFT) { if (areawin->textpos > 1) areawin->textpos--; } else if (clientdata != NULL && keypressed == TEXT_DOWN) { while (curpos != NULL) { areawin->textpos++; curpos = findstringpart(areawin->textpos, &locpos, curlabel->string, areawin->topinstance); if (curpos != NULL) if (curpos->type == RETURN || curpos->type == MARGINSTOP) break; } } else if (clientdata != NULL && keypressed == TEXT_UP) { while (areawin->textpos > 1) { areawin->textpos--; curpos = findstringpart(areawin->textpos, &locpos, curlabel->string, areawin->topinstance); if (curpos->type == RETURN || curpos->type == MARGINSTOP) { if (areawin->textpos > 1) areawin->textpos--; break; } } } else if (clientdata != NULL && keypressed == TEXT_HOME) areawin->textpos = 1; else if (clientdata != NULL && keypressed == TEXT_END) areawin->textpos = stringlength(curlabel->string, True, areawin->topinstance); else if (clientdata != NULL && keypressed == TEXT_SPLIT) { labelptr *newlabel; XPoint points[4], points1[4], points2[4]; /* Everything after the cursor gets dumped into a new label */ if ((areawin->textpos > 1) && (curpos != NULL)) { labelbbox(curlabel, points, areawin->topinstance); undrawtext(curlabel); NEW_LABEL(newlabel, topobject); labeldefaults(*newlabel, curlabel->pin, curlabel->position.x, curlabel->position.y); if (locpos > 0) curpos = splitstring(areawin->textpos, &curlabel->string, areawin->topinstance); /* move back one position to find end of top part of string */ curpos = splitstring(areawin->textpos - 1, &curlabel->string, areawin->topinstance); if (curpos->nextpart->type == FONT_NAME) { freelabel((*newlabel)->string); (*newlabel)->string = curpos->nextpart; } else { (*newlabel)->string->data.font = curlabel->string->data.font; (*newlabel)->string->nextpart = curpos->nextpart; } curpos->nextpart = NULL; /* Adjust position of both labels to retain their original */ /* relative positions. */ labelbbox(curlabel, points1, areawin->topinstance); labelbbox((*newlabel), points2, areawin->topinstance); curlabel->position.x += (points[1].x - points1[1].x); curlabel->position.y += (points[1].y - points1[1].y); (*newlabel)->position.x += (points[3].x - points2[3].x); (*newlabel)->position.y += (points[3].y - points2[3].y); redrawtext(*newlabel); do_redraw = True; } } /* Write a font designator or other control into the string */ else if (clientdata != NULL) { oparamptr ops; stringpart *newpart; Boolean errcond = False; TextLinesInfo tlinfo; /* erase first before redrawing unless the string is empty */ undrawtext(curlabel); /* Get text width first. Don't back up over spaces; this */ /* allows the margin width to be padded out with spaces. */ if (keypressed == MARGINSTOP) { tlinfo.dostop = areawin->textpos; tlinfo.tbreak = NULL; tlinfo.padding = NULL; tmpext = ULength(curlabel, areawin->topinstance, &tlinfo); if (tlinfo.padding != NULL) free(tlinfo.padding); } if (locpos > 0) { if (keypressed == MARGINSTOP) { /* Move forward by any spaces; if we're at the text */ /* end, move to the next text part; otherwise, */ /* split the string. */ while (*(curpos->data.string + locpos) == ' ') locpos++; if (*(curpos->data.string + locpos) == '\0') locpos = 0; } if (locpos > 0) curpos = splitstring(areawin->textpos, &curlabel->string, areawin->topinstance); curpos = curpos->nextpart; } newpart = makesegment(&curlabel->string, curpos); newpart->type = keypressed; switch (keypressed) { case RETURN: /* Identify this as an explicitly placed line break */ newpart->data.flags = 0; break; case FONT_SCALE: newpart->data.scale = *((float *)clientdata); break; case KERN: newpart->data.kern[0] = *((short *)clientdata); newpart->data.kern[1] = *((short *)clientdata + 1); break; case FONT_COLOR: newpart->data.color = *((int *)clientdata); if (newpart->data.color >= number_colors) errcond = True; break; case FONT_NAME: newpart->data.font = *((int *)clientdata); if (newpart->data.font >= fontcount) errcond = True; break; case MARGINSTOP: /* A margin of 1 or 0 is useless, so such a value */ /* indicates to take the margin from the current */ /* position. */ if (*((int *)clientdata) <= 1) newpart->data.width = (int)tmpext.width; else newpart->data.width = *((int *)clientdata); CheckMarginStop(curlabel, areawin->topinstance, FALSE); break; case PARAM_START: newpart->data.string = (char *)malloc(1 + strlen(clientdata)); strcpy(newpart->data.string, clientdata); ops = match_param(topobject, clientdata); if (ops == NULL) errcond = True; else { /* Forward edit cursor position to the end of the parameter */ do { areawin->textpos++; curpos = findstringpart(areawin->textpos, &locpos, curlabel->string, areawin->topinstance); } while (curpos && (curpos->type != PARAM_END)); } break; } if (errcond == True) { Wprintf("Error in insertion. Ignoring."); deletestring(newpart, &curlabel->string, areawin->topinstance); r = FALSE; } else { areawin->textpos++; } do_redraw = True; } /* Append the character to the string. If the current label segment is */ /* not text, then create a text segment for it. */ else if (keypressed > 0 && keypressed < 256) { stringpart *lastpos; /* erase first. */ undrawtext(curlabel); /* Current position is not in a text string */ if (locpos < 0) { /* Find part of string which is immediately in front of areawin->textpos */ lastpos = findstringpart(areawin->textpos - 1, &locpos, curlabel->string, areawin->topinstance); /* No text on either side to attach to: make a new text segment */ if (locpos < 0) { curpos = makesegment(&curlabel->string, curpos); curpos->type = TEXT_STRING; curpos->data.string = (u_char *) malloc(2); curpos->data.string[0] = keypressed; curpos->data.string[1] = '\0'; } else { /* append to end of lastpos text string */ int slen = strlen(lastpos->data.string); lastpos->data.string = (u_char *) realloc(lastpos->data.string, 2 + slen); *(lastpos->data.string + slen) = keypressed; *(lastpos->data.string + slen + 1) = '\0'; } } else { /* prepend to end of curpos text string */ curpos->data.string = (u_char *) realloc(curpos->data.string, 2 + strlen(curpos->data.string)); memmove(curpos->data.string + locpos + 1, curpos->data.string + locpos, strlen(curpos->data.string + locpos) + 1); *(curpos->data.string + locpos) = keypressed; } areawin->textpos++; /* move forward to next text position */ do_redraw = True; r = TRUE; } /* Redraw the label */ if (do_redraw) { /* Generate automatic line breaks if there is a MARGINSTOP directive */ CheckMarginStop(curlabel, areawin->topinstance, TRUE); redrawtext(curlabel); } areawin->redraw_needed = False; /* ignore previous full redraw requests */ text_mode_draw(xcDRAW_EDIT, curlabel); if (r || do_redraw) { /* Report on characters at the cursor position in the message window */ charreport(curlabel); /* find current font and adjust menubuttons as necessary */ cfont = findcurfont(areawin->textpos, curlabel->string, areawin->topinstance); if (cfont < 0) { Wprintf("Error: Illegal label string"); return r; } else setfontmarks(cfont, -1); areawin->textend = 0; } return r; } /*-------------------------------------*/ /* Initiate return from text edit mode */ /*-------------------------------------*/ void textreturn() { labeltext(TEXT_RETURN, (char *)1); } /*--------------------------------------*/ /* Change the anchoring of a label */ /*--------------------------------------*/ void reanchor(short mode) { labelptr curlabel = NULL; short *tsel; short jsave; Boolean preselected = False, changed = False; static short transanchor[] = {15, 13, 12, 7, 5, 4, 3, 1, 0}; if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) { curlabel = TOLABEL(EDITPART); UDrawTLine(curlabel); undrawtext(curlabel); jsave = curlabel->anchor; curlabel->anchor = transanchor[mode] | (curlabel->anchor & NONANCHORFIELD); if (jsave != curlabel->anchor) { register_for_undo(XCF_Anchor, UNDO_MORE, areawin->topinstance, (genericptr)curlabel, (int)jsave); changed = True; } redrawtext(curlabel); UDrawTLine(curlabel); setfontmarks(-1, curlabel->anchor); } else { if (areawin->selects == 0) { if (!checkselect(LABEL)) return; } else preselected = TRUE; for (tsel = areawin->selectlist; tsel < areawin->selectlist + areawin->selects; tsel++) { if (SELECTTYPE(tsel) == LABEL) { curlabel = SELTOLABEL(tsel); jsave = curlabel->anchor; undrawtext(curlabel); curlabel->anchor = transanchor[mode] | (curlabel->anchor & NONANCHORFIELD); if (jsave != curlabel->anchor) { register_for_undo(XCF_Anchor, UNDO_MORE, areawin->topinstance, (genericptr)curlabel, (int)jsave); changed = True; } } } if (preselected == FALSE && eventmode != MOVE_MODE && eventmode != COPY_MODE) unselect_all(); else draw_all_selected(); } if (curlabel == NULL) Wprintf("No labels chosen to reanchor"); else if (changed) { pwriteback(areawin->topinstance); calcbbox(areawin->topinstance); incr_changes(topobject); } } /*----------------------------------*/ /* Sane default values for a spline */ /*----------------------------------*/ void splinedefaults(splineptr newspline, int x, int y) { short j; for (j = 0; j < 4; j++) { newspline->ctrl[j].x = x; newspline->ctrl[j].y = y; } newspline->ctrl[1].x += (int)(xobjs.pagelist[areawin->page]->gridspace / 2); newspline->ctrl[2].x -= (int)(xobjs.pagelist[areawin->page]->gridspace / 2); newspline->width = areawin->linewidth; newspline->style = areawin->style; newspline->color = areawin->color; newspline->passed = NULL; newspline->cycle = NULL; calcspline(newspline); } /*-------------------------*/ /* Start drawing a spline. */ /*-------------------------*/ void splinebutton(int x, int y) { splineptr *newspline; XPoint userpt; short *newselect; unselect_all(); NEW_SPLINE(newspline, topobject); newselect = allocselect(); *newselect = topobject->parts - 1; snap(x, y, &userpt); splinedefaults(*newspline, userpt.x, userpt.y); addcycle((genericptr *)newspline, 3, 0); makerefcycle((*newspline)->cycle, 3); spline_mode_draw(xcDRAW_EDIT, *newspline); xcAddEventHandler(areawin->area, PointerMotionMask, False, (xcEventHandler)trackelement, NULL); eventmode = SPLINE_MODE; } /*----------------------------------------------------------------------*/ /* Generate cycles on a path where endpoints meet, so that the path */ /* remains connected during an edit. If the last point on any part */ /* of the path is a cycle, then the first point on the next part of */ /* the path should also be a cycle, with the same flags. */ /* */ /* If the global setting "tangents" is set, then the control points of */ /* connecting splines set the corresponding control point to "ANTIXY" */ /* so that the control points track angle and distance from the */ /* endpoint. */ /*----------------------------------------------------------------------*/ void updatepath(pathptr thepath) { genericptr *ggen, *ngen; short locparts, cycle; pointselect *cptr; polyptr thispoly; splineptr thisspline; for (ggen = thepath->plist; ggen < thepath->plist + thepath->parts; ggen++) { switch (ELEMENTTYPE(*ggen)) { case POLYGON: findconstrained(TOPOLY(ggen)); break; } } locparts = (thepath->style & UNCLOSED) ? thepath->parts - 1 : thepath->parts; for (ggen = thepath->plist; ggen < thepath->plist + locparts; ggen++) { ngen = (ggen == thepath->plist + thepath->parts - 1) ? thepath->plist : ggen + 1; switch (ELEMENTTYPE(*ggen)) { case POLYGON: thispoly = TOPOLY(ggen); if (thispoly->cycle == NULL) continue; cycle = thispoly->number - 1; for (cptr = thispoly->cycle;; cptr++) { if (cptr->number == cycle) break; if (cptr->flags & LASTENTRY) break; } if (cptr->number != cycle) continue; break; case SPLINE: thisspline = TOSPLINE(ggen); if (thisspline->cycle == NULL) continue; cycle = 3; for (cptr = thisspline->cycle;; cptr++) { if (cptr->number == cycle) break; if (cptr->flags & LASTENTRY) break; } if (cptr->number != cycle) continue; break; } addcycle(ngen, 0, cptr->flags & (EDITX | EDITY)); switch (ELEMENTTYPE(*ngen)) { case POLYGON: findconstrained(TOPOLY(ngen)); break; } } /* Do the same thing in the other direction */ locparts = (thepath->style & UNCLOSED) ? 1 : 0; for (ggen = thepath->plist + thepath->parts - 1; ggen >= thepath->plist + locparts; ggen--) { ngen = (ggen == thepath->plist) ? thepath->plist + thepath->parts - 1 : ggen - 1; switch (ELEMENTTYPE(*ggen)) { case POLYGON: thispoly = TOPOLY(ggen); if (thispoly->cycle == NULL) continue; cycle = 0; for (cptr = thispoly->cycle;; cptr++) { if (cptr->number == cycle) break; if (cptr->flags & LASTENTRY) break; } if (cptr->number != cycle) continue; break; case SPLINE: thisspline = TOSPLINE(ggen); if (thisspline->cycle == NULL) continue; cycle = 0; for (cptr = thisspline->cycle;; cptr++) { if (cptr->number == cycle) break; if (cptr->flags & LASTENTRY) break; } if (cptr->number != cycle) continue; break; } switch (ELEMENTTYPE(*ngen)) { case POLYGON: addcycle(ngen, TOPOLY(ngen)->number - 1, cptr->flags & (EDITX | EDITY)); break; case SPLINE: addcycle(ngen, 3, cptr->flags & (EDITX | EDITY)); break; } } } /*--------------------------------------*/ /* Set default values for an arc */ /*--------------------------------------*/ void arcdefaults(arcptr newarc, int x, int y) { newarc->style = areawin->style; newarc->color = areawin->color; newarc->position.x = x; newarc->position.y = y; newarc->width = areawin->linewidth; newarc->radius = 0; newarc->yaxis = 0; newarc->angle1 = 0; newarc->angle2 = 360; newarc->passed = NULL; newarc->cycle = NULL; calcarc(newarc); } /*-------------------------------------*/ /* Button handler when creating an arc */ /*-------------------------------------*/ void arcbutton(int x, int y) { arcptr *newarc; XPoint userpt; short *newselect; unselect_all(); NEW_ARC(newarc, topobject); newselect = allocselect(); *newselect = topobject->parts - 1; snap(x, y, &userpt); saveratio = 1.0; arcdefaults(*newarc, userpt.x, userpt.y); addcycle((genericptr *)newarc, 0, 0); arc_mode_draw(xcDRAW_EDIT, *newarc); xcAddEventHandler(areawin->area, PointerMotionMask, False, (xcEventHandler)trackarc, NULL); eventmode = ARC_MODE; } /*----------------------------------*/ /* Track an arc during mouse motion */ /*----------------------------------*/ void trackarc(xcWidget w, caddr_t clientdata, caddr_t calldata) { XPoint newpos; arcptr newarc; double adjrat; short cycle; UNUSED(w); UNUSED(clientdata); UNUSED(calldata); newarc = TOARC(EDITPART); newpos = UGetCursorPos(); u2u_snap(&newpos); if (areawin->save.x == newpos.x && areawin->save.y == newpos.y) return; cycle = (newarc->cycle == NULL) ? -1 : newarc->cycle->number; if (cycle == 1 || cycle == 2) { float *angleptr, tmpang; adjrat = (newarc->yaxis == 0) ? 1 : (double)(abs(newarc->radius)) / (double)newarc->yaxis; angleptr = (cycle == 1) ? &newarc->angle1 : &newarc->angle2; tmpang = (float)(atan2((double)(newpos.y - newarc->position.y) * adjrat, (double)(newpos.x - newarc->position.x)) / RADFAC); if (cycle == 1) { if (tmpang > newarc->angle2) tmpang -= 360; else if (newarc->angle2 - tmpang > 360) newarc->angle2 -= 360; } else { if (tmpang < newarc->angle1) tmpang += 360; else if (tmpang - newarc->angle1 > 360) newarc->angle1 += 360; } *angleptr = tmpang; if (newarc->angle2 <= 0) { newarc->angle2 += 360; newarc->angle1 += 360; } if (newarc->angle2 <= newarc->angle1) newarc->angle1 -= 360; } else if (cycle == 0) { short direc = (newarc->radius < 0); newarc->radius = wirelength(&newpos, &(newarc->position)); newarc->yaxis = (short)((double)newarc->radius * saveratio); if (direc) newarc->radius = -newarc->radius; } else { newarc->yaxis = wirelength(&newpos, &(newarc->position)); saveratio = (double)newarc->yaxis / (double)newarc->radius; } calcarc(newarc); areawin->save.x = newpos.x; areawin->save.y = newpos.y; arc_mode_draw(xcDRAW_EDIT, newarc); printpos(newpos.x, newpos.y); flusharea(); } /*--------------------------------------*/ /* Sane default values for a polygon */ /*--------------------------------------*/ void polydefaults(polyptr newpoly, int number, int x, int y) { pointlist pointptr; newpoly->style = areawin->style & ~UNCLOSED; newpoly->color = areawin->color; newpoly->width = areawin->linewidth; newpoly->number = number; newpoly->passed = NULL; newpoly->cycle = NULL; if (number == 0) newpoly->points = NULL; else { newpoly->points = (pointlist) malloc(number * sizeof(XPoint)); for (pointptr = newpoly->points; pointptr < newpoly->points + number; pointptr++) { pointptr->x = x; pointptr->y = y; } } } /*------------------------------------*/ /* Button handler when creating a box */ /*------------------------------------*/ void boxbutton(int x, int y) { polyptr *newbox; XPoint userpt; short *newselect; unselect_all(); NEW_POLY(newbox, topobject); newselect = allocselect(); *newselect = topobject->parts - 1; snap(x, y, &userpt); polydefaults(*newbox, 4, userpt.x, userpt.y); poly_mode_draw(xcDRAW_EDIT, *newbox); xcAddEventHandler(areawin->area, PointerMotionMask, False, (xcEventHandler)trackbox, NULL); eventmode = BOX_MODE; } /*---------------------------------*/ /* Track a box during mouse motion */ /*---------------------------------*/ void trackbox(xcWidget w, caddr_t clientdata, caddr_t calldata) { XPoint newpos; polyptr newbox; pointlist pointptr; UNUSED(w); UNUSED(clientdata); UNUSED(calldata); newbox = TOPOLY(EDITPART); newpos = UGetCursorPos(); u2u_snap(&newpos); if (areawin->save.x == newpos.x && areawin->save.y == newpos.y) return; pointptr = newbox->points + 1; pointptr->y = newpos.y; pointptr++; pointptr->y = newpos.y; pointptr->x = newpos.x; pointptr++; pointptr->x = newpos.x; poly_mode_draw(xcDRAW_EDIT, newbox); printpos(newpos.x, newpos.y); areawin->save.x = newpos.x; areawin->save.y = newpos.y; flusharea(); } /*----------------------------------------------------------------------*/ /* Track a wire during mouse motion */ /* Note: The manhattanize algorithm will change the effective cursor */ /* position to keep the wire manhattan if the wire is only 1 segment. */ /* It will change the previous point's position if the wire has more */ /* than one segment. They are called at different times to ensure the */ /* wire redraw is correct. */ /*----------------------------------------------------------------------*/ void trackwire(xcWidget w, caddr_t clientdata, caddr_t calldata) { XPoint newpos, upos, *tpoint; polyptr newwire; UNUSED(w); UNUSED(clientdata); UNUSED(calldata); newwire = TOPOLY(EDITPART); if (areawin->attachto >= 0) { upos = UGetCursorPos(); findattach(&newpos, NULL, &upos); } else { newpos = UGetCursorPos(); u2u_snap(&newpos); if (areawin->manhatn && (newwire->number == 2)) manhattanize(&newpos, newwire, -1, TRUE); } if (areawin->save.x != newpos.x || areawin->save.y != newpos.y) { tpoint = newwire->points + newwire->number - 1; if (areawin->manhatn && (newwire->number > 2)) manhattanize(&newpos, newwire, -1, TRUE); tpoint->x = newpos.x; tpoint->y = newpos.y; XcTopSetForeground(newwire->color); poly_mode_draw(xcDRAW_EDIT, newwire); areawin->save.x = newpos.x; areawin->save.y = newpos.y; printpos(newpos.x, newpos.y); } flusharea(); } /*--------------------------*/ /* Start drawing a polygon. */ /*--------------------------*/ void startwire(XPoint *userpt) { polyptr *newwire; pointlist pointptr; short *newselect; unselect_all(); NEW_POLY(newwire, topobject); newselect = allocselect(); *newselect = topobject->parts - 1; /* always start unfilled, unclosed; can fix on next button-push. */ (*newwire)->style = UNCLOSED | (areawin->style & (DASHED | DOTTED)); (*newwire)->color = areawin->color; (*newwire)->number = 2; (*newwire)->width = areawin->linewidth; (*newwire)->points = (pointlist) malloc(2 * sizeof(XPoint)); (*newwire)->passed = NULL; (*newwire)->cycle = NULL; pointptr = (*newwire)->points; pointptr->x = (pointptr + 1)->x = areawin->save.x = userpt->x; pointptr->y = (pointptr + 1)->y = areawin->save.y = userpt->y; poly_mode_draw(xcDRAW_EDIT, *newwire); xcAddEventHandler(areawin->area, PointerMotionMask, False, (xcEventHandler)trackwire, NULL); } /*--------------------------------------------------------------*/ /* Find which points should track along with the edit point in */ /* in polygon RHOMBOID or MANHATTAN edit modes. */ /* (point number is stored in lastpoly->cycle) */ /* */ /* NOTE: This routine assumes that either the points have just */ /* been selected, or that advancecycle() has been called to */ /* remove all previously recorded tracking points. */ /*--------------------------------------------------------------*/ void findconstrained(polyptr lastpoly) { XPoint *savept, *npt, *lpt; short cycle; short lflags, nflags; short lcyc, ncyc; pointselect *cptr, *nptr; if (areawin->boxedit == NORMAL) return; if (lastpoly->cycle == NULL) return; /* Set "process" flags on all original points */ for (cptr = lastpoly->cycle;; cptr++) { cptr->flags |= PROCESS; if (cptr->flags & LASTENTRY) break; } cptr = lastpoly->cycle; while (1) { if (cptr->flags & PROCESS) { cptr->flags &= ~PROCESS; cycle = cptr->number; savept = lastpoly->points + cycle; /* find points before and after the edit point */ lcyc = (cycle == 0) ? ((lastpoly->style & UNCLOSED) ? -1 : lastpoly->number - 1) : cycle - 1; ncyc = (cycle == lastpoly->number - 1) ? ((lastpoly->style & UNCLOSED) ? -1 : 0) : cycle + 1; lpt = (lcyc == -1) ? NULL : lastpoly->points + lcyc; npt = (ncyc == -1) ? NULL : lastpoly->points + ncyc; lflags = nflags = NONE; /* two-point polygons (lines) are a degenerate case in RHOMBOID edit mode */ if (areawin->boxedit != MANHATTAN && lastpoly->number <= 2) return; /* This is complicated but logical: in MANHATTAN mode, boxes maintain */ /* box shape. In RHOMBOID modes, parallelagrams maintain shape. The */ /* "savedir" variable determines which coordinate(s) of which point(s) */ /* should track along with the edit point. */ if (areawin->boxedit != RHOMBOIDY) { if (lpt != NULL) { if (lpt->y == savept->y) { lflags |= EDITY; if (areawin->boxedit == RHOMBOIDX && lpt->x != savept->x) lflags |= EDITX; else if (areawin->boxedit == RHOMBOIDA && npt != NULL) { if (npt->y != savept->y) nflags |= EDITX; } } } if (npt != NULL) { if (npt->y == savept->y) { nflags |= EDITY; if (areawin->boxedit == RHOMBOIDX && npt->x != savept->x) nflags |= EDITX; else if (areawin->boxedit == RHOMBOIDA && lpt != NULL) { if (lpt->y != savept->y) lflags |= EDITX; } } } } if (areawin->boxedit != RHOMBOIDX) { if (lpt != NULL) { if (lpt->x == savept->x) { lflags |= EDITX; if (areawin->boxedit == RHOMBOIDY && lpt->y != savept->y) lflags |= EDITY; else if (areawin->boxedit == RHOMBOIDA && npt != NULL) { if (npt->x != savept->x) nflags |= EDITY; } } } if (npt != NULL) { if (npt->x == savept->x) { nflags |= EDITX; if (areawin->boxedit == RHOMBOIDY && npt->y != savept->y) nflags |= EDITY; else if (areawin->boxedit == RHOMBOIDA && lpt != NULL) { if (lpt->x != savept->x) lflags |= EDITY; } } } } nptr = cptr + 1; if (lpt != NULL && lflags != 0) { addcycle((genericptr *)(&lastpoly), lcyc, lflags); cptr = nptr = lastpoly->cycle; } if (npt != NULL && nflags != 0) { addcycle((genericptr *)(&lastpoly), ncyc, nflags); cptr = nptr = lastpoly->cycle; } } else nptr = cptr + 1; if (cptr->flags & LASTENTRY) break; cptr = nptr; } } /*------------------------------------------------------*/ /* Track movement of arc, spline, or polygon segments */ /* during edit mode */ /*------------------------------------------------------*/ void trackelement(xcWidget w, caddr_t clientdata, caddr_t calldata) { XPoint newpos, *curpt; short *selobj; pointselect *cptr; int deltax, deltay; UNUSED(w); UNUSED(clientdata); UNUSED(calldata); newpos = UGetCursorPos(); u2u_snap(&newpos); /* force attachment if required */ if (areawin->attachto >= 0) { XPoint apos; findattach(&apos, NULL, &newpos); newpos = apos; } if (areawin->save.x == newpos.x && areawin->save.y == newpos.y) return; /* Find the reference point */ cptr = getrefpoint(TOGENERIC(EDITPART), &curpt); switch(ELEMENTTYPE(TOGENERIC(EDITPART))) { case POLYGON: if (cptr == NULL) curpt = TOPOLY(EDITPART)->points; break; case SPLINE: if (cptr == NULL) curpt = &(TOSPLINE(EDITPART)->ctrl[0]); break; case ARC: curpt = &(TOARC(EDITPART)->position); break; case OBJINST: curpt = &(TOOBJINST(EDITPART)->position); break; case GRAPHIC: curpt = &(TOGRAPHIC(EDITPART)->position); break; } deltax = newpos.x - curpt->x; deltay = newpos.y - curpt->y; /* Now adjust all edited elements relative to the reference point */ for (selobj = areawin->selectlist; selobj < areawin->selectlist + areawin->selects; selobj++) { if (eventmode == ARC_MODE || eventmode == EARC_MODE) editpoints(SELTOGENERICPTR(selobj), deltax, deltay); else if (eventmode == SPLINE_MODE || eventmode == ESPLINE_MODE) editpoints(SELTOGENERICPTR(selobj), deltax, deltay); else if (eventmode == BOX_MODE || eventmode == EPOLY_MODE || eventmode == WIRE_MODE) editpoints(SELTOGENERICPTR(selobj), deltax, deltay); else if (eventmode == EPATH_MODE) editpoints(SELTOGENERICPTR(selobj), deltax, deltay); } if (eventmode == ARC_MODE || eventmode == EARC_MODE) arc_mode_draw(xcDRAW_EDIT, TOARC(EDITPART)); else if (eventmode == SPLINE_MODE || eventmode == ESPLINE_MODE) spline_mode_draw(xcDRAW_EDIT, TOSPLINE(EDITPART)); else if (eventmode == BOX_MODE || eventmode == EPOLY_MODE || eventmode == WIRE_MODE) poly_mode_draw(xcDRAW_EDIT, TOPOLY(EDITPART)); else if (eventmode == EPATH_MODE) path_mode_draw(xcDRAW_EDIT, TOPATH(EDITPART)); printpos(newpos.x, newpos.y); areawin->save.x = newpos.x; areawin->save.y = newpos.y; flusharea(); } /*-------------------------------------------------*/ /* Determine values of endpoints of an element */ /*-------------------------------------------------*/ void setendpoint(short *scnt, short direc, XPoint **endpoint, XPoint *arcpoint) { genericptr *sptr = topobject->plist + (*scnt); switch(ELEMENTTYPE(*sptr)) { case POLYGON: if (direc) *endpoint = TOPOLY(sptr)->points + TOPOLY(sptr)->number - 1; else *endpoint = TOPOLY(sptr)->points; break; case SPLINE: if (direc) *endpoint = &(TOSPLINE(sptr)->ctrl[3]); else *endpoint = &(TOSPLINE(sptr)->ctrl[0]); break; case ARC: if (direc) { arcpoint->x = (short)(TOARC(sptr)->points[TOARC(sptr)->number - 1].x + 0.5); arcpoint->y = (short)(TOARC(sptr)->points[TOARC(sptr)->number - 1].y + 0.5); } else { arcpoint->x = (short)(TOARC(sptr)->points[0].x + 0.5); arcpoint->y = (short)(TOARC(sptr)->points[0].y + 0.5); } *endpoint = arcpoint; break; } } /*------------------------------------------------------------*/ /* Reverse points in a point list */ /*------------------------------------------------------------*/ void reversepoints(XPoint *plist, short number) { XPoint hold, *ppt; XPoint *pend = plist + number - 1; short hnum = number >> 1; for (ppt = plist; ppt < plist + hnum; ppt++, pend--) { hold.x = ppt->x; hold.y = ppt->y; ppt->x = pend->x; ppt->y = pend->y; pend->x = hold.x; pend->y = hold.y; } } /*------------------------------------------------------------*/ /* Same as above for floating-point positions */ /*------------------------------------------------------------*/ void reversefpoints(XfPoint *plist, short number) { XfPoint hold, *ppt; XfPoint *pend = plist + number - 1; short hnum = number >> 1; for (ppt = plist; ppt < plist + hnum; ppt++, pend--) { hold.x = ppt->x; hold.y = ppt->y; ppt->x = pend->x; ppt->y = pend->y; pend->x = hold.x; pend->y = hold.y; } } /*--------------------------------------------------------------*/ /* Permanently remove an element from the topobject plist */ /* add = 1 if plist has (parts + 1) elements */ /*--------------------------------------------------------------*/ void freepathparts(short *selectobj, short add) { genericptr *oldelem = topobject->plist + (*selectobj); switch(ELEMENTTYPE(*oldelem)) { case POLYGON: free((TOPOLY(oldelem))->points); break; } free(*oldelem); removep(selectobj, add); } /*--------------------------------------------------------------*/ /* Remove a part from an object */ /* add = 1 if plist has (parts + 1) elements */ /*--------------------------------------------------------------*/ void removep(short *selectobj, short add) { genericptr *oldelem = topobject->plist + (*selectobj); for (++oldelem; oldelem < topobject->plist + topobject->parts + add; oldelem++) *(oldelem - 1) = *oldelem; topobject->parts--; } /*-------------------------------------------------*/ /* Break a path into its constituent components */ /*-------------------------------------------------*/ void unjoin() { short *selectobj; genericptr *genp, *newg; pathptr oldpath; polyptr oldpoly, *newpoly; Boolean preselected; short i, cycle; if (areawin->selects == 0) { select_element(PATH | POLYGON); preselected = FALSE; } else preselected = TRUE; if (areawin->selects == 0) { Wprintf("No objects selected."); return; } /* for each selected path or polygon */ for (selectobj = areawin->selectlist; selectobj < areawin->selectlist + areawin->selects; selectobj++) { SetForeground(dpy, areawin->gc, BACKGROUND); if (SELECTTYPE(selectobj) == PATH) { oldpath = SELTOPATH(selectobj); /* undraw the path */ UDrawPath(oldpath, xobjs.pagelist[areawin->page]->wirewidth); /* move components to the top level */ topobject->plist = (genericptr *)realloc(topobject->plist, (topobject->parts + oldpath->parts) * sizeof(genericptr)); newg = topobject->plist + topobject->parts; for (genp = oldpath->plist; genp < oldpath->plist + oldpath->parts; genp++, newg++) { *newg = *genp; } topobject->parts += oldpath->parts; /* remove the path object and revise the selectlist */ freepathparts(selectobj, 0); reviseselect(areawin->selectlist, areawin->selects, selectobj); } else if (SELECTTYPE(selectobj) == POLYGON) { /* Method to break a polygon, in lieu of the edit-mode */ /* polygon break that was removed. */ oldpoly = SELTOPOLY(selectobj); UDrawPolygon(oldpoly, xobjs.pagelist[areawin->page]->wirewidth); /* Get the point nearest the cursor, and break at that point */ cycle = closepoint(oldpoly, &areawin->save); if (cycle > 0 && cycle < (oldpoly->number - 1)) { NEW_POLY(newpoly, topobject); polycopy(*newpoly, oldpoly); for (i = cycle; i < oldpoly->number; i++) (*newpoly)->points[i - cycle] = (*newpoly)->points[i]; oldpoly->number = cycle + 1; (*newpoly)->number = (*newpoly)->number - cycle; } } } if (!preselected) clearselects(); drawarea(NULL, NULL, NULL); } /*-------------------------------------------------*/ /* Test if two points are near each other */ /*-------------------------------------------------*/ Boolean neartest(XPoint *point1, XPoint *point2) { short diff[2]; diff[0] = point1->x - point2->x; diff[1] = point1->y - point2->y; diff[0] = abs(diff[0]); diff[1] = abs(diff[1]); if (diff[0] <= 2 && diff[1] <= 2) return True; else return False; } /*-------------------------------------------------*/ /* Join stuff together */ /*-------------------------------------------------*/ void join() { short *selectobj; polyptr *newpoly, nextwire; pathptr *newpath; genericptr *pgen; short *scount, *sptr, *sptr2, *direc, *order; short ordered, startpt = 0; short numpolys, numlabels, numpoints, polytype; int polycolor; float polywidth; XPoint *testpoint, *testpoint2, *begpoint, *endpoint, arcpoint[4]; XPoint *begpoint2, *endpoint2; Boolean allpolys = True; objectptr delobj; numpolys = numlabels = 0; for (selectobj = areawin->selectlist; selectobj < areawin->selectlist + areawin->selects; selectobj++) { if (SELECTTYPE(selectobj) == POLYGON) { /* arbitrary: keep style of last polygon in selectlist */ polytype = SELTOPOLY(selectobj)->style; polywidth = SELTOPOLY(selectobj)->width; polycolor = SELTOPOLY(selectobj)->color; numpolys++; } else if (SELECTTYPE(selectobj) == SPLINE) { polytype = SELTOSPLINE(selectobj)->style; polywidth = SELTOSPLINE(selectobj)->width; polycolor = SELTOSPLINE(selectobj)->color; numpolys++; allpolys = False; } else if (SELECTTYPE(selectobj) == ARC) { polytype = SELTOARC(selectobj)->style; polywidth = SELTOARC(selectobj)->width; polycolor = SELTOARC(selectobj)->color; numpolys++; allpolys = False; } else if (SELECTTYPE(selectobj) == LABEL) numlabels++; } if ((numpolys == 0) && (numlabels == 0)) { Wprintf("No elements selected for joining."); return; } else if ((numpolys == 1) || (numlabels == 1)) { Wprintf("Only one element: nothing to join to."); return; } else if ((numpolys > 1) && (numlabels > 1)) { Wprintf("Selection mixes labels and line segments. Ignoring."); return; } else if (numlabels > 0) { joinlabels(); return; } /* scount is a table of element numbers */ /* order is an ordered table of end-to-end elements */ /* direc is an ordered table of path directions (0=same as element, */ /* 1=reverse from element definition) */ scount = (short *) malloc(numpolys * sizeof(short)); order = (short *) malloc(numpolys * sizeof(short)); direc = (short *) malloc(numpolys * sizeof(short)); sptr = scount; numpoints = 1; /* make a record of the element instances involved */ for (selectobj = areawin->selectlist; selectobj < areawin->selectlist + areawin->selects; selectobj++) { if (SELECTTYPE(selectobj) == POLYGON) { numpoints += SELTOPOLY(selectobj)->number - 1; *(sptr++) = *selectobj; } else if (SELECTTYPE(selectobj) == SPLINE || SELECTTYPE(selectobj) == ARC) *(sptr++) = *selectobj; } /* Sort the elements by sorting the scount array: */ /* Loop through each point as starting point in case of strangely connected */ /* structures. . . for normal structures it should break out on the first */ /* loop (startpt = 0). */ for (startpt = 0; startpt < numpolys; startpt++) { /* set first in ordered list */ direc[0] = 0; order[0] = *(scount + startpt); for (ordered = 0; ordered < numpolys - 1; ordered++) { setendpoint(order + ordered, (1 ^ direc[ordered]), &endpoint2, &arcpoint[0]); setendpoint(order, (0 ^ direc[0]), &begpoint2, &arcpoint[1]); for (sptr = scount; sptr < scount + numpolys; sptr++) { /* don't compare with things already in the list */ for (sptr2 = order; sptr2 <= order + ordered; sptr2++) if (*sptr == *sptr2) break; if (sptr2 != order + ordered + 1) continue; setendpoint(sptr, 0, &begpoint, &arcpoint[2]); setendpoint(sptr, 1, &endpoint, &arcpoint[3]); /* four cases of matching endpoint of one element to another */ if (neartest(begpoint, endpoint2)) { order[ordered + 1] = *sptr; direc[ordered + 1] = 0; break; } else if (neartest(endpoint, endpoint2)) { order[ordered + 1] = *sptr; direc[ordered + 1] = 1; break; } else if (neartest(begpoint, begpoint2)) { for (sptr2 = order + ordered + 1; sptr2 > order; sptr2--) *sptr2 = *(sptr2 - 1); for (sptr2 = direc + ordered + 1; sptr2 > direc; sptr2--) *sptr2 = *(sptr2 - 1); order[0] = *sptr; direc[0] = 1; break; } else if (neartest(endpoint, begpoint2)) { for (sptr2 = order + ordered + 1; sptr2 > order; sptr2--) *sptr2 = *(sptr2 - 1); for (sptr2 = direc + ordered + 1; sptr2 > direc; sptr2--) *sptr2 = *(sptr2 - 1); order[0] = *sptr; direc[0] = 0; break; } } if (sptr == scount + numpolys) break; } if (ordered == numpolys - 1) break; } if (startpt == numpolys) { Wprintf("Cannot join: Too many free endpoints"); free(order); free(direc); free(scount); return; } /* create the new polygon or path */ if (allpolys) { NEW_POLY(newpoly, topobject); (*newpoly)->number = numpoints; (*newpoly)->points = (pointlist) malloc(numpoints * sizeof(XPoint)); (*newpoly)->width = polywidth; (*newpoly)->style = polytype; (*newpoly)->color = polycolor; (*newpoly)->passed = NULL; (*newpoly)->cycle = NULL; /* insert the points into the new polygon */ testpoint2 = (*newpoly)->points; for (sptr = order; sptr < order + numpolys; sptr++) { nextwire = SELTOPOLY(sptr); if (*(direc + (short)(sptr - order)) == 0) { for (testpoint = nextwire->points; testpoint < nextwire->points + nextwire->number - 1; testpoint++) { testpoint2->x = testpoint->x; testpoint2->y = testpoint->y; testpoint2++; } } else { for (testpoint = nextwire->points + nextwire->number - 1; testpoint > nextwire->points; testpoint--) { testpoint2->x = testpoint->x; testpoint2->y = testpoint->y; testpoint2++; } } } /* pick up the last point */ testpoint2->x = testpoint->x; testpoint2->y = testpoint->y; /* delete the old elements from the list */ register_for_undo(XCF_Wire, UNDO_MORE, areawin->topinstance, *newpoly); delobj = delete_element(areawin->topinstance, areawin->selectlist, areawin->selects, NORMAL); register_for_undo(XCF_Delete, UNDO_DONE, areawin->topinstance, delobj, NORMAL); } else { /* create a path */ NEW_PATH(newpath, topobject); (*newpath)->style = polytype; (*newpath)->color = polycolor; (*newpath)->width = polywidth; (*newpath)->parts = 0; (*newpath)->plist = (genericptr *) malloc(sizeof(genericptr)); (*newpath)->passed = NULL; /* copy the elements from the top level into the path structure */ for (sptr = order; sptr < order + numpolys; sptr++) { genericptr *oldelem = topobject->plist + *sptr; genericptr *newelem; switch (ELEMENTTYPE(*oldelem)) { case POLYGON: { polyptr copypoly = TOPOLY(oldelem); polyptr *newpoly; NEW_POLY(newpoly, (*newpath)); polycopy(*newpoly, copypoly); } break; case ARC: { arcptr copyarc = TOARC(oldelem); arcptr *newarc; NEW_ARC(newarc, (*newpath)); arccopy(*newarc, copyarc); } break; case SPLINE: { splineptr copyspline = TOSPLINE(oldelem); splineptr *newspline; NEW_SPLINE(newspline, (*newpath)); splinecopy(*newspline, copyspline); } break; } newelem = (*newpath)->plist + (*newpath)->parts - 1; /* reverse point order if necessary */ if (*(direc + (short)(sptr - order)) == 1) { switch (ELEMENTTYPE(*newelem)) { case POLYGON: reversepoints(TOPOLY(newelem)->points, TOPOLY(newelem)->number); break; case ARC: TOARC(newelem)->radius = -TOARC(newelem)->radius; break; case SPLINE: reversepoints(TOSPLINE(newelem)->ctrl, 4); calcspline(TOSPLINE(newelem)); break; } } /* decompose arcs into bezier curves */ if (ELEMENTTYPE(*newelem) == ARC) decomposearc(*newpath); } /* delete the old elements from the list */ register_for_undo(XCF_Join, UNDO_MORE, areawin->topinstance, *newpath); delobj = delete_element(areawin->topinstance, scount, numpolys, NORMAL); register_for_undo(XCF_Delete, UNDO_DONE, areawin->topinstance, delobj, NORMAL); /* Remove the path parts from the selection list and add the path */ clearselects(); selectobj = allocselect(); for (pgen = topobject->plist; pgen < topobject->plist + topobject->parts; pgen++) { if ((TOPATH(pgen)) == (*newpath)) { *selectobj = (short)(pgen - topobject->plist); break; } } } /* clean up */ incr_changes(topobject); /* Do not clear the selection, to be consistent with all the */ /* other actions that clear only when something has not been */ /* preselected before the action. Elements must be selected */ /* prior to the "join" action, by necessity. */ free(scount); free(order); free(direc); } /*----------------------------------------------*/ /* Add a new point to a polygon */ /*----------------------------------------------*/ void poly_add_point(polyptr thispoly, XPoint *newpoint) { XPoint *tpoint; thispoly->number++; thispoly->points = (XPoint *)realloc(thispoly->points, thispoly->number * sizeof(XPoint)); tpoint = thispoly->points + thispoly->number - 1; tpoint->x = newpoint->x; tpoint->y = newpoint->y; } /*-------------------------------------------------*/ /* ButtonPress handler while a wire is being drawn */ /*-------------------------------------------------*/ void wire_op(int op, int x, int y) { XPoint userpt, *tpoint; polyptr newwire; snap(x, y, &userpt); newwire = TOPOLY(EDITPART); if (areawin->attachto >= 0) { XPoint apos; findattach(&apos, NULL, &userpt); userpt = apos; areawin->attachto = -1; } else { if (areawin->manhatn) manhattanize(&userpt, newwire, -1, TRUE); } tpoint = newwire->points + newwire->number - 1; tpoint->x = userpt.x; tpoint->y = userpt.y; /* cancel wire operation completely */ if (op == XCF_Cancel) { free(newwire->points); free(newwire); newwire = NULL; eventmode = NORMAL_MODE; topobject->parts--; } /* back up one point; prevent length zero wires */ else if ((op == XCF_Cancel_Last) || ((tpoint - 1)->x == userpt.x && (tpoint - 1)->y == userpt.y)) { if (newwire->number <= 2) { free(newwire->points); free(newwire); newwire = NULL; eventmode = NORMAL_MODE; topobject->parts--; } else { if (--newwire->number == 2) newwire->style = UNCLOSED | (areawin->style & (DASHED | DOTTED)); } } if (newwire && (op == XCF_Wire || op == XCF_Continue_Element)) { if (newwire->number == 2) newwire->style = areawin->style; poly_add_point(newwire, &userpt); } else if ((newwire == NULL) || op == XCF_Finish_Element || op == XCF_Cancel) { xcRemoveEventHandler(areawin->area, PointerMotionMask, False, (xcEventHandler)trackwire, NULL); } if (newwire) { if (op == XCF_Finish_Element) { /* If the last points are the same, remove all redundant ones. */ /* This avoids the problem of extra points when people do left */ /* click followed by middle click to finish (the redundant way */ /* a lot of drawing programs work). */ XPoint *t2pt; while (newwire->number > 2) { tpoint = newwire->points + newwire->number - 1; t2pt = newwire->points + newwire->number - 2; if (tpoint->x != t2pt->x || tpoint->y != t2pt->y) break; newwire->number--; } incr_changes(topobject); if (!nonnetwork(newwire)) invalidate_netlist(topobject); register_for_undo(XCF_Wire, UNDO_MORE, areawin->topinstance, newwire); poly_mode_draw(xcDRAW_FINAL, newwire); } else poly_mode_draw(xcDRAW_EDIT, newwire); if (op == XCF_Cancel_Last) checkwarp(newwire->points + newwire->number - 1); } if (op == XCF_Finish_Element) { eventmode = NORMAL_MODE; singlebbox(EDITPART); } } /*-------------------------------------------------------------------------*/ /* Helper functions for the xxx_mode_draw functions */ /* Functions to be used around the drawing of the edited element */ /* begin_event_mode_drawing starts double buffering and copies the */ /* fixed pixmap. end_event_mode stops the double buffering and displays */ /* everything on screen. */ /*-------------------------------------------------------------------------*/ #ifndef HAVE_CAIRO static Window old_win; #endif /* !HAVE_CAIRO */ static void begin_event_mode_drawing(void) { /* Start double buffering */ #ifdef HAVE_CAIRO cairo_identity_matrix(areawin->cr); cairo_translate(areawin->cr, areawin->panx, areawin->pany); cairo_push_group(areawin->cr); #else /* HAVE_CAIRO */ old_win = areawin->window; areawin->window = (Window) dbuf; #endif /* HAVE_CAIRO */ /* Copy background pixmap with the element(s) not currently being edited */ #ifdef HAVE_CAIRO if (areawin->panx || areawin->pany) { SetForeground(dpy, areawin->gc, BACKGROUND); cairo_paint(areawin->cr); } cairo_set_source(areawin->cr, areawin->fixed_pixmap); cairo_paint(areawin->cr); #else /* HAVE_CAIRO */ if (areawin->panx || areawin->pany) { int x = max(0, -areawin->panx); int y = max(0, -areawin->pany); unsigned int w = areawin->width - x; unsigned int h = areawin->height - y; SetForeground(dpy, areawin->gc, BACKGROUND); XSetFillStyle(dpy, areawin->gc, FillSolid); XFillRectangle(dpy, areawin->window, areawin->gc, 0, 0, areawin->width, areawin->height); XCopyArea(dpy, areawin->fixed_pixmap, areawin->window, areawin->gc, x, y, w, h, max(0, areawin->panx), max(0, areawin->pany)); } else XCopyArea(dpy, areawin->fixed_pixmap, areawin->window, areawin->gc, 0, 0, areawin->width, areawin->height, 0, 0); #endif /* HAVE_CAIRO */ areawin->redraw_ongoing = True; newmatrix(); } static void end_event_mode_drawing(void) { /* End double buffering */ #ifdef HAVE_CAIRO cairo_pop_group_to_source(areawin->cr); cairo_paint(areawin->cr); #else /* HAVE_CAIRO */ areawin->window = old_win; XCopyArea(dpy, dbuf, areawin->window, areawin->gc, 0, 0, areawin->width, areawin->height, 0, 0); #endif /* HAVE_CAIRO */ areawin->redraw_ongoing = False; } /*-------------------------------------------------------------------------*/ /* Helper functions for the xxx_mode_draw functions */ /* Functions to be used when finishing the element. The final state is */ /* drawn into the fixed pixmap, which is show when the */ /* end_event_mode_drawing_final is called */ /* (Sorry about the name :-) ) */ /*-------------------------------------------------------------------------*/ static void begin_event_mode_drawing_final(void) { #ifdef HAVE_CAIRO cairo_identity_matrix(areawin->cr); cairo_push_group(areawin->cr); cairo_set_source(areawin->cr, areawin->fixed_pixmap); cairo_paint(areawin->cr); #else /* HAVE_CAIRO */ old_win = areawin->window; areawin->window = (Window) areawin->fixed_pixmap; #endif /* HAVE_CAIRO */ areawin->redraw_ongoing = True; newmatrix(); } static void end_event_mode_drawing_final(void) { #ifdef HAVE_CAIRO cairo_pattern_destroy(areawin->fixed_pixmap); areawin->fixed_pixmap = cairo_pop_group(areawin->cr); #else /* HAVE_CAIRO */ areawin->window = old_win; #endif /* HAVE_CAIRO */ /* Show fixed pixmap */ #ifdef HAVE_CAIRO cairo_identity_matrix(areawin->cr); cairo_set_source(areawin->cr, areawin->fixed_pixmap); cairo_paint(areawin->cr); #else /* HAVE_CAIRO */ XCopyArea(dpy, areawin->fixed_pixmap, areawin->window, areawin->gc, 0, 0, areawin->width, areawin->height, 0, 0); #endif /* HAVE_CAIRO */ areawin->redraw_ongoing = False; } /*-------------------------------------------------------------------------*/ /* Helper function for the xxx_mode_draw functions */ /* Hide all the selected elements and draw all the element not currently */ /* being edited to fixed_pixmap */ /*-------------------------------------------------------------------------*/ static void draw_fixed_without_selection(void) { int idx; for (idx = 0; idx < areawin->selects; idx++) SELTOGENERIC(&areawin->selectlist[idx])->type |= DRAW_HIDE; draw_fixed(); for (idx = 0; idx < areawin->selects; idx++) SELTOGENERIC(&areawin->selectlist[idx])->type &= ~DRAW_HIDE; } /*-------------------------------------------------------------------------*/ /* generic xxx_mode_draw function, that handles most of the thing needed */ /* for arcs, splines and paths. */ /*-------------------------------------------------------------------------*/ static void generic_mode_draw(xcDrawType type, generic *newgen, void (*decorations)(generic *newgen)) { int idx; switch (type) { case xcDRAW_INIT: case xcREDRAW_FORCED: draw_fixed_without_selection(); /* fallthrough */ case xcDRAW_EDIT: begin_event_mode_drawing(); for (idx = 0; idx < areawin->selects; idx++) { int scolor = SELTOCOLOR(&areawin->selectlist[idx]); XcTopSetForeground(scolor); easydraw(areawin->selectlist[idx], scolor); } if (decorations) (*decorations)(newgen); end_event_mode_drawing(); break; case xcDRAW_FINAL: begin_event_mode_drawing_final(); for (idx = 0; idx < areawin->selects; idx++) { int scolor = SELTOCOLOR(&areawin->selectlist[idx]); XcTopSetForeground(scolor); easydraw(areawin->selectlist[idx], scolor); } end_event_mode_drawing_final(); if (areawin->selects > 1) /* FIXME: Temp. fix for multiple selects */ areawin->redraw_needed = True; /* Will be removed later on */ break; case xcDRAW_EMPTY: /* Do not remove the empty begin/end. For cairo, this renders the */ /* background with the fixed elements */ begin_event_mode_drawing_final(); end_event_mode_drawing_final(); break; } } /*-------------------------------------------------------------------------*/ /* Drawing function for ARC_MODE and EARC_MODE */ /*-------------------------------------------------------------------------*/ static void arc_mode_decorations(generic *newgen) { UDrawXLine(((arc*) newgen)->position, areawin->save); } void arc_mode_draw(xcDrawType type, arc *newarc) { generic_mode_draw(type, (generic*) newarc, arc_mode_decorations); } /*-------------------------------------------------------------------------*/ /* Drawing function for SPLINE_MODE and ESPLINE_MODE */ /*-------------------------------------------------------------------------*/ static void spline_mode_decorations(generic *newgen) { spline *newspline = (spline*) newgen; UDrawXLine(newspline->ctrl[0], newspline->ctrl[1]); UDrawXLine(newspline->ctrl[3], newspline->ctrl[2]); } void spline_mode_draw(xcDrawType type, spline *newspline) { generic_mode_draw(type, (generic*) newspline, spline_mode_decorations); } /*-------------------------------------------------------------------------*/ /* Drawing function for WIRE_MODE, BOX_MODE and EPOLY_MODE */ /*-------------------------------------------------------------------------*/ void poly_mode_draw(xcDrawType type, polygon *newpoly) { generic_mode_draw(type, (generic*) newpoly, NULL); } /*-------------------------------------------------------------------------*/ /* Drawing function for EPATH_MODE */ /*-------------------------------------------------------------------------*/ static void path_mode_decorations(generic *newgen) { genericptr *ggen; path *newpath = (path*) newgen; for (ggen = newpath->plist; ggen < newpath->plist + newpath->parts; ggen++) { if (ELEMENTTYPE(*ggen) == SPLINE) { spline *lastspline = TOSPLINE(ggen); UDrawXLine(lastspline->ctrl[0], lastspline->ctrl[1]); UDrawXLine(lastspline->ctrl[3], lastspline->ctrl[2]); } } } void path_mode_draw(xcDrawType type, path *newpath) { generic_mode_draw(type, (generic*) newpath, path_mode_decorations); } /*-------------------------------------------------------------------------*/ /* Drawing function for TEXT_MODE, CATTEXT_MODE and ETEXT_MODE */ /*-------------------------------------------------------------------------*/ static void text_mode_decorations(generic *newgen) { UDrawTLine((label*) newgen); } void text_mode_draw(xcDrawType type, label *newlabel) { generic_mode_draw(type, (generic*) newlabel, text_mode_decorations); } /*-------------------------------------------------------------------------*/ /* Drawing function for SELAREA_MODE */ /*-------------------------------------------------------------------------*/ void selarea_mode_draw(xcDrawType type, void *unused) { UNUSED(unused); switch (type) { case xcREDRAW_FORCED: draw_fixed(); /* fallthrough */ case xcDRAW_INIT: case xcDRAW_EDIT: begin_event_mode_drawing(); draw_all_selected(); UDrawBox(areawin->origin, areawin->save); end_event_mode_drawing(); break; case xcDRAW_FINAL: case xcDRAW_EMPTY: /* No need for rendering the background, since it will be */ /* overwritten by the select_area() function anyway */ break; } } /*-------------------------------------------------------------------------*/ /* Drawing function for RESCALE_MODE */ /*-------------------------------------------------------------------------*/ void rescale_mode_draw(xcDrawType type, void *unused) { UNUSED(unused); switch (type) { case xcREDRAW_FORCED: draw_fixed(); /* fallthrough */ case xcDRAW_INIT: case xcDRAW_EDIT: begin_event_mode_drawing(); UDrawRescaleBox(&areawin->save); end_event_mode_drawing(); break; case xcDRAW_FINAL: case xcDRAW_EMPTY: /* No need for rendering the background, since it will be */ /* overwritten by the select_area() function anyway */ break; } } /*-------------------------------------------------------------------------*/ /* Drawing function for CATMOVE_MODE, MOVE_MODE and COPY_MODE */ /*-------------------------------------------------------------------------*/ void move_mode_draw(xcDrawType type, void *unused) { float wirewidth = xobjs.pagelist[areawin->page]->wirewidth; short *selectobj; genericptr *pgen; int idx; UNUSED(unused); switch (type) { case xcREDRAW_FORCED: case xcDRAW_INIT: draw_fixed_without_selection(); /* fallthrough */ case xcDRAW_EDIT: begin_event_mode_drawing(); XTopSetForeground(SELECTCOLOR); for (idx = 0; idx < areawin->selects; idx++) easydraw(areawin->selectlist[idx], DOFORALL); for (selectobj = areawin->selectlist; selectobj < areawin->selectlist + areawin->selects; selectobj++) { if (SELECTTYPE(selectobj) == LABEL) { label *labelobj = SELTOLABEL(selectobj); if (labelobj->pin == False) UDrawX(labelobj); } } if (areawin->pinattach) { for (pgen = topobject->plist; pgen < topobject->plist + topobject->parts; pgen++) { if (ELEMENTTYPE(*pgen) == POLYGON) { polygon *cpoly = TOPOLY(pgen); if (cpoly->cycle != NULL) UDrawPolygon(cpoly, wirewidth); } } } end_event_mode_drawing(); break; case xcDRAW_FINAL: begin_event_mode_drawing_final(); for (selectobj = areawin->selectlist; selectobj < areawin->selectlist + areawin->selects; selectobj++) { XTopSetForeground(SELTOCOLOR(selectobj)); easydraw(*selectobj, DOFORALL); } end_event_mode_drawing_final(); break; case xcDRAW_EMPTY: /* Do not remove the empty begin/end. For cairo, this renders the */ /* background with the fixed elements */ begin_event_mode_drawing_final(); end_event_mode_drawing_final(); break; } } /*-------------------------------------------------------------------------*/ /* Drawing function for ASSOC_MODE, EINST_MODE, (E)FONTCAT_MODE, PAN_MODE, */ /* NORMAL_MODE, UNDO_MODE and CATALOG_MODE */ /*-------------------------------------------------------------------------*/ void normal_mode_draw(xcDrawType type, void *unused) { UNUSED(unused); switch (type) { case xcDRAW_INIT: case xcREDRAW_FORCED: draw_fixed_without_selection(); /* fallthrough */ case xcDRAW_EDIT: begin_event_mode_drawing(); /* draw the highlighted netlist, if any */ if (checkvalid(topobject) != -1) if (topobject->highlight.netlist != NULL) highlightnetlist(topobject, areawin->topinstance, 1); if ((areawin->selects == 1) && SELECTTYPE(areawin->selectlist) == LABEL && areawin->textend > 0 && areawin->textpos > areawin->textend) { labelptr drawlabel = SELTOLABEL(areawin->selectlist); UDrawString(drawlabel, DOSUBSTRING, areawin->topinstance); } else if (eventmode == NORMAL_MODE || eventmode == CATALOG_MODE) draw_all_selected(); end_event_mode_drawing(); break; case xcDRAW_FINAL: break; case xcDRAW_EMPTY: break; } } xcircuit-3.9.73/wishexe.ini0000664000175000001440000000034512335667423014353 0ustar timusers[Settings] NumFields=2 [Field 1] Type=Label Text=Enter the location of the wish (Tcl/Tk) executable: Left=0 Right=-1 Top=0 Bottom=14 [Field 2] Type=FileRequest Filter=Wish executable|wish*.exe Left=0 Right=-1 Top=14 Bottom=27 xcircuit-3.9.73/README0000664000175000001440000003232012335667422013053 0ustar timusersXCircuit v3.9 ----------------------------------------------------------------------------- An X11 drawing program [especially for circuit schematics] (c) 2014 Tim Edwards (see copyright notice in ./COPYRIGHT) August 1993 -- May 2014 ----------------------------------------------------------------------------- Compilation/Installation notes: (Online version at http://opencircuitdesign.com/xcircuit/install.html) 1) All compile-time features are set during the ./configure process. Run "./configure --help" for a list of configure options. For most users, the relevant options are the following: --with-cairo Enable cairo graphics --with-tcl Configure xcircuit as an extension to Tcl/Tk. Tcl becomes the default interpreter. Option is mutually exclusive with "--with-python". A feature of this version is that the interpreter is available from the calling terminal concurrently with the GUI. Another feature of this version is that the graphics are handled by Tk widgets instead of the troublesome "Xw" widgets in the distribution. As of version 3.1.7 where most of the bugs have been resolved, use of this option is highly encouraged. --with-python Configure xcircuit with the embedded Python interpreter. Option "--with-python" is disabled by default, and has no effect if "--with-tcl" has been selected. The python interface is less well-developed than the Tcl interface. If you do not intend to make use of the interpreter command-line interface, there is probably no reason to select this. --prefix=PREFIX Location to install xcircuit. Defaults to /usr/local/. The executable goes to /usr/local/bin/, man pages to /usr/local/man/man1/, and everything else to /usr/local/lib/xcircuit-VERSION/. Defaults can be separated by explicitly declaring --exec-prefix=DIR, --mandir=DIR, and --libdir=DIR. The following option is experimental at present and will be changed to be enabled by default when the package is deemed stable: --enable-asg Configure XCircuit with the automatic schematic generation (ASG) package. This package allows XCircuit to read SPICE decks and produce schematics from them. Future functions include reading EDIF netlists (from Verilog and/or VHDL), and automatially routing layouts. The following options are probably not worth messing with: --disable-lgf Save space by not compiling the compatibility with "analog" and "diglog" .lgf-format files. --disable-schema Don't compile the schematic capture system. This is a major feature of xcircuit, so disabling it is not recommended. However, you may do so if you anticipate having no need for circuit netlists. There are some other options which can be supplied to the "configure" command-line which should only be needed in rare circumstances. Most users can ignore these. --with-tcl=DIR Tcl can be enabled with "--with-tcl" or "--with-tcl=yes", and the Tcl library and include directories will be automatically searched. For Tcl/Tk installations which cannot be found by the automatic search, DIR should be the directory containing "tclConfig.sh". --with-tk=DIR Enabling Tcl for XCircuit implies "--with-tk". However, for Tk installations which cannot be found by automatic search and which cannot be found by specifying "--with-tcl=DIR", DIR should point to the directory containing "tkConfig.sh". --with-python=DIR If the configure step cannot find a Python interpreter, it can be explicitly referenced. Requires the Python library (libpythonVERSION.a or libpythonVERSION.so) and the python include file Python.h. The Python option uses the Python language as an interpreter for xcircuit. --disable-double-buffer This option is almost wholly deprecated due to the speed of modern processors. However, if you have problems with slow rendering, you might find it useful. --with-xpm=DIR If the configure step cannot find the XPM package, it can be explicitly referenced. The XPM package enables the toolbar and an icon when xcircuit is iconified. --with-gs=DIR If the configure step cannot find ghostscript, it can be explicitly referenced. The Ghostscript option allows any PostScript file to be rendered on the xcircuit background and saved with the xcircuit file. NOTE: When xcircuit went from "imake" to GNU make, the default install directory changed from /usr/local/lib to /usr/local/share/. Since all the other CAD tools xcircuit works with install by default to /usr/local/lib, xcircuit version 3.1 has reverted to /usr/local/lib for reasons of compatibility. See item (4) below, "uninstall". 2) Compile with the usual GNU-compile steps: ./configure make make install The final step must be done as root if you are installing to default locations (/usr/local/lib and /usr/local/bin). XCircuit can be run in test mode before installation (see item (3), below). For the Tcl/Tk version the make steps are the same, assuming that Tcl/Tk libraries and include files can be found on the system. If you specifically *don't* want the Tcl/Tk version, then do: ./configure --without-tcl make make install If you want to test before installing, do the following (csh/tcsh version; see item (3) for changes to line 4 for bash/ksh/sh): ./configure make setenv XCIRCUIT_LIB_DIR ./lib setenv XCIRCUIT_SRC_DIR ./lib/tcl lib/tcl/xcircuit.sh after which, if all goes well, you can do "make install". 3) NOTE: To test xcircuit before installation, set environment variable setenv XCIRCUIT_LIB_DIR ./lib (csh, tcsh) setenv XCIRCUIT_SRC_DIR ./lib/tcl export XCIRCUIT_LIB_DIR=./lib (bash) export XCIRCUIT_SRC_DIR=./lib/tcl before running the xcircuit executable. 4) Uninstall: If you have compiled previous versions of xcircuit, the only thing you need to do to uninstall these versions is to remove the directory tree at /usr/local/share/xcircuit-(version) or /usr/local/lib/xcircuit-(version) for any version numbers which are not current. 5) HP/IRIX users: If the "make" process dies with an error creating the man page, something like /usr/ccs/bin/m4:xcircuit.1.m4:911 more than 4096 chars of argument text be sure to use GNU m4. This can be done during the configure process (using appropriate substitutions) with the following command: M4= ./configure [options] 6) 64-bit system users: Proper compile may require specifically using configure option "--x-libraries=" to point to 64-bit libraries. This has been fixed for the AMD Opteron under Fedora Core; other 64-bit systems are untested. 7) aclocal problems: In case during the make process the system complains about a missing or out of date aclocal, rebuild the configure file with: autoreconf -fi And restart the ./configure command ----------------------------------------------------------------------------- Shared Python Library: NOTE: The XCircuit build will be *much* smaller if you have a shared python library. However, the build instructions as of Python-2.1c2 don't include instructions for building a shared library under linux. Here's how you do it: 1) In the Makefile: set LDLIBRARY=libpython2.1.so 2) Also in the Makefile: Add a case for libpython$(VERSION).so which looks exactly like the case statement for unixware: linux) \ $(LDSHARED) -o $@ $(LIBRARY_OBJS) \ ;; \ 3) Make until error (can't find libpython2.1.so) 4) Copy or move libpython2.1.so to /usr/local/lib or /usr/lib 5) Run (as root!) ldconfig -v -n /usr/local/lib (or whereever you just put the shared library) and confirm that it found libpython2.1.so. 6) Finish "make" (should run to normal completion). On my system, this is the difference between a 4MB xcircuit executable and a 1.5MB executable. That's a big difference! Of course, Python purists would say I should be embedding xcircuit in python, not the other way around, then what need do I have for a shared library, anyway? Python source (and other information relating to Python) can be found at www.python.org. The Python interpreter is recommended, as XCircuit eventually will rely on Python to handle writing netlists, for flexibility in formatting. ----------------------------------------------------------------------------- Extras: The file examples/.xcircuitrc shows how to make a home-directory file to alter the behavior of xcircuit on startup. It shows how to change the color scheme, add new fonts, override the default libraries, and change the editing behavior for polygons. Note that if xcircuit is built with embedded Python, the syntax for .xcircuitrc will be Python syntax, and may use any Python commands in addition to the commands which hook into xcircuit functions. The file examples/test.py is a sample Python script which features use of Python to create animated graphics within the xcircuit window, shows how to access on-screen elements and change their properties, and contains convenience function definitions for manipulating xcircuit elements. Other files in the examples directory show how xcircuit can be used to draw various things, from a simple circuit schematic (vcoblock.ps) to an entire publishable-quality page of music (prelude.ps), plus an example of a fancy page border for slide presentations. The files psfiles/signal.lps and psfiles/musiclib.lps are examples of alternate or additional object libraries. The library file lgf.lps is used primarily by the lgf-to-ps conversion routines, but has some different circuit objects in it. The file psfiles/fonttest.ps is a short PostScript program you can use to get your printer to give you the names of all the built-in fonts that it knows about, which is useful because if you add a font name to xcircuit, the spelling has to be exactly correct or else the printer won't recognize it. The file examples/gettext.py is a sample Python script which adds a Python command called "gettext(filename)". gettext(filename) reads in file "filename", which should be an ASCII text file, and turns it into a label in XCircuit positioned at the cursor position. ----------------------------------------------------------------------------- X Resources: The Tcl/Tk version of XCircuit does not use the X resources but picks up resources from the file "resource.tcl" in the run-time library path (e.g., /usr/local/lib/xcircuit-3.8/resource.tcl). The resource names are the same as those described below but are specified using the Tk "option add" command. The color scheme of xcircuit has a default setup, but accepts alternate color schemes using the following keywords which can be put in the X Defaults (.Xdefaults, .Xresources) file: Resource name Description Default ------------------- ---------------------------- ------- xcircuit*foreground color of buttons and popups; White xcircuit*background background of buttons & popups; DarkSlateGray xcircuit.foreground drawing area foreground; White xcircuit.background drawing area background; Black xcircuit*gridcolor color of the grid lines; Gray40 xcircuit*snapcolor color of the snap-to points; Red xcircuit*selectcolor color of a selected object; Gold xcircuit*querycolor to differentiate multiple objects; Turquoise xcircuit*axescolor color of the x, y axes; NavajoWhite4 xcircuit*offbuttoncolor text color of an inoperable button; Gray70 xcircuit*auxiliarycolor text cursor and other things Green xcircuit*barcolor color of panning bars Tan A secondary color scheme (for example, black-on-white) can be specified by adding "2" to each of the above resource names. For example: xcircuit*foreground2 color of every object drawn; Black xcircuit*background2 screen background color; White Other resources accepted by xcircuit are: xcircuit*width width of the drawing area (pixels); 600 xcircuit*height height of the drawing area; 500 Normally, you will want to put the defaults in /usr/lib/X11/app-defaults. If you do not have root access, you will want to have them in your own home .Xdefaults file. If the file is not found by xcircuit, the program will use its default color schemes, the main one being black-on-white, and the alternate being white-on-dark-gray. ----------------------------------------------------------------------------- Altering, Copying, and/or Redistributing XCircuit: XCircuit is distributed under the GNU GPL (General Public Licence). See the file COPYRIGHT in the top-level directory for details. ----------------------------------------------------------------------------- XCircuit Home Page: "http://opencircuitdesign.com/xcircuit/" Online tutorial: "http://opencircuitdesign.com/xcircuit/tutorial/tutorial.html" Schematic capture tutorial: "http://opencircuitdesign.com/xcircuit/tutorial/tutorial2.html" ----------------------------------------------------------------------------- Contact address (check the website above for a current address): R. Timothy Edwards 22815 Timber Creek Lane Clarksburg, MD 20871 Phone: (301) 528-5030 (home) ----------------------------------------------------------------------------- xcircuit-3.9.73/ngspice.c0000664000175000001440000004377113002017033013756 0ustar timusers/*----------------------------------------------------------------------*/ /* ngspice.c --- Handling of background ngspice process. */ /* Copyright (c) 2004 Tim Edwards, MultiGiG, Inc. */ /* These routines work only if ngspice is on the system. */ /*----------------------------------------------------------------------*/ /* #undef SPICE_DEBUG */ #define SPICE_DEBUG #include #include #include #ifndef _MSC_VER #include #endif #include #ifndef _MSC_VER #include /* for waitpid() */ #include #include #endif #include #include #include /* This code should be able to run without requiring Tcl-based XCircuit */ /* but this has not been worked out, so instead it is just disabled. */ #ifdef TCL_WRAPPER /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include #ifndef _MSC_VER #include #include #endif #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*------------------------------------------------------------------------*/ /* External Variable definitions */ /*------------------------------------------------------------------------*/ extern char _STR2[250], _STR[150]; extern Globaldata xobjs; extern XCWindowData *areawin; extern Display *dpy; extern int number_colors; extern colorindex *colorlist; extern Cursor appcursors[NUM_CURSORS]; #ifndef HAVE_VFORK #define vfork fork #endif int spice_state; /* Track state of the simulator */ #define SPICE_INIT 0 /* Initial state; ngspice interpreter is idle. */ #define SPICE_BUSY 1 /* Simulation in progress; ngspice is busy. */ #define SPICE_READY 2 /* Simulation at break; ngspice is waiting for */ /* "resume". */ #define EXPECT_ANY 0 /* Read routine accepts all input until input */ /* buffer is empty, then returns. */ #define EXPECT_PROMPT 1 /* Read routine accepts all input up to the */ /* next ngspice prompt, removes the prompt, */ /* sets the Tcl return value to the history */ /* number, and returns. */ #define EXPECT_REF 2 /* Read routine accepts all input until the */ /* first "Reference value" line, truncates the */ /* output, and sets the Tcl return value to the */ /* reference value seen. */ #ifndef CONST84 #define CONST84 #endif /*------------------------------------------------------*/ /* Global variable definitions */ /*------------------------------------------------------*/ #ifndef _MSC_VER pid_t spiceproc = -1; /* ngspice process */ #else HANDLE spiceproc = INVALID_HANDLE_VALUE; #endif int pipeRead, pipeWrite; /* I/O pipe pair for ngspice */ /*------------------------------------------------------*/ /* Start a ngspice process and arrange the I/O pipes */ /* (Commented lines cause ngspice to relay its stderr */ /* to xcircuit's stderr) */ /* */ /* Return codes: */ /* 0 success */ /* -1 failed---ngspice exited with error condition */ /* -2 exec failed---e.g., unable to find ngspice */ /* 1 ngspice is already running */ /*------------------------------------------------------*/ #ifdef _MSC_VER int start_spice() { STARTUPINFO st_info; PROCESS_INFORMATION pr_info; SECURITY_ATTRIBUTES attr; HANDLE child_stdin, child_stdout, tmp; char cmd[4096]; attr.nLength = sizeof(SECURITY_ATTRIBUTES); attr.lpSecurityDescriptor = NULL; attr.bInheritHandle = FALSE; if (!CreatePipe(&tmp, &child_stdout, &attr, 0)) goto spice_error; SetHandleInformation(tmp, HANDLE_FLAG_INHERIT, 0); pipeRead = _open_osfhandle(tmp, _O_RDONLY); if (!CreatePipe(&child_stdin, &tmp, &attr, 0)) goto spice_error; SetHandleInformation(tmp, HANDLE_FLAG_INHERIT, 0); pipeWrite = _open_osfhandle(tmp, _O_WRONLY); ZeroMemory(&pr_info, sizeof(PROCESS_INFORMATION)); ZeroMemory(&st_info, sizeof(STARTUPINFO)); st_info.cb = sizeof(STARTUPINFO); st_info.dwFlags = STARTF_USESTDHANDLES; st_info.hStdError = st_info.hStdOutput = child_stdout; st_info.hStdInput = child_stdin; snprintf(cmd, 4095, "%s -p", SPICE_EXEC); if (CreateProcess(NULL, cmd, NULL, NULL, TRUE, 0, NULL, NULL, &st_info, &pr_info) == 0) goto spice_error; CloseHandle(pr_info.hThread); spiceproc = pr_info.hProcess; return 0; spice_error: Fprintf(stderr, "Exec of ngspice failed\n"); return -2; } #else /* ! MSC_VER */ int start_spice() { int std_in[2], std_out[2], ret; ret = pipe(std_in); ret = pipe(std_out); /* Input goes from xcircuit to ngspice to provide commands to the */ /* ngspice interpreter front-end. Output goes from ngspice back to */ /* xcircuit to provide data for displaying. */ if (spiceproc < 0) { /* ngspice is not running yet */ spiceproc = vfork(); if (spiceproc == 0) { /* child process (ngspice) */ #ifdef SPICE_DEBUG fprintf(stdout, "Calling %s\n", SPICE_EXEC); #endif close(std_in[0]); close(std_out[1]); dup2(std_in[1], fileno(stdout)); dup2(std_in[1], fileno(stderr)); dup2(std_out[0], fileno(stdin)); Flush(stderr); /* Force interactive mode with "-p". Otherwise, ngspice will */ /* detect that the pipe is not a terminal and switch to batch- */ /* processing mode. */ execlp(SPICE_EXEC, "ngspice", "-p", (char *)NULL); spiceproc = -1; Fprintf(stderr, "Exec of ngspice failed\n"); return -2; } else if (spiceproc < 0) { Wprintf("Error: ngspice not running"); close(std_in[0]); close(std_in[1]); close(std_out[0]); close(std_out[1]); return -1; /* error condition */ } else { /* parent process */ close(std_in[1]); close(std_out[0]); pipeRead = std_in[0]; pipeWrite = std_out[1]; return 0; /* success */ } } return 1; /* spice is already running */ } #endif /* ! MSC_VER */ /*------------------------------------------------------*/ /* Send text to the ngspice simulator */ /*------------------------------------------------------*/ void send_to_spice(char *text) { int tlen = strlen(text); write(pipeWrite, text, tlen); if (*(text + tlen - 1) != '\n') write(pipeWrite, "\n", 1); if (!strncmp(text, "run", 3) || !strncmp(text, "resume", 6)) spice_state = SPICE_BUSY; else if (!strncmp(text, "quit", 4) || !strncmp(text, "exit", 4)) spice_state = SPICE_INIT; #ifdef SPICE_DEBUG /* fprintf(stdout, "writing: %s\n", text); */ #endif } /*------------------------------------------------------*/ /* Get text from the ngspice simulator */ /*------------------------------------------------------*/ #define RECV_BUFSIZE 1024 char *recv_from_spice(Tcl_Interp *interp, int expect) { int n, numc, totc, nfd; fd_set readfds, writefds, exceptfds; static char *buffer = NULL; struct timeval timeout; char *pptr, *bufptr; float refval; if (buffer == NULL) buffer = (char *)malloc(RECV_BUFSIZE); /* 2-second timeout on reads */ timeout.tv_sec = (expect == EXPECT_ANY) ? 0 : 2; timeout.tv_usec = 0; FD_ZERO(&readfds); FD_ZERO(&exceptfds); bufptr = buffer; totc = 0; numc = RECV_BUFSIZE - 1; while (numc == RECV_BUFSIZE - 1) { nfd = pipeRead + 1; FD_ZERO(&writefds); FD_SET(pipeRead, &readfds); FD_SET(pipeRead, &exceptfds); *bufptr = '\0'; n = select(nfd, &readfds, &writefds, &exceptfds, &timeout); if (n == 0) { if (expect != EXPECT_ANY) Fprintf(stderr, "Timeout during select()\n"); return buffer; /* Timeout, or no data */ } else if (n < 0) { /* Interrupt here? */ Fprintf(stderr, "Exception received by select()\n"); return buffer; } numc = read(pipeRead, bufptr, RECV_BUFSIZE - 1); *(bufptr + numc) = '\0'; /* Terminate the line just read */ totc += numc; switch(expect) { case EXPECT_PROMPT: for (pptr = bufptr + numc - 1; pptr >= buffer; pptr--) if (*pptr == '\n') break; if (!strncmp(pptr + 1, "ngspice", 7)) { *(pptr) = '\0'; if (sscanf(pptr + 8, "%d", &numc) == 1) { sprintf(_STR2, "%d", numc); Tcl_SetResult(interp, _STR2, TCL_STATIC); } return buffer; } /* Force the process to continue reading until the */ /* prompt is received. */ numc = RECV_BUFSIZE - 1; break; case EXPECT_REF: for (pptr = bufptr + numc - 1; pptr > buffer; pptr--) { if (*pptr == '\r') { while ((--pptr >= buffer) && !isspace(*pptr)); if (sscanf(pptr + 1, "%g", &refval)) { sprintf(_STR2, "%g", refval); Tcl_SetResult(interp, _STR2, TCL_STATIC); } return buffer; } } /* Force the process to continue reading until a */ /* reference value is received. */ numc = RECV_BUFSIZE - 1; /* Drop through to below to remove the control chars */ case EXPECT_ANY: /* Remove control characters from the input */ pptr = bufptr; while (*pptr != '\0') { if (*pptr == '\r') *pptr = '\n'; else if (!isprint(*pptr)) *pptr = ' '; pptr++; } break; } if (numc == RECV_BUFSIZE - 1) { buffer = (char *)realloc(buffer, totc + RECV_BUFSIZE); bufptr = buffer + totc; } } #ifdef SPICE_DEBUG /* fprintf(stdout, "read %d characters: %s", totc, buffer); */ #endif return buffer; } /*------------------------------------------------------*/ /* Send break (ctrl-c) to the ngspice simulator */ /* Return 0 on success, -1 if ngspice didn't return a */ /* prompt within the timeout period. */ /*------------------------------------------------------*/ int break_spice(Tcl_Interp *interp) { char *msg; #ifdef _MSC_VER if (spiceproc == INVALID_HANDLE_VALUE) return 0; /* No process to interrupt */ #else if (spiceproc == -1) return 0; /* No process to interrupt */ #endif /* Sending SIGINT in any state other than "busy" will kill */ /* the ngspice process, not interrupt it! */ if (spice_state == SPICE_BUSY) { #ifndef _MSC_VER kill(spiceproc, SIGINT); #else TerminateProcess(spiceproc, -1); #endif msg = recv_from_spice(interp, EXPECT_PROMPT); /* Flush the output */ if (*msg == '\0') return -1; } spice_state = SPICE_READY; #ifdef SPICE_DEBUG /* fprintf(stdout, "interrupt ngspice\n"); */ #endif return 0; } /*------------------------------------------------------*/ /* Resume the ngspice simulator */ /*------------------------------------------------------*/ void resume_spice() { spice_state = SPICE_BUSY; write(pipeWrite, "resume\n", 7); #ifdef SPICE_DEBUG /* fprintf(stdout, "resume ngspice\n"); */ #endif } /*------------------------------------------------------*/ /* Exit ngspice. . . not so gently */ /*------------------------------------------------------*/ int exit_spice() { #ifdef _MSC_VER if (spiceproc == INVALID_HANDLE_VALUE) return -1; /* ngspice not running */ #else if (spiceproc < 0) return -1; /* ngspice not running */ #endif #ifdef SPICE_DEBUG fprintf(stdout, "Waiting for ngspice to exit\n"); #endif #ifndef _MSC_VER kill(spiceproc, SIGKILL); waitpid(spiceproc, NULL, 0); #else TerminateProcess(spiceproc, -1); #endif #ifdef SPICE_DEBUG fprintf(stdout, "ngspice has exited\n"); #endif #ifdef _MSC_VER spiceproc = INVALID_HANDLE_VALUE; #else spiceproc = -1; #endif spice_state = SPICE_INIT; return 0; } /*------------------------------------------------------*/ /* Spice command */ /* */ /* Run the ngspice simulator from the tcl command line. */ /* Currently, the Tcl command-line interface is the */ /* *only* way to access the ngspice simulator through */ /* XCircuit. ngspice runs as a separate process via a */ /* fork call, and sends and receives through the */ /* "spice" command in Tcl-XCircuit. */ /*------------------------------------------------------*/ int xctcl_spice(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int result, idx; char *msg, *msgin, *eptr; static char *subCmds[] = { "start", "send", "get", "break", "resume", "status", "flush", "exit", "run", "print", NULL }; enum SubIdx { StartIdx, SendIdx, GetIdx, BreakIdx, ResumeIdx, StatusIdx, FlushIdx, ExitIdx, RunIdx, PrintIdx }; if (objc == 1 || objc > 3) { Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?"); return TCL_ERROR; } else if ((result = Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)subCmds, "option", 0, &idx)) != TCL_OK) { return result; } switch(idx) { case StartIdx: if (spice_state != SPICE_INIT) { Tcl_SetResult(interp, "ngspice process already running", NULL); return TCL_ERROR; } result = start_spice(); if (result != 0) { Tcl_SetResult(interp, "unable to run ngspice", NULL); return TCL_ERROR; } msg = recv_from_spice(interp, EXPECT_PROMPT); if (*msg == '\0') return TCL_ERROR; Fprintf(stdout, "%s", msg); Flush(stdout); /* Force the output not to use "more" */ send_to_spice("set nomoremode true"); msg = recv_from_spice(interp, EXPECT_PROMPT); /* This needs to be considerably more clever. Should */ /* also generate the spice file if it does not exist. */ /* Finally, needs to add models and some statement */ /* like "trans" to the end to start the simulation. */ sprintf(_STR2, "source %s.spc", topobject->name); send_to_spice(_STR2); msg = recv_from_spice(interp, EXPECT_PROMPT); if (*msg == '\0') return TCL_ERROR; else { Fprintf(stdout, "%s", msg); Flush(stdout); spice_state = SPICE_READY; } break; case RunIdx: if (spice_state != SPICE_READY) { Tcl_SetResult(interp, "Spice process busy or nonexistant", NULL); return TCL_ERROR; } send_to_spice("run"); msg = recv_from_spice(interp, EXPECT_REF); if (*msg == '\0') return TCL_ERROR; else { spice_state = SPICE_BUSY; Fprintf(stdout, "%s", msg); Flush(stdout); } break; case SendIdx: /* Allow commands in INIT mode, because they may come from */ /* parameterized labels. No output will be generated. */ if (spice_state == SPICE_INIT) break; else if (spice_state == SPICE_BUSY) if (break_spice(interp) < 0) return TCL_ERROR; if (objc == 2) break; /* Prevent execution of "run" and "resume" using this */ /* method, so we keep control over the output and the */ /* state of the simulator. */ msgin = Tcl_GetString(objv[2]); if (!strncmp(msgin, "run", 3) || !strncmp(msgin, "resume", 6)) { Tcl_SetResult(interp, "Do not use \"send\" with " "\"run\" or \"resume\"\n", NULL); return TCL_ERROR; } else send_to_spice(msgin); msg = recv_from_spice(interp, EXPECT_PROMPT); if (*msg == '\0') return TCL_ERROR; else { char *mp = msg; /* ngspice echos the terminal, so walk past input */ while (*mp++ == *msgin++); Tcl_SetResult(interp, mp, TCL_STATIC); } break; case FlushIdx: if (spice_state == SPICE_INIT) break; msg = recv_from_spice(interp, EXPECT_ANY); /* Grab input and discard */ break; case GetIdx: if (spice_state == SPICE_INIT) break; msg = recv_from_spice(interp, EXPECT_ANY); /* Grab input and return */ if (msg) Tcl_SetResult(interp, msg, TCL_STATIC); break; case BreakIdx: if (spice_state == SPICE_INIT) break; else if (spice_state == SPICE_BUSY) if (break_spice(interp) < 0) return TCL_ERROR; /* Return the value of the stepsize from the function. */ send_to_spice("print length(TIME)"); goto process_result; case PrintIdx: /* Allow command in INIT mode, because it may come from */ /* parameterized labels. No output will be generated. */ if (spice_state == SPICE_INIT) break; /* Do *not* allow this command to be sent while spice */ /* is running. */ else if (spice_state == SPICE_BUSY) if (break_spice(interp) < 0) return TCL_ERROR; if (objc == 2) break; /* Similar to "spice send {print ...}", but processes */ /* the output like "spice break" does to return just */ /* the result. However, if no index is provided for */ /* the variable, we determine the timestep and set the */ /* index accordingly. */ msg = Tcl_GetString(objv[2]); if (strchr(msg, '[') != NULL) sprintf(_STR2, "print %s", msg); else { float refval; char *stepstr; send_to_spice("print length(TIME)"); stepstr = recv_from_spice(interp, EXPECT_PROMPT); if (stepstr && ((eptr = strrchr(stepstr, '=')) != NULL)) { eptr++; while (isspace(*eptr)) eptr++; if (sscanf(eptr, "%g", &refval) == 1) sprintf(_STR2, "print %s[%d]", msg, (int)(refval - 1)); else sprintf(_STR2, "print %s", msg); } else sprintf(_STR2, "print %s", msg); } send_to_spice(_STR2); process_result: msg = recv_from_spice(interp, EXPECT_PROMPT); /* Grab the output */ if (msg && ((eptr = strrchr(msg, '=')) != NULL)) { eptr++; while (isspace(*eptr)) eptr++; Tcl_SetResult(interp, eptr, TCL_STATIC); } else if (*msg == '\0') return TCL_ERROR; break; case ResumeIdx: if (spice_state != SPICE_READY) { Tcl_SetResult(interp, "Spice process busy or nonexistant", NULL); return TCL_ERROR; } resume_spice(); break; case StatusIdx: switch(spice_state) { case SPICE_INIT: Tcl_SetResult(interp, "init", NULL); break; case SPICE_BUSY: Tcl_SetResult(interp, "busy", NULL); break; case SPICE_READY: Tcl_SetResult(interp, "ready", NULL); break; } break; case ExitIdx: exit_spice(); break; } return XcTagCallback(interp, objc, objv); } #endif /* TCL_WRAPPER */ /*----------------------------------------------------------------------*/ xcircuit-3.9.73/help.c0000664000175000001440000004026112775245313013271 0ustar timusers/*----------------------------------------------------------------------*/ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/ /* Spun off from xcircuit.c 10/4/98 */ /* Functionality will not be expanded in the Xt version. All new */ /* capabilities will be developed in the TCL version of help. */ /*----------------------------------------------------------------------*/ #include #include #include #ifndef XC_WIN32 #include #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #include "Xw/Form.h" #include "Xw/WorkSpace.h" #include "Xw/MenuBtn.h" #endif #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "colordefs.h" #include "xcircuit.h" #include "menudep.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* Global Variable definitions */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #endif #ifndef TCL_WRAPPER extern Display *dpy; extern GC hgc; extern XCWindowData *areawin; extern ApplicationData appdata; extern xcWidget top; extern colorindex *colorlist; extern short popups; extern xcWidget menuwidgets[]; extern char *function_names[NUM_FUNCTIONS]; Pixmap helppix = (Pixmap)NULL; /* For help window */ Dimension helpwidth, helpheight, hheight; int helptop; short help_up; /*-----------------------------------------*/ /* Print help list into a pixmap */ /* Return width and height of map through */ /* global variables helpwidth, helpheight. */ /*-----------------------------------------*/ typedef struct { int function; char *text; } helpstruct; void printhelppix() { static char *helptitle = "Macro Key Binding Summary:"; static helpstruct helptext[] = { { XCF_Finish, "Finish"}, { XCF_Cancel, "Cancel"}, { XCF_Zoom_In, "Zoom in 3/2"}, { XCF_Zoom_Out, "Zoom out 3/2"}, { XCF_Pan, "Pan (various modes)"}, { XCF_Double_Snap, "Double snap-to spacing"}, { XCF_Halve_Snap, "Halve snap-to spacing"}, { XCF_Next_Library, "Go To Next Library"}, { XCF_Library_Pop, "Return from Library"}, { XCF_Push, "Push object"}, { XCF_Pop, "Pop object"}, { XCF_Redraw, "Refresh screen"}, { XCF_Page, "Go To Page"}, { XCF_Write, "Popup Output dialog"}, #ifdef HAVE_PYTHON { XCF_Prompt, "Python Command entry"}, #else { XCF_Prompt, "Command entry"}, #endif { XCF_Exit, "Quit XCircuit"}, { XCF_SPACER, NULL}, { XCF_Wire, "Begin Polygon"}, { XCF_Box, "Begin Box"}, { XCF_Arc, "Begin Arc"}, { XCF_Text, "Begin Text"}, { XCF_Spline, "Begin Spline"}, { XCF_Select_Save, "Make object"}, { XCF_Virtual, "Make library instance"}, { XCF_Join, "Join elements (make path)"}, { XCF_Unjoin, "Un-join elements"}, { XCF_Dot, "Place a dot"}, { XCF_SPACER, NULL}, { XCF_Delete, "Delete"}, { XCF_Undo, "Undo"}, { XCF_Redo, "Redo"}, { XCF_Select, "Select"}, { XCF_Unselect, "Deselect"}, { XCF_Copy, "Copy"}, { XCF_Edit, "Edit"}, { XCF_SPACER, NULL}, { XCF_Rotate, "Rotate"}, { XCF_Flip_X, "Flip horizontally"}, { XCF_Flip_Y, "Flip vertically"}, { XCF_Snap, "Snap to grid"}, { XCF_Attach, "Attach to"}, { XCF_Dashed, "Dashed line style"}, { XCF_Dotted, "Dotted line style"}, { XCF_Solid, "Solid line style"}, { XCF_SPACER, NULL}, { XCF_Anchor, "Text Anchoring"}, { XCF_Superscript, "Text Superscript"}, { XCF_Subscript, "Text Subscript"}, { XCF_Font, "Toggle text font"}, { XCF_Boldfont, "Begin Bold text"}, { XCF_Italicfont, "Begin Italic text"}, { XCF_Normalfont, "Resume normal text"}, { XCF_ISO_Encoding, "Begin Latin-1 encoding"}, { XCF_Overline, "Begin text overline"}, { XCF_Underline, "Begin text underline"}, { XCF_Parameter, "Insert parameter"}, { XCF_Halfspace, "Insert half-space"}, { XCF_Quarterspace, "Insert quarter-space"}, { XCF_Linebreak, "Insert return character"}, { XCF_Special, "Insert special character"}, { XCF_TabStop, "Set tab stop"}, { XCF_TabForward, "Forward tab"}, { XCF_TabBackward, "Backward tab"}, { XCF_Text_Home, "Go to label beginning"}, { XCF_Text_End, "Go to label end"}, { XCF_Text_Left, "Move left one position"}, { XCF_Text_Right, "Move right one position"}, { XCF_Text_Up, "Move up one line"}, { XCF_Text_Down, "Move down one line"}, { XCF_Text_Delete, "Delete character(s)"}, { XCF_Text_Delete_Param, "Delete parameter from text"}, { XCF_Text_Return, "End text edit"}, { XCF_Text_Split, "Split label at cursor"}, { XCF_SPACER, NULL}, { XCF_Edit_Next, "Edit: next position"}, { XCF_Edit_Delete, "Edit: delete point"}, { XCF_Edit_Insert, "Edit: insert point"}, { XCF_Edit_Param, "Edit: insert parameter"}, { XCF_SPACER, NULL}, { XCF_Library_Edit, "Library: name edit"}, { XCF_Library_Move, "Library: move object/page"}, { XCF_Library_Delete, "Library: object delete"}, { XCF_Library_Hide, "Library: hide object"}, { XCF_Library_Duplicate, "Library: copy object"}, { XCF_Library_Virtual, "Library: copy instance"}, { XCF_SPACER, NULL}, { XCF_Pin_Label, "Make Pin Label"}, { XCF_Pin_Global, "Make Global Pin"}, { XCF_Info_Label, "Make Info Label"}, { XCF_Swap, "Go to Symbol or Schematic"}, { XCF_Connectivity, "See net connectivity"}, { XCF_Sim, "Generate Sim netlist"}, { XCF_SPICE, "Generate SPICE netlist"}, { XCF_SPICEflat, "Generate flattened SPICE"}, { XCF_PCB, "Generate PCB netlist"}, { XCF_ENDDATA, NULL}, }; XGCValues values; Window hwin = DefaultRootWindow(dpy); Dimension htmp, vtmp, lineheight, mwidth; int i, j, t1, t2, dum, numlines; XCharStruct csdum; char *bindings, *bptr, *cptr; if (hwin == 0) return; /* Set up the GC for drawing to the help window pixmap */ if (hgc == NULL) { values.foreground = colorlist[FOREGROUND].color.pixel; values.background = colorlist[BACKGROUND].color.pixel; values.graphics_exposures = False; values.font = appdata.helpfont->fid; hgc = XCreateGC(dpy, hwin, GCForeground | GCBackground | GCFont | GCGraphicsExposures, &values); } /* Determine the dimensions of the help text */ mwidth = helpwidth = lineheight = numlines = 0; for (i = 0; helptext[i].function != XCF_ENDDATA; i++) { if (helptext[i].function == XCF_SPACER) { numlines++; continue; } htmp = XTextWidth(appdata.helpfont, helptext[i].text, strlen(helptext[i].text)); if (htmp > mwidth) mwidth = htmp; XTextExtents(appdata.helpfont, helptext[i].text, strlen(helptext[i].text), &dum, &t1, &t2, &csdum); vtmp = t1 + t2 + 5; if (vtmp > lineheight) lineheight = vtmp; bindings = function_binding_to_string(0, helptext[i].function); /* Limit list to three key bindings per line */ bptr = bindings; while (bptr != NULL) { cptr = bptr; for (j = 0; j < 3; j++) { cptr = strchr(cptr + 1, ','); if (cptr == NULL) break; } if (cptr != NULL) *(++cptr) = '\0'; htmp = XTextWidth(appdata.helpfont, bptr, strlen(bptr)); if (htmp > helpwidth) helpwidth = htmp; XTextExtents(appdata.helpfont, bptr, strlen(bptr), &dum, &t1, &t2, &csdum); vtmp = t1 + t2 + 5; if (vtmp > lineheight) lineheight = vtmp; numlines++; if (cptr == NULL) break; bptr = cptr + 1; } free(bindings); } XTextExtents(appdata.helpfont, helptitle, strlen(helptitle), &dum, &t1, &t2, &csdum); t1 += t2; helpwidth += mwidth + 15; helpheight = lineheight * numlines + 15 + t1; /* full height of help text */ if (helppix != (Pixmap)NULL) { Wprintf("Error: Help window not cancelled?"); return; } helppix = XCreatePixmap(dpy, hwin, helpwidth, helpheight, DefaultDepthOfScreen(DefaultScreenOfDisplay(dpy))); XSetForeground(dpy, hgc, colorlist[FOREGROUND].color.pixel); XFillRectangle(dpy, helppix, hgc, 0, 0, helpwidth, helpheight); XSetForeground(dpy, hgc, colorlist[BACKGROUND].color.pixel); XDrawString(dpy, helppix, hgc, (helpwidth - XTextWidth(appdata.helpfont, helptitle, strlen(helptitle))) >> 1, t1 + 2, helptitle, strlen(helptitle)); vtmp = lineheight + 15; for (i = 0; helptext[i].function != XCF_ENDDATA; i++) { if (helptext[i].function == XCF_SPACER) { vtmp += lineheight; continue; } XDrawString(dpy, helppix, hgc, 7, vtmp, helptext[i].text, strlen(helptext[i].text)); bindings = function_binding_to_string(0, helptext[i].function); bptr = bindings; while (bptr != NULL) { cptr = bptr; for (j = 0; j < 3; j++) { cptr = strchr(cptr + 1, ','); if (cptr == NULL) break; } if (cptr != NULL) *(++cptr) = '\0'; XDrawString(dpy, helppix, hgc, 7 + mwidth, vtmp, bptr, strlen(bptr)); vtmp += lineheight; if (cptr == NULL) break; bptr = cptr + 1; } free(bindings); } XSetForeground(dpy, hgc, colorlist[AUXCOLOR].color.pixel); XDrawLine(dpy, helppix, hgc, 0, t1 + 7, helpwidth, t1 + 7); } /*----------------------------------------------*/ /* Create the help popup window (Xt version) */ /*----------------------------------------------*/ #ifndef XC_WIN32 void starthelp(xcWidget button, caddr_t clientdata, caddr_t calldata) { Arg wargs[11]; xcWidget popup, cancelbutton, hspace, help2, hsb; short n = 0; popupstruct *okaystruct; buttonsave *savebutton; Dimension areawidth, bwidth, pheight; Position xpos, ypos; u_int xmax, ymax; if (help_up) return; /* no multiple help windows */ /* for positioning the help window outside of the xcircuit */ /* window, get information about the display width and height */ /* and the xcircuit window. */ /* The "- 50" leaves space for the Windows-95-type title bar that */ /* runs across the bottom of the screen in some window managers */ /* (specifically, fvwm95 which is the default for RedHat Linux) */ xmax = DisplayWidth(dpy, DefaultScreen(dpy)) - 100; ymax = DisplayHeight(dpy, DefaultScreen(dpy)) - 50; XtnSetArg(XtNwidth, &areawidth); XtGetValues(areawin->area, wargs, n); n = 0; XtTranslateCoords(areawin->area, (Position) (areawidth + 10), -50, &xpos, &ypos); /* Always direct the call to the main menu button. */ button = OptionsHelpButton; savebutton = getgeneric(button, starthelp, NULL); /* Generate the pixmap and write the help text to it */ if (helppix == (Pixmap)NULL) printhelppix(); /* Use the pixmap size to size the help window */ if (xpos + helpwidth + SBARSIZE > xmax) xpos = xmax - helpwidth - SBARSIZE - 4; if (ypos + helpheight > ymax) ypos = ymax - helpheight - 4; if (ypos < 4) ypos = 4; XtnSetArg(XtNx, xpos); XtnSetArg(XtNy, ypos); popup = XtCreatePopupShell("help", transientShellWidgetClass, button, wargs, n); n = 0; popups++; help_up = True; helptop = 0; XtnSetArg(XtNyResizable, True); XtnSetArg(XtNxResizable, False); help2 = XtCreateManagedWidget("help2", XwformWidgetClass, popup, wargs, n); n = 0; XtnSetArg(XtNfont, appdata.xcfont); cancelbutton = XtCreateManagedWidget("Dismiss", XwmenuButtonWidgetClass, help2, wargs, n); n = 0; XtnSetArg(XtNwidth, helpwidth); XtnSetArg(XtNheight, areawin->height); XtnSetArg(XtNyRefWidget, cancelbutton); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyAttachBottom, True); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNxAttachRight, False); hspace = XtCreateManagedWidget("HSpace", XwworkSpaceWidgetClass, help2, wargs, n); n = 0; /* Create scrollbar */ XtnSetArg(XtNwidth, SBARSIZE); XtnSetArg(XtNxRefWidget, hspace); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNyRefWidget, cancelbutton); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNyAttachBottom, True); XtnSetArg(XtNborderWidth, 1); hsb = XtCreateManagedWidget("HSB", XwworkSpaceWidgetClass, help2, wargs, n); n = 0; okaystruct = (popupstruct *) malloc(sizeof(popupstruct)); okaystruct->buttonptr = savebutton; okaystruct->popup = popup; okaystruct->filter = NULL; XtPopup(popup, XtGrabNone); /* reposition the "Dismiss" button to center */ XtSetArg(wargs[0], XtNwidth, &bwidth); XtGetValues(cancelbutton, wargs, 1); XtnSetArg(XtNx, ((helpwidth - bwidth) >> 1)); XtSetValues(cancelbutton, wargs, n); n = 0; XtSetArg(wargs[0], XtNheight, &pheight); XtGetValues(help2, wargs, 1); if (pheight > (ymax - 8)) { XtnSetArg(XtNheight, ymax - 8); XtSetValues(help2, wargs, n); n = 0; } XtAddEventHandler(hsb, ButtonMotionMask | ButtonPressMask, False, (XtEventHandler)simplescroll, hspace); /* Expose and End callbacks */ XtAddCallback(cancelbutton, XtNselect, (XtCallbackProc)destroypopup, okaystruct); XtAddCallback(hspace, XtNexpose, (XtCallbackProc)exposehelp, NULL); XtAddCallback(hsb, XtNexpose, (XtCallbackProc)showhsb, NULL); } /*----------------------------------------------*/ /* Very simple scroll mechanism (grab-and-pan) */ /*----------------------------------------------*/ void simplescroll(xcWidget hsb, xcWidget hspace, XMotionEvent *event) { Dimension oldtop = helptop; helptop = (((int)(event->y) * helpheight) / hheight) - (hheight / 2); if (helptop < 0) helptop = 0; else if (helptop > helpheight - hheight) helptop = helpheight - hheight; if (helptop != oldtop) { showhsb(hsb, NULL, NULL); printhelp(hspace); } } /*----------------------------------------------*/ /* Expose callback for the help scrollbar */ /*----------------------------------------------*/ void showhsb(xcWidget hsb, caddr_t clientdata, caddr_t calldata) { Window hwin = xcWindow(hsb); Dimension sheight; int pstart, pheight; short n = 0; if (helppix == (Pixmap)NULL) printhelppix(); if (helpheight == 0) helpheight = 1; pstart = (helptop * hheight) / helpheight; pheight = (hheight * hheight) / helpheight; if (pheight < 3) pheight = 3; XClearArea(dpy, hwin, 0, 0, SBARSIZE, pstart, False); XClearArea(dpy, hwin, 0, pstart + pheight, SBARSIZE, hheight - (pstart + pheight), False); XSetForeground(dpy, hgc, colorlist[BARCOLOR].color.pixel); XFillRectangle(dpy, hwin, hgc, 0, pstart, SBARSIZE, pheight); } /*----------------------------------------------*/ /* Expose callback for the help window */ /*----------------------------------------------*/ void exposehelp(xcWidget hspace, caddr_t clientdata, caddr_t calldata) { Arg wargs[1]; XtSetArg(wargs[0], XtNheight, &hheight); XtGetValues(hspace, wargs, 1); if (helppix == (Pixmap)NULL) printhelppix(); if (hheight < 1) hheight = 1; printhelp(hspace); } /*----------------------------------------------*/ /* Expose callback for the help window */ /*----------------------------------------------*/ void printhelp(xcWidget hspace) { Window hwin = xcWindow(hspace); XEvent discard; /* Draw the pixmap to the window */ XCopyArea(dpy, helppix, hwin, hgc, 0, helptop - 5, helpwidth, helpheight, 0, 0); /* flush out multiple expose events */ while (XCheckWindowEvent(dpy, hwin, ExposureMask, &discard) == True); } #endif /*----------------------------------------------------------------------*/ /* The TCL version assumes the existence of command "helpwindow". */ /*----------------------------------------------------------------------*/ #else void starthelp(xcWidget button, caddr_t clientdata, caddr_t calldata) { Tcl_Eval(xcinterp, "catch xcircuit::helpwindow"); } #endif /* !TCL_WRAPPER */ xcircuit-3.9.73/colordefs.h0000664000175000001440000000271112337444526014325 0ustar timusers/*-------------------------------------------------------------------------*/ /* colordefs.h */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* Add colors here as needed. */ /* Reflect all changes in the resource manager, xcircuit.c */ /* And ApplicationDataPtr in xcircuit.h */ /*-------------------------------------------------------------------------*/ #define NUMBER_OF_COLORS 17 #define BACKGROUND 0 #define FOREGROUND 1 #define SELECTCOLOR 2 #define FILTERCOLOR 3 #define GRIDCOLOR 4 #define SNAPCOLOR 5 #define AXESCOLOR 6 #define OFFBUTTONCOLOR 7 #define AUXCOLOR 8 #define BARCOLOR 9 #define PARAMCOLOR 10 /* The rest of the colors are layout colors, not GUI colors */ #define BBOXCOLOR 11 #define LOCALPINCOLOR 12 #define GLOBALPINCOLOR 13 #define INFOLABELCOLOR 14 #define RATSNESTCOLOR 15 #define CLIPMASKCOLOR 16 #define DEFAULTCOLOR -1 /* Inherits color of parent */ #define DOFORALL -2 /* All elements inherit same color */ #define DOSUBSTRING -3 /* Only selected substring drawn */ /* in the SELECTCOLOR */ #define BADCOLOR -1 /* When returned from query_named_color */ #define ERRORCOLOR -2 /* When returned from query_named_color */ /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/Makefile.am0000664000175000001440000002460213066774071014234 0ustar timusers## Process this file with automake to produce Makefile.in AUTOMAKE_OPTIONS = foreign no-dependencies no-dist AM_CFLAGS = $(cairo_CFLAGS) $(fontconfig_CFLAGS) ${GS_CFLAGS} LIBS += $(cairo_LIBS) $(fontconfig_LIBS) ${GS_LIBS} # Additional files to distribute EXTRA_DIST = COPYRIGHT README README.ISOLatin2 README.notes SUBDIRS = @SUBDIRS@ VERSION = @VERSION@ REVISION = @REVISION@ FULL_VERSION = @VERSION@.@REVISION@ # Override standard "make" target when compiling under TCL ALL_TARGET = @ALL_TARGET@ INSTALL_TARGET = @INSTALL_TARGET@ # Menudep program generates menudep.h needed by some of the # source files for Xcircuit noinst_PROGRAMS = menudep$(EXEEXT) # Automake files ac_aux_dir = dist # Requirements for Xcircuit bin_PROGRAMS = xcircuit # Temporary directory (if not overridden by environment variable TMPDIR) tmpdir = /tmp # Directories for app-defaults file and manual page appdefaultsdir = $(libdir)/$(PACKAGE)-$(VERSION)/app-defaults appmandir = $(libdir)/$(PACKAGE)-$(VERSION)/man PATHNAMES = -DPROG_VERSION=$(VERSION) \ -DPROG_REVISION=$(REVISION) \ -DCAD_DIR=\"$(libdir)\" \ -DTEMP_DIR=\"$(tmpdir)\" \ -DRESOURCES_DIR=\"$(appdefaultsdir)\" \ -DSCRIPTS_DIR=\"$(scriptsdir)\" \ -DBUILTINS_DIR=\"$(librarydir)\" \ -DBUILTINS_FILE=\"$(BUILTINS_FILE)\" \ -DUSER_RC_FILE=\"$(USER_RC_FILE)\" \ -DPROLOGUE_DIR=\"$(librarydir)\" \ -DPROLOGUE_FILE=\"$(PROLOGUE_FILE)\" \ -DCYRILLIC_ENC_FILE=\"$(CYRILLIC_ENC_FILE)\" \ -DISOLATIN2_ENC_FILE=\"$(ISOLATIN2_ENC_FILE)\" \ -DISOLATIN5_ENC_FILE=\"$(ISOLATIN5_ENC_FILE)\" \ -DSTARTUP_FILE=\"$(STARTUP_FILE)\" \ -DLGF_LIB=\"$(LGF_LIB)\" \ -DASG_SPICE_LIB=\"$(ASG_SPICE_LIB)\" xcircuit_SOURCES = elements.c events.c filelist.c files.c \ flate.c fontfile.c formats.c functions.c graphic.c \ help.c keybindings.c libraries.c menucalls.c \ netlist.c ngspice.c parameter.c python.c \ rcfile.c render.c schema.c selection.c svg.c text.c undo.c \ tclxcircuit.c tkSimple.c xcircuit.c xtfuncs.c xtgui.c \ cairo.c utf8encodings.c cairo.$(OBJEXT) : CFLAGS += -pedantic -Wall -Wextra elements.$(OBJEXT) : CFLAGS += -pedantic -Wall -Wextra events.$(OBJEXT) : CFLAGS += -pedantic -Wall -Wextra fontfile.$(OBJEXT) : CFLAGS += -pedantic -Wall -Wextra text.$(OBJEXT) : CFLAGS += -pedantic -Wall -Wextra utf8encodings.$(OBJEXT) : CFLAGS += -pedantic -Wall -Wextra xcircuit_DEPEND = @SUBLIB@ xcircuit_LDADD = @SUBLIB@ @STDLIBS@ help.c: menudep.h menucalls.c: menudep.h rcfile.c: menudep.h schema.c: menudep.h xcircuit.c: menudep.h parameter.c: menudep.h python.c: menudep.h tclxcircuit.c: menudep.h xtgui.c: menudep.h xtfuncs.c: menudep.h # Man page M4_DEFS = @M4_DEFS@ @DEFS@ man_MANS = lib/xcircuit.1 # Main compiler arguments DEFS = @DEFS@ $(PATHNAMES) INCLUDES = -IXw ${INC_SPECS} SHDLIB_EXT = @SHDLIB_EXT@ LDDL_FLAGS = @LDDL_FLAGS@ LDFLAGS = @LDFLAGS@ EXTRA_LIB_SPECS = @EXTRA_LIB_SPECS@ TCL_LIB_DIR = @TCL_LIB_DIR@ WISH_EXE = @WISH_EXE@ INTERPRETER = @INTERPRETER@ # Library directory and files librarydir = $(libdir)/$(PACKAGE)-$(VERSION) scriptsdir = $(libdir)/$(PACKAGE)-$(VERSION) USER_RC_FILE = .xcircuitrc PROLOGUE_FILE = xcircps2.pro CYRILLIC_ENC_FILE = cyrillic.enc ISOLATIN2_ENC_FILE = isolatin2.enc ISOLATIN5_ENC_FILE = isolatin5.enc ENCODING_FILES = ${CYRILLIC_ENC_FILE} ${ISOLATIN2_ENC_FILE} ${ISOLATIN5_ENC_FILE} LGF_LIB = lgf.lps ASG_SPICE_LIB = asg_spice.lps SIGNAL_LIB = signal.lps MUSIC_LIB = musiclib.lps STARTUP_FILE = @STARTUP_FILE@ INTERP_PATH = @INTERP_PATH@ FONTS_LPS = courier courieriso2 courieriso5 helvetica helveticaiso2 \ helveticaiso5 myfont symbol times_roman times_romaniso2 \ times_romaniso5 FONTS_XFE = courier courieriso courieriso2 courieriso5 courier_cyrillic \ helvetica helveticaiso helveticaiso2 helveticaiso5 helvetica_cyrillic \ times_roman times_romaniso times_romaniso2 times_romaniso5 \ times_roman_cyrillic myfont symbol SCRIPTS_PY = spice gettext pagebbox WRAPPER_INIT = xcircuit.tcl WRAPPER_OBJ = xcircuit${SHDLIB_EXT} WRAPPER_SO = xcircuit.so WRAPPER_SH = xcircuit.sh CONSOLE = tkcon.tcl CONSOLE_SCRIPT = console.tcl menudep$(EXEEXT): menudep.o $(CC) -o $@ menudep.o menudep.h: menudep$(EXEEXT) ./menudep$(EXEEXT) xcwrap.o: xcwrap.c menudep.h $(CC) ${CPPFLAGS} ${CFLAGS} ${DEFS} \ $(PATHNAMES) $(INCLUDES) \ xcwrap.c -c -o xcwrap.o lib/$(INTERP_PATH)/$(WRAPPER_OBJ): xcwrap.o ${xcircuit_OBJECTS} ${xcircuit_DEPEND} $(RM) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) $(SHLIB_LD) ${CFLAGS} -o $@ ${LDDL_FLAGS} xcwrap.o \ ${xcircuit_OBJECTS} ${xcircuit_LDADD} ${SHLIB_LIB_SPECS} \ ${LDFLAGS} ${X_EXTRA_LIBS} ${EXTRA_LIBS} -lc ${LIBS} \ ${LIB_SPECS} ${EXTRA_LIB_SPECS} xcircexec$(EXEEXT): xcircexec.o $(RM) ./xcircexec$(EXEEXT) $(CC) ${CFLAGS} ${CPPFLAGS} ${DEFS} $(PATHNAMES) $(INCLUDES) \ xcircexec.c -o xcircexec$(EXEEXT) ${LIB_SPECS} \ ${LD_RUN_PATH} ${LDFLAGS} ${LIBS} ${EXTRA_LIB_SPECS} tcl: @echo Making tcl library object list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || (echo "Making tcl in $$subdir"; \ cd $$subdir && $(MAKE) $(AM_MAKEFLAGS)) \ done $(MAKE) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) $(MAKE) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(MAKE) lib/$(INTERP_PATH)/$(WRAPPER_INIT) $(MAKE) xcircexec$(EXEEXT) lib/$(INTERP_PATH)/$(WRAPPER_SH): lib/$(INTERP_PATH)/$(WRAPPER_SH).in sed -e '/XCLIBDIR/s#XCLIBDIR#$(librarydir)#' \ -e '/WRAPPER_INIT/s/WRAPPER_INIT/$(WRAPPER_INIT)/' \ -e '/CONSOLE_SCRIPT/s/CONSOLE_SCRIPT/$(CONSOLE_SCRIPT)/' \ -e '/CONSOLE/s/CONSOLE/$(CONSOLE)/' \ -e '/PROG_VERSION/s/PROG_VERSION/$(VERSION)/' \ -e '/PROG_REVISION/s/PROG_REVISION/$(REVISION)/' \ -e '/TCLLIBDIR/s#TCLLIBDIR#$(TCL_LIB_DIR)#' \ -e '/WISH_EXE/s#WISH_EXE#$(WISH_EXE)#' \ lib/$(INTERP_PATH)/$(WRAPPER_SH).in > $@ chmod 0755 $@ lib/$(INTERP_PATH)/$(WRAPPER_INIT): lib/$(INTERP_PATH)/$(WRAPPER_INIT).in sed -e '/LIBDIR/s#LIBDIR#$(librarydir)#' \ -e '/SCRIPTSDIR/s#SCRIPTSDIR#$(scriptsdir)#' \ lib/$(INTERP_PATH)/$(WRAPPER_INIT).in > $@ chmod 0755 $@ lib/xcircuit.1: lib/xcircuit.1.in sed -e '/LIBDIR/s#LIBDIR#$(libdir)#' \ -e "/^${HAVE_LGF}/s/^${HAVE_LGF} //" \ -e "/^${INTERPRETER}/s/^${INTERPRETER} //" \ -e '/^PYTHON /d' \ -e '/^TCL /d' \ -e '/^LGF /d' \ -e '/^NOINTERP /d' \ lib/xcircuit.1.in > $@ install-data-local: lib/xcircuit.1 @echo "Installing app-defaults file" $(mkinstalldirs) $(DESTDIR)$(appdefaultsdir) $(mkinstalldirs) $(DESTDIR)$(appmandir) $(INSTALL_DATA) lib/XCircuit.ad $(DESTDIR)$(appdefaultsdir)/XCircuit $(INSTALL_DATA) lib/xcircuit.1 $(DESTDIR)$(appmandir)/xcircuit.1 @echo "Installing library and netlist files" $(mkinstalldirs) $(DESTDIR)$(librarydir) ( cd lib ; for i in $(PROLOGUE_FILE) $(ENCODING_FILES) *.lps *.cir; do \ $(INSTALL_DATA) $$i $(DESTDIR)$(librarydir); \ done ) ( cd lib/$(INTERP_PATH) ; for i in $(STARTUP_FILE); do \ $(INSTALL_DATA) $$i $(DESTDIR)$(librarydir); \ done ) @echo "Installing .lps font files" $(mkinstalldirs) $(DESTDIR)$(librarydir)/fonts for i in $(FONTS_LPS); do \ $(INSTALL_DATA) lib/fonts/$$i.lps $(DESTDIR)$(librarydir)/fonts; \ done @echo "Installing .xfe font files" for i in $(FONTS_XFE); do \ $(INSTALL_DATA) lib/fonts/$$i.xfe $(DESTDIR)$(librarydir)/fonts; \ done @echo "Installing scripts (if option enabled)" if test "$(PYTHON)" != ""; then \ $(mkinstalldirs) $(DESTDIR)$(scriptsdir)/python; \ for i in $(SCRIPTS_PY); do \ $(INSTALL_DATA) lib/python/$$i.py \ $(DESTDIR)$(scriptsdir)/python; \ done; \ fi # Note that MacOS/Fink uses SHDLIB_EXT = .dylib but Tcl expects .so anyway. # So we make a symbolic link if SHDLIB_EXT != .so install-tcl: xcircexec$(EXEEXT) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) lib/$(INTERP_PATH)/$(WRAPPER_SH) lib/$(INTERP_PATH)/$(WRAPPER_INIT) @echo "Installing standard XCircuit library files" $(MAKE) $(AM_MAKEFLAGS) install-data-local @echo "Installing Tcl files" $(mkinstalldirs) $(DESTDIR)$(librarydir) $(mkinstalldirs) $(DESTDIR)$(scriptsdir) ( cd lib/$(INTERP_PATH) ; for i in $(WRAPPER_OBJ) *.tcl ; do \ $(INSTALL_DATA) $$i $(DESTDIR)$(scriptsdir); \ done ) $(INSTALL_DATA) xcircexec$(EXEEXT) $(DESTDIR)$(librarydir) chmod 0755 $(DESTDIR)$(librarydir)/$(CONSOLE) chmod 0755 $(DESTDIR)$(librarydir)/$(CONSOLE_SCRIPT) chmod 0755 $(DESTDIR)$(librarydir)/$(WRAPPER_OBJ) chmod 0755 $(DESTDIR)$(librarydir)/xcircexec$(EXEEXT) if test "${SHDLIB_EXT}" != ".so"; then \ ( cd $(DESTDIR)$(librarydir); \ $(RM) $(WRAPPER_SO) ; \ ln -s $(WRAPPER_OBJ) $(WRAPPER_SO) ) ; \ fi @echo "Installing GIF images" $(mkinstalldirs) $(DESTDIR)$(librarydir)/pixmaps ( cd lib/pixmaps ; for i in `ls *.gif *.xbm *.ico` ; do \ $(INSTALL_DATA) $$i $(DESTDIR)$(librarydir)/pixmaps; \ done ) @echo "Installing shell script as xcircuit executable" $(mkinstalldirs) $(DESTDIR)$(bindir) $(INSTALL_DATA) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(DESTDIR)$(bindir)/xcircuit chmod 0755 $(DESTDIR)$(bindir)/xcircuit clean: (cd ./Xw; $(RM) *.o *.a *.bak core) (cd ./asg; $(MAKE) clean) (cd ./spiceparser; $(MAKE) clean) $(RM) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(RM) lib/$(INTERP_PATH)/$(WRAPPER_INIT) $(RM) xcircuit *.o *.bak lib/xcircuit.1 core xcircexec$(EXEEXT) $(RM) menudep$(EXEEXT) menudep.h $(RM) config.cache config.log distclean: (cd ./Xw; $(RM) *.o *.a *.bak Makefile core) (cd ./asg; $(MAKE) clean ; $(RM) Makefile) (cd ./spiceparser; $(MAKE) clean ; $(RM) Makefile) $(RM) xcircuit *.o *.bak core $(RM) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(RM) menudep$(EXEEXT) menudep.h lib/xcircuit.1 xcircexec$(EXEEXT) $(RM) Makefile config.cache config.log config.status $(RM) xcircuit-$(FULL_VERSION) xcircuit.spec xcircuit-$(FULL_VERSION).tgz dist: $(RM) xcircuit.spec xcircuit-$(FULL_VERSION) xcircuit-$(FULL_VERSION).tgz sed -e /%VERSION%/s/%VERSION%/$(FULL_VERSION)/ \ xcircuit.spec.in > xcircuit.spec ln -nsf . xcircuit-$(FULL_VERSION) tar zchvf xcircuit-$(FULL_VERSION).tgz --exclude CVS \ --exclude xcircuit-$(FULL_VERSION)/xcircuit-$(FULL_VERSION) \ --exclude xcircuit-$(FULL_VERSION)/xcircuit-$(FULL_VERSION).tgz \ xcircuit-$(FULL_VERSION) quiteclean: (cd ./Xw; $(RM) *.o *.a *.bak Makefile.in Makefile core) (cd ./asg; $(MAKE) clean ; $(RM) Makefile.in Makefile) (cd ./spiceparser; $(MAKE) clean ; $(RM) Makefile.in Makefile) $(RM) xcircuit *.o *.bak core $(RM) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(RM) menudep$(EXEEXT) menudep.h lib/xcircuit.1 xcircexec$(EXEEXT) $(RM) install-sh missing mkinstalldirs Makefile.in Makefile $(RM) config.* aclocal.m4 $(ALL_TARGET): $(MAKE) tcl $(INSTALL_TARGET): $(MAKE) install-tcl xcircuit-3.9.73/xtgui.c0000664000175000001440000021117113067303440013470 0ustar timusers/*----------------------------------------------------------------------*/ /* xtgui.c --- */ /* XCircuit's graphical user interface using the Xw widget set */ /* (see directory Xw) (non-Tcl/Tk GUI) */ /* Copyright (c) 2002 R. Timothy Edwards */ /*----------------------------------------------------------------------*/ #ifndef TCL_WRAPPER #include #include #include #include #include #include #include #include #include #include #ifndef XC_WIN32 #include /* for unlink() */ #include #include #include #include #include #include #include #include "Xw/Xw.h" #include "Xw/Form.h" #include "Xw/WorkSpace.h" #include "Xw/PButton.h" #include "Xw/SText.h" #include "Xw/Cascade.h" #include "Xw/PopupMgr.h" #include "Xw/MenuBtn.h" #include "Xw/BBoard.h" #include "Xw/TextEdit.h" #include "Xw/Toggle.h" #endif #ifdef HAVE_CAIRO #include #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "xcircuit.h" #include "cursors.h" #include "colordefs.h" #include "menudep.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" #ifdef HAVE_XPM #ifndef XC_WIN32 #include #endif #include "lib/pixmaps/xcircuit.xpm" #endif /*----------------------------------------------------------------------*/ /* Global Variable definitions */ /*----------------------------------------------------------------------*/ extern short popups; /* total number of popup widgets on the screen */ extern int pressmode; /* Whether we are in a press & hold state */ xcWidget top; xcWidget message1, message2, message3, toolbar, overlay = NULL; xcWidget menuwidgets[MaxMenuWidgets]; xcWidget wschema, wsymb, netbutton; XtAppContext app; Atom wprot, wmprop[2]; extern char _STR2[250]; /* Specifically for text returned from the popup prompt */ extern char _STR[150]; /* Generic multipurpose string */ extern Display *dpy; extern Colormap cmap; extern Pixmap STIPPLE[STIPPLES]; extern Cursor appcursors[NUM_CURSORS]; extern ApplicationData appdata; extern XCWindowData *areawin; extern Globaldata xobjs; extern int number_colors; extern colorindex *colorlist; extern short menusize; extern xcIntervalId printtime_id; extern short beeper; extern short fontcount; extern fontinfo *fonts; extern short help_up; extern menustruct TopButtons[]; #ifdef HAVE_XPM extern toolbarstruct ToolBar[]; extern short toolbuttons; #endif extern short maxbuttons; extern Pixmap helppix; extern aliasptr aliastop; extern float version; static char STIPDATA[STIPPLES][4] = { "\000\004\000\001", "\000\005\000\012", "\001\012\005\010", "\005\012\005\012", "\016\005\012\007", "\017\012\017\005", "\017\012\017\016", "\000\000\000\000" }; extern Pixmap dbuf; /* Bad hack for problems with the DECstation. . . don't know why */ #ifdef UniqueContextProblem #undef XUniqueContext XContext XUniqueContext() { return XrmUniqueQuark(); } #endif /* End of bad hack. . . */ /*----------------------------------------------------------------------*/ /* Initial Resource Management */ /*----------------------------------------------------------------------*/ #ifndef XC_WIN32 static XtResource resources[] = { /* schematic layout colors */ { "globalpincolor", "GlobalPinColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, globalcolor), XtRString, "Orange2"}, { "localpincolor", "LocalPinColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, localcolor), XtRString, "Red"}, { "infolabelcolor", "InfoLabelColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, infocolor), XtRString, "SeaGreen"}, { "ratsnestcolor", "RatsNestColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, ratsnestcolor), XtRString, "Tan4"}, /* non-schematic layout colors */ { "bboxcolor", "BBoxColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, bboxpix), XtRString, "greenyellow"}, { "clipcolor", "ClipColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, clipcolor), XtRString, "powderblue"}, /* GUI Color scheme 1 */ { XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, fg), XtRString, "Black"}, { XtNbackground, XtCBackground, XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, bg), XtRString, "White"}, { "gridcolor", "GridColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, gridpix), XtRString, "Gray95"}, { "snapcolor", "SnapColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, snappix), XtRString, "Red"}, { "selectcolor", "SelectColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, selectpix), XtRString, "Gold3"}, { "filtercolor", "FilterColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, filterpix), XtRString, "SteelBlue3"}, { "axescolor", "AxesColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, axespix), XtRString, "Antique White"}, { "offbuttoncolor", "OffButtonColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, buttonpix), XtRString, "Gray85"}, { "auxiliarycolor", "AuxiliaryColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, auxpix), XtRString, "Green3"}, { "barcolor", "BarColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, barpix), XtRString, "Tan"}, { "paramcolor", "ParamColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, parampix), XtRString, "Plum3"}, /* GUI Color scheme 2 */ { "foreground2", XtCForeground, XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, fg2), XtRString, "White"}, { "background2", XtCBackground, XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, bg2), XtRString, "DarkSlateGray"}, { "gridcolor2", "GridColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, gridpix2), XtRString, "Gray40"}, { "snapcolor2", "SnapColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, snappix2), XtRString, "Red"}, { "selectcolor2", "SelectColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, selectpix2), XtRString, "Gold"}, { "axescolor2", "AxesColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, axespix2), XtRString, "NavajoWhite4"}, { "offbuttoncolor2", "OffButtonColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, buttonpix2), XtRString, "Gray50"}, { "auxiliarycolor2", "AuxiliaryColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, auxpix2), XtRString, "Green"}, { "paramcolor2", "ParamColor", XtRPixel, sizeof(Pixel), XtOffset(ApplicationDataPtr, parampix2), XtRString, "Plum3"}, /* Other XDefaults-set properties */ { XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(ApplicationDataPtr, xcfont), XtRString, "-*-times-bold-r-normal--14-*"}, { "helpfont", XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(ApplicationDataPtr, helpfont), XtRString, "-*-helvetica-medium-r-normal--10-*"}, { "filelistfont", XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(ApplicationDataPtr, filefont), XtRString, "-*-helvetica-medium-r-normal--14-*"}, { "textfont", XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(ApplicationDataPtr, textfont), XtRString, "-*-courier-medium-r-normal--14-*"}, { "titlefont", XtCFont, XtRFontStruct, sizeof(XFontStruct *), XtOffset(ApplicationDataPtr, titlefont), XtRString, "-*-times-bold-i-normal--14-*"}, { XtNwidth, XtCWidth, XtRInt, sizeof(int), XtOffset(ApplicationDataPtr, width), XtRString, "950"}, { XtNheight, XtCHeight, XtRInt, sizeof(int), XtOffset(ApplicationDataPtr, height), XtRString, "760"}, { "timeout", "TimeOut", XtRInt, sizeof(int), XtOffset(ApplicationDataPtr, timeout), XtRString, "10"} }; #endif /*----------------------------------------------------------------------*/ /* Add a new color button to the color menu */ /* called if new color button needs to be made */ /*----------------------------------------------------------------------*/ int addnewcolorentry(int ccolor) { xcWidget colormenu, newbutton; Arg wargs[2]; int i, n = 0; /* check to see if entry is already in the color list */ for (i = NUMBER_OF_COLORS; i < number_colors; i++) if (colorlist[i].color.pixel == ccolor) break; /* make new entry in the menu */ if (i == number_colors) { colormenu = xcParent(ColorAddNewColorButton); XtnSetArg(XtNlabelType, XwRECT); XtnSetArg(XtNrectColor, ccolor); newbutton = XtCreateWidget("NewColor", XwmenubuttonWidgetClass, colormenu, wargs, n); XtAddCallback (newbutton, XtNselect, (XtCallbackProc)setcolor, NULL); XtManageChild(newbutton); addtocolorlist(newbutton, ccolor); } return i; } /*----------------------------------------------------------------------*/ /* This recursive function looks down the button menu hierarchy and */ /* creates the necessary buttons and submenus. */ /* Menu entries are marked if the corresponding "size" entry in the */ /* menu structure is > 0. */ /*----------------------------------------------------------------------*/ void makesubmenu(char *menuname, char *attachname, menuptr buttonmenu, int arraysize, xcWidget manager) { short i, n = 0; int cval; xcWidget popupshell, cascade; Arg wargs[6]; menuptr p; char popupname[30]; sprintf(popupname, "popup%s", menuname); popupshell = XtCreatePopupShell (popupname, transientShellWidgetClass, manager, NULL, 0); XtnSetArg(XtNattachTo, attachname); XtnSetArg(XtNfont, appdata.titlefont); cascade = XtCreateManagedWidget (menuname, XwcascadeWidgetClass, popupshell, wargs, n); for (p = buttonmenu, i = 0; p < buttonmenu + arraysize; p++, i++) { n = 0; if (p->size > 0 && p->submenu == NULL) { /* This denotes a marked entry */ XtnSetArg(XtNsetMark, True); } XtnSetArg(XtNfont, appdata.xcfont); if (p->submenu != NULL) { xcWidget newbutton = XtCreateWidget(p->name, XwmenubuttonWidgetClass, cascade, wargs, n); makesubmenu(p->name, p->name, p->submenu, p->size, manager); XtManageChild (newbutton); } else if (p->name[0] == ' ') { /* This is a separator, made from a PushButton widget */ xcWidget newbutton = XtCreateWidget(p->name, XwmenuButtonWidgetClass, cascade, wargs, n); n = 0; XtManageChild (newbutton); XtnSetArg(XtNheight, 5); XtnSetArg(XtNsensitive, False); XtSetValues(newbutton, wargs, n); } else { if (p->name[0] == '_') { /* Color button */ cval = xc_alloccolor(p->name + 1); XtnSetArg(XtNlabelType, XwRECT); XtnSetArg(XtNrectColor, cval); } else if (p->name[0] == ':') { /* Stipple button */ XtnSetArg(XtNlabelType, XwRECT); if (((pointertype)(p->passeddata) == (OPAQUE | FILLED | FILLSOLID))) { XtnSetArg(XtNrectColor, BlackPixel(dpy,DefaultScreen(dpy))); } else { XtnSetArg(XtNrectStipple, STIPPLE[((pointertype)(p->passeddata) & FILLSOLID) >> 5]); } } menuwidgets[++menusize] = XtCreateWidget(p->name, XwmenubuttonWidgetClass, cascade, wargs, n); XtAddCallback (menuwidgets[menusize], XtNselect, (XtCallbackProc)p->func, p->passeddata); if (p->name[0] == '_') { /* For color buttons, maintain a list of Widgets and color values */ addtocolorlist(menuwidgets[menusize], cval); } XtManageChild (menuwidgets[menusize]); } } } #ifdef HAVE_XPM /*----------------------------------------------------------------------*/ /* Toolbar Creator */ /*----------------------------------------------------------------------*/ #ifndef XC_WIN32 void createtoolbar (xcWidget abform, Widget aform) { int i, n = 0; Arg wargs[12]; XImage *iret; XpmAttributes attr; XtnSetArg(XtNxRefWidget, aform); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNxAttachRight, True); XtnSetArg(XtNyAttachBottom, True); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNxOffset, 2); XtnSetArg(XtNyOffset, 2); XtnSetArg(XtNxResizable, False); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNlayout, XwIGNORE); toolbar = XtCreateManagedWidget("ToolBar", XwbulletinWidgetClass, abform, wargs, n); n = 0; /* Fix for limited-color capability video. Thanks to */ /* Frankie Liu */ attr.valuemask = XpmSize | XpmCloseness; attr.closeness = 65536; for (i = 0; i < toolbuttons; i++) { XpmCreateImageFromData(dpy, ToolBar[i].icon_data, &iret, NULL, &attr); XtnSetArg(XtNlabelType, XwIMAGE); XtnSetArg(XtNlabelImage, iret); XtnSetArg(XtNwidth, attr.width + 4); XtnSetArg(XtNheight, attr.height + 4); XtnSetArg(XtNborderWidth, TBBORDER); XtnSetArg(XtNnoPad, True); XtnSetArg(XtNhint, ToolBar[i].hint); XtnSetArg(XtNhintProc, Wprintf); menuwidgets[++menusize] = XtCreateManagedWidget(ToolBar[i].name, XwmenuButtonWidgetClass, toolbar, wargs, n); n = 0; XtAddCallback(menuwidgets[menusize], XtNselect, (XtCallbackProc)ToolBar[i].func, ToolBar[i].passeddata); } } #endif /*----------------------------------------------------------------------*/ /* Toolbar Resize */ /*----------------------------------------------------------------------*/ void resizetoolbar() { int i, n = 0, bcol = 0; int max_width = 0, max_height = 0, tot_width = 0; Arg wargs[5]; xcWidget bwptr, lbwptr, bmax, lbmax; Dimension t_height, bheight, bwidth; xcWidget *tool_list = NULL; int pytools = 0; if (!xcIsRealized(toolbar)) return; /* Avoid recursive calls to self and extra calls to the main draw routine */ XtRemoveCallback(areawin->area, XtNresize, (XtCallbackProc)resizetoolbar, NULL); XtRemoveCallback(areawin->area, XtNresize, (XtCallbackProc)resizearea, NULL); /* Find the height of the toolbar from the parent widget */ XtnSetArg(XtNheight, &t_height); XtGetValues(xcParent(toolbar), wargs, n); n = 0; #ifdef HAVE_PYTHON tool_list = pytoolbuttons(&pytools); #endif /* Realign the tool buttons inside the fixed space */ for (i = 0; i < toolbuttons + pytools; i++) { #ifdef HAVE_PYTHON if (i >= toolbuttons) bwptr = tool_list[i - toolbuttons]; else #endif bwptr = XtNameToWidget(toolbar, ToolBar[i].name); if (bwptr == (Widget)NULL) break; XtnSetArg(XtNheight, &bheight); XtnSetArg(XtNwidth, &bwidth); XtGetValues(bwptr, wargs, n); n = 0; bheight += (TBBORDER << 1); max_height += bheight; if (max_height > t_height) { bcol++; lbmax = bmax; tot_width += max_width; max_width = 0; max_height = (int)bheight; } if (bwidth > max_width) { max_width = (int)bwidth; bmax = bwptr; } XtnSetArg(XtNx, tot_width); XtnSetArg(XtNy, max_height - bheight); XtSetValues(bwptr, wargs, n); n = 0; lbwptr = bwptr; } XtnSetArg(XtNwidth, tot_width + max_width); XtSetValues(toolbar, wargs, n); n = 0; /* Reinstate callbacks */ XtAddCallback(areawin->area, XtNresize, (XtCallbackProc)resizetoolbar, NULL); XtAddCallback(areawin->area, XtNresize, (XtCallbackProc)resizearea, NULL); #ifdef HAVE_PYTHON if (tool_list != NULL) free(tool_list); #endif } #endif /* HAVE_XPM */ /*----------------------------------------------------------------------*/ /* Hierarchical Menu Creator */ /* This function creates the top level of buttons which are arranged */ /* across the top starting at the left edge. For each button */ /* that has a submenu, a Popup manager is created, and then menu */ /* panes are attached to the manager in a hierarchical fashion. */ /* Note: Returns widget for last button on top level */ /*----------------------------------------------------------------------*/ void createmenus (xcWidget form, xcWidget *firstbutton, xcWidget *lastbutton) { int i, maxmgrs = 0, n = 0, j = 0; WidgetList buttonw, mgr_shell, menu_mgr; Arg wargs[6]; menusize = -1; for (i = 0; i < maxbuttons; i++) if (TopButtons[i].submenu != NULL) maxmgrs++; buttonw = (WidgetList) XtMalloc(maxbuttons * sizeof(Widget)); mgr_shell = (WidgetList) XtMalloc(maxmgrs * sizeof(Widget)); menu_mgr = (WidgetList) XtMalloc(maxmgrs * sizeof(Widget)); for (i = 0; i < maxbuttons; i++) { XtnSetArg(XtNheight, ROWHEIGHT); XtnSetArg(XtNlabel, TopButtons[i].name); XtnSetArg(XtNfont, appdata.xcfont); if (i > 0) { XtnSetArg(XtNxRefWidget, buttonw[i - 1]); XtnSetArg(XtNxAddWidth, True); } buttonw[i] = XtCreateWidget(TopButtons[i].name, XwmenuButtonWidgetClass, form, wargs, n); n = 0; if (!strcmp(TopButtons[i].name, "Netlist")) { netbutton = buttonw[i]; XtManageChild(buttonw[i]); } else XtManageChild(buttonw[i]); if(TopButtons[i].submenu == NULL) XtAddCallback(buttonw[i], XtNselect, (XtCallbackProc)TopButtons[i].func, NULL); else { mgr_shell[j] = XtCreatePopupShell("mgr_shell", shellWidgetClass, buttonw[i], NULL, 0); menu_mgr[j] = XtCreateManagedWidget("menu_mgr", XwpopupmgrWidgetClass, mgr_shell[j], NULL, 0); makesubmenu(TopButtons[i].name, "menu_mgr", TopButtons[i].submenu, TopButtons[i].size, menu_mgr[j]); j++; } } *firstbutton = buttonw[0]; *lastbutton = buttonw[i - 1]; } /*----------------------------------------------*/ /* Check for conditions to approve program exit */ /*----------------------------------------------*/ int quitcheck(xcWidget w, caddr_t clientdata, caddr_t calldata) { char *promptstr; Boolean doprompt = False; buttonsave *savebutton; /* enable default interrupt signal handler during this time, so that */ /* a double Control-C will ALWAYS exit. */ signal(SIGINT, SIG_DFL); promptstr = (char *)malloc(22); strcpy(promptstr, "Unsaved changes in: "); /* Check all page objects for unsaved changes */ doprompt = (countchanges(&promptstr) > 0) ? True : False; /* If any changes have not been saved, generate a prompt */ if (doprompt) { promptstr = (char *)realloc(promptstr, strlen(promptstr) + 15); strcat(promptstr, "\nQuit anyway?"); savebutton = getgeneric(w, quitcheck, NULL); popupprompt(w, promptstr, NULL, quit, savebutton, NULL); free(promptstr); return 0; } else { free(promptstr); quit(areawin->area, NULL); return 1; } } /*-------------------------------------------------------------------------*/ /* Popup dialog box routines */ /*-------------------------------------------------------------------------*/ /* Propogate any key event from the dialog box into the textedit widget */ /*-------------------------------------------------------------------------*/ #ifndef XC_WIN32 void propevent(xcWidget w, xcWidget editwidget, XEvent *event) { Window ewin = xcWindow(editwidget); event->xany.window = ewin; XSendEvent(dpy, ewin, False, KeyPressMask, event); } #endif /*-------------------------------------------------------------------------*/ /* Destroy an interactive text-editing popup box */ /*-------------------------------------------------------------------------*/ void destroypopup(xcWidget button, popupstruct *callstruct, caddr_t calldata) { Arg wargs[1]; if(XtNameToWidget(callstruct->popup, "help2") != NULL) { help_up = False; XFreePixmap(dpy, helppix); helppix = (Pixmap)NULL; } if (callstruct->buttonptr->button != NULL) { /* return the button to its normal state */ XtSetArg(wargs[0], XtNforeground, callstruct->buttonptr->foreground); XtSetValues(callstruct->buttonptr->button, wargs, 1); XtAddCallback(callstruct->buttonptr->button, XtNselect, (XtCallbackProc)callstruct->buttonptr->buttoncall, callstruct->buttonptr->dataptr); } XtDestroyWidget(callstruct->popup); popups--; /* free the allocated structure space */ free(callstruct->buttonptr); if (callstruct->filter != NULL) free(callstruct->filter); free(callstruct); /* in the case of "quitcheck", we want to make sure that the signal */ /* handler is reset to default behavior if the quit command is */ /* canceled from inside the popup prompt window. */ signal(SIGINT, dointr); } /*----------------------------------------------------------------------*/ /* Toggle button showing number of pages of output. */ /* Erase the filename and set everything accordingly. */ /*----------------------------------------------------------------------*/ void linkset(xcWidget button, propstruct *callstruct, caddr_t calldata) { Arg wargs[1]; free(xobjs.pagelist[areawin->page]->filename); xobjs.pagelist[areawin->page]->filename = (char *)malloc(1); xobjs.pagelist[areawin->page]->filename[0] = '\0'; XwTextClearBuffer(callstruct->textw); getproptext(button, callstruct, calldata); /* Change the select button back to "Apply" */ XtSetArg(wargs[0], XtNlabel, "Apply"); XtSetValues(callstruct->buttonw, wargs, 1); /* Pop down the toggle button */ XtUnmanageChild(button); } /*----------------------------------------------------------------------*/ /* Pull text from the popup prompt buffer into a global string variable */ /*----------------------------------------------------------------------*/ #ifndef XC_WIN32 void xcgettext(xcWidget button, popupstruct *callstruct, caddr_t calldata) { if (callstruct->textw != NULL) { sprintf(_STR2, "%.249s", XwTextCopyBuffer(callstruct->textw)); /* functions which use the file selector should look for directory name */ /* in string rather than a file name, and take appropriate action. */ if (callstruct->filew != NULL) { if (lookdirectory(_STR2, 249)) { newfilelist(callstruct->filew, callstruct); return; } } } /* Pop down the widget now (for functions like execscript() which */ /* may want to interactively control the window contents), but do */ /* not destroy it until the function has returned. */ XtPopdown(callstruct->popup); /* call the function which sets the variable according to type */ /* This is in format (function)(calling-widget, ptr-to-data) */ (*(callstruct->setvalue))(callstruct->buttonptr->button, callstruct->buttonptr->dataptr); if (callstruct->filew != NULL) newfilelist(callstruct->filew, callstruct); destroypopup(button, callstruct, calldata); } #endif /*-------------------------------------------------------------------------*/ /* Grab text from the "output properties" window */ /*-------------------------------------------------------------------------*/ void getproptext(xcWidget button, propstruct *callstruct, caddr_t calldata) { /* xobjs.pagelist[areawin->page]->filename can be realloc'd by the */ /* call to *(callstruct->setvalue), so callstruct->dataptr may no */ /* longer be pointing to the data. */ Arg wargs[1]; short file_yes = (callstruct->setvalue == setfilename); sprintf(_STR2, "%.249s", XwTextCopyBuffer(callstruct->textw)); (*(callstruct->setvalue))(button, callstruct->dataptr); /* special stuff for filename changes */ if (file_yes) { char blabel[1024]; short num_linked; xcWidget wrbutton, ltoggle; struct stat statbuf; /* get updated file information */ if (strstr(xobjs.pagelist[areawin->page]->filename, ".") == NULL) sprintf(blabel, "%s.ps", xobjs.pagelist[areawin->page]->filename); else sprintf(blabel, "%s", xobjs.pagelist[areawin->page]->filename); if (stat(blabel, &statbuf) == 0) { sprintf(blabel, " Overwrite File "); if (beeper) XBell(dpy, 100); Wprintf(" Warning: File exists"); } else { sprintf(blabel, " Write File "); if (errno == ENOTDIR) Wprintf("Error: Incorrect pathname"); else if (errno == EACCES) Wprintf("Error: Path not readable"); W3printf(" "); } wrbutton = XtNameToWidget(xcParent(button), "Write File"); XtSetArg(wargs[0], XtNlabel, blabel); XtSetValues(wrbutton, wargs, 1); num_linked = pagelinks(areawin->page); if (num_linked > 1) { ltoggle = XtNameToWidget(xcParent(button), "LToggle"); sprintf(blabel, "%d Pages", num_linked); XtSetArg(wargs[0], XtNlabel, blabel); XtSetValues(ltoggle, wargs, 1); XtManageChild(ltoggle); } } /* topobject->name is not malloc'd, so is not changed by call to */ /* *(callstruct->setvalue). */ else if (callstruct->dataptr == topobject->name) { printname(topobject); renamepage(areawin->page); } /* Button title changes from "Apply" to "Okay" */ XtSetArg(wargs[0], XtNlabel, "Okay"); XtSetValues(callstruct->buttonw, wargs, 1); } /*----------------------------------------------------------------------*/ /* Update scale, width, and height in response to change of one of them */ /*----------------------------------------------------------------------*/ void updatetext(xcWidget button, xcWidgetList callstruct, caddr_t calldata) { float oscale, psscale; char edit[3][50]; short i, n, posit; char *pdptr; Arg wargs[2]; int width, height; /* auto-fit may override any changes to the scale */ autoscale(areawin->page); writescalevalues(edit[0], edit[1], edit[2]); for (i = 0; i < 3; i++) { n = 0; XtnSetArg(XtNstring, edit[i]); pdptr = strchr(edit[i], '.'); posit = (pdptr != NULL) ? (short)(pdptr - edit[i]) : strlen(edit[i]); XtnSetArg(XtNinsertPosition, posit); XtSetValues(callstruct[i + 2], wargs, n); } } /*-------------------------------------------------------------------------*/ /* Update the object name in response to a change in filename */ /*-------------------------------------------------------------------------*/ void updatename(xcWidget button, xcWidgetList callstruct, caddr_t calldata) { short n, posit; char *rootptr; Arg wargs[2]; if (strstr(topobject->name, "Page ") != NULL || strstr(topobject->name, "Page_") != NULL || topobject->name[0] == '\0') { rootptr = strrchr(xobjs.pagelist[areawin->page]->filename, '/'); if (rootptr == NULL) rootptr = xobjs.pagelist[areawin->page]->filename; else rootptr++; sprintf(topobject->name, "%.79s", rootptr); n = 0; posit = strlen(topobject->name); XtnSetArg(XtNstring, topobject->name); XtnSetArg(XtNinsertPosition, posit); XtSetValues(callstruct[1], wargs, n); printname(topobject); renamepage(areawin->page); } } /*-------------------------------------------------------------------------*/ /* Create a popup window with "OK" and "Cancel" buttons, */ /* and text and label fields. */ /*-------------------------------------------------------------------------*/ #ifndef XC_WIN32 void popupprompt(xcWidget button, char *request, char *current, void (*function)(), buttonsave *datastruct, const char *filter) { Arg wargs[9]; xcWidget popup, dialog, okbutton, cancelbutton, entertext; xcWidget staticarea; XWMHints *wmhints; /* for proper input focus */ Position xpos, ypos; short n = 0; Dimension height, width, areawidth, areaheight, bwidth, owidth; static char defaultTranslations[] = "Return: execute()"; popupstruct *okaystruct; height = (current == NULL) ? ROWHEIGHT * 4 : ROWHEIGHT * 5; if (filter) height += LISTHEIGHT; width = XTextWidth(appdata.xcfont, request, strlen(request)) + 20; bwidth = XTextWidth(appdata.xcfont, "Cancel", strlen("Cancel")) + 50; owidth = XTextWidth(appdata.xcfont, "Okay", strlen("Okay")) + 50; if (width < 400) width = 400; XtnSetArg(XtNwidth, &areawidth); XtnSetArg(XtNheight, &areaheight); XtGetValues(areawin->area, wargs, n); n = 0; XtTranslateCoords(areawin->area, (Position) (areawidth / 2 - width / 2 + popups * 20), (Position) (areaheight / 2 - height / 2 + popups * 20), &xpos, &ypos); XtnSetArg(XtNx, xpos); XtnSetArg(XtNy, ypos); popup = XtCreatePopupShell("prompt", transientShellWidgetClass, button == NULL ? areawin->area : button, wargs, n); n = 0; popups++; XtnSetArg(XtNlayout, XwIGNORE); XtnSetArg(XtNwidth, width); XtnSetArg(XtNheight, height); dialog = XtCreateManagedWidget("dialog", XwbulletinWidgetClass, popup, wargs, n); n = 0; XtnSetArg(XtNx, 20); XtnSetArg(XtNy, ROWHEIGHT - 10 + (filter ? LISTHEIGHT : 0)); XtnSetArg(XtNstring, request); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNgravity, WestGravity); XtnSetArg(XtNfont, appdata.xcfont); staticarea = XtCreateManagedWidget("static", XwstaticTextWidgetClass, dialog, wargs, n); n = 0; XtnSetArg(XtNx, 20); XtnSetArg(XtNy, height - ROWHEIGHT - 10); XtnSetArg(XtNwidth, owidth); XtnSetArg(XtNfont, appdata.xcfont); okbutton = XtCreateManagedWidget("Okay", XwmenuButtonWidgetClass, dialog, wargs, n); n = 0; okaystruct = (popupstruct *) malloc(sizeof(popupstruct)); okaystruct->buttonptr = datastruct; okaystruct->popup = popup; okaystruct->filter = (filter == NULL) ? NULL : strdup(filter); okaystruct->setvalue = function; okaystruct->textw = NULL; okaystruct->filew = NULL; XtnSetArg(XtNx, width - bwidth - 20); XtnSetArg(XtNy, height - ROWHEIGHT - 10); XtnSetArg(XtNwidth, bwidth); XtnSetArg(XtNfont, appdata.xcfont); cancelbutton = XtCreateManagedWidget("Cancel", XwmenuButtonWidgetClass, dialog, wargs, n); n = 0; XtAddCallback(cancelbutton, XtNselect, (XtCallbackProc)destroypopup, okaystruct); /* Event handler for WM_DELETE_WINDOW message. */ XtAddEventHandler(popup, NoEventMask, True, (XtEventHandler)delwin, okaystruct); if (current != NULL) { /* A Text Edit widget is required */ char *pdptr; short posit; XtnSetArg(XtNx, 20); XtnSetArg(XtNy, ROWHEIGHT + 10 + (filter ? LISTHEIGHT : 0)); XtnSetArg(XtNheight, ROWHEIGHT + 5); XtnSetArg(XtNwidth, width - 40); XtnSetArg(XtNstring, current); pdptr = strchr(current, '.'); posit = (pdptr != NULL) ? (short)(pdptr - current) : strlen(current); XtnSetArg(XtNinsertPosition, posit); XtnSetArg(XtNscroll, XwAutoScrollHorizontal); XtnSetArg(XtNwrap, XwWrapOff); XtnSetArg(XtNfont, appdata.textfont); entertext = XtCreateManagedWidget("Edit", XwtextEditWidgetClass, dialog, wargs, n); n = 0; okaystruct->textw = entertext; XtAddEventHandler(dialog, KeyPressMask, False, (XtEventHandler)propevent, entertext); XtAddEventHandler(staticarea, KeyPressMask, False, (XtEventHandler)propevent, entertext); XtOverrideTranslations(entertext, XtParseTranslationTable (defaultTranslations)); XtAddCallback(entertext, XtNexecute, (XtCallbackProc)xcgettext, okaystruct); /* Generate file prompting widget */ if (filter) genfilelist(dialog, okaystruct, width); } XtAddCallback(okbutton, XtNselect, (XtCallbackProc)xcgettext, okaystruct); XtPopup(popup, XtGrabNone); /* set the input focus for the window */ wmhints = XGetWMHints(dpy, xcWindow(popup)); wmhints->flags |= InputHint; wmhints->input = True; XSetWMHints(dpy, xcWindow(popup), wmhints); XSetTransientForHint(dpy, xcWindow(popup), xcWindow(top)); XFree(wmhints); if (current != NULL) XDefineCursor(dpy, xcWindow(entertext), TEXTPTR); } #endif /*-------------------------------------------------------------------------*/ /* Create a popup window for property changes */ /*-------------------------------------------------------------------------*/ #define MAXPROPS 7 #define MARGIN 15 propstruct okstruct[MAXPROPS], fpokstruct; #ifndef XC_WIN32 void outputpopup(xcWidget button, caddr_t clientdata, caddr_t calldata) { buttonsave *savebutton; Arg wargs[9]; xcWidget popup, dialog, okbutton, titlearea, wrbutton; xcWidget fpentertext, fpokay, autobutton, allpages; xcWidgetList staticarea, entertext, okays; XWMHints *wmhints; /* for proper input focus */ short num_linked; Position xpos, ypos; short n = 0; Dimension height, width, areawidth, areaheight, bwidth, owidth, wwidth; Pagedata *curpage; char *pdptr; short posit, i; popupstruct *donestruct; void (*function[MAXPROPS])(); void (*update[MAXPROPS])(); char statics[MAXPROPS][50], edit[MAXPROPS][75], request[150]; char fpedit[75], outname[75], pstr[20]; void *data[MAXPROPS]; struct stat statbuf; static char defaultTranslations[] = "Return: execute()"; if (is_page(topobject) == -1) { Wprintf("Can only save a top-level page!"); return; } if (button == NULL) button = FileWriteXcircuitPSButton; savebutton = getgeneric(button, outputpopup, NULL); curpage = xobjs.pagelist[areawin->page]; sprintf(request, "PostScript output properties (Page %d):", areawin->page + 1); sprintf(statics[0], "Filename:"); sprintf(statics[1], "Page label:"); sprintf(statics[2], "Scale:"); if (curpage->coordstyle == CM) { sprintf(statics[3], "X Size (cm):"); sprintf(statics[4], "Y Size (cm):"); } else { sprintf(statics[3], "X Size (in):"); sprintf(statics[4], "Y Size (in):"); } sprintf(statics[5], "Orientation:"); sprintf(statics[6], "Mode:"); if (curpage->filename) sprintf(edit[0], "%s", curpage->filename); else sprintf(edit[0], "Page %d", areawin->page + 1); sprintf(edit[1], "%s", topobject->name); /* recompute bounding box and auto-scale, if set */ calcbbox(areawin->topinstance); if (curpage->pmode & 2) autoscale(areawin->page); writescalevalues(edit[2], edit[3], edit[4]); sprintf(edit[5], "%s", (curpage->orient == 0) ? "Portrait" : "Landscape"); sprintf(edit[6], "%s", (curpage->pmode & 1) ? "Full page" : "Embedded (EPS)"); function[0] = setfilename; function[1] = setpagelabel; function[2] = setfloat; function[3] = setscalex; function[4] = setscaley; function[5] = setorient; function[6] = setpmode; update[0] = updatename; update[1] = update[6] = NULL; update[2] = updatetext; update[3] = updatetext; update[4] = updatetext; update[5] = updatetext; data[0] = &(curpage->filename); data[1] = topobject->name; data[2] = data[3] = data[4] = &(curpage->outscale); data[5] = &(curpage->orient); data[6] = &(curpage->pmode); entertext = (xcWidgetList) XtMalloc (7 * sizeof (xcWidget)); staticarea = (xcWidgetList) XtMalloc (7 * sizeof (xcWidget)); okays = (xcWidgetList) XtMalloc (6 * sizeof (xcWidget)); /* get file information */ if (strstr(edit[0], ".") == NULL) sprintf(outname, "%s.ps", edit[0]); else sprintf(outname, "%s", edit[0]); if (stat(outname, &statbuf) == 0) { sprintf(outname, "Overwrite File"); Wprintf(" Warning: File exists"); } else { sprintf(outname, "Write File"); if (errno == ENOTDIR) Wprintf("Error: Incorrect pathname"); else if (errno == EACCES) Wprintf("Error: Path not readable"); else W3printf(" "); } height = ROWHEIGHT * 17; /* 3 + (2 * MAXPROPS) */ width = XTextWidth(appdata.xcfont, request, strlen(request)) + 20; bwidth = XTextWidth(appdata.xcfont, "Close", strlen("Close")) + 50; owidth = XTextWidth(appdata.xcfont, "Apply", strlen("Apply")) + 50; wwidth = XTextWidth(appdata.xcfont, outname, strlen(outname)) + 80; if (width < 500) width = 500; XtnSetArg(XtNwidth, &areawidth); XtnSetArg(XtNheight, &areaheight); XtGetValues(areawin->area, wargs, n); n = 0; XtTranslateCoords(areawin->area, (Position) (areawidth / 2 - width / 2 + popups * 20), (Position) (areaheight / 2 - height / 2 + popups * 20), &xpos, &ypos); XtnSetArg(XtNx, xpos); XtnSetArg(XtNy, ypos); popup = XtCreatePopupShell("prompt", transientShellWidgetClass, areawin->area, wargs, n); n = 0; popups++; XtnSetArg(XtNlayout, XwIGNORE); XtnSetArg(XtNwidth, width); XtnSetArg(XtNheight, height); dialog = XtCreateManagedWidget("dialog", XwbulletinWidgetClass, popup, wargs, n); n = 0; XtnSetArg(XtNx, 20); XtnSetArg(XtNy, ROWHEIGHT - 10); XtnSetArg(XtNstring, request); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNgravity, WestGravity); XtnSetArg(XtNbackground, colorlist[BARCOLOR].color.pixel); XtnSetArg(XtNfont, appdata.xcfont); titlearea = XtCreateManagedWidget("title", XwstaticTextWidgetClass, dialog, wargs, n); n = 0; XtnSetArg(XtNx, 20); XtnSetArg(XtNy, height - ROWHEIGHT - 10); XtnSetArg(XtNwidth, owidth); XtnSetArg(XtNfont, appdata.xcfont); okbutton = XtCreateManagedWidget("Close", XwmenuButtonWidgetClass, dialog, wargs, n); n = 0; XtnSetArg(XtNx, width - wwidth - 20); XtnSetArg(XtNy, height - ROWHEIGHT - 10); XtnSetArg(XtNwidth, wwidth); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNlabel, outname); wrbutton = XtCreateManagedWidget("Write File", XwmenuButtonWidgetClass, dialog, wargs, n); n = 0; for (i = 0; i < MAXPROPS; i++) { XtnSetArg(XtNx, 20); XtnSetArg(XtNy, ROWHEIGHT + MARGIN + 5 + (i * 2 * ROWHEIGHT)); XtnSetArg(XtNstring, statics[i]); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNgravity, WestGravity); XtnSetArg(XtNfont, appdata.xcfont); staticarea[i] = XtCreateManagedWidget("static", XwstaticTextWidgetClass, dialog, wargs, n); n = 0; XtnSetArg(XtNx, 150); XtnSetArg(XtNy, ROWHEIGHT + MARGIN + (i * 2 * ROWHEIGHT)); if (i < 5) { XtnSetArg(XtNheight, ROWHEIGHT + 5); XtnSetArg(XtNstring, edit[i]); XtnSetArg(XtNwidth, width - owidth - 190); pdptr = strchr(edit[i], '.'); posit = (pdptr != NULL) ? (short)(pdptr - edit[i]) : strlen(edit[i]); XtnSetArg(XtNinsertPosition, posit); XtnSetArg(XtNscroll, XwAutoScrollHorizontal); XtnSetArg(XtNwrap, XwWrapOff); XtnSetArg(XtNfont, appdata.textfont); entertext[i] = XtCreateManagedWidget("Edit", XwtextEditWidgetClass, dialog, wargs, n); n = 0; XtnSetArg(XtNx, width - owidth - 20); XtnSetArg(XtNy, ROWHEIGHT + MARGIN + (i * 2 * ROWHEIGHT)); XtnSetArg(XtNwidth, owidth); XtnSetArg(XtNfont, appdata.xcfont); okays[i] = XtCreateManagedWidget("Apply", XwmenuButtonWidgetClass, dialog, wargs, n); n = 0; okstruct[i].textw = entertext[i]; okstruct[i].buttonw = okays[i]; okstruct[i].setvalue = function[i]; okstruct[i].dataptr = data[i]; XtAddCallback(okays[i], XtNselect, (XtCallbackProc)getproptext, &okstruct[i]); if (update[i] != NULL) XtAddCallback(okays[i], XtNselect, (XtCallbackProc)update[i], entertext); XtOverrideTranslations(entertext[i], XtParseTranslationTable (defaultTranslations)); XtAddCallback(entertext[i], XtNexecute, (XtCallbackProc)getproptext, &okstruct[i]); if (update[i] != NULL) XtAddCallback(entertext[i], XtNexecute, (XtCallbackProc)update[i], entertext); } else { XtnSetArg(XtNlabel, edit[i]); XtnSetArg(XtNfont, appdata.xcfont); entertext[i] = XtCreateManagedWidget("Toggle", XwpushButtonWidgetClass, dialog, wargs, n); n = 0; XtAddCallback(entertext[i], XtNselect, (XtCallbackProc)function[i], data[i]); if (update[i] != NULL) XtAddCallback(entertext[i], XtNselect, (XtCallbackProc)update[i], entertext); } } /* If this filename is linked to other pages (multi-page output), add a button */ /* which will unlink the page name from the other pages when toggled. */ num_linked = pagelinks(areawin->page); XtnSetArg(XtNx, width - wwidth - 20); XtnSetArg(XtNy, ROWHEIGHT - 10); XtnSetArg(XtNset, True); XtnSetArg(XtNsquare, True); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNfont, appdata.xcfont); sprintf(pstr, "%d Pages", num_linked); XtnSetArg(XtNlabel, pstr); allpages = XtCreateWidget("LToggle", XwtoggleWidgetClass, dialog, wargs, n); n = 0; XtAddCallback(allpages, XtNrelease, (XtCallbackProc)linkset, &okstruct[0]); /* If full-page pmode is chosen, there is an additional text structure. Make this text structure always but allow it to be managed and unmanaged as necessary. */ XtnSetArg(XtNx, 240); XtnSetArg(XtNy, ROWHEIGHT + MARGIN + (10 * ROWHEIGHT)); XtnSetArg(XtNset, (curpage->pmode & 2) ? True : False); XtnSetArg(XtNsquare, True); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNfont, appdata.xcfont); autobutton = XtCreateWidget("Auto-fit", XwtoggleWidgetClass, dialog, wargs, n); n = 0; if (curpage->coordstyle == CM) { sprintf(fpedit, "%3.2f x %3.2f cm", (float)curpage->pagesize.x / IN_CM_CONVERT, (float)curpage->pagesize.y / IN_CM_CONVERT); } else { sprintf(fpedit, "%3.2f x %3.2f in", (float)curpage->pagesize.x / 72.0, (float)curpage->pagesize.y / 72.0); } XtnSetArg(XtNx, 240); XtnSetArg(XtNy, ROWHEIGHT + MARGIN + (12 * ROWHEIGHT)); XtnSetArg(XtNheight, ROWHEIGHT + 5); XtnSetArg(XtNstring, fpedit); XtnSetArg(XtNwidth, width - owidth - 280); pdptr = strchr(fpedit, '.'); posit = (pdptr != NULL) ? (short)(pdptr - fpedit) : strlen(fpedit); XtnSetArg(XtNscroll, XwAutoScrollHorizontal); XtnSetArg(XtNwrap, XwWrapOff); XtnSetArg(XtNfont, appdata.textfont); XtnSetArg(XtNinsertPosition, posit); fpentertext = XtCreateWidget("fpedit", XwtextEditWidgetClass, dialog, wargs, n); n = 0; XtnSetArg(XtNx, width - owidth - 20); XtnSetArg(XtNy, ROWHEIGHT + MARGIN + (12 * ROWHEIGHT)); XtnSetArg(XtNwidth, owidth); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNlabel, "Apply"); fpokay = XtCreateWidget("fpokay", XwmenuButtonWidgetClass, dialog, wargs, n); n = 0; fpokstruct.textw = fpentertext; fpokstruct.buttonw = fpokay; fpokstruct.setvalue = setpagesize; fpokstruct.dataptr = &(curpage->pagesize); XtAddCallback(fpokay, XtNselect, (XtCallbackProc)getproptext, &fpokstruct); XtAddCallback(fpokay, XtNselect, (XtCallbackProc)updatetext, entertext); XtOverrideTranslations(fpentertext, XtParseTranslationTable (defaultTranslations)); XtAddCallback(fpentertext, XtNexecute, (XtCallbackProc)getproptext, &fpokstruct); XtAddCallback(fpentertext, XtNexecute, (XtCallbackProc)updatetext, entertext); XtAddCallback(autobutton, XtNselect, (XtCallbackProc)autoset, entertext); XtAddCallback(autobutton, XtNrelease, (XtCallbackProc)autostop, NULL); if (curpage->pmode & 1) { XtManageChild(fpentertext); XtManageChild(fpokay); XtManageChild(autobutton); } if (num_linked > 1) { XtManageChild(allpages); } /* end of pagesize extra Widget definitions */ donestruct = (popupstruct *) malloc(sizeof(popupstruct)); donestruct->popup = popup; donestruct->buttonptr = savebutton; donestruct->filter = NULL; XtAddCallback(okbutton, XtNselect, (XtCallbackProc)destroypopup, donestruct); /* Send setfile() the widget entertext[0] in case because user sometimes forgets to type "okay" but buffer contains the expected filename */ XtAddCallback(wrbutton, XtNselect, (XtCallbackProc)setfile, entertext[0]); /* Begin Popup */ XtPopup(popup, XtGrabNone); /* set the input focus for the window */ wmhints = XGetWMHints(dpy, xcWindow(popup)); wmhints->flags |= InputHint; wmhints->input = True; XSetWMHints(dpy, xcWindow(popup), wmhints); XSetTransientForHint(dpy, xcWindow(popup), xcWindow(top)); XFree(wmhints); for (i = 0; i < 5; i++) XDefineCursor(dpy, xcWindow(entertext[i]), TEXTPTR); } #endif /*-------------------------------------------------*/ /* Print a string to the message widget. */ /* Note: Widget message must be a global variable. */ /* For formatted strings, format first into _STR */ /*-------------------------------------------------*/ void clrmessage(XtPointer clientdata, xcIntervalId *id) { char buf1[50], buf2[50]; /* Don't write over the report of the edit string contents, */ /* if we're in one of the label edit modes */ if (eventmode == TEXT_MODE || eventmode == ETEXT_MODE) charreport(TOLABEL(EDITPART)); else { measurestr(xobjs.pagelist[areawin->page]->gridspace, buf1); measurestr(xobjs.pagelist[areawin->page]->snapspace, buf2); Wprintf("Grid %.50s : Snap %.50s", buf1, buf2); } } /*----------------------------------------------------------------------*/ /* This is the non-Tcl version of tcl_vprintf() */ /*----------------------------------------------------------------------*/ void xc_vprintf(xcWidget widget, const char *fmt, va_list args_in) { va_list args; static char outstr[128]; char *outptr, *bigstr = NULL; int nchars; Arg wargs[1]; outstr[0] = '\0'; outptr = outstr; /* This mess circumvents problems with systems which do not have */ /* va_copy() defined. Some define __va_copy(); otherwise we must */ /* assume that args = args_in is valid. */ va_copy(args, args_in); nchars = vsnprintf(outptr, 127, fmt, args); va_end(args); if (nchars >= 127) { va_copy(args, args_in); bigstr = (char *)malloc(nchars + 2); bigstr[0] = '\0'; outptr = bigstr; vsnprintf(outptr, nchars + 2, fmt, args); va_end(args); } else if (nchars == -1) nchars = 126; XtSetArg(wargs[0], XtNstring, outptr); XtSetValues(widget, wargs, 1); XtSetArg(wargs[0], XtNheight, ROWHEIGHT); XtSetValues(widget, wargs, 1); if (bigstr != NULL) free(bigstr); if (widget == message3) { if (printtime_id != 0) { xcRemoveTimeOut(printtime_id); printtime_id = 0; } } /* 10 second timeout */ if (widget == message3) { printtime_id = xcAddTimeOut(app, 10000, clrmessage, NULL); } } /*------------------------------------------------------------------------------*/ /* W3printf is the same as Wprintf because the non-Tcl based version does not */ /* duplicate output to stdout/stderr. */ /*------------------------------------------------------------------------------*/ void W3printf(char *format, ...) { va_list ap; va_start(ap, format); xc_vprintf(message3, format, ap); va_end(ap); } /*------------------------------------------------------------------------------*/ void Wprintf(char *format, ...) { va_list ap; va_start(ap, format); xc_vprintf(message3, format, ap); va_end(ap); } /*------------------------------------------------------------------------------*/ void W1printf(char *format, ...) { va_list ap; va_start(ap, format); xc_vprintf(message1, format, ap); va_end(ap); } /*------------------------------------------------------------------------------*/ void W2printf(char *format, ...) { va_list ap; va_start(ap, format); xc_vprintf(message2, format, ap); va_end(ap); } /*------------------------------------------------------------------------------*/ #ifndef XC_WIN32 void getcommand(xcWidget cmdw, caddr_t clientdata, caddr_t calldata) { sprintf(_STR2, "%.249s", XwTextCopyBuffer(cmdw)); #ifdef HAVE_PYTHON execcommand(0, _STR2 + 4); #else execcommand(0, _STR2 + 2); #endif XtRemoveEventHandler(areawin->area, KeyPressMask, False, (XtEventHandler)propevent, cmdw); XtAddCallback(areawin->area, XtNkeyDown, (XtCallbackProc)keyhandler, NULL); XtAddCallback(areawin->area, XtNkeyUp, (XtCallbackProc)keyhandler, NULL); XtUnmanageChild(cmdw); } /*------------------------------------------------------------------------------*/ /* "docommand" overlays the message3 widget temporarily with a TextEdit widget. */ /*------------------------------------------------------------------------------*/ void docommand() { Arg wargs[12]; int n = 0; Dimension w; Position x, y; static char defaultTranslations[] = "Return: execute()"; if (overlay == NULL) { XtnSetArg(XtNy, &y); XtnSetArg(XtNx, &x); XtnSetArg(XtNwidth, &w); XtGetValues(message3, wargs, n); n = 0; XtnSetArg(XtNy, y); XtnSetArg(XtNx, x); XtnSetArg(XtNheight, ROWHEIGHT); XtnSetArg(XtNwidth, w); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNwrap, XwWrapOff); overlay = XtCreateManagedWidget("Command", XwtextEditWidgetClass, top, wargs, n); n = 0; XtOverrideTranslations(overlay, XtParseTranslationTable(defaultTranslations)); XtAddCallback(overlay, XtNexecute, (XtCallbackProc)getcommand, NULL); } else { XtManageChild(overlay); } XwTextClearBuffer(overlay); #ifdef HAVE_PYTHON XwTextInsert(overlay, ">>> "); #else XwTextInsert(overlay, "? "); #endif /* temporarily redirect all text into the overlay widget */ XtRemoveCallback(areawin->area, XtNkeyDown, (XtCallbackProc)keyhandler, NULL); XtRemoveCallback(areawin->area, XtNkeyUp, (XtCallbackProc)keyhandler, NULL); XtAddEventHandler(areawin->area, KeyPressMask, False, (XtEventHandler)propevent, overlay); } /*------------------------------------------------------------------------------*/ /* When all else fails, install your own colormap */ /*------------------------------------------------------------------------------*/ int installowncmap() { Colormap newcmap; Fprintf(stdout, "Installing my own colormap\n"); /* allocate a new colormap */ newcmap = XCopyColormapAndFree(dpy, cmap); if (newcmap == (Colormap)NULL) return (-1); cmap = newcmap; if (areawin->area != (xcWidget)NULL) { if (xcIsRealized(areawin->area)) { xcWidget colormenu = xcParent(ColorAddNewColorButton); XSetWindowColormap(dpy, xcWindow(top), cmap); XSetWindowColormap(dpy, areawin->window, cmap); if (colormenu != (xcWidget)NULL) XSetWindowColormap(dpy, xcWindow(colormenu), cmap); } } return(1); } #endif /*----------------------------------------------------------------------*/ /* Event handler for input focus */ /*----------------------------------------------------------------------*/ #ifdef INPUT_FOCUS void mappinghandler(xcWidget w, caddr_t clientdata, XEvent *event) { if (!xcIsRealized(w)) return; switch(event->type) { case MapNotify: /* Fprintf(stderr, "Window top was mapped. Setting input focus\n"); */ areawin->mapped = True; XSetInputFocus(dpy, xcWindow(w), RevertToPointerRoot, CurrentTime); break; case UnmapNotify: /* Fprintf(stderr, "Window top was unmapped\n"); */ areawin->mapped = False; break; } } #endif /*----------------------------------------------------------------------*/ void clientmessagehandler(xcWidget w, caddr_t clientdata, XEvent *event) { if (!xcIsRealized(w)) return; if (event->type == ClientMessage) { if (render_client(event) == False) return; #ifdef INPUT_FOCUS if (areawin->mapped == True) { /* Fprintf(stderr, "Forcing input focus\n"); */ XSetInputFocus(dpy, xcWindow(w), RevertToPointerRoot, CurrentTime); } #endif } } /*----------------------------------------------------------------------*/ /* Event handler for WM_DELETE_WINDOW message. */ /*----------------------------------------------------------------------*/ void delwin(xcWidget w, popupstruct *bstruct, XClientMessageEvent *event) { if (event->type != ClientMessage) return; if((event->message_type == wprot) && (event->data.l[0] == wmprop[0])) { if (w == top) quitcheck(w, NULL, NULL); else destroypopup(w, bstruct, NULL); } } /*----------------------------------------------------------------------*/ /* GUI_init() --- generate the widget structures, allocate colormaps */ /* and graphics contexts, generate menus and toolbar, and assign */ /* callback functions and event handlers. */ /*----------------------------------------------------------------------*/ #ifdef XC_WIN32 XCWindowData* GUI_init(int argc, char *argv[]); #else XCWindowData *GUI_init(int argc, char *argv[]) { #ifdef HAVE_XPM xcWidget abform; #endif xcWidget form, aform, firstbutton, lastbutton, corner; XGCValues values; XWMHints *wmhints; /* for proper input focus */ Arg wargs[12]; Pixmap icon; Window win; XCWindowData *newwin; short i, n = 0; /* Things to do the first time around */ if (dpy == NULL) { char *argfb[] = { /* Fallback resources */ "xcircuit*foreground : brown4", /* These are the values that */ "xcircuit*background : beige", /* not or cannot be explicitly */ "xcircuit.foreground : black", /* initialized by */ "xcircuit.background : white", /* XtGetApplicationResources() */ "xcircuit*borderWidth : 2", /* below. */ "xcircuit*borderColor : Red", NULL /* Sentinel */ }; XtSetLanguageProc(NULL, NULL, NULL); /*-------------------------------------------------------------------*/ /* Set pointer to own XDefaults file, but allow an external override */ /*-------------------------------------------------------------------*/ #ifdef HAVE_PUTENV if (getenv("XAPPLRESDIR") == NULL) putenv("XAPPLRESDIR=" RESOURCES_DIR); #else setenv("XAPPLRESDIR", RESOURCES_DIR, 0); #endif /*-----------------------------*/ /* Create the widget hierarchy */ /*-----------------------------*/ top = XtOpenApplication(&app, "XCircuit", NULL, 0, &argc, argv, argfb, applicationShellWidgetClass, NULL, 0); dpy = XtDisplay(top); win = DefaultRootWindow(dpy); cmap = DefaultColormap(dpy, DefaultScreen(dpy)); /*-------------------------*/ /* Create stipple patterns */ /*-------------------------*/ for (i = 0; i < STIPPLES; i++) STIPPLE[i] = XCreateBitmapFromData(dpy, win, STIPDATA[i], 4, 4); /*----------------------------------------*/ /* Allocate space for the basic color map */ /*----------------------------------------*/ number_colors = NUMBER_OF_COLORS; colorlist = (colorindex *)malloc(NUMBER_OF_COLORS * sizeof(colorindex)); /*-----------------------------------------------------------*/ /* Xw must add these translations for the popup manager */ /*-----------------------------------------------------------*/ XwAppInitialize(app); /*-------------------------------*/ /* Get the application resources */ /*-------------------------------*/ XtAppAddConverter(app, XtRString, XtRPixel, (XtConverter)CvtStringToPixel, NULL, 0); XtGetApplicationResources(top, &appdata, resources, XtNumber(resources), NULL, 0); } else { /* Not the first time---display has already been opened */ top = XtAppCreateShell("XCircuit", "XCircuit", applicationShellWidgetClass, dpy, NULL, 0); } n = 0; XtnSetArg(XtNwidth, appdata.width); XtnSetArg(XtNheight, appdata.height); XtnSetArg(XtNforeground, appdata.fg); XtnSetArg(XtNbackground, appdata.bg); XtnSetArg(XtNcolormap, cmap); XtSetValues(top, wargs, n); n = 0; form = XtCreateManagedWidget("Form", XwformWidgetClass, top, NULL, 0); /* Generate a new window data structure */ newwin = create_new_window(); /* Set up the buttons and Graphics drawing area */ createmenus(form, &firstbutton, &lastbutton); XtnSetArg(XtNxRefWidget, lastbutton); XtnSetArg(XtNyRefWidget, form); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNxAttachRight, True); XtnSetArg(XtNheight, ROWHEIGHT); sprintf(_STR, " Welcome to Xcircuit Version %2.1f", PROG_VERSION); XtnSetArg(XtNstring, _STR); XtnSetArg(XtNxResizable, True); XtnSetArg(XtNgravity, WestGravity); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNwrap, False); XtnSetArg(XtNstrip, False); message1 = XtCreateManagedWidget("Message1", XwstaticTextWidgetClass, form, wargs, n); n = 0; #ifdef HAVE_XPM /*-------------------------------------------------------------------*/ /* An extra form divides the main window from the toolbar */ /*-------------------------------------------------------------------*/ XtnSetArg(XtNyRefWidget, firstbutton); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyOffset, 2); XtnSetArg(XtNxAttachRight, True); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNxResizable, True); XtnSetArg(XtNborderWidth, 0); abform = XtCreateManagedWidget("ABForm", XwformWidgetClass, form, wargs, n); n = 0; /*-------------------------------------------------------------------*/ /* The main window and its scrollbars rest in a separate form window */ /*-------------------------------------------------------------------*/ XtnSetArg(XtNyResizable, True); XtnSetArg(XtNxResizable, True); XtnSetArg(XtNyAttachBottom, True); aform = XtCreateManagedWidget("AForm", XwformWidgetClass, abform, wargs, n); n = 0; #else #define abform aform /*-------------------------------------------------------------------*/ /* The main window and its scrollbars rest in a separate form window */ /*-------------------------------------------------------------------*/ XtnSetArg(XtNyRefWidget, firstbutton); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNxAttachRight, True); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNxResizable, True); aform = XtCreateManagedWidget("AForm", XwformWidgetClass, form, wargs, n); n = 0; #endif /*------------------------*/ /* add scrollbar widget */ /*------------------------*/ XtnSetArg(XtNxResizable, False); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNwidth, SBARSIZE); XtnSetArg(XtNborderWidth, 1); newwin->scrollbarv = XtCreateManagedWidget("SBV", XwworkSpaceWidgetClass, aform, wargs, n); n = 0; /*----------------------------------------------------------*/ /* A button in the scrollbar corner for the sake of beauty. */ /*----------------------------------------------------------*/ XtnSetArg(XtNyRefWidget, newwin->scrollbarv); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyAttachBottom, True); XtnSetArg(XtNheight, SBARSIZE); XtnSetArg(XtNwidth, SBARSIZE); XtnSetArg(XtNborderWidth, 1); XtnSetArg(XtNlabel, ""); corner = XtCreateManagedWidget("corner", XwpushButtonWidgetClass, aform, wargs, n); n = 0; /*-------------------------*/ /* The main drawing window */ /*-------------------------*/ XtnSetArg(XtNxOffset, SBARSIZE); XtnSetArg(XtNxResizable, True); XtnSetArg(XtNyResizable, True); XtnSetArg(XtNxAttachRight, True); newwin->area = XtCreateManagedWidget("Area", XwworkSpaceWidgetClass, aform, wargs, n); n = 0; /*-------------------------*/ /* and the other scrollbar */ /*-------------------------*/ XtnSetArg(XtNyRefWidget, newwin->area); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNxRefWidget, newwin->scrollbarv); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNxAttachRight, True); XtnSetArg(XtNheight, SBARSIZE); XtnSetArg(XtNyResizable, False); XtnSetArg(XtNxResizable, True); XtnSetArg(XtNborderWidth, 1); newwin->scrollbarh = XtCreateManagedWidget("SBH", XwworkSpaceWidgetClass, aform, wargs, n); n = 0; /*------------------------------------------------*/ /* Supplementary message widgets go at the bottom */ /*------------------------------------------------*/ XtnSetArg(XtNxResizable, False); XtnSetArg(XtNyRefWidget, abform); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyOffset, -5); XtnSetArg(XtNheight, ROWHEIGHT); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNforeground, appdata.buttonpix); XtnSetArg(XtNbackground, appdata.buttonpix); wsymb = XtCreateWidget("Symbol", XwpushButtonWidgetClass, form, wargs, n); n = 0; XtManageChild(wsymb); XtnSetArg(XtNxRefWidget, wsymb); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNxResizable, False); XtnSetArg(XtNyRefWidget, abform); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyOffset, -5); XtnSetArg(XtNheight, ROWHEIGHT); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNforeground, appdata.bg); XtnSetArg(XtNbackground, appdata.snappix); wschema = XtCreateWidget("Schematic", XwpushButtonWidgetClass, form, wargs, n); n = 0; XtManageChild(wschema); XtnSetArg(XtNxRefWidget, wschema); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNyRefWidget, abform); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyOffset, -5); XtnSetArg(XtNheight, ROWHEIGHT); XtnSetArg(XtNstring, "Editing: Page 1"); XtnSetArg(XtNxResizable, False); XtnSetArg(XtNgravity, WestGravity); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNwrap, False); message2 = XtCreateManagedWidget("Message2", XwstaticTextWidgetClass, form, wargs, n); n = 0; XtnSetArg(XtNyRefWidget, abform); XtnSetArg(XtNyAddHeight, True); XtnSetArg(XtNyOffset, -5); XtnSetArg(XtNxAttachRight, True); XtnSetArg(XtNxRefWidget, message2); XtnSetArg(XtNxAddWidth, True); XtnSetArg(XtNheight, ROWHEIGHT); XtnSetArg(XtNxResizable, True); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNwrap, False); XtnSetArg(XtNgravity, WestGravity); XtnSetArg(XtNstring, "Don't Panic"); message3 = XtCreateManagedWidget("Message3", XwstaticTextWidgetClass, form, wargs, n); n = 0; /*-------------------------------*/ /* optional Toolbar on the right */ /*-------------------------------*/ #ifdef HAVE_XPM createtoolbar(abform, aform); XtAddCallback(newwin->area, XtNresize, (XtCallbackProc)resizetoolbar, NULL); #endif /* Setup callback routines for the area widget */ /* Use Button1Press event to add the callback which tracks motion; this */ /* will reduce the number of calls serviced during normal operation */ XtAddCallback(newwin->area, XtNexpose, (XtCallbackProc)drawarea, NULL); XtAddCallback(newwin->area, XtNresize, (XtCallbackProc)resizearea, NULL); XtAddCallback(newwin->area, XtNselect, (XtCallbackProc)buttonhandler, NULL); XtAddCallback(newwin->area, XtNrelease, (XtCallbackProc)buttonhandler, NULL); XtAddCallback(newwin->area, XtNkeyDown, (XtCallbackProc)keyhandler, NULL); XtAddCallback(newwin->area, XtNkeyUp, (XtCallbackProc)keyhandler, NULL); XtAddEventHandler(newwin->area, Button1MotionMask | Button2MotionMask, False, (XtEventHandler)xlib_drag, NULL); /* Setup callback routines for the scrollbar widgets */ XtAddEventHandler(newwin->scrollbarh, ButtonMotionMask, False, (XtEventHandler)panhbar, NULL); XtAddEventHandler(newwin->scrollbarv, ButtonMotionMask, False, (XtEventHandler)panvbar, NULL); XtAddCallback(newwin->scrollbarh, XtNrelease, (XtCallbackProc)endhbar, NULL); XtAddCallback(newwin->scrollbarv, XtNrelease, (XtCallbackProc)endvbar, NULL); XtAddCallback(newwin->scrollbarh, XtNexpose, (XtCallbackProc)drawhbar, NULL); XtAddCallback(newwin->scrollbarv, XtNexpose, (XtCallbackProc)drawvbar, NULL); XtAddCallback(newwin->scrollbarh, XtNresize, (XtCallbackProc)drawhbar, NULL); XtAddCallback(newwin->scrollbarv, XtNresize, (XtCallbackProc)drawvbar, NULL); /* Event handler for WM_DELETE_WINDOW message. */ XtAddEventHandler(top, NoEventMask, True, (XtEventHandler)delwin, NULL); XtAddCallback(corner, XtNselect, (XtCallbackProc)zoomview, Number(1)); XtAddCallback (wsymb, XtNselect, (XtCallbackProc)xlib_swapschem, Number(0)); XtAddCallback (wschema, XtNselect, (XtCallbackProc)xlib_swapschem, Number(0)); /*--------------------*/ /* Realize the Widget */ /*--------------------*/ areawin = newwin; XtRealizeWidget(top); wprot = XInternAtom(dpy, "WM_PROTOCOLS", False); wmprop[0] = XInternAtom(dpy, "WM_DELETE_WINDOW", False); wmprop[1] = XInternAtom(dpy, "WM_TAKE_FOCUS", False); XSetWMProtocols(dpy, xcWindow(top), wmprop, 2); /*----------------------------------------------------*/ /* Let the window manager set the input focus for the */ /* window and inform the window manager of the icon */ /* pixmap (which may or may not be useful, depending */ /* on the particular window manager). */ /*----------------------------------------------------*/ wmhints = XGetWMHints(dpy, xcWindow(top)); wmhints->input = True; #ifdef HAVE_XPM /* Create the xcircuit icon pixmap */ XpmCreatePixmapFromData(dpy, win, xcircuit_xpm, &icon, NULL, NULL); wmhints->flags |= InputHint | IconPixmapHint; wmhints->icon_pixmap = icon; #else wmhints->flags |= InputHint; #endif XSetWMHints(dpy, xcWindow(top), wmhints); XFree(wmhints); /* Don't know why this is necessary, but otherwise keyboard input focus */ /* is screwed up under the WindowMaker window manager and possibly others. */ #ifdef INPUT_FOCUS XtAddEventHandler(top, SubstructureNotifyMask, TRUE, (XtEventHandler)mappinghandler, NULL); #endif XtAddEventHandler(top, NoEventMask, TRUE, (XtEventHandler)clientmessagehandler, NULL); /* Set the area widget width and height, center userspace (0, 0) on screen */ XtSetArg(wargs[0], XtNwidth, &newwin->width); XtSetArg(wargs[1], XtNheight, &newwin->height); XtGetValues(newwin->area, wargs, 2); /*---------------------------------------------------*/ /* Define basic display variables */ /* Redefine win to be just the drawing area window */ /*---------------------------------------------------*/ newwin->window = xcWindow(newwin->area); /*-----------------------------*/ /* Create the Graphics Context */ /*-----------------------------*/ values.foreground = BlackPixel(dpy, DefaultScreen(dpy)); values.background = WhitePixel(dpy, DefaultScreen(dpy)); values.font = appdata.xcfont->fid; newwin->gc = XCreateGC(dpy, newwin->window, GCForeground | GCBackground | GCFont, &values); #ifdef HAVE_CAIRO newwin->surface = cairo_xlib_surface_create(dpy, newwin->window, DefaultVisual(dpy, 0), newwin->width, newwin->height); newwin->cr = cairo_create(newwin->surface); #else newwin->clipmask = XCreatePixmap(dpy, newwin->window, newwin->width, newwin->height, 1); values.foreground = 0; values.background = 0; newwin->cmgc = XCreateGC(dpy, newwin->clipmask, GCForeground | GCBackground, &values); #endif /* HAVE_CAIRO */ return newwin; } #endif /*----------------------------------------------------------------------*/ /* When not using ToolScript, this is the standard X loop (XtMainLoop())*/ /*----------------------------------------------------------------------*/ int local_xloop() { XtAppMainLoop(app); return EXIT_SUCCESS; } /*----------------------------------------------------------------------*/ /* Main entry point when used as a standalone program */ /*----------------------------------------------------------------------*/ int main(int argc, char **argv) { char *argv0; /* find root of argv[0] */ short initargc = argc; /* because XtInitialize() absorbs the */ /* -schem flag and renumbers argc! (bug?) */ short k = 0; /*-----------------------------------------------------------*/ /* Find the root of the command called from the command line */ /*-----------------------------------------------------------*/ argv0 = strrchr(argv[0], '/'); if (argv0 == NULL) argv0 = argv[0]; else argv0++; pre_initialize(); /*---------------------------*/ /* Check for schematic flag */ /*---------------------------*/ for (k = argc - 1; k > 0; k--) { if (!strncmp(argv[k], "-2", 2)) { pressmode = 1; /* 2-button mouse indicator */ break; } } areawin = GUI_init(argc, argv); post_initialize(); /*-------------------------------------*/ /* Initialize the ghostscript renderer */ /*-------------------------------------*/ ghostinit(); /*----------------------------------------------------------*/ /* Check home directory for initial settings & other loads; */ /* Load the (default) built-in set of objects */ /*----------------------------------------------------------*/ #ifdef HAVE_PYTHON init_interpreter(); #endif loadrcfile(); pressmode = 0; /* Done using this to mark 2-button mouse mode */ composelib(PAGELIB); /* make sure we have a valid page list */ composelib(LIBLIB); /* and library directory */ /*----------------------------------------------------*/ /* Parse the command line for initial file to load. */ /* Otherwise, look for possible crash-recovery files. */ /*----------------------------------------------------*/ if (argc == 2 + (k != 0) || initargc == 2 + (k != 0)) { strcpy(_STR2, argv[(k == 1) ? 2 : 1]); startloadfile(-1); /* change the argument to load into library other than the User Library */ } else { findcrashfiles(); } xobjs.suspend = -1; return local_xloop(); /* No return---exit through quit() callback */ } /*----------------------------------------------------------------------*/ #endif /* !TCL_WRAPPER */ xcircuit-3.9.73/xcircexec.c0000664000175000001440000000624112335667423014320 0ustar timusers/*----------------------------------------------------------------------*/ /* xcircexec.c */ /* */ /* Written by R. Timothy Edwards for MultiGiG, Inc., September 2004 */ /* This file mainly lifted from the main application routine for */ /* "wish" from the Tk distribution. */ /* */ /* This is a compact re-write of the "wish" executable that calls */ /* Tk_MainEx with application-specific processing. Specifically, */ /* "wish" doesn't allow the startup script (~/.wishrc) to be renamed. */ /* However, for xcircuit running as an extension of Tcl, we want to */ /* source the xcircuit.tcl file instead of ~/.wishrc. So, all this */ /* file really does is to set the Tcl variable "tcl_rcFileName" to */ /* xcircuit.tcl, so that it will be processed as the startup script, */ /* followed by a drop back to the Tcl interpreter command-line main */ /* loop. */ /* */ /* This is a standalone executable. However, it is only called when */ /* "-noconsole" is specified on the UNIX command-line. When the */ /* console is used, the console is capable of sourcing the magic.tcl */ /* script itself, and so it uses "wish" as the executable. However, */ /* the console redirects standard input, so it prevents magic from */ /* being used in a batch processing mode. Thus, to batch-process with */ /* xcircuit, use "xcircuit -noc < script.tcl" or, interactively, */ /* "xcircuit -noc << EOF" followed by commands entered from stdin */ /* and ending with "EOF". */ /* */ /* The "xcircexec" method replaces the former use of "wish" with the */ /* "xcircuit" script setting HOME to point to the directory containing */ /* ".wishrc", a symbolic link to "xcircuit.tcl". That failed to work */ /* on remote systems because the $HOME environment variable is also */ /* used to find the user's .Xauthority file to authenticate the X11 */ /* connection. */ /*----------------------------------------------------------------------*/ #include #include #include /*----------------------------------------------------------------------*/ /* Application initiation. This is exactly like the AppInit routine */ /* for "wish", minus the cruft, but with "tcl_rcFileName" set to */ /* "xcircuit.tcl" instead of "~/.wishrc". */ /*----------------------------------------------------------------------*/ int xcircuit_AppInit(interp) Tcl_Interp *interp; { if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Tk_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); /* This is where we replace the home ".wishrc" file with */ /* xcircuit's startup script. */ Tcl_SetVar(interp, "tcl_rcFileName", SCRIPTS_DIR "/xcircuit.tcl", TCL_GLOBAL_ONLY); return TCL_OK; } /*----------------------------------------------------------------------*/ /* The main procedure; replacement for "wish". */ /*----------------------------------------------------------------------*/ int main(argc, argv) int argc; char **argv; { Tk_Main(argc, argv, xcircuit_AppInit); return 0; } /*----------------------------------------------------------------------*/ xcircuit-3.9.73/menudep.c0000664000175000001440000001045612335667423014003 0ustar timusers/*----------------------------------------------------------------------*/ /* menudep.c */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*----------------------------------------------------------------------*/ /* Parse file menus.h and create file of definitions for use by */ /* "NameToWidget" to find the menu in the widget menu tree. */ /*----------------------------------------------------------------------*/ /* */ /* example: For menustruct Fonts[], */ /* #define FontsButton 1 */ /* */ /* Name is the menustruct name appended with the word "Button". */ /* The Widget itself will be placed in the WidgetList "menuwidgets" */ /* */ /* NAMING CONVENTIONS: */ /* Cascade Widget: name of menustruct + "Button" */ /* Button Widgets: name of menustruct + modified name of button */ /* + "Button" */ /* */ /* "modified name" means that only alphanumeric characters are */ /* used and the macro (if any) in parentheses is removed. */ /*----------------------------------------------------------------------*/ #ifndef TCL_WRAPPER #include #include #include #ifndef XC_WIN32 #include #include #include #endif #include "xcircuit.h" #define _MENUDEP #include "menus.h" int menucount; FILE *mp; /*----------------------------------------------------------------------*/ char *normalize(char *textin) { char *tptr = textin; char *sptr; char *newptr = (char *)malloc((strlen(textin) + 1) * sizeof(char)); sptr = newptr; while (*tptr != '\0') { switch(*tptr) { case ' ': case ':': case '/': case '!': case '_': case '-': case '&': case '.': case '<': case '>': break; case '(': while (*tptr != '\0' && *tptr != ')') tptr++; if (*tptr == '\0') { printf("Open parenthesis in menu.h: %s\n", textin); exit(1); } break; default: *sptr++ = *tptr; break; } tptr++; } *sptr = '\0'; return newptr; } /*----------------------------------------------------------------------*/ void log_entry(char *menuname, char *buttonname) { char *n1, *n2; n1 = normalize(menuname); n2 = normalize(buttonname); if (strlen(n2) == 0) menucount++; else fprintf(mp, "#define %s%sButton (menuwidgets[%d])\n", n1, n2, menucount++); free(n1); free(n2); } /*----------------------------------------------------------------------*/ void toolbar_entry(char *buttonname) { char *n1; n1 = normalize(buttonname); fprintf(mp, "#define %sToolButton (menuwidgets[%d])\n", n1, menucount++); free(n1); } /*----------------------------------------------------------------------*/ void searchsubmenu(char *menuname, menuptr buttonmenu, int arraysize) { menuptr p; for (p = buttonmenu; p < buttonmenu + arraysize; p++) { if (p->submenu != NULL) searchsubmenu(p->name, p->submenu, p->size); else if (p->name[0] != ' ') /* anything but a separator */ log_entry(menuname, p->name); } } /*----------------------------------------------------------------------*/ int main() { short i; menucount = 0; if ((mp = fopen("menudep.h", "w")) == NULL) { printf("Unable to open menudep.h for output\n"); exit(1); } fprintf(mp, "/*-------------------------------------------------------*/\n"); fprintf(mp, "/* menudep.h generated automatically by program menudep */\n"); fprintf(mp, "/* from file menus.h. Do not edit. */\n"); fprintf(mp, "/*-------------------------------------------------------*/\n\n"); /* run the same routine as "createmenus()" in xcircuit.c so that the */ /* ordering will be the same. */ for (i = 0; i < maxbuttons; i++) searchsubmenu(TopButtons[i].name, TopButtons[i].submenu, TopButtons[i].size); #ifdef HAVE_XPM for (i = 0; i < toolbuttons; i++) toolbar_entry(ToolBar[i].name); #endif fprintf(mp, "#define MaxMenuWidgets %d\n", menucount); fprintf(mp, "\n/*-------------------------------------------------------*/\n\n"); fclose(mp); exit(0); } #else #include int main() { /* create empty file menudep.h */ FILE *fid = fopen("menudep.h", "w"); fclose(fid); return 0; } #endif /* TCL_WRAPPER */ xcircuit-3.9.73/config.sub0000775000175000001440000006700512335667423014167 0ustar timusers#! /bin/sh # Configuration validation subroutine script. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 # Free Software Foundation, Inc. timestamp='2001-08-13' # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file 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. # # 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, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. # 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. # Please send patches to . # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit 0 ;; --version | -v ) echo "$version" ; exit 0 ;; --help | --h* | -h ) echo "$usage"; exit 0 ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" exit 1 ;; *local*) # First pass through any local machine types. echo $1 exit 0;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | storm-chaos* | os2-emx* | windows32-*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple | -axis) os= basic_machine=$1 ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \ | c4x | clipper \ | d10v | d30v | dsp16xx \ | fr30 \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | i370 | i860 | i960 | ia64 \ | m32r | m68000 | m68k | m88k | mcore \ | mips16 | mips64 | mips64el | mips64orion | mips64orionel \ | mips64vr4100 | mips64vr4100el | mips64vr4300 \ | mips64vr4300el | mips64vr5000 | mips64vr5000el \ | mipsbe | mipsel | mipsle | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | ns16k | ns32k \ | openrisc \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ | pyramid \ | s390 | s390x \ | sh | sh[34] | sh[34]eb | shbe | shle \ | sparc | sparc64 | sparclet | sparclite | sparcv9 | sparcv9b \ | strongarm \ | tahoe | thumb | tic80 | tron \ | v850 \ | we32k \ | x86 | xscale \ | z8k) basic_machine=$basic_machine-unknown ;; m6811 | m68hc11 | m6812 | m68hc12) # Motorola 68HC11/12. basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; # We use `pc' rather than `unknown' # because (1) that's what they normally are, and # (2) the word "unknown" tends to confuse beginning users. i*86 | x86_64) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alphapca5[67]-* | arc-* \ | arm-* | armbe-* | armle-* | armv*-* \ | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c54x-* \ | clipper-* | cray2-* | cydra-* \ | d10v-* | d30v-* \ | elxsi-* \ | f30[01]-* | f700-* | fr30-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | i*86-* | i860-* | i960-* | ia64-* \ | m32r-* \ | m68000-* | m680[01234]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | mcore-* \ | mips-* | mips16-* | mips64-* | mips64el-* | mips64orion-* \ | mips64orionel-* | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* | mipsbe-* | mipsel-* \ | mipsle-* | mipstx39-* | mipstx39el-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ | pyramid-* \ | romp-* | rs6000-* \ | s390-* | s390x-* \ | sh-* | sh[34]-* | sh[34]eb-* | shbe-* | shle-* \ | sparc-* | sparc64-* | sparc86x-* | sparclite-* \ | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* \ | t3e-* | tahoe-* | thumb-* | tic30-* | tic54x-* | tic80-* | tron-* \ | v850-* | vax-* \ | we32k-* \ | x86-* | x86_64-* | xmp-* | xps100-* | xscale-* \ | ymp-* \ | z8k-*) ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | ymp) basic_machine=ymp-cray os=-unicos ;; cray2) basic_machine=cray2-cray os=-unicos ;; [cjt]90) basic_machine=${basic_machine}-cray os=-unicos ;; crds | unos) basic_machine=m68k-crds ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; i370-ibm* | ibm*) basic_machine=i370-ibm ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? i*86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mipsel*-linux*) basic_machine=mipsel-unknown os=-linux-gnu ;; mips*-linux*) basic_machine=mips-unknown os=-linux-gnu ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; mmix*) basic_machine=mmix-knuth os=-mmixware ;; monitor) basic_machine=m68k-rom68k os=-coff ;; msdos) basic_machine=i386-pc os=-msdos ;; mvs) basic_machine=i370-ibm os=-mvs ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pentium | p5 | k5 | k6 | nexgen) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon) basic_machine=i686-pc ;; pentiumii | pentium2) basic_machine=i686-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc) basic_machine=powerpc-unknown ;; ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sparclite-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=t3e-cray os=-unicos ;; tic54x | c54x*) basic_machine=tic54x-unknown os=-coff ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; tower | tower-32) basic_machine=m68k-ncr ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; windows32) basic_machine=i386-pc os=-windows32-msvcrt ;; xmp) basic_machine=xmp-cray os=-unicos ;; xps | xps100) basic_machine=xps100-honeywell ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; mips) if [ x$os = x-linux-gnu ]; then basic_machine=mips-unknown else basic_machine=mips-mips fi ;; romp) basic_machine=romp-ibm ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh3 | sh4 | sh3eb | sh4eb) basic_machine=sh-unknown ;; sparc | sparcv9 | sparcv9b) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; c4x*) basic_machine=c4x-none os=-coff ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \ | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* \ | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto*) os=-nto-qnx ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; pdp10-*) os=-tops20 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; m68*-cisco) os=-aout ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-ibm) os=-aix ;; *-wec) os=-proelf ;; *-winbond) os=-proelf ;; *-oki) os=-proelf ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f30[01]-fujitsu | f700-fujitsu) os=-uxpv ;; *-rom68k) os=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -aix*) vendor=ibm ;; -beos*) vendor=be ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs* | -opened*) vendor=ibm ;; -ptx*) vendor=sequent ;; -vxsim* | -vxworks*) vendor=wrs ;; -aux*) vendor=apple ;; -hms*) vendor=hitachi ;; -mpw* | -macos*) vendor=apple ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) vendor=atari ;; -vos*) vendor=stratus ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit 0 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: xcircuit-3.9.73/xcwin32-colors.h0000664000175000001440000005215212335667423015146 0ustar timusersstatic struct { char *name; int red, green, blue; } X11Colors[] = { {"snow", 255, 250, 250}, {"ghost white", 248, 248, 255}, {"GhostWhite", 248, 248, 255}, {"white smoke", 245, 245, 245}, {"WhiteSmoke", 245, 245, 245}, {"gainsboro", 220, 220, 220}, {"floral white", 255, 250, 240}, {"FloralWhite", 255, 250, 240}, {"old lace", 253, 245, 230}, {"OldLace", 253, 245, 230}, {"linen", 250, 240, 230}, {"antique white", 250, 235, 215}, {"AntiqueWhite", 250, 235, 215}, {"papaya whip", 255, 239, 213}, {"PapayaWhip", 255, 239, 213}, {"blanched almond", 255, 235, 205}, {"BlanchedAlmond", 255, 235, 205}, {"bisque", 255, 228, 196}, {"peach puff", 255, 218, 185}, {"PeachPuff", 255, 218, 185}, {"navajo white", 255, 222, 173}, {"NavajoWhite", 255, 222, 173}, {"moccasin", 255, 228, 181}, {"cornsilk", 255, 248, 220}, {"ivory", 255, 255, 240}, {"lemon chiffon", 255, 250, 205}, {"LemonChiffon", 255, 250, 205}, {"seashell", 255, 245, 238}, {"honeydew", 240, 255, 240}, {"mint cream", 245, 255, 250}, {"MintCream", 245, 255, 250}, {"azure", 240, 255, 255}, {"alice blue", 240, 248, 255}, {"AliceBlue", 240, 248, 255}, {"lavender", 230, 230, 250}, {"lavender blush", 255, 240, 245}, {"LavenderBlush", 255, 240, 245}, {"misty rose", 255, 228, 225}, {"MistyRose", 255, 228, 225}, {"white", 255, 255, 255}, {"black", 0, 0, 0}, {"dark slate", 47, 79, 79}, {"DarkSlateGray", 47, 79, 79}, {"dark slate", 47, 79, 79}, {"DarkSlateGrey", 47, 79, 79}, {"dim gray", 105, 105, 105}, {"DimGray", 105, 105, 105}, {"dim grey", 105, 105, 105}, {"DimGrey", 105, 105, 105}, {"slate gray", 112, 128, 144}, {"SlateGray", 112, 128, 144}, {"slate grey", 112, 128, 144}, {"SlateGrey", 112, 128, 144}, {"light slate", 119, 136, 153}, {"LightSlateGray", 119, 136, 153}, {"light slate", 119, 136, 153}, {"LightSlateGrey", 119, 136, 153}, {"gray", 190, 190, 190}, {"grey", 190, 190, 190}, {"light grey", 211, 211, 211}, {"LightGrey", 211, 211, 211}, {"light gray", 211, 211, 211}, {"LightGray", 211, 211, 211}, {"midnight blue", 25, 25, 112}, {"MidnightBlue", 25, 25, 112}, {"navy", 0, 0, 128}, {"navy blue", 0, 0, 128}, {"NavyBlue", 0, 0, 128}, {"cornflower blue", 100, 149, 237}, {"CornflowerBlue", 100, 149, 237}, {"dark slate", 72, 61, 139}, {"DarkSlateBlue", 72, 61, 139}, {"slate blue", 106, 90, 205}, {"SlateBlue", 106, 90, 205}, {"medium slate", 123, 104, 238}, {"MediumSlateBlue", 123, 104, 238}, {"light slate", 132, 112, 255}, {"LightSlateBlue", 132, 112, 255}, {"medium blue", 0, 0, 205}, {"MediumBlue", 0, 0, 205}, {"royal blue", 65, 105, 225}, {"RoyalBlue", 65, 105, 225}, {"blue", 0, 0, 255}, {"dodger blue", 30, 144, 255}, {"DodgerBlue", 30, 144, 255}, {"deep sky", 0, 191, 255}, {"DeepSkyBlue", 0, 191, 255}, {"sky blue", 135, 206, 235}, {"SkyBlue", 135, 206, 235}, {"light sky", 135, 206, 250}, {"LightSkyBlue", 135, 206, 250}, {"steel blue", 70, 130, 180}, {"SteelBlue", 70, 130, 180}, {"light steel", 176, 196, 222}, {"LightSteelBlue", 176, 196, 222}, {"light blue", 173, 216, 230}, {"LightBlue", 173, 216, 230}, {"powder blue", 176, 224, 230}, {"PowderBlue", 176, 224, 230}, {"pale turquoise", 175, 238, 238}, {"PaleTurquoise", 175, 238, 238}, {"dark turquoise", 0, 206, 209}, {"DarkTurquoise", 0, 206, 209}, {"medium turquoise", 72, 209, 204}, {"MediumTurquoise", 72, 209, 204}, {"turquoise", 64, 224, 208}, {"cyan", 0, 255, 255}, {"light cyan", 224, 255, 255}, {"LightCyan", 224, 255, 255}, {"cadet blue", 95, 158, 160}, {"CadetBlue", 95, 158, 160}, {"medium aquamarine", 102, 205, 170}, {"MediumAquamarine", 102, 205, 170}, {"aquamarine", 127, 255, 212}, {"dark green", 0, 100, 0}, {"DarkGreen", 0, 100, 0}, {"dark olive", 85, 107, 47}, {"DarkOliveGreen", 85, 107, 47}, {"dark sea", 143, 188, 143}, {"DarkSeaGreen", 143, 188, 143}, {"sea green", 46, 139, 87}, {"SeaGreen", 46, 139, 87}, {"medium sea", 60, 179, 113}, {"MediumSeaGreen", 60, 179, 113}, {"light sea", 32, 178, 170}, {"LightSeaGreen", 32, 178, 170}, {"pale green", 152, 251, 152}, {"PaleGreen", 152, 251, 152}, {"spring green", 0, 255, 127}, {"SpringGreen", 0, 255, 127}, {"lawn green", 124, 252, 0}, {"LawnGreen", 124, 252, 0}, {"green", 0, 255, 0}, {"chartreuse", 127, 255, 0}, {"medium spring", 0, 250, 154}, {"MediumSpringGreen", 0, 250, 154}, {"green yellow", 173, 255, 47}, {"GreenYellow", 173, 255, 47}, {"lime green", 50, 205, 50}, {"LimeGreen", 50, 205, 50}, {"yellow green", 154, 205, 50}, {"YellowGreen", 154, 205, 50}, {"forest green", 34, 139, 34}, {"ForestGreen", 34, 139, 34}, {"olive drab", 107, 142, 35}, {"OliveDrab", 107, 142, 35}, {"dark khaki", 189, 183, 107}, {"DarkKhaki", 189, 183, 107}, {"khaki", 240, 230, 140}, {"pale goldenrod", 238, 232, 170}, {"PaleGoldenrod", 238, 232, 170}, {"light goldenrod", 250, 250, 210}, {"LightGoldenrodYellow", 250, 250, 210}, {"light yellow", 255, 255, 224}, {"LightYellow", 255, 255, 224}, {"yellow", 255, 255, 0}, {"gold", 255, 215, 0}, {"light goldenrod", 238, 221, 130}, {"LightGoldenrod", 238, 221, 130}, {"goldenrod", 218, 165, 32}, {"dark goldenrod", 184, 134, 11}, {"DarkGoldenrod", 184, 134, 11}, {"rosy brown", 188, 143, 143}, {"RosyBrown", 188, 143, 143}, {"indian red", 205, 92, 92}, {"IndianRed", 205, 92, 92}, {"saddle brown", 139, 69, 19}, {"SaddleBrown", 139, 69, 19}, {"sienna", 160, 82, 45}, {"peru", 205, 133, 63}, {"burlywood", 222, 184, 135}, {"beige", 245, 245, 220}, {"wheat", 245, 222, 179}, {"sandy brown", 244, 164, 96}, {"SandyBrown", 244, 164, 96}, {"tan", 210, 180, 140}, {"chocolate", 210, 105, 30}, {"firebrick", 178, 34, 34}, {"brown", 165, 42, 42}, {"dark salmon", 233, 150, 122}, {"DarkSalmon", 233, 150, 122}, {"salmon", 250, 128, 114}, {"light salmon", 255, 160, 122}, {"LightSalmon", 255, 160, 122}, {"orange", 255, 165, 0}, {"dark orange", 255, 140, 0}, {"DarkOrange", 255, 140, 0}, {"coral", 255, 127, 80}, {"light coral", 240, 128, 128}, {"LightCoral", 240, 128, 128}, {"tomato", 255, 99, 71}, {"orange red", 255, 69, 0}, {"OrangeRed", 255, 69, 0}, {"red", 255, 0, 0}, {"hot pink", 255, 105, 180}, {"HotPink", 255, 105, 180}, {"deep pink", 255, 20, 147}, {"DeepPink", 255, 20, 147}, {"pink", 255, 192, 203}, {"light pink", 255, 182, 193}, {"LightPink", 255, 182, 193}, {"pale violet", 219, 112, 147}, {"PaleVioletRed", 219, 112, 147}, {"maroon", 176, 48, 96}, {"medium violet", 199, 21, 133}, {"MediumVioletRed", 199, 21, 133}, {"violet red", 208, 32, 144}, {"VioletRed", 208, 32, 144}, {"magenta", 255, 0, 255}, {"violet", 238, 130, 238}, {"plum", 221, 160, 221}, {"orchid", 218, 112, 214}, {"medium orchid", 186, 85, 211}, {"MediumOrchid", 186, 85, 211}, {"dark orchid", 153, 50, 204}, {"DarkOrchid", 153, 50, 204}, {"dark violet", 148, 0, 211}, {"DarkViolet", 148, 0, 211}, {"blue violet", 138, 43, 226}, {"BlueViolet", 138, 43, 226}, {"purple", 160, 32, 240}, {"medium purple", 147, 112, 219}, {"MediumPurple", 147, 112, 219}, {"thistle", 216, 191, 216}, {"snow1", 255, 250, 250}, {"snow2", 238, 233, 233}, {"snow3", 205, 201, 201}, {"snow4", 139, 137, 137}, {"seashell1", 255, 245, 238}, {"seashell2", 238, 229, 222}, {"seashell3", 205, 197, 191}, {"seashell4", 139, 134, 130}, {"AntiqueWhite1", 255, 239, 219}, {"AntiqueWhite2", 238, 223, 204}, {"AntiqueWhite3", 205, 192, 176}, {"AntiqueWhite4", 139, 131, 120}, {"bisque1", 255, 228, 196}, {"bisque2", 238, 213, 183}, {"bisque3", 205, 183, 158}, {"bisque4", 139, 125, 107}, {"PeachPuff1", 255, 218, 185}, {"PeachPuff2", 238, 203, 173}, {"PeachPuff3", 205, 175, 149}, {"PeachPuff4", 139, 119, 101}, {"NavajoWhite1", 255, 222, 173}, {"NavajoWhite2", 238, 207, 161}, {"NavajoWhite3", 205, 179, 139}, {"NavajoWhite4", 139, 121, 94}, {"LemonChiffon1", 255, 250, 205}, {"LemonChiffon2", 238, 233, 191}, {"LemonChiffon3", 205, 201, 165}, {"LemonChiffon4", 139, 137, 112}, {"cornsilk1", 255, 248, 220}, {"cornsilk2", 238, 232, 205}, {"cornsilk3", 205, 200, 177}, {"cornsilk4", 139, 136, 120}, {"ivory1", 255, 255, 240}, {"ivory2", 238, 238, 224}, {"ivory3", 205, 205, 193}, {"ivory4", 139, 139, 131}, {"honeydew1", 240, 255, 240}, {"honeydew2", 224, 238, 224}, {"honeydew3", 193, 205, 193}, {"honeydew4", 131, 139, 131}, {"LavenderBlush1", 255, 240, 245}, {"LavenderBlush2", 238, 224, 229}, {"LavenderBlush3", 205, 193, 197}, {"LavenderBlush4", 139, 131, 134}, {"MistyRose1", 255, 228, 225}, {"MistyRose2", 238, 213, 210}, {"MistyRose3", 205, 183, 181}, {"MistyRose4", 139, 125, 123}, {"azure1", 240, 255, 255}, {"azure2", 224, 238, 238}, {"azure3", 193, 205, 205}, {"azure4", 131, 139, 139}, {"SlateBlue1", 131, 111, 255}, {"SlateBlue2", 122, 103, 238}, {"SlateBlue3", 105, 89, 205}, {"SlateBlue4", 71, 60, 139}, {"RoyalBlue1", 72, 118, 255}, {"RoyalBlue2", 67, 110, 238}, {"RoyalBlue3", 58, 95, 205}, {"RoyalBlue4", 39, 64, 139}, {"blue1", 0, 0, 255}, {"blue2", 0, 0, 238}, {"blue3", 0, 0, 205}, {"blue4", 0, 0, 139}, {"DodgerBlue1", 30, 144, 255}, {"DodgerBlue2", 28, 134, 238}, {"DodgerBlue3", 24, 116, 205}, {"DodgerBlue4", 16, 78, 139}, {"SteelBlue1", 99, 184, 255}, {"SteelBlue2", 92, 172, 238}, {"SteelBlue3", 79, 148, 205}, {"SteelBlue4", 54, 100, 139}, {"DeepSkyBlue1", 0, 191, 255}, {"DeepSkyBlue2", 0, 178, 238}, {"DeepSkyBlue3", 0, 154, 205}, {"DeepSkyBlue4", 0, 104, 139}, {"SkyBlue1", 135, 206, 255}, {"SkyBlue2", 126, 192, 238}, {"SkyBlue3", 108, 166, 205}, {"SkyBlue4", 74, 112, 139}, {"LightSkyBlue1", 176, 226, 255}, {"LightSkyBlue2", 164, 211, 238}, {"LightSkyBlue3", 141, 182, 205}, {"LightSkyBlue4", 96, 123, 139}, {"SlateGray1", 198, 226, 255}, {"SlateGray2", 185, 211, 238}, {"SlateGray3", 159, 182, 205}, {"SlateGray4", 108, 123, 139}, {"LightSteelBlue1", 202, 225, 255}, {"LightSteelBlue2", 188, 210, 238}, {"LightSteelBlue3", 162, 181, 205}, {"LightSteelBlue4", 110, 123, 139}, {"LightBlue1", 191, 239, 255}, {"LightBlue2", 178, 223, 238}, {"LightBlue3", 154, 192, 205}, {"LightBlue4", 104, 131, 139}, {"LightCyan1", 224, 255, 255}, {"LightCyan2", 209, 238, 238}, {"LightCyan3", 180, 205, 205}, {"LightCyan4", 122, 139, 139}, {"PaleTurquoise1", 187, 255, 255}, {"PaleTurquoise2", 174, 238, 238}, {"PaleTurquoise3", 150, 205, 205}, {"PaleTurquoise4", 102, 139, 139}, {"CadetBlue1", 152, 245, 255}, {"CadetBlue2", 142, 229, 238}, {"CadetBlue3", 122, 197, 205}, {"CadetBlue4", 83, 134, 139}, {"turquoise1", 0, 245, 255}, {"turquoise2", 0, 229, 238}, {"turquoise3", 0, 197, 205}, {"turquoise4", 0, 134, 139}, {"cyan1", 0, 255, 255}, {"cyan2", 0, 238, 238}, {"cyan3", 0, 205, 205}, {"cyan4", 0, 139, 139}, {"DarkSlateGray1", 151, 255, 255}, {"DarkSlateGray2", 141, 238, 238}, {"DarkSlateGray3", 121, 205, 205}, {"DarkSlateGray4", 82, 139, 139}, {"aquamarine1", 127, 255, 212}, {"aquamarine2", 118, 238, 198}, {"aquamarine3", 102, 205, 170}, {"aquamarine4", 69, 139, 116}, {"DarkSeaGreen1", 193, 255, 193}, {"DarkSeaGreen2", 180, 238, 180}, {"DarkSeaGreen3", 155, 205, 155}, {"DarkSeaGreen4", 105, 139, 105}, {"SeaGreen1", 84, 255, 159}, {"SeaGreen2", 78, 238, 148}, {"SeaGreen3", 67, 205, 128}, {"SeaGreen4", 46, 139, 87}, {"PaleGreen1", 154, 255, 154}, {"PaleGreen2", 144, 238, 144}, {"PaleGreen3", 124, 205, 124}, {"PaleGreen4", 84, 139, 84}, {"SpringGreen1", 0, 255, 127}, {"SpringGreen2", 0, 238, 118}, {"SpringGreen3", 0, 205, 102}, {"SpringGreen4", 0, 139, 69}, {"green1", 0, 255, 0}, {"green2", 0, 238, 0}, {"green3", 0, 205, 0}, {"green4", 0, 139, 0}, {"chartreuse1", 127, 255, 0}, {"chartreuse2", 118, 238, 0}, {"chartreuse3", 102, 205, 0}, {"chartreuse4", 69, 139, 0}, {"OliveDrab1", 192, 255, 62}, {"OliveDrab2", 179, 238, 58}, {"OliveDrab3", 154, 205, 50}, {"OliveDrab4", 105, 139, 34}, {"DarkOliveGreen1", 202, 255, 112}, {"DarkOliveGreen2", 188, 238, 104}, {"DarkOliveGreen3", 162, 205, 90}, {"DarkOliveGreen4", 110, 139, 61}, {"khaki1", 255, 246, 143}, {"khaki2", 238, 230, 133}, {"khaki3", 205, 198, 115}, {"khaki4", 139, 134, 78}, {"LightGoldenrod1", 255, 236, 139}, {"LightGoldenrod2", 238, 220, 130}, {"LightGoldenrod3", 205, 190, 112}, {"LightGoldenrod4", 139, 129, 76}, {"LightYellow1", 255, 255, 224}, {"LightYellow2", 238, 238, 209}, {"LightYellow3", 205, 205, 180}, {"LightYellow4", 139, 139, 122}, {"yellow1", 255, 255, 0}, {"yellow2", 238, 238, 0}, {"yellow3", 205, 205, 0}, {"yellow4", 139, 139, 0}, {"gold1", 255, 215, 0}, {"gold2", 238, 201, 0}, {"gold3", 205, 173, 0}, {"gold4", 139, 117, 0}, {"goldenrod1", 255, 193, 37}, {"goldenrod2", 238, 180, 34}, {"goldenrod3", 205, 155, 29}, {"goldenrod4", 139, 105, 20}, {"DarkGoldenrod1", 255, 185, 15}, {"DarkGoldenrod2", 238, 173, 14}, {"DarkGoldenrod3", 205, 149, 12}, {"DarkGoldenrod4", 139, 101, 8}, {"RosyBrown1", 255, 193, 193}, {"RosyBrown2", 238, 180, 180}, {"RosyBrown3", 205, 155, 155}, {"RosyBrown4", 139, 105, 105}, {"IndianRed1", 255, 106, 106}, {"IndianRed2", 238, 99, 99}, {"IndianRed3", 205, 85, 85}, {"IndianRed4", 139, 58, 58}, {"sienna1", 255, 130, 71}, {"sienna2", 238, 121, 66}, {"sienna3", 205, 104, 57}, {"sienna4", 139, 71, 38}, {"burlywood1", 255, 211, 155}, {"burlywood2", 238, 197, 145}, {"burlywood3", 205, 170, 125}, {"burlywood4", 139, 115, 85}, {"wheat1", 255, 231, 186}, {"wheat2", 238, 216, 174}, {"wheat3", 205, 186, 150}, {"wheat4", 139, 126, 102}, {"tan1", 255, 165, 79}, {"tan2", 238, 154, 73}, {"tan3", 205, 133, 63}, {"tan4", 139, 90, 43}, {"chocolate1", 255, 127, 36}, {"chocolate2", 238, 118, 33}, {"chocolate3", 205, 102, 29}, {"chocolate4", 139, 69, 19}, {"firebrick1", 255, 48, 48}, {"firebrick2", 238, 44, 44}, {"firebrick3", 205, 38, 38}, {"firebrick4", 139, 26, 26}, {"brown1", 255, 64, 64}, {"brown2", 238, 59, 59}, {"brown3", 205, 51, 51}, {"brown4", 139, 35, 35}, {"salmon1", 255, 140, 105}, {"salmon2", 238, 130, 98}, {"salmon3", 205, 112, 84}, {"salmon4", 139, 76, 57}, {"LightSalmon1", 255, 160, 122}, {"LightSalmon2", 238, 149, 114}, {"LightSalmon3", 205, 129, 98}, {"LightSalmon4", 139, 87, 66}, {"orange1", 255, 165, 0}, {"orange2", 238, 154, 0}, {"orange3", 205, 133, 0}, {"orange4", 139, 90, 0}, {"DarkOrange1", 255, 127, 0}, {"DarkOrange2", 238, 118, 0}, {"DarkOrange3", 205, 102, 0}, {"DarkOrange4", 139, 69, 0}, {"coral1", 255, 114, 86}, {"coral2", 238, 106, 80}, {"coral3", 205, 91, 69}, {"coral4", 139, 62, 47}, {"tomato1", 255, 99, 71}, {"tomato2", 238, 92, 66}, {"tomato3", 205, 79, 57}, {"tomato4", 139, 54, 38}, {"OrangeRed1", 255, 69, 0}, {"OrangeRed2", 238, 64, 0}, {"OrangeRed3", 205, 55, 0}, {"OrangeRed4", 139, 37, 0}, {"red1", 255, 0, 0}, {"red2", 238, 0, 0}, {"red3", 205, 0, 0}, {"red4", 139, 0, 0}, {"DeepPink1", 255, 20, 147}, {"DeepPink2", 238, 18, 137}, {"DeepPink3", 205, 16, 118}, {"DeepPink4", 139, 10, 80}, {"HotPink1", 255, 110, 180}, {"HotPink2", 238, 106, 167}, {"HotPink3", 205, 96, 144}, {"HotPink4", 139, 58, 98}, {"pink1", 255, 181, 197}, {"pink2", 238, 169, 184}, {"pink3", 205, 145, 158}, {"pink4", 139, 99, 108}, {"LightPink1", 255, 174, 185}, {"LightPink2", 238, 162, 173}, {"LightPink3", 205, 140, 149}, {"LightPink4", 139, 95, 101}, {"PaleVioletRed1", 255, 130, 171}, {"PaleVioletRed2", 238, 121, 159}, {"PaleVioletRed3", 205, 104, 137}, {"PaleVioletRed4", 139, 71, 93}, {"maroon1", 255, 52, 179}, {"maroon2", 238, 48, 167}, {"maroon3", 205, 41, 144}, {"maroon4", 139, 28, 98}, {"VioletRed1", 255, 62, 150}, {"VioletRed2", 238, 58, 140}, {"VioletRed3", 205, 50, 120}, {"VioletRed4", 139, 34, 82}, {"magenta1", 255, 0, 255}, {"magenta2", 238, 0, 238}, {"magenta3", 205, 0, 205}, {"magenta4", 139, 0, 139}, {"orchid1", 255, 131, 250}, {"orchid2", 238, 122, 233}, {"orchid3", 205, 105, 201}, {"orchid4", 139, 71, 137}, {"plum1", 255, 187, 255}, {"plum2", 238, 174, 238}, {"plum3", 205, 150, 205}, {"plum4", 139, 102, 139}, {"MediumOrchid1", 224, 102, 255}, {"MediumOrchid2", 209, 95, 238}, {"MediumOrchid3", 180, 82, 205}, {"MediumOrchid4", 122, 55, 139}, {"DarkOrchid1", 191, 62, 255}, {"DarkOrchid2", 178, 58, 238}, {"DarkOrchid3", 154, 50, 205}, {"DarkOrchid4", 104, 34, 139}, {"purple1", 155, 48, 255}, {"purple2", 145, 44, 238}, {"purple3", 125, 38, 205}, {"purple4", 85, 26, 139}, {"MediumPurple1", 171, 130, 255}, {"MediumPurple2", 159, 121, 238}, {"MediumPurple3", 137, 104, 205}, {"MediumPurple4", 93, 71, 139}, {"thistle1", 255, 225, 255}, {"thistle2", 238, 210, 238}, {"thistle3", 205, 181, 205}, {"thistle4", 139, 123, 139}, {"gray0", 0, 0, 0}, {"grey0", 0, 0, 0}, {"gray1", 3, 3, 3}, {"grey1", 3, 3, 3}, {"gray2", 5, 5, 5}, {"grey2", 5, 5, 5}, {"gray3", 8, 8, 8}, {"grey3", 8, 8, 8}, {"gray4", 10, 10, 10}, {"grey4", 10, 10, 10}, {"gray5", 13, 13, 13}, {"grey5", 13, 13, 13}, {"gray6", 15, 15, 15}, {"grey6", 15, 15, 15}, {"gray7", 18, 18, 18}, {"grey7", 18, 18, 18}, {"gray8", 20, 20, 20}, {"grey8", 20, 20, 20}, {"gray9", 23, 23, 23}, {"grey9", 23, 23, 23}, {"gray10", 26, 26, 26}, {"grey10", 26, 26, 26}, {"gray11", 28, 28, 28}, {"grey11", 28, 28, 28}, {"gray12", 31, 31, 31}, {"grey12", 31, 31, 31}, {"gray13", 33, 33, 33}, {"grey13", 33, 33, 33}, {"gray14", 36, 36, 36}, {"grey14", 36, 36, 36}, {"gray15", 38, 38, 38}, {"grey15", 38, 38, 38}, {"gray16", 41, 41, 41}, {"grey16", 41, 41, 41}, {"gray17", 43, 43, 43}, {"grey17", 43, 43, 43}, {"gray18", 46, 46, 46}, {"grey18", 46, 46, 46}, {"gray19", 48, 48, 48}, {"grey19", 48, 48, 48}, {"gray20", 51, 51, 51}, {"grey20", 51, 51, 51}, {"gray21", 54, 54, 54}, {"grey21", 54, 54, 54}, {"gray22", 56, 56, 56}, {"grey22", 56, 56, 56}, {"gray23", 59, 59, 59}, {"grey23", 59, 59, 59}, {"gray24", 61, 61, 61}, {"grey24", 61, 61, 61}, {"gray25", 64, 64, 64}, {"grey25", 64, 64, 64}, {"gray26", 66, 66, 66}, {"grey26", 66, 66, 66}, {"gray27", 69, 69, 69}, {"grey27", 69, 69, 69}, {"gray28", 71, 71, 71}, {"grey28", 71, 71, 71}, {"gray29", 74, 74, 74}, {"grey29", 74, 74, 74}, {"gray30", 77, 77, 77}, {"grey30", 77, 77, 77}, {"gray31", 79, 79, 79}, {"grey31", 79, 79, 79}, {"gray32", 82, 82, 82}, {"grey32", 82, 82, 82}, {"gray33", 84, 84, 84}, {"grey33", 84, 84, 84}, {"gray34", 87, 87, 87}, {"grey34", 87, 87, 87}, {"gray35", 89, 89, 89}, {"grey35", 89, 89, 89}, {"gray36", 92, 92, 92}, {"grey36", 92, 92, 92}, {"gray37", 94, 94, 94}, {"grey37", 94, 94, 94}, {"gray38", 97, 97, 97}, {"grey38", 97, 97, 97}, {"gray39", 99, 99, 99}, {"grey39", 99, 99, 99}, {"gray40", 102, 102, 102}, {"grey40", 102, 102, 102}, {"gray41", 105, 105, 105}, {"grey41", 105, 105, 105}, {"gray42", 107, 107, 107}, {"grey42", 107, 107, 107}, {"gray43", 110, 110, 110}, {"grey43", 110, 110, 110}, {"gray44", 112, 112, 112}, {"grey44", 112, 112, 112}, {"gray45", 115, 115, 115}, {"grey45", 115, 115, 115}, {"gray46", 117, 117, 117}, {"grey46", 117, 117, 117}, {"gray47", 120, 120, 120}, {"grey47", 120, 120, 120}, {"gray48", 122, 122, 122}, {"grey48", 122, 122, 122}, {"gray49", 125, 125, 125}, {"grey49", 125, 125, 125}, {"gray50", 127, 127, 127}, {"grey50", 127, 127, 127}, {"gray51", 130, 130, 130}, {"grey51", 130, 130, 130}, {"gray52", 133, 133, 133}, {"grey52", 133, 133, 133}, {"gray53", 135, 135, 135}, {"grey53", 135, 135, 135}, {"gray54", 138, 138, 138}, {"grey54", 138, 138, 138}, {"gray55", 140, 140, 140}, {"grey55", 140, 140, 140}, {"gray56", 143, 143, 143}, {"grey56", 143, 143, 143}, {"gray57", 145, 145, 145}, {"grey57", 145, 145, 145}, {"gray58", 148, 148, 148}, {"grey58", 148, 148, 148}, {"gray59", 150, 150, 150}, {"grey59", 150, 150, 150}, {"gray60", 153, 153, 153}, {"grey60", 153, 153, 153}, {"gray61", 156, 156, 156}, {"grey61", 156, 156, 156}, {"gray62", 158, 158, 158}, {"grey62", 158, 158, 158}, {"gray63", 161, 161, 161}, {"grey63", 161, 161, 161}, {"gray64", 163, 163, 163}, {"grey64", 163, 163, 163}, {"gray65", 166, 166, 166}, {"grey65", 166, 166, 166}, {"gray66", 168, 168, 168}, {"grey66", 168, 168, 168}, {"gray67", 171, 171, 171}, {"grey67", 171, 171, 171}, {"gray68", 173, 173, 173}, {"grey68", 173, 173, 173}, {"gray69", 176, 176, 176}, {"grey69", 176, 176, 176}, {"gray70", 179, 179, 179}, {"grey70", 179, 179, 179}, {"gray71", 181, 181, 181}, {"grey71", 181, 181, 181}, {"gray72", 184, 184, 184}, {"grey72", 184, 184, 184}, {"gray73", 186, 186, 186}, {"grey73", 186, 186, 186}, {"gray74", 189, 189, 189}, {"grey74", 189, 189, 189}, {"gray75", 191, 191, 191}, {"grey75", 191, 191, 191}, {"gray76", 194, 194, 194}, {"grey76", 194, 194, 194}, {"gray77", 196, 196, 196}, {"grey77", 196, 196, 196}, {"gray78", 199, 199, 199}, {"grey78", 199, 199, 199}, {"gray79", 201, 201, 201}, {"grey79", 201, 201, 201}, {"gray80", 204, 204, 204}, {"grey80", 204, 204, 204}, {"gray81", 207, 207, 207}, {"grey81", 207, 207, 207}, {"gray82", 209, 209, 209}, {"grey82", 209, 209, 209}, {"gray83", 212, 212, 212}, {"grey83", 212, 212, 212}, {"gray84", 214, 214, 214}, {"grey84", 214, 214, 214}, {"gray85", 217, 217, 217}, {"grey85", 217, 217, 217}, {"gray86", 219, 219, 219}, {"grey86", 219, 219, 219}, {"gray87", 222, 222, 222}, {"grey87", 222, 222, 222}, {"gray88", 224, 224, 224}, {"grey88", 224, 224, 224}, {"gray89", 227, 227, 227}, {"grey89", 227, 227, 227}, {"gray90", 229, 229, 229}, {"grey90", 229, 229, 229}, {"gray91", 232, 232, 232}, {"grey91", 232, 232, 232}, {"gray92", 235, 235, 235}, {"grey92", 235, 235, 235}, {"gray93", 237, 237, 237}, {"grey93", 237, 237, 237}, {"gray94", 240, 240, 240}, {"grey94", 240, 240, 240}, {"gray95", 242, 242, 242}, {"grey95", 242, 242, 242}, {"gray96", 245, 245, 245}, {"grey96", 245, 245, 245}, {"gray97", 247, 247, 247}, {"grey97", 247, 247, 247}, {"gray98", 250, 250, 250}, {"grey98", 250, 250, 250}, {"gray99", 252, 252, 252}, {"grey99", 252, 252, 252}, {"gray100", 255, 255, 255}, {"grey100", 255, 255, 255}, {"dark grey", 169, 169, 169}, {"DarkGrey", 169, 169, 169}, {"dark gray", 169, 169, 169}, {"DarkGray", 169, 169, 169}, {"dark blue", 0, 0, 139}, {"DarkBlue", 0, 0, 139}, {"dark cyan", 0, 139, 139}, {"DarkCyan", 0, 139, 139}, {"dark magenta", 139, 0, 139}, {"DarkMagenta", 139, 0, 139}, {"dark red", 139, 0, 0}, {"DarkRed", 139, 0, 0}, {"light green", 144, 238, 144}, {"LightGreen", 144, 238, 144}, {NULL, 0, 0, 0} }; xcircuit-3.9.73/spiceparser/0000775000175000001440000000000013267470350014510 5ustar timusersxcircuit-3.9.73/spiceparser/mergedup.c0000664000175000001440000000641312335667423016474 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* mergedup.c -> code to find and merge common entities, works in nlogn time, for general entities Conrad Ziesler */ #include "debug.h" #include "mergedup.h" mergedup_t *mergedup_alloc(int q, int qs) { mergedup_t *m; int es=sizeof(sortlist_t)+qs-1; m=malloc(sizeof(mergedup_t) + (es * q) + ((q>>3)+2)); assert(m!=NULL); m->flb=(q>>3)+2; m->qs=qs; m->es=es; m->qun=qs/4; m->run=(qs-(m->qun*4)); m->q=q; m->i=0; m->data= (void *) (((char *)m)+sizeof(mergedup_t)) ; m->freelist= (void *) (((char *)(m->data))+ (es*q) ); m->last=(void *)(m->data); memset(m->freelist,0,m->flb); return m; } void mergedup_fill(mergedup_t *m, unsigned char *d, int index) { int i; sortlist_t *p; p= (sortlist_t *) ( (char *)m->data + (m->es*m->i) ); for(i=0;iqs;i++) p->sorted[i]=d[i]; p->index=index; m->i++; assert(m->i<=m->q); } static int mergedup__qs=0; static int comparesorted(const void *a, const void *b) { unsigned char *pa=((sortlist_t *)a)->sorted; unsigned char *pb=((sortlist_t *)b)->sorted; int i; if(pa==pb)return 0; if(pa==NULL)return 1; if(pb==NULL)return -1; for(i=0;ipb[i]) return -1; } return 0; } void mergedup_sort(mergedup_t *m) { mergedup__qs=m->qs; comparesorted(NULL,NULL); qsort(m->data,m->q, m->es, comparesorted); m->i=0; m->last=NULL; } void mergedup_setbit(mergedup_t *m, int index) { int byte,bit; byte=index>>3; bit=index-(byte<<3); assert(byteflb); m->freelist[byte]|=(1<>3; bit=index-(byte<<3); assert(byteflb); if((m->freelist[byte]&(1<i>=m->q)return -1; /* get unsorted of current data[m->i] */ p= (sortlist_t *) ( (char *)m->data + (m->es*m->i) ); v=p->index; if(w) /* w=1, get next item */ { m->last=p; m->i++; return v; } else /* w=0, return next same item */ { if(m->last==NULL)return -1; for(i=0;iqs;i++) if(p->sorted[i]!=m->last->sorted[i])return -1; m->i++; return v; } return -1; } void mergedup_free(mergedup_t *m) { if(m!=NULL)free(m); } xcircuit-3.9.73/spiceparser/netlist_spice.c0000664000175000001440000010506012335667423017527 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* spice.c: read hierachical spice deck composed of M and C and X Conrad Ziesler */ #include #include #include #include "debug.h" /* The following is copied from xcircuit.h */ #ifdef TCL_WRAPPER #define Fprintf tcl_printf #define Flush tcl_stdflush #else #define Fprintf fprintf #define Flush fflush #endif int __debug_spice__=2; #ifndef STRIP_DEBUGGING #define D(level,a) do { if(__debug_spice__>(level)) a; } while(0) #else #define D(level,a) #endif /* spice deck .SUBCKT CKT1 3 4 5 M0 6 3 1 1 NMOS W=1.025U L=0.350U AD=0.0 AS=0.0 PD=0.0 PS=0.0 M1 7 4 6 1 NMOS W=1.025U L=0.350U AD=0.0 AS=0.0 PD=0.0 PS=0.0 C0 3 1 1.92627e-15 C1 4 1 1.8152e-15 .ENDS *comment X1464 3 583 589 CKT6 */ #define __NETLIST_SPICE_C__ 1 #ifndef __NETLIST_H__ #include "netlist_dev.h" #endif #ifndef __NETLIST_SPICE_H__ #include "netlist_spice.h" #endif tokenmap_t spice_tokens[]=SPICE_TOKENS; /******* Hashing Clients *******/ uint paramclient_hash(int max, void *data, int size) { return hash_strhash(max, ((char *)data)+sizeof(paramload_t), size-sizeof(paramload_t)); } int paramclient_cmp(int sizea, void *a, int sizeb, void *b) { if(a==NULL)return 1; if(b==NULL)return -1; if(sizea > sizeb) return 1; if(sizea < sizeb) return -1; return memcmp( ((char *) a) + sizeof(paramload_t), ((char *)b ) + sizeof(paramload_t),sizeb-sizeof(paramload_t) ); } static callparam_t *new_callparam(char *str, eqn_t eqn) { callparam_t *pc; pc=malloc(sizeof(callparam_t)+strlen(str)); assert(pc!=NULL); strcpy(pc->str,str); pc->eqn=eqn; return pc; } static paramclient_t *add_param(hash_t *h, char *str, eqn_t eqn) { int l; char data[4096]; paramclient_t *pc; pc=(void *)data; l=strlen(str)+1; if(l>(sizeof(data)-sizeof(paramclient_t))) l=sizeof(data)-sizeof(paramclient_t); pc->payload.eqn=eqn; pc->payload.patch_call=NULL; pc->payload.global_i=-1; memcpy(pc->str,str,l); return hash_add(h,pc,l+sizeof(paramload_t)); } uint nodeclient_hash(int max, void *data, int size) { return hash_strhash(max, ((char *)data)+sizeof(hashload_t), size-sizeof(hashload_t)); } int nodeclient_cmp(int sizea, void *a, int sizeb, void *b) { if(a==NULL)return 1; if(b==NULL)return -1; if(sizea > sizeb) return 1; if(sizea < sizeb) return -1; return memcmp( ((char *) a) + sizeof(hashload_t), ((char *)b ) + sizeof(hashload_t), sizea-sizeof(hashload_t) ); } /* some helper functions for hash clients */ static nodeclient_t *find_hashtab(hash_t *tab, uchar *str) { int l; l=strlen(str)+1; return hash_find(tab,str-sizeof(hashload_t),sizeof(hashload_t)+l); } subckt_t *spice_find_subckt(subckt_t *parent, char *name) { nodeclient_t *tc; tc=find_hashtab(parent->cktdir,(uchar *)name); return tc->payload.data.subckt; } list_t spice_list_subckt(subckt_t *parent) { list_t foo; subckt_t *ckt; int i; hash_t *tab; hashbin_t *bp; node_t p; list_init(&foo,sizeof(subckt_t *),LIST_EXPMODE); if(parent==NULL)return foo; tab=parent->cktdir; FORALL_HASH(tab,i,bp) { p=hash_bin2user(bp); ckt=p->payload.data.subckt; list_add (&foo,&ckt); } return foo; } static nodeclient_t *add_hashtab(hash_t *tab, uchar *str, hashload_t payload) { int l; uchar *strp=str; nodeclient_t *cp; static unsigned data[16000]; nodeclient_t *nd=(void *)data; assert(tab!=NULL); nd->payload=payload; l=0; while(strp[0]!=0) { nd->str[l]=strp[0]; strp++; l++; } nd->str[l]=0; l++; assert(l< (16000-sizeof(nodeclient_t))); if(tab->hashfunc!=nodeclient_hash)assert(0); cp=hash_add(tab,nd,(sizeof(hashload_t)+l)); D(20,Fprintf(stderr,"add_hashtab(%p,%s,..) cp=%p \n",tab,str,cp)); return cp; } #define warning(d,c,s) do { scan->errdeck=d; scan->errcard=c; parse_warn(scan,s); } while(0) #define error(d,c,s) do { scan->errdeck=d; scan->errcard=c; parse_error(scan,s); } while(0) #define checkvalid(d,q) scanner_checkvalid(d,q) static eqn_t parseval(deck_t *d, card_t *c, uchar *val) { uchar *ps; eqn_t eqn; eqn=eqn_empty(); if(val==NULL)return eqn; for(ps=val;ps[0]!=0;ps++) if(!isspace(ps[0]))break; if(ps[0]=='\'') ps++; /* hack */ eqn=eqn_parse(ps); return eqn; } /************************************************************************/ /******* PASS 2 : create subcircuit definitions (for forward ref) ****/ /******* and count devices (for memory alloc) ****/ /******* fill in all devices and nodes (except x subckt) ****/ /************************************************************************/ static void skip_subckt(deck_t **thedeckpp) { int i; deck_t *dp=*thedeckpp; i=0; while(dp!=NULL) { if(dp->card!=NULL) { if(dp->card->token==Kends)i--; if(dp->card->token==Ksubckt)i++; } if(i==0)break; dp=dp->next; } *thedeckpp=dp; } static subckt_t *new_subckt(deck_t **thedeckpp, subckt_t *parent, scanner_t *scan) { int i, qtynodes, qtyparams, qtycallparams, qtylparams; int qtym, qtyc, qtyx, qtyr, qtyl, qtyv, qtyi; int qtysubckt, qtyglobal; subckt_t *scktp; card_t *cp; deck_t *dp,*d=*thedeckpp,*dplast=NULL; int size; void *p; uchar *name; hashload_t payload={ PAYLOAD_null, {NULL} }; qtycallparams=0; qtynodes=0; qtyparams=0; qtylparams=0; qtysubckt=0; qtyglobal=0; if(!checkvalid(d,2))error(d,d->card,"invalid subckt definition"); name=d->card->next->str; i = 0; for(cp=d->card->next->next; cp!=NULL; cp=cp->next) { if(cp->val==NULL) qtynodes++; else qtylparams++; i++; } qtym = 0; qtyc = 0; qtyr = 0; qtyl = 0; qtyx = 0; qtyv = 0; qtyi = 0; for(dp=d; dp!=NULL; dp=dp->next) { uchar a; dplast=dp; if(dp->card==NULL)continue; if( (dp->card->token==Ksubckt) && (dp!=d)) { skip_subckt(&dp); qtysubckt++; continue; } /* consume .ends token */ if(dp==NULL)break; if(dp->card==NULL)continue; if(dp->card->token==Kend)break; if(dp->card->token==Kends)break; /* if(parent!=NULL) { if(dp->card->token==Kends)break; } else { if(dp->card->token==Kend)break; } */ a=dp->card->str[0]; if(a=='x') { qtyx++; for(cp=dp->card->next;cp!=NULL;cp=cp->next) if(cp->val!=NULL)qtycallparams++; } if(a=='m') qtym++; if(a=='c') qtyc++; if(a=='r') qtyr++; if(a=='l') qtyl++; if(a=='v') qtyv++; if(a=='i') qtyi++; if(dp->card->token==Kparam) { for(cp=dp->card->next;cp!=NULL;cp=cp->next) qtyparams++; } if(dp->card->token==Kglobal) { for(cp=dp->card->next;cp!=NULL;cp=cp->next) qtyglobal++; } } if(dp==NULL) { if(parent==NULL) { /* uchar *p,buf[64]=".END "; D(50,Fprintf(stderr,"ignoring lack of .END token\n")); assert(dplast!=NULL); assert(dplast->next==NULL); dp=dplast->next=new_deck(); dp->next=NULL; p=buf; dp->card=make_card(&p,PARSE_CASE_TOLOWER); dp->card->token=Kend; */ } else { if(parent==NULL)error(d,NULL,"No .END found"); else error(d,NULL,"No .ENDS found"); } } D(10, Fprintf(stderr,"Got %i subckts, %i x's %i m's %i c's %i r's " "%i l %i v %i i's\n", qtysubckt, qtyx, qtym, qtyc, qtyr, qtyl, qtyv, qtyi)); size= sizeof(subckt_t) + (sizeof(node_t)*qtynodes) + (sizeof(m_t)*qtym) + (sizeof(x_t)*qtyx) + (sizeof(c_t)*qtyc) + (sizeof(r_t)*qtyr) + (sizeof(l_t)*qtyl) + (sizeof(v_t)*qtyv) + (sizeof(i_t)*qtyi) + (strlen(name) + 2); scktp=p=malloc(size+1024); /* 1024 is debug pad */ assert(scktp!=NULL); memset(scktp,0,size); memset(((char *)scktp)+size,'a',1024); p= ((char *)p+sizeof(subckt_t)); scktp->defn=p; scktp->ndefn=qtynodes; p= ((char *)p+(sizeof(node_t)*qtynodes)); scktp->m=p; scktp->nm=qtym; p= ((char *)p+(sizeof(m_t)*qtym)); scktp->c=p; scktp->nc=qtyc; p= ((char *)p+(sizeof(c_t)*qtyc)); scktp->r=p; scktp->nr=qtyr; p= ((char *)p+(sizeof(r_t)*qtyr)); scktp->l=p; scktp->nl=qtyl; p= ((char *)p+(sizeof(l_t)*qtyl)); scktp->v=p; scktp->nv=qtyv; p= ((char *)p+(sizeof(v_t)*qtyv)); scktp->i=p; scktp->ni=qtyi; p= ((char *)p+(sizeof(i_t)*qtyi)); scktp->x=p; scktp->nx=qtyx; p= ((char *)p+(sizeof(x_t)*qtyx)); scktp->name=p; strcpy(scktp->name,name); p= ((char *)p+strlen(name)+2); scktp->scale=1.0; scktp->mult=1.0; scktp->subckt_magic=SUBCKT_MAGIC; assert((((char *)p)-((char *)scktp))==size); /* sanity check */ /* estimate good size for hashtable */ scktp->nodes=hash_new((qtym*3)+(qtyx*4),nodeclient_hash,nodeclient_cmp); scktp->flag=0; scktp->params=hash_new(qtyparams,paramclient_hash,paramclient_cmp); scktp->lparams=hash_new(qtylparams,paramclient_hash,paramclient_cmp); scktp->parent=parent; scktp->cktdir=hash_new(qtysubckt,nodeclient_hash,nodeclient_cmp); scktp->global=hash_new(qtyglobal,nodeclient_hash,nodeclient_cmp); /* store defn nodes, and ptrs */ for(i=0,cp=d->card->next->next;cp!=NULL;cp=cp->next) { if(cp->val==NULL) /* skip params on line */ { if(find_hashtab(scktp->nodes,cp->str)!=NULL) warning(d,cp,"duplicate node in subckt definition"); payload.flag=PAYLOAD_null; payload.data.p=NULL; scktp->defn[i]=add_hashtab(scktp->nodes,cp->str,payload); i++; } } /* do subckt params (those on the .subckt line) */ for(cp=d->card->next->next;cp!=NULL;cp=cp->next) { if(cp->val!=NULL) /* skip nodes on line */ add_param(scktp->lparams,cp->str,parseval(d,cp,cp->val)); } /* do spice deck */ /* reinitialize device counters */ qtyr = 0; qtyl = 0; qtym = 0; qtyc = 0; qtyx = 0; qtyv = 0; qtyi = 0; for (dp = d; dp != NULL; dp = dp->next) { uchar a; if (dp->card == NULL) continue; if ((dp->card->token == Ksubckt) && (dp != d)) { subckt_t *child=NULL; child=new_subckt(&dp,scktp,scan); payload.data.subckt=child; payload.flag=PAYLOAD_subckt; add_hashtab(scktp->cktdir,child->name,payload); continue; } if(dp==NULL)break; if(dp->card==NULL)continue; if(parent!=NULL) { if(dp->card->token==Kends)break; } else { if(dp->card->token==Kend)break; } a=dp->card->str[0]; if(a=='x') { int k=0; x_t *xp; card_t *last; assert(qtyxnx); xp=&(scktp->x[qtyx]); xp->nn=0; xp->nl=0; xp->nodes=NULL; xp->locals=NULL; if(!checkvalid(dp,2))error(d,NULL,"invalid subckt call"); for(i=0,last=cp=dp->card->next;cp!=NULL;cp=cp->next,i++) { if(cp->val!=NULL)break; last=cp; } if(cp!=NULL) { for(k=0;cp!=NULL;cp=cp->next,k++); } else k=0; xp->deck=dp; xp->rest=last; xp->nodes=malloc((sizeof(node_t)*i)+(sizeof(paramclient_t*)*k)); if(k==0) xp->locals=NULL; else xp->locals=(void *)((char *)(xp->nodes))+(sizeof(node_t)*(i)); xp->nn=i-1; xp->nl=k; assert(xp->nodes!=NULL); payload.flag=PAYLOAD_null; payload.data.s=NULL; for(i=0,cp=dp->card->next;(cp!=NULL)&&(cp!=last);cp=cp->next,i++) { xp->nodes[i]=add_hashtab(scktp->nodes,cp->str,payload); if(0)Fprintf(stderr,"X:%s adding node %p cp->str=%s\n",dp->card->str,xp->nodes[i],cp->str); } if(cp!=NULL) { for(k=0,cp=cp->next;(cp!=NULL);cp=cp->next,k++) if(cp->val!=NULL) { xp->locals[k]=new_callparam(cp->str,parseval(dp,cp,cp->val)); } else xp->locals[k]=NULL; } qtyx++; } if(a=='m') /* Mident d g s b model L=val W=val other_params... */ { m_t *mp; if(!checkvalid(dp,8))error(d,NULL,"invalid mosfet card"); mp=&(scktp->m[qtym]); cp=dp->card->next; payload.flag=PAYLOAD_null; payload.data.s=NULL; for(i=0;i<4;i++) { mp->nodes[i]=add_hashtab(scktp->nodes,cp->str,payload); cp=cp->next; } mp->type=0; /* hope this is n or p */ if((cp->str[0]=='n')||(cp->str[0]=='p')) mp->type=cp->str[0]; else { uchar *p; for(p=cp->str;p[0]!=0;p++) if((p[0]=='n')||(p[0]=='p')) mp->type=p[0]; } if(mp->type==0) { Fprintf(stderr,"Couldn't determine fet type from model name %s\n",cp->str); } mp->rest=cp; mp->deck=dp; cp=cp->next; mp->l =eqn_const(1); mp->w=eqn_const(1); mp->as=eqn_const(-1); mp->ad=eqn_const(-1); mp->ps=eqn_const(-1); mp->pd=eqn_const(-1); for(i=0;cp!=NULL;cp=cp->next,i++) { if( (cp->str[0]=='l') && (cp->str[1]==0)) mp->l=parseval(dp,cp,cp->val); if( (cp->str[0]=='w') && (cp->str[1]==0)) mp->w=parseval(dp,cp,cp->val); if( (cp->str[0]=='a') && (cp->str[1]=='s') && (cp->str[2]==0) ) mp->as=parseval(dp,cp,cp->val); if( (cp->str[0]=='a') && (cp->str[1]=='d') && (cp->str[2]==0) ) mp->ad=parseval(dp,cp,cp->val); if( (cp->str[0]=='p') && (cp->str[1]=='s') && (cp->str[2]==0) ) mp->ps=parseval(dp,cp,cp->val); if( (cp->str[0]=='p') && (cp->str[1]=='d') && (cp->str[2]==0) ) mp->pd=parseval(dp,cp,cp->val); } qtym++; } if(a=='c') /* Cident node0 node1 value */ { if(!checkvalid(dp,4))error(d,NULL,"invalid capacitor card"); payload.flag=PAYLOAD_null; payload.data.p=NULL; scktp->c[qtyc].nodes[0]=add_hashtab(scktp->nodes,dp->card->next->str,payload); scktp->c[qtyc].nodes[1]=add_hashtab(scktp->nodes,dp->card->next->next->str,payload); cp=dp->card->next->next->next; scktp->c[qtyc].deck=dp; scktp->c[qtyc].c=parseval(dp,cp,cp->str); scktp->c[qtyc].rest=cp; qtyc++; } if (a == 'r') /* Rident node0 node1 value */ { if (!checkvalid(dp,4))error(d,NULL,"invalid resistor card"); payload.flag=PAYLOAD_null; payload.data.p=NULL; scktp->r[qtyr].nodes[0] = add_hashtab(scktp->nodes,dp->card->next->str,payload); scktp->r[qtyr].nodes[1] = add_hashtab(scktp->nodes,dp->card->next->next->str, payload); cp=dp->card->next->next->next; scktp->r[qtyr].deck=dp; scktp->r[qtyr].r=parseval(dp,cp,cp->str); scktp->r[qtyr].rest=cp; qtyr++; } /* To be done: AC, pulse, and PWL sources */ if (a == 'v') /* Vident node0 node1 value */ { if (!checkvalid(dp,4))error(d,NULL,"invalid voltage source card"); payload.flag=PAYLOAD_null; payload.data.p=NULL; scktp->v[qtyv].nodes[0] = add_hashtab(scktp->nodes,dp->card->next->str,payload); scktp->v[qtyv].nodes[1] = add_hashtab(scktp->nodes,dp->card->next->next->str, payload); cp=dp->card->next->next->next; scktp->v[qtyv].deck=dp; scktp->v[qtyv].v=parseval(dp,cp,cp->str); scktp->v[qtyv].rest=cp; qtyv++; } if (a == 'i') /* Iident node0 node1 value */ { if (!checkvalid(dp,4))error(d,NULL,"invalid current source card"); payload.flag=PAYLOAD_null; payload.data.p=NULL; scktp->i[qtyi].nodes[0] = add_hashtab(scktp->nodes,dp->card->next->str,payload); scktp->i[qtyi].nodes[1] = add_hashtab(scktp->nodes,dp->card->next->next->str, payload); cp=dp->card->next->next->next; scktp->i[qtyi].deck=dp; scktp->i[qtyi].i=parseval(dp,cp,cp->str); scktp->i[qtyi].rest=cp; qtyi++; } if (a == 'l') /* Lident node0 node1 value */ { if (!checkvalid(dp,4))error(d,NULL,"invalid inductor card"); payload.flag=PAYLOAD_null; payload.data.p=NULL; scktp->l[qtyl].nodes[0] = add_hashtab(scktp->nodes,dp->card->next->str,payload); scktp->l[qtyl].nodes[1] = add_hashtab(scktp->nodes,dp->card->next->next->str,payload); cp=dp->card->next->next->next; scktp->l[qtyl].deck=dp; scktp->l[qtyl].l=parseval(dp,cp,cp->str); scktp->l[qtyl].rest=cp; qtyl++; } if(dp->card->token==Kparam) for(cp=dp->card->next;cp!=NULL;cp=cp->next) { if(cp->val==NULL)error(dp,cp,"couldn't find = in .param statement"); add_param(scktp->params,cp->str,parseval(dp,cp,cp->val)); D(10, Fprintf(stderr, "spice: adding param %s to scktp->params=%p \n", cp->str, scktp->params)); } if(dp->card->token==Kscale) { if(dp->card->val!=NULL) scktp->scale=parse_float(dp->card->val); else error(dp,dp->card,"need a value for .scale "); } if(dp->card->token==Kmult) { if(dp->card->val!=NULL) scktp->mult=parse_float(dp->card->val); else error(dp,dp->card,"need a value for .scale "); } payload.flag=PAYLOAD_null; payload.data.p=NULL; if(dp->card->token==Kglobal) for(cp=dp->card->next;cp!=NULL;cp=cp->next) add_hashtab(scktp->global,cp->str,payload); if(dp->next==NULL) *thedeckpp=dp; /* ignore lack of end token */ } if(dp!=NULL) *thedeckpp=dp; /*dp->next;*/ /* skip .end token if present */ return scktp; } static void do_subckts(subckt_t *ckt, scanner_t *scan) { x_t *xp; nodeclient_t *hcp; int i; if(ckt==NULL)return; if(ckt->flag)return; ckt->flag=1; for(i=0;inx;i++) { uchar *nm=NULL; xp=ckt->x+i; hcp=NULL; if(xp->rest!=NULL) { subckt_t *search; nm=xp->rest->str; for(search=ckt;search!=NULL;search=search->parent) if( (hcp=find_hashtab(search->cktdir,nm)) != NULL) break; } if(hcp==NULL) { Fprintf(stderr,"subcircuit named [%s] not found in ckt [%s]\n", nm,ckt->name); } else { assert(hcp->payload.flag==PAYLOAD_subckt); xp->xp=hcp->payload.data.subckt; assert(xp->xp!=NULL); do_subckts(xp->xp,scan); /* recursion */ } } } static subckt_t *new_ckt(deck_t *d, scanner_t *scan) { deck_t *dp; subckt_t *first=NULL; deck_t topdeck; card_t topcard[2]; topdeck.line.line=0; topdeck.line.fileindex=0; topdeck.next=d; topdeck.card=&(topcard[0]); topcard[0].next=&(topcard[1]); topcard[0].str[0]=0; topcard[0].token=Ksubckt; strcpy(topcard[0].str,".su"); /* max 4 bytes */ topcard[0].val=NULL; topcard[1].next=NULL; topcard[1].token=Kother; topcard[1].val=NULL; strcpy(topcard[1].str,"TOP"); /* MAX 4 bytes */ dp=&topdeck; first=new_subckt(&dp,NULL,scan); first->subckt_magic=SUBCKT_MAGIC; do_subckts(first,scan); return first; } static void debug_subckts(void * dbg, subckt_t *ckt, int level) { int i; uchar pad[64]=" "; if(ckt==NULL)return; /* if(ckt->flag)return; ckt->flag=1; */ pad[level*2]=0; fprintf(dbg,"%s subckt %s nm=%i nc=%i nr=%i nx=%i\n",pad,ckt->name,ckt->nm,ckt->nc,ckt->nr,ckt->nx); for(i=0;inm;i++) { node_t *n=ckt->m[i].nodes; fprintf(dbg,"%s M %s %s %s %s\n%s +",pad, n[0]->str,n[1]->str,n[2]->str,n[3]->str,pad); debug_eqn(dbg,"l",&(ckt->m[i].l)); debug_eqn(dbg,"w",&(ckt->m[i].w)); debug_eqn(dbg,"as",&(ckt->m[i].as)); debug_eqn(dbg,"ad",&(ckt->m[i].ad)); debug_eqn(dbg,"ps",&(ckt->m[i].ps)); debug_eqn(dbg,"pd",&(ckt->m[i].ps)); fprintf(dbg,"\n"); } for(i=0;inc;i++) { node_t *n=ckt->c[i].nodes; fprintf(dbg,"%s C %s %s ",pad, n[0]->str,n[1]->str); debug_eqn(dbg,"c",&(ckt->c[i].c)); fprintf(dbg,"\n"); } for(i=0;inr;i++) { node_t *n=ckt->r[i].nodes; fprintf(dbg,"%s R %s %s ",pad, n[0]->str,n[1]->str); debug_eqn(dbg,"r",&(ckt->r[i].r)); fprintf(dbg,"\n"); } for(i=0;inx;i++) { fprintf(dbg,"%s X %s : %p, %i nodes\n",pad,ckt->x[i].xp->name,ckt->x[i].nodes,ckt->x[i].nn); debug_subckts(dbg,ckt->x[i].xp,level+1); /* recursion */ } } /**********************************************************************/ /***************** PASS 3: operations on heirarchy *******************/ /******************************-- flattening --- **********************/ /* a couple of different lookup functions for equations and parameters with slightly different semantics lookup_params is for TERMINAL equations that need multipliers lookup_params_nomult is for equations in '.param' statements lookup_parents_call_eqns is for equations in subckt calls ie: Xdddd blah blah v='eqn blah' ... */ #ifndef NO_EQUATIONS static eqn_t lookup_parents_call_eqns(stack_t *s, eqn_t *ep); static eqn_t lookup_params_nomult(stack_t *s, eqn_t *ep); static eqn_t lookup_params(stack_t *s, eqn_t *ep, float m); #endif static void spice_recurse_subckts(spice_t *spice, subckt_t *ckt, stack_t *parent, void (*process)(stack_t *s, int flag, void *data),void *data) { stack_t s; int i; s.nl=NULL; s.scan=spice->scan; if(ckt==NULL)return; if(parent==NULL) { s.level=0; s.parent=NULL; s.ckt=ckt; s.call=NULL; s.top=&s; } else { s.level=parent->level+1; s.parent=parent; s.ckt=ckt; s.call=NULL; s.top=s.parent->top; } process(&s,0,data); for(i=0;inx;i++) { s.call=ckt->x+i; spice_recurse_subckts(spice,s.call->xp,&s,process,data); } /* recursion */ s.call=NULL; process(&s,1,data); } static char * do_name(stack_t *s, char *str) { static char buf[1024*63]; char *bp,*c; stack_t *sp; int l,q=0,sizebuf=sizeof(buf); int m; D(10,Fprintf(stderr,"doname: [%s] ",str)); m=sizebuf -4; buf[sizebuf-1]=0; bp=buf+sizebuf-1; l=strlen(str); bp-=l; q+=l; assert(qparent) { if(sp->call==NULL)continue; assert(sp->call->deck!=NULL); assert(sp->call->deck->card!=NULL); c=sp->call->deck->card->str; l=strlen(c); q+=l+1; assert(qval=ep->val*m; return *ep; } #else static paramclient_t * find_param_intable(hash_t *h, char *str) { int l; paramclient_t *pc,*tofind; /* note to self: this trickery is dependent on hash.c doing the right thing which it does */ tofind=(void *)(str-sizeof(paramload_t)); l=strlen(str)+1; D(30,Fprintf(stderr,"looking for %s in table %p l=%i ",str,h,l)); pc=hash_find(h,tofind,sizeof(paramload_t)+l); D(30,Fprintf(stderr," hash_find=%p\n",pc)); return pc; } /* local (bottom) takes precedence over top (global) */ static paramclient_t * find_param_bot(stack_t *s, char *str) { stack_t *sp; paramclient_t *r=NULL,*toret=NULL; subckt_t *ckt; for(sp=s;sp!=NULL;sp=sp->parent) { if(sp->ckt!=NULL) { ckt=sp->ckt; r=find_param_intable(ckt->lparams,str); if(toret==NULL)toret=r; r=find_param_intable(ckt->params,str); if(toret==NULL)toret=r; } } return toret; } /* global (top) takes precidence over bottom (local) */ static paramclient_t * find_param_top(stack_t *s, char *str) { paramclient_t *r=NULL,*toret=NULL; subckt_t *ckt; stack_t *sp; for(sp=s;sp!=NULL;sp=sp->parent) { if(sp->ckt!=NULL) { ckt=sp->ckt; r=find_param_intable(ckt->lparams,str); if(r!=NULL)toret=r; r=find_param_intable(ckt->params,str); if(r!=NULL)toret=r; } } return toret; } static eqn_litref_t lookup_function(plookup_t *user, char *str) { paramlookup_t *me=user->user; paramclient_t *r; eqn_litref_t index=eqn_litref_INIT; char *hname; if(1)r=find_param_bot(me->sp,str); else r=find_param_top(me->sp,str); if(r!=NULL) { /* this is not a renameable local parameter */ if(r->payload.patch_call==NULL) { /* we want to use this parameter, but don't have a global entry yet */ if(r->payload.global_i<0) { /* todo: lookup this param=equation now, in case it has dependencies */ eqn_t eq; hname=do_name(me->sp,str); D(5,Fprintf(stderr,"Lookup function: Adding eqn (%s) (%s)\n",str,hname)); D(5,debug_eqn(stderr,str,&(r->payload.eqn))); D(5,Fprintf(stderr,"\n")); eq=lookup_params_nomult(me->sp,&(r->payload.eqn)); r->payload.global_i=eqnl_add(&(me->nl->eqnl),eq,hname); } index=r->payload.global_i; } else /* we renamed this parameter, follow the indirection, make heir. name */ { /* also note we probably want to call lookup params now using parent's context for subckt call */ D(50,Fprintf(stderr,"Lookup rename: %s\n",str)); D(50,debug_eqn(stderr," eqn ",&(r->payload.patch_call->eqn))); D(50,Fprintf(stderr,"\n")); if(r->payload.global_i<0) { hname=do_name(me->sp,str); D(5,Fprintf(stderr,"Lookup function rename: Adding eqn (%s) (%s)\n",str,hname)); D(5,debug_eqn(stderr," eqn ",&(r->payload.patch_call->eqn))); r->payload.global_i=eqnl_add(&(me->nl->eqnl), lookup_parents_call_eqns(me->sp, &(r->payload.patch_call->eqn)), hname); } index=r->payload.global_i; } } else /* an undefined reference, may be a sweep parameter, to be loaded from tracefile */ { index=eqnl_find(&(me->nl->eqnl),str); if(index<0) { D(3,Fprintf(stderr,"Netlist_sp: assuming %s is global sweep parameter\n",str)); index= eqnl_add(&(me->nl->eqnl),eqn_undefined(),str); } else D(3,Fprintf(stderr,"Netlist_sp: assume %s is a global parameter, not local\n",str)); } return index; } static eqn_t lookup_parents_call_eqns(stack_t *s, eqn_t *ep) { int r=0; eqn_t v; plookup_t plu; paramlookup_t me; if(s->parent!=NULL) { me.sp=s->parent; me.nl=s->nl; plu.user=&me; plu.lookup=lookup_function; v=eqn_copy(*ep); D(10,debug_eqn(stderr,"lookup parents:", &v)); D(10,Fprintf(stderr,"\n")); r=eqntok_depend(v.eqn,&plu); if(r)D(1,Fprintf(stderr,"couldn't find a parameter in equation\n")); } else D(1,Fprintf(stderr,"lookup parents eqn called, but we are at the top level\n")); assert(s->parent!=NULL); return v; } static eqn_t lookup_params_nomult(stack_t *s, eqn_t *ep) { eqn_t v; int r=0; plookup_t plu; paramlookup_t me; me.sp=s; me.nl=s->nl; plu.user=&me; plu.lookup=lookup_function; v=eqn_copy(*ep); if(v.eqn!=NULL) r=eqntok_depend(v.eqn,&plu); if(r)D(1,Fprintf(stderr,"couldn't find a parameter in equation\n")); return v; } static eqn_t lookup_params(stack_t *s, eqn_t *ep, float m) { eqn_t v; int r=0; plookup_t plu; paramlookup_t me; me.sp=s; me.nl=s->nl; plu.user=&me; plu.lookup=lookup_function; v=eqn_copy_m(*ep,m); if(v.eqn!=NULL) r=eqntok_depend(v.eqn,&plu); if(r)D(1,Fprintf(stderr,"couldn't find a parameter in equation\n")); return v; } #endif static void count_stuff(stack_t *s, int flag, void *data) { netlist_t *nl=data; if(flag)return; nl->e[DEVT_FET].qcount+=s->ckt->nm; nl->e[DEVT_CAP].qcount+=s->ckt->nc; } static void build_stuff(stack_t *s, int flag, void *data) { netlist_t *nl=data; int i,q,j; node_t n; hashbin_t *bp; hash_t *h,*globals,*h1; x_t *call; paramclient_t *pc,*findpc; scanner_t *scan=s->scan; if(flag)return; /* preorder */ h=s->ckt->nodes; globals=s->top->ckt->global; s->nl=nl; D(40,Fprintf(stderr,"processing stack %p: s->top=%p s->parent=%p s->ckt=%p\n",s,s->top,s->parent,s->ckt)); /* first assign parent payloads to all the nodes in nodedir */ if(s->parent!=NULL) { call=s->parent->call; assert(call!=NULL); if(call->nn!=s->ckt->ndefn) error(call->deck,call->rest,"Definition does not match use"); q=minimum(call->nn,s->ckt->ndefn); for(i=0;inodes[i]!=NULL); assert(call->nodes[i]->payload.flag==PAYLOAD_gnptr); s->ckt->defn[i]->payload.data=call->nodes[i]->payload.data; s->ckt->defn[i]->payload.flag=PAYLOAD_parent; } /* lookup subckt call's and map to local params */ h1=s->ckt->lparams; hash_forall(h1,i,bp) /* init patch ptrs to Null (so any previous invokation won't be used) */ { pc=hash_bin2user(bp); pc->payload.patch_call=NULL; pc->payload.global_i=-1; D(30,Fprintf(stderr,"considering hash table entry %i %s len=%i\n",i,pc->str,bp->size-sizeof(paramload_t))); } /* for each param in the x call line, patch local param if found */ for(i=0;inl;i++) { callparam_t *callp; callp=call->locals[i]; if(callp==NULL)continue; /* hackish hash_find: we pass a bogus object, who's string is at same location */ findpc=hash_find(h1,callp->str-sizeof(paramload_t),strlen(callp->str)+sizeof(paramload_t)+1); if(findpc!=NULL) /* we link to this subckt eqn call */ findpc->payload.patch_call=callp; else D(2,Fprintf(stderr,"subckt call, specified parameter [%s] not found\n",callp->str)); D(5,Fprintf(stderr,"patching call %s",callp->str)); if(findpc!=NULL)D(5,debug_eqn(stderr," orig ",&(findpc->payload.eqn))); D(5,debug_eqn(stderr," patch ",&(callp->eqn))); D(5,Fprintf(stderr,"\n")); } } /* if parent is NULL, then we are top level, specially create/process global nodes first */ else { assert(s->top->ckt==s->ckt); FORALL_HASH(globals,i,bp) { char *flatname; n=hash_bin2user(bp); n->payload.flag=PAYLOAD_gnptr; /* note to self: must use terminal indices, because node table may be reallocated as it grows */ flatname=do_name(s,n->str); n->payload.data.t=netlist_node(nl,flatname,(void*)n); } } /* then assign new node payload to all the rest, doing global checks */ FORALL_HASH(h,i,bp) { node_t gbn; n=hash_bin2user(bp); if((n->payload.flag==PAYLOAD_gnptr)||(n->payload.flag==PAYLOAD_parent)||(n->payload.flag==PAYLOAD_null)) ; else assert(0); gbn=find_hashtab(globals,n->str); /* i hope this search is efficient */ if(gbn!=NULL) { if(n->payload.flag!=PAYLOAD_parent) n->payload.data=gbn->payload.data; } else { if(n->payload.flag!=PAYLOAD_parent) { char *flatname; flatname=do_name(s,n->str); n->payload.data.t=netlist_node(nl,flatname,(void *)n); } } n->payload.flag=PAYLOAD_gnptr; /* set both types to gnptr */ } /* now we have ptrs to every gn_t in this subckt reference, so we can process elements */ for(i=0;ickt->nc;i++) /* FOR EACH capacitor */ { dev_input_t devinp; devcap_t *dcp; c_t *cp; termptr_t np[2]; for(j=0;j<2;j++) np[j]= s->ckt->c[i].nodes[j]->payload.data.t; devinp.spice_cap=cp=&(s->ckt->c[i]); dcp=list_data(&(nl->e[DEVT_CAP].l),netlist_newdev_fromnode(nl,DEVT_CAP,devinp,np)); dcp->v[DEVCAP_c]=lookup_params(s,&(cp->c),s->ckt->mult); } for(i=0;ickt->nm;i++) /* FOR EACH fet */ { dev_input_t devinp; termptr_t np[4]; m_t *cp; devfet_t *dfp; int spiceorder[4]={INDEX_SOURCE, INDEX_DRAIN, INDEX_GATE, INDEX_BULK }; int netlistorder[4]= {DEVFET_S, DEVFET_D, DEVFET_G, DEVFET_B }; for(j=0;j<4;j++) np[netlistorder[j]]=s->ckt->m[i].nodes[spiceorder[j]]->payload.data.t; devinp.spice_fet=cp=&(s->ckt->m[i]); dfp=list_data(&(nl->e[DEVT_FET].l),netlist_newdev_fromnode(nl,DEVT_FET,devinp,np)); for(j=0;jv[j]=eqn_const(0); dfp->type=0; if(cp->type=='p') { dfp->type=DEVFET_pmos; } else if(cp->type=='n') { dfp->type=DEVFET_nmos; } else assert(0); D(30,do { static int mosfet_i=0; Fprintf(stderr,"processing mosfet %i \n",++mosfet_i); } while(0) ); dfp->v[DEVFET_w] =lookup_params(s,&(cp->w),s->ckt->scale); dfp->v[DEVFET_l] =lookup_params(s,&(cp->l),s->ckt->scale); dfp->v[DEVFET_as]=lookup_params(s,&(cp->as),(s->ckt->scale)*(s->ckt->scale)); dfp->v[DEVFET_ad]=lookup_params(s,&(cp->ad),(s->ckt->scale)*(s->ckt->scale)); dfp->v[DEVFET_ps]=lookup_params(s,&(cp->ps),s->ckt->scale); dfp->v[DEVFET_pd]=lookup_params(s,&(cp->pd),s->ckt->scale); } for(i=0;ickt->nx;i++) /* FOR EACH SUBCKT CALL */ { x_t *xp; xp=s->ckt->x+i; for(j=0;jnl;j++) if(xp->locals[j]!=NULL) { /* we copy the actual equation at use instantiation time via lookup_parent... */ } } return ; /* recurse on subckt calls */ } static void free_ckt(subckt_t *ckt) { int i; hash_t *tab; hashbin_t *bp; node_t p; subckt_t *tofree; if(ckt==NULL)return; tab=ckt->cktdir; FORALL_HASH(tab,i,bp) { p=hash_bin2user(bp); tofree=p->payload.data.subckt; p->payload.data.subckt=NULL; free_ckt(tofree); } for(i=0;inx;i++) { int j; for(j=0;jx[i].nl;j++) if(ckt->x[i].locals[j]!=NULL) free(ckt->x[i].locals[j]); if(ckt->x[i].nodes!=NULL) free(ckt->x[i].nodes); /* this frees locals also (combined allocation) */ /* note: equations have their own memory allocation system so NEVER free an eqntoken_t * */ } hash_free(ckt->cktdir); hash_free(ckt->nodes); hash_free(ckt->params); hash_free(ckt->lparams); hash_free(ckt->global); free(ckt); } void spice_count(netlist_t *nl) { spice_t *sp=nl->input.spice; spice_recurse_subckts(sp,sp->ckt,NULL,&count_stuff,(void *)nl); } void spice_build(netlist_t *nl) { spice_t *sp=nl->input.spice; netlist_eqn_begin(nl); spice_recurse_subckts(sp,sp->ckt,NULL,&build_stuff,(void *)nl); netlist_eqn_end(nl); } void spice_release(spice_t *sp) { if(sp!=NULL) { free_ckt(sp->ckt); eqn_mem_free(sp->eqn_mem); free(sp); } } spice_t *spice_new(scanner_t *scan) { spice_t *p; p=malloc(sizeof(spice_t)); assert(p!=NULL); memset(p,0,sizeof(spice_t)); p->spice_magic=SPICE_MAGIC; p->scan=scan; p->eqn_mem=eqn_mem_new(); eqn_mem_push(p->eqn_mem); scanner_sect_new(p->scan,scanner_def_spice(),spice_tokens); scanner_parse_all(p->scan); D(6,scanner_debug_all(p->scan,stderr)); p->deck=p->scan->sectp->dhead; scanner_sect_release(p->scan); if(p->deck!=NULL) { p->ckt=new_ckt(p->deck,p->scan); } else { p->ckt=NULL; } if(eqn_mem_pop()!=p->eqn_mem) assert(0); return p; } void spice_debug(void * dbg_fp, spice_t *sp) { FILE *dbg=dbg_fp; fprintf(dbg,"debugging output for spice circuit file \n"); debug_subckts(dbg,sp->ckt, 0); } xcircuit-3.9.73/spiceparser/names.h0000664000175000001440000000335112335667423015772 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* names.h, definitions for name storage Conrad Ziesler */ #ifndef __NAMES_H__ #define __NAMES_H__ #ifdef __NAMES_PRIVATE__ #define NAME_MAGIC 0x52a01250 typedef struct name_hash_st { int magic; struct name_hash_st *cref,*cstr; int refp; char str[1]; }namehash_t; typedef struct names_st { namehash_t **cref,**cstr; int avg_refl; int avg_strl; int qtybins; int qtynames; int namebytes; int bytesalloc; }names_t; #else struct names_st; typedef struct names_st names_t; #endif char *names_stats(names_t *nt); char *names_lookup(names_t *nt, int refp); int names_check(names_t *nt, const char *name); void names_add(names_t *nt, int refp, const char *name); names_t *names_new(void); void names_free(names_t *nt); void names_rehash(names_t *nt, int newbins); /* private-ish */ #endif xcircuit-3.9.73/spiceparser/names.c0000664000175000001440000001450212335667423015765 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* names.c, efficient string table support Conrad Ziesler */ #include #include "debug.h" #define __NAMES_PRIVATE__ #include "names.h" static namehash_t *names_newhash(names_t *nt, int refp, const char *str) { namehash_t *b; int q=strlen(str); b=malloc(sizeof(namehash_t)+q); assert(b!=NULL); b->refp=refp; b->magic=NAME_MAGIC; strcpy(b->str,str); nt->bytesalloc+=sizeof(namehash_t)+q; nt->namebytes+=q; nt->qtynames++; return b; } static unsigned int names_ptrhash(names_t *nt, int refp) { unsigned q=nt->qtybins; unsigned int v, r=0; v=(unsigned)refp; /* v>>=2; r= ((v%(7*q+(q/3)+5))^v) % q; */ r= v ^ (v>>3) ^ ((v/3)>>15) ^ ((~v)>>11); return r%q; } static unsigned int names_strhash(names_t *nt, const char *str) { unsigned q=nt->qtybins; unsigned int r=0; while(*str!=0) { r+= (str[0]^(r%q)); r%=q; str++; } return r%q; } char *names_lookup(names_t *nt, int refp) { unsigned int id; namehash_t *nh; int i=0; id=names_ptrhash(nt,refp); for(nh=nt->cref[id];nh!=NULL;nh=nh->cref,i++) { assert(nh->magic==NAME_MAGIC); if(refp==nh->refp){ return nh->str; } } return NULL; } int names_check(names_t *nt, const char *name) { unsigned int id; namehash_t *nh; int i=0; id=names_strhash(nt,name); for(nh=nt->cstr[id];nh!=NULL;nh=nh->cstr,i++) { assert(nh->magic==NAME_MAGIC); if(strcmp(name,nh->str)==0){ return nh->refp; } } return -1; } void names_add(names_t *nt, int refp, const char *name) { unsigned int idn,idr,id; namehash_t *nh,*nhref=NULL,*nhstr=NULL; int i=0; if(nt->qtynames>((5*nt->qtybins)/4)) /* double table size each time we outgrow old table */ names_rehash(nt, (2*nt->qtynames) ); idn=names_strhash(nt,name); idr=names_ptrhash(nt,refp); for(nh=nt->cref[idr];nh!=NULL;nh=nh->cref,i++) { assert(nh->magic==NAME_MAGIC); if(refp==nh->refp){ nt->avg_refl=(nt->avg_refl+i)/2; nhref=nh; break; } } for(nh=nt->cstr[idn];nh!=NULL;nh=nh->cstr,i++) { assert(nh->magic==NAME_MAGIC); if(strcmp(name,nh->str)==0){ nt->avg_strl=(nt->avg_strl+i)/2; nhstr=nh; break; } } if(nhstr==NULL) /* adding new name entry */ { if(nhref!=NULL) /* but refp was the same */ { fprintf(stderr,"**** DUPLICATE KEY NAME ****\n"); if(1)assert(0&&"duplicate key in names"); } nh=names_newhash(nt, refp, name); nh->cstr=nt->cstr[idn]; nt->cstr[idn]=nh; nh->cref=nt->cref[idr]; nt->cref[idr]=nh; } else /* replacing old name entry */ { namehash_t *prev=NULL; assert(0 && "Replacing strings in names has a bug. do not use"); /* lookup refp of old name and unlink */ id=names_ptrhash(nt,nhstr->refp); for(nh=nt->cref[id];nh!=NULL;prev=nh,nh=nh->cref,i++) if(nhstr->refp==nh->refp) { if(prev==NULL)nt->cref[id]=nh->cref; else prev->cref=nh->cref; break; } /* relink new name, refp */ nhstr->refp=refp; nhstr->cref=nt->cref[idr]; nt->cref[idr]=nhstr; } } char * names_stats(names_t *nt) { static char buf[1024]; int i,qs=0,qp=0,ms=0,mp=0,j,ks=0,kp=0; namehash_t *nh; for(i=0;iqtybins;i++) { for(j=0,nh=nt->cstr[i];nh!=NULL;nh=nh->cstr,j++) assert(nh->magic==NAME_MAGIC); if(j>0)ks++; if(mscref[i];nh!=NULL;nh=nh->cref,j++) assert(nh->magic==NAME_MAGIC); if(mp0)kp++; qp+=j; } qp/=kp; qs/=ks; sprintf(buf,"names: %i bins (%i totaling %i) , alloc %i, avg: %i %i max: %i %i",nt->qtybins,nt->qtynames,nt->namebytes,nt->bytesalloc,qp,qs,mp,ms); return buf; } /* this should optimize our hash table for memory usage */ void names_rehash(names_t *nt, int newbins) { int i; int oldqty; namehash_t *hp; oldqty=nt->qtybins; nt->qtybins=newbins; nt->bytesalloc+= ( (newbins-oldqty)*sizeof(void *)*2 ); /* do cref first, using cstr */ if(nt->cref!=NULL) free(nt->cref); nt->cref=malloc(sizeof(void *)*(nt->qtybins+1)); assert(nt->cref!=NULL); memset(nt->cref,0,sizeof(void*)*nt->qtybins); /* iterate through list of string hashes, adding to ref hashes */ for(i=0;icstr[i];hp!=NULL;hp=hp->cstr) { unsigned id; id=names_ptrhash(nt,hp->refp); hp->cref=nt->cref[id]; nt->cref[id]=hp; } /* next do cstr, using new cref */ if(nt->cstr!=NULL) free(nt->cstr); nt->cstr=malloc(sizeof(void *)*(nt->qtybins+1)); assert(nt->cstr!=NULL); memset(nt->cstr,0,sizeof(void*)*nt->qtybins); for(i=0;iqtybins;i++) for(hp=nt->cref[i];hp!=NULL;hp=hp->cref) { unsigned id; id=names_strhash(nt,hp->str); hp->cstr=nt->cstr[id]; nt->cstr[id]=hp; } } names_t *names_new(void) { names_t *p; p=malloc(sizeof(names_t)); assert(p!=NULL); memset(p,0,sizeof(names_t)); p->bytesalloc=sizeof(names_t); p->namebytes=0; p->qtynames=0; p->avg_strl=0; p->avg_refl=0; p->qtybins=0; p->cstr=NULL; p->cref=NULL; names_rehash(p,13); /* start small, grow bigger */ return p; } void names_free(names_t *nt) { int i; namehash_t *nh,*next; if(nt!=NULL) { for(i=0;iqtybins;i++) { for(nh=nt->cstr[i];nh!=NULL;nh=next) { assert(nh->magic==NAME_MAGIC); next=nh->cstr; free(nh); } } free(nt->cstr); free(nt->cref); free(nt); } } xcircuit-3.9.73/spiceparser/eqnlist.c0000664000175000001440000001423312335667423016342 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* eqnlist.c, routines for equation dependency lists, part of package eqn Conrad Ziesler */ #include #include "debug.h" #include "names.h" #include "list.h" #include "eqn.h" #include "bitlist.h" int __debug_eqnlist__=1; #ifndef STRIP_DEBUGGING #define D(level,a) do { if(__debug_eqnlist__>(level)) a; } while(0) #else #define D(level,a) #endif void eqnl_init(eqnlist_t *nl) { nl->params=names_new(); list_init(&(nl->eqnlist),sizeof(eqn_t),LIST_DEFMODE); list_init(&(nl->cache),sizeof(float),LIST_DEFMODE); } void eqnl_free(eqnlist_t *nl) { list_empty(&(nl->eqnlist)); list_empty(&(nl->cache)); names_free(nl->params); } int eqnl_find(eqnlist_t *nl, char *str) { int ind; ind=names_check(nl->params,str); return ind; } eqn_t eqnl_eqn(eqnlist_t *nl, int index) { eqn_t *ep; ep=list_data(&(nl->eqnlist),index); if(ep!=NULL) return *ep; return eqn_empty(); } int eqnl_add(eqnlist_t *nl, eqn_t e, char *str) { #ifdef NO_EQUATIONS return -1; #else int i; eqn_t ed; float fv=0.0; ed=eqn_copy(e); i=list_add(&(nl->eqnlist),&ed); if(names_check(nl->params,str)>=0) { fprintf(stderr,"eqnlist equations: you are doing something wierd w/ hier. (%s) \n",str); assert(0); } names_add(nl->params,i,str); list_add(&(nl->cache),&fv); D(10,fprintf(stderr,"eqnl_add: adding %s as index %i\n",str,i)); return i; #endif } /* here we evaluate terminals for the user, that is equations for which no other equation depends, we first lookup in the parameter cache any dependencies and then call eqntok_eval to do the dirty work */ float eqnl_eval(eqnlist_t *nl, eqn_t e) { #ifdef NO_EQUATIONS return e.val; #else float *fp; float res; int r; eqntoken_t *et; int index; if(e.eqn==NULL)return 0.0; for(et=e.eqn;!OP_ISEND(et->op);et=eqntoken_next(et)) { if((et->op==OPlit) || (et->op==OPlitm)) assert(0); if((et->op==OPlitv) || (et->op==OPlitvm)) { if((index=et->z.lit.ref)==eqn_litref_INIT) assert(0); fp=list_data(&(nl->cache),index); if(fp!=NULL) et->z.lit.cache=*fp; else assert(0); } } res=0.0; r=eqntok_eval(&res,e.eqn); assert(r==0); return res; #endif } /* any parameter is stored in our cache. here we resolve parameter dependecies and evaluate all parameters. */ void eqnl_evaldep(eqnlist_t *nl) { #ifdef NO_EQUATIONS return; #else eqntoken_t *et; int i,sweep,qleft=0,qdep,index; eqn_t *e; bitlist_t *bl; qleft=list_qty(&(nl->eqnlist)); bl=bitlist_new(qleft); for(sweep=0;sweep<32;sweep++) /* limit heirarchy depth to stop cycles */ { /* now check dependencies of all equations until done */ list_iterate(&(nl->eqnlist),i,e) { if(!bitlist_test(bl,i)) /* quick check for done */ { qdep=0; /* go through eqntokens and find dependencies */ for(et=e->eqn;!OP_ISEND(et->op);et=eqntoken_next(et)) { if((et->op==OPlit) || (et->op==OPlitm)) assert(0); if((et->op==OPlitv) || (et->op==OPlitvm)) { if((index=et->z.lit.ref)==eqn_litref_INIT) assert(0); if(bitlist_test(bl,index)) { /* dependency is already computed, get its value */ float *fp; fp=list_data(&(nl->cache),index); if(fp!=NULL) et->z.lit.cache=*fp; else assert(0); } else qdep++; /* indicate dependency not done */ } } if(qdep==0) /* all dependencies resolved, mark as done */ { int r=100; float *fp; fp=list_data(&(nl->cache),i); if(fp!=NULL) /* compute new value */ { r=eqntok_eval(fp,e->eqn); D(5,fprintf(stderr,"Evaldep: recomputed equation %i -> %s == %g\n",i,eqnl_lookup(nl,i),*fp)); } assert(r==0); bitlist_set(bl,i); qleft--; } } } if(qleft==0)break; } if(sweep==32) { assert(0); } bitlist_free(bl); #endif } /* do eqntoken_depend looking up unresolved symbols in eqnlist that is, a single predefined list of parameters */ static eqn_litref_t eqnl_depend_lookup(struct plookup_st *user, char *str) { eqn_litref_t r; r=eqnl_find(user->user, str); if(r<0) { fprintf(stderr,"eqnl_depend: unresolved symbol %s\n",str); assert(0); } return r; } void eqnl_depend(eqnlist_t *nl, eqn_t e) { plookup_t plu; if(e.eqn==NULL)return; plu.lookup=eqnl_depend_lookup; plu.user=nl; eqntok_depend(e.eqn,&plu); } /* do eqnl_depend on all predefined parameters in eqnlist */ void eqnl_autodepend(eqnlist_t *nl) { int i; eqn_t *e; list_iterate(&(nl->eqnlist),i,e) { eqnl_depend(nl,*e); } } /* check if an entry in our eqn table is undefined, that is it should be defined by the client before it tries to call evaleqns */ int eqnl_is_undefined(eqnlist_t *nl, int index) { eqn_t *ep; ep= list_data(&(nl->eqnlist),index); if(ep==NULL)return -1; return eqn_is_undefined(*ep); } int eqnl_define(eqnlist_t *nl, int index, float *valp) { eqn_t *ep; ep= list_data(&(nl->eqnlist),index); if(ep==NULL)return -1; eqn_setvalp(ep,valp); return 0; } int eqnl_qty(eqnlist_t *nl) { int a,b; a=list_qty(&(nl->eqnlist)); b=list_qty(&(nl->cache)); assert(a==b); return a; } char *eqnl_lookup(eqnlist_t *nl, int index) { return names_lookup(nl->params,index); } xcircuit-3.9.73/spiceparser/eqn.h0000664000175000001440000001202712335667423015452 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* eqn.h, equation parsing and evaluation Conrad Ziesler */ #define __EQN_H__ /* defining equations eliminates expression parsing and roughly halves memory needed for storage of numerics however you can no longer use parameters. */ /* #define NO_EQUATIONS */ /*#ifndef __FILE_H__ #include "file.h" #endif */ #ifndef __LIST_H__ #include "list.h" #endif #ifndef __NAMES_H__ #include "names.h" #endif #ifndef __HASH_H__ #include "hash.h" #endif typedef enum itemop_e { OPeolist, OPeol_const, /* special terminator, for constant (reduced memory usage) */ OPeol_valp, /* special terminator, for indirection (float *) */ OPeol_qty, /* for simplified decoding of eol */ OPlit, OPlitm, OPlitv, OPlitvm, OPval, OPvalm, OPadd, OPsub, OPmul, OPdiv, OPexp, OPopen, OPclose }itemop_t; #define OPsyms { "OPeolist", "OPeol_const", "OPeol_valp", "OPeol_qty", \ "OPlit", "OPlitm", "OPlitv", "OPlitvm", \ "OPval", "OPvalm", "OPadd", "OPsub", \ "OPmul", "OPdiv", "OPexp","OPopen", \ "OPclose" \ } #define OPprecidence { 0, 0, 0, 0, \ 0, 0, 0, 0, \ 0, 0, 1, 1, \ 2, 2, 3, 4, \ 4 \ } #define OPtype { 0, 1, 1, 0, \ 1, -1, 1, -1, \ 1, -1, 2, 2, \ 2, 2, 2, 4, \ 4 \ } #define OP_ISEV(a) (((a)>OPeolist) && ((a) < OPeol_qty) ) #define OP_ISV(a) (((a)>=OPlit) && ((a) <= OPvalm)) #define OP_ISEND(a) ( ((a)<=OPeol_qty) ) #define OP_ISANYV(a) (OP_ISV(a) || OP_ISEV(a)) typedef int eqn_litref_t; #define eqn_litref_INIT -1 typedef struct eqntokenlit_st { char *lit; eqn_litref_t ref; float cache; }eqntokenlit_t; typedef struct eqntokenval_st { float x; }eqntokenval_t; typedef struct eqntokenpval_st { float *xp; } eqntokenpval_t; typedef struct eqntoken_st { itemop_t op; union lit_val_un { eqntokenlit_t lit; eqntokenval_t val; eqntokenpval_t pval; }z; }eqntoken_t; #define EQN_DELIM '\'' #define MAXEQNSTACK 512 typedef struct eqntop_st { char *str; char last; eqntoken_t nodes[MAXEQNSTACK]; int nodep; int litc; int opc; }eqntop_t; typedef struct plookup_st { eqn_litref_t (*lookup)(struct plookup_st *user, char *str); void *user; }plookup_t; #define MAXSTACK 512 typedef struct eqneval_st { float stack[MAXSTACK]; int stackp; eqntoken_t *list; }eqneval_t; typedef struct eqn_st { #ifdef NO_EQUATIONS float val; #else eqntoken_t *eqn; #endif }eqn_t; eqn_t eqn_const(float val); void debug_eqn(void *dbg_fp, char *str, eqn_t *eqn); eqn_t eqn_undefined(void); eqn_t eqn_valp(float *valp); float eqn_setvalp(eqn_t *eqn, float *valp); int eqn_is_undefined(eqn_t e); eqntoken_t *eqntok_parse(char *str); eqntoken_t *eqntoken_next(eqntoken_t *p); int eqntok_depend(eqntoken_t *list, plookup_t *lookup); int eqntok_eval(float *res, eqntoken_t *list); float parse_float(unsigned char *val); eqntoken_t *eqntok_copy(eqntoken_t *p); float eqn_setval(eqn_t *eqn, float val); float eqn_getval_(eqn_t *eqn); #define eqn_getval(a) ___FIXME___ eqn_t eqn_copy(eqn_t e); eqn_t eqn_copy_m(eqn_t e, float m); eqn_t eqn_empty(void); eqn_t eqn_parse(unsigned char *val); void *eqn_mem_new(void); void eqn_mem_push(void *p); void *eqn_mem_pop(void); void eqn_mem_free(void *p); /** dependency lists ***/ typedef struct eqnlist_st { names_t *params; list_t eqnlist; list_t cache; }eqnlist_t; void eqnl_depend(eqnlist_t *nl, eqn_t e); void eqnl_free(eqnlist_t *nl); void eqnl_init(eqnlist_t *nl); void eqnl_evaldep(eqnlist_t *nl); float eqnl_eval(eqnlist_t *nl, eqn_t e); int eqnl_add(eqnlist_t *nl, eqn_t e, char *str); eqn_t eqnl_eqn(eqnlist_t *nl, int index); int eqnl_find(eqnlist_t *nl, char *str); int eqnl_define(eqnlist_t *nl, int index, float *valp); int eqnl_is_undefined(eqnlist_t *nl, int index); int eqnl_qty(eqnlist_t *nl); char * eqnl_lookup(eqnlist_t *nl, int index); void eqnl_autodepend(eqnlist_t *nl); xcircuit-3.9.73/spiceparser/netlist_dev.h0000664000175000001440000001057112335667423017211 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_dev.h, definitions for a netlist of circuital devices Conrad Ziesler */ #ifndef __NETLIST_DEV_H__ #define __NETLIST_DEV_H__ #ifndef __NETLIST_H__ #include "netlist.h" #endif #define DEVNODE_HEAD 0 #define DEVNODE_TAIL 1 #define DEVFET_S 0 #define DEVFET_D 1 #define DEVFET_G 2 #define DEVFET_B 3 #define DEVFET_w 0 #define DEVFET_l 1 #define DEVFET_as 2 #define DEVFET_ad 3 #define DEVFET_ps 4 #define DEVFET_pd 5 #define DEVFET_V 6 #define DEV2TERM_P 1 #define DEV2TERM_N 0 #define DEVCAP_c 0 #define DEVCAP_V 1 #define DEVRES_r 0 #define DEVRES_V 1 /* #define DEVT_NODE 0 defined in netlist.h */ #define DEVT_FET 1 #define DEVT_CAP 2 #define DEVT_RES 3 #define DEVT_IND 4 #define DEVT_DIODE 5 #define DEVT_VSRC 6 #define DEVT_ISRC 7 #define DEVT_BJT 8 #define DEVT_MAX 9 /* 0 1 2 3 4 5 6 7 8 */ #define DEVT_TERMS { 2, 4, 2, 2, 2, 2, 2, 2, 4 } #define DEVT_SYMS { "NODE", "FET", "CAP", "RES", "IND", "DIODE", "VSRC", "ISRC", "BJT" } #define DEVT_VALS { 0, DEVFET_V, DEVCAP_V, DEVRES_V, 0 , 0, 0, 0 , 0 } #define DEVT_OTHERS { 0, sizeof(unsigned), 0, 0, 0, 0, 0, 0, 0, 0, 0 , 0 , 0 } #define DEVP_NODE(nl,t) list_data(&((nl)->e[DEVT_NODE].l),(t).devi) #define DEVP_NODEt(nl,t) ((devnode_t *)DEVP_NODE((nl),(t))) #define DEVP_FET(nl,t) list_data(&((nl)->e[DEVT_FET].l),(t).devi) #define DEVP_FETt(nl,t) ((devfet_t *)DEVP_NODE((nl),(t))) #define DEVP_CAP(nl,t) list_data(&((nl)->e[DEVT_CAP].l),(t).devi) #define DEVP_CAPt(nl,t) ((devcap_t *)DEVP_NODE((nl),(t))) #define DEVGEN_V 8 typedef struct devgen_st { dev_input_t parent; termptr_t n[TERMPTR_MAX_TERMI]; eqn_t v[DEVGEN_V]; }devgen_t; #define DEVFET_nmos 1 #define DEVFET_pmos 2 typedef struct devfet_st { dev_input_t parent; termptr_t n[4]; eqn_t v[DEVFET_V]; unsigned type; /* n/p */ }devfet_t; typedef struct devcap_st { dev_input_t parent; termptr_t n[2]; eqn_t v[1]; }devcap_t; typedef struct devres_st { dev_input_t parent; termptr_t n[2]; eqn_t v[1]; }devres_t; typedef struct devind_st { dev_input_t parent; termptr_t n[2]; eqn_t v[1]; }devind_t; typedef struct devvsrc_st { dev_input_t parent; termptr_t n[2]; eqn_t v[1]; }devvsrc_t; typedef struct devisrc_st { dev_input_t parent; termptr_t n[2]; eqn_t v[1]; }devisrc_t; typedef struct devdiode_st { dev_input_t parent; termptr_t n[2]; eqn_t v[4]; }devdiode_t; typedef struct devbjt_st { dev_input_t parent; termptr_t n[4]; eqn_t v[4]; }devbjt_t; typedef struct dev2term_st { dev_input_t parent; termptr_t n[2]; eqn_t v[1]; }dev2term_t; typedef struct dev4term_st { dev_input_t parent; termptr_t n[4]; eqn_t v[1]; }dev4term_t; typedef union devall_un { void *p; devgen_t *genp; devnode_t *nodep; devfet_t *fetp; devcap_t *capp; devind_t *indp; devbjt_t *bjtp; devvsrc_t *vsrcp; devisrc_t *isrcp; }devall_p; #define NETLIST_DEFSIZES \ { \ sizeof(devnode_t) , sizeof(devfet_t), sizeof(devcap_t), sizeof(devres_t), \ sizeof(devind_t), sizeof(devdiode_t), sizeof(devvsrc_t), \ sizeof(devisrc_t) , sizeof(devbjt_t) \ } netlist_t *netlist_copyish(netlist_t *in, int size, int sizes[]); void netlist_o_spice(void *of_fp, netlist_t *nl, int n_start); netlist_t *netlist_devnew_inplace(netlist_input_t ni, int extrasize, int extrasizes[DEVT_MAX]); netlist_t *netlist_devnew(netlist_input_t ni); /********* netlist_funcs.c *********/ netlistfunc_t * netlist_devfet_funcs(netlist_t *nl, netlistfunc_t *fp); #endif xcircuit-3.9.73/spiceparser/hash.h0000664000175000001440000000604412335667423015614 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* hash.h, hash function headers Conrad Ziesler */ #ifndef __HASH_H__ #define __HASH_H__ #ifndef UCHAR typedef unsigned char uchar; #define UCHAR #endif #ifndef _SYS_TYPES_H typedef unsigned int uint; #endif /**********************************/ /* HASH TABLES ********************/ typedef struct hashbin_st { struct hashbin_st *next; int size; /* alloc in place data here */ }hashbin_t; typedef struct hash_st { int uniq; uint (*hashfunc)(int max, void *data, int size); int (*hashcmp)(int sa, void *a, int sb, void *b); int qbin; hashbin_t **bins; int qalloc; void **alloc; }hash_t; #define hash_bin2user(p) ((void *)(((char *)p)+sizeof(hashbin_t))) #define hash_user2bin(p) ((hashbin_t *)((void *)(((char *)p)-sizeof(hashbin_t)))) #define hash_forall(h,i,p) for((i)=0;(i)<(h)->qbin;(i)++) for((p)=(h)->bins[(i)];(p)!=NULL;(p)=(p)->next) #define hash_malloc(h,s) hash_alloc((h),malloc((s))) hash_t *hash_new ( int qbins, uint (*hashfunc)(int max, void *data, int size), int (*hashcmp)(int sizea, void *a, int sizeb, void *b) ) ; void hash_free (hash_t *h); /* free hash table and associated memory */ void *hash_find (hash_t *h, void *key, int ksize); /* find key in table */ void *hash_add (hash_t *h, void *key, int ksize); /* add key of size to table */ void *hash_alloc (hash_t *h, void *data); /* add data to list of allocs */ int hash_size (void *user); /* just return size of associated bin */ /* ----- some predefined hash clients --------- */ unsigned int hash_strhash(int max, void *data, int size); unsigned int hash_binhash(int max, void *data, int size); /* ptr,flag, in place string do strcmp on strings, hash on the string only store a payload of a ptr and a flag */ typedef struct hash_ptrflagstr_st { void *ptr; char flag; /* inplace string to follow */ }hclient_ptrflagstr_t; uint hclient_ptrflagstr_hash(int max, void *data, int size); /* binary object straight binary comparison and hash */ uint hclient_bobject_hash(int max, void *data, int size); int hclient_bobject_cmp(int sizea, void *a, int sizeb, void *b); #endif xcircuit-3.9.73/spiceparser/bitlist.h0000664000175000001440000000325312335667423016342 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* bitlist.h, declarations for bitlist functions Conrad Ziesler */ #ifndef __BITLIST_H__ #define __BITLIST_H__ /*** bitlist: 1-d array of bits ******/ typedef struct bitlist_st { int qty; int qbytes; unsigned char data[4]; }bitlist_t; #define SCAN_FORWARD 1 #define SCAN_REVERSE 0 #define SCAN_SET 2 #define SCAN_CLEAR 0 bitlist_t * bitlist_new(int qty); void bitlist_free(bitlist_t *b); int bitlist_set(bitlist_t *bl, int index); int bitlist_test(bitlist_t *bl, int index); int bitlist_clear(bitlist_t *bl, int index); bitlist_t *bitlist_resize(bitlist_t *bl,int qty); int bitlist_scan(bitlist_t *bl, int flags); int bitlist_copyhead(bitlist_t *dest, bitlist_t *src, int length); void bitlist_clearall(bitlist_t *bl); void bitlist_setall(bitlist_t *bl); #endif xcircuit-3.9.73/spiceparser/eval.h0000664000175000001440000000330712335667423015617 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* eval.h, support for evaluation Conrad Ziesler */ #ifndef __EVAL_H__ #define __EVAL_H__ typedef enum eval_op_en { EOnone, EOadd, EOsub, EOneg, EOmul, EOdiv, EOmod, EOleft, EOright, EObitxor, EObitand, EObitor, EObitnot, EOor, EOand, EOnot, EOlist, EOliteral, EOlistitem, EOlast }eval_op_t; #define EVAL_ARGS_OF_OP { 0, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 1, 1 } #define EVAL_OP_NAMES { "none", "add", "sub", "neg", "mul", "div", "mod", "left", "right", "bitxor", "bitand" \ "bitor", "bitnot", "or", "and", "not", "list", "literal", "listitem", "last" } extern const char *eval_op_names[EOlast+1]; extern const int eval_args_of_op[EOlast]; typedef struct eval_expr_st { eval_op_t op; int args[2]; }eval_expr_t; #endif xcircuit-3.9.73/spiceparser/list_search.h0000664000175000001440000000516112335667423017170 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* list_search.h, list container that supports arbitary (binary) search Conrad Ziesler */ #ifndef __LIST_SEARCH_H__ #define __LIST_SEARCH_H__ #ifndef __LIST_H__ #include "list.h" #endif typedef struct list_psearch_st { void *user; int (*cmpf)(const void *user, const void *a, const void *b); int *isearchdata; int is_sorted; int len; }list_psearch_t; typedef struct list_search_st { list_t list; list_t psearch; }list_search_t; typedef struct list_search_iterator_st { list_search_t *sp; int which; int last_id; }list_search_iterator_t; #define list_search(lp) (&((lp)->list)) #define list_search_data(a,b) list_data(list_search((a)),(b)) #define list_search_vdata(a,b) list_vdata(list_search((a)),(b)) #define list_search_iterate(l,i,p) for((p)=list_search_data((l),(i)=0);(p)!=NULL;(p)=list_search_data((l),++(i))) #define list_search_add(a,b) list_add(list_search((a)),(b)) #define list_search_qty(a) list_qty(list_search((a))) #define list_search_index(a,b) list_index(list_search((a)),(b)) #define list_search_reset(a) list_reset(list_search((a))) #define list_search_iterate_backwards(l,i,p) for((p)=list_search_data((l),(i)=(list_search((l))->q-1));(p)!=NULL;(p)=list_search_data((l),--(i))) void list_search_init(list_search_t *lp, int size, int mode); int list_search_addrule(list_search_t *lp, int (*cmpf)(const void *user, const void *a, const void *b),void *user); void list_search_resort(list_search_t *lp); int list_search_find(list_search_t *lp, int which, void *key, list_search_iterator_t *sip); int list_search_findnext(list_search_iterator_t *sip); void list_search_empty(list_search_t *lp); /* private */ void list_search_qsort (list_search_t *lsp, list_psearch_t *psp); #endif xcircuit-3.9.73/spiceparser/Makefile_orig0000664000175000001440000000105012335667423017170 0ustar timusersOBJS = bitlist.o \ eqn.o \ eqnlist.o \ equations.o \ hash.o \ list.o \ list_search.o \ memory.o \ mergedup.o \ names.o \ netlist.o \ netlist_dev.o \ netlist_extract.o \ netlist_funcs.o \ netlist_lib.o \ netlist_spice.o \ netlist_template.o \ scanner.o \ sort.o \ CFLAGS = -Wall -I. -DCONFIGURED CC = gcc top: $(OBJS) example :%.o:%.c: $(CC) $(CFLAGS) -o $@ $< example: README.c $(OBJS) $(CC) $(CFLAGS) -o $@ $^ -lm run_example: example test.lib ./example -i test.lib -o test.out -p test.pins clean: ${RM} -f *.o example test.out test.pins xcircuit-3.9.73/spiceparser/scanner.c0000664000175000001440000004047412335667423016322 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* scanner.c, support for scanning text, tokenifies input, uses file_readline Conrad Ziesler */ /* goal: support cad tool file reading cad tool requirements: large file size, regular file handling needs to: minimize memory allocations, prevent memory leaks should provide: allow higher up layers to never need to call strdup unless they really want to. that is we alloc in place */ #include #include #include "debug.h" #include "scanner.h" /**** standard error and warning reporting ************/ static void parse_warn_error(int which, scanner_t *scan, char *fmt, va_list va) { static char buf[4096]; card_t *c=scan->errcard; deck_t *d=scan->errdeck; char *bp=buf; char *warnerr="WARNING"; int line=-1; int file=-1; if(d==NULL) { if (scan->inputp!=NULL) { line=scan->inputp->line; file=scan->inputp->index; } } else { line=d->line.line; file=d->line.fileindex; } if(which) warnerr="ERROR"; bp[0]=0; if(c!=NULL) sprintf(bp,"line %i: %s: near %s : ",line,warnerr,c->str); else sprintf(bp,"line %i: %s: :",line,warnerr); if(d!=NULL) for(c=d->card;c!=NULL;c=c->next) { bp+=strlen(bp); if(bp>(buf+sizeof(buf)-256)) assert(0); if(c->val!=NULL)sprintf(bp,"%s=%s ",c->str,c->val); else sprintf(bp,"%s ",c->str); } bp+=strlen(bp); sprintf(bp,"\n --> %s",fmt); bp+=strlen(bp); sprintf(bp,"\n"); bp+=strlen(bp); if(which==0) if(scan->warnfunc!=NULL) { scan->warnfunc(scan,buf,va); return; } if(scan->errfunc!=NULL) scan->errfunc(scan,buf,va); } void parse_error (scanner_t *scan, char *fmt, ...) { va_list va; va_start(va,fmt); parse_warn_error(1,scan,fmt,va); va_end(va); } void parse_warn (scanner_t *scan, char *fmt, ...) { va_list va; va_start(va,fmt); parse_warn_error(0,scan,fmt,va); va_end(va); } void scanner_def_err(scanner_t *scan, char *fmt, va_list vp) { vfprintf(stderr,fmt,vp); } /***** private helper functions *********/ #ifdef NO_MEMORY static void free_cards(scanner_t *scan, card_t *c) { card_t *tofree; while(c!=NULL) { tofree=c; c=c->next; free(tofree); } } static void deck_free(scanner_t *scan, deck_t *deck) { deck_t *tofree; while(deck!=NULL) { tofree=deck; deck=deck->next; free_cards(tofree->card); free(tofree); } } #endif static deck_t *new_deck(scanner_t *scan) { deck_t *d; d=memory_alloc(&(scan->strmem),sizeof(deck_t)); assert(d!=NULL); d->next=NULL; d->card=NULL; d->line=scanner_current_file_line(scan); return d; } void scanner_add_tokens(scanner_t *scan, tokenmap_t *map) { int i; if(scan->sectp==NULL)assert(0); else { for(i=0;map[i].str!=NULL;i++) names_add(scan->sectp->tokenizer,map[i].token,map[i].str); } } void scanner_reset_tokens(scanner_t *scan) { if(scan->sectp!=NULL) { names_free(scan->sectp->tokenizer); scan->sectp->tokenizer=names_new(); } else assert(0); } #ifdef OLD_WAY void scanner_input_new(scanner_t *scan, file_spec_p file) { scanner_input_t *p; p=malloc(sizeof(scanner_input_t)); if(p!=NULL)memset(p,0,sizeof(scanner_input_t)); else assert(0); p->file=file; file_openread(file); p->line=0; if(scan->allinputs==NULL) p->index=0; else p->index=scan->allinputs->index+1; p->next=scan->allinputs; scan->allinputs=p; p->back=scan->inputp; scan->inputp=p; } #endif void scanner_input_newfp(scanner_t *scan, void *fp) { scanner_input_t *p; p=malloc(sizeof(scanner_input_t)); if(p!=NULL)memset(p,0,sizeof(scanner_input_t)); else assert(0); p->file_fp=fp; p->line=0; if(scan->allinputs==NULL) p->index=0; else p->index=scan->allinputs->index+1; p->next=scan->allinputs; scan->allinputs=p; p->back=scan->inputp; scan->inputp=p; } void scanner_sect_new(scanner_t *scan, scanner_def_t *defs, tokenmap_t *map) { scanner_sect_t *sect; sect=malloc(sizeof(scanner_sect_t)); if(sect!=NULL)memset(sect,0,sizeof(scanner_sect_t)); else assert(0); sect->tokenizer=names_new(); sect->def=defs; sect->cp=NULL; sect->dp=NULL; sect->dhead=NULL; sect->eolstring=0; sect->line_cont=0; sect->lbuf[0]=0; sect->eoline[0]=0; sect->back=scan->sectp; scan->sectp=sect; scanner_add_tokens(scan,map); } void scanner_input_release(scanner_t *scan) /* release top of stack */ { scanner_input_t *p; if((p=scan->inputp)!=NULL) { scan->inputp=scan->inputp->back; /* we don't free, we keep on list, for error reporting */ } } void scanner_sect_release(scanner_t *scan) /* release top of stack */ { scanner_sect_t *p; if((p=scan->sectp)!=NULL) { scan->sectp=scan->sectp->back; names_free(p->tokenizer); free(p); } } void scanner_init(scanner_t *scan) { memory_init(&(scan->strmem)); scan->sectp=NULL; scan->allinputs=NULL; scan->inputp=NULL; scan->errdeck=NULL; scan->errcard=NULL; scan->errfunc=scanner_def_err; scan->warnfunc=scanner_def_err; } void scanner_free_all(scanner_t *scan) { memory_freeall(&(scan->strmem)); } void scanner_release(scanner_t *scan) { scanner_input_t *p,*np; while(scan->sectp!=NULL) scanner_sect_release(scan); while(scan->inputp!=NULL) scanner_input_release(scan); for(p=scan->allinputs;p!=NULL;p=np) { np=p->next; if(p->file_fp!=NULL) fclose(p->file_fp); free(p); } scanner_free_all(scan); } int scanner_checkvalid(deck_t *d, int qty) { int i; card_t *c; if(d==NULL)return 0; for(i=0,c=d->card;c!=NULL;c=c->next,i++) { if(i>=qty)break; } if(i>=qty)return 1; return 0; } /***** the actual scanner routines *****/ static char *skip_stuff(char *toskip, char *str, int sense) { char *cp; char *ws; for(cp=str;cp[0]!=0;cp++) { for(ws=toskip;ws[0]!=0;ws++) if(ws[0]==cp[0]) break; if( (ws[0]==0) && (sense==0) ) break; /* no toskip char found */ if( (ws[0]!=0) && (sense!=0) ) break; /* toskip char found */ } return cp; } static void skip_space(scanner_t *scan, char **p) { *p=skip_stuff(scan->sectp->def->whitespace,*p,0); } #if 0 static void skip_nonspace(scanner_t *scan, char **p) { *p=skip_stuff(scan->sectp->def->whitespace,*p,1); } #endif static void skip_nonspace_quote(scanner_t *scan, char **p) { scanner_def_t *def=scan->sectp->def; int quote=0; char *cp; char *ws; cp=*p; /* this is set to 2 origninally since first iteration hits same character */ if(cp[0]==def->quote_char)quote=2; for(;cp[0]!=0;cp++) { if(cp[0]==def->quote_char){ quote--; if(quote==0){ if(cp[0]!=0)cp++; break; } } if(quote<=0) { for(ws=def->whitespace;ws[0]!=0;ws++) if(ws[0]==cp[0]) break; if( (ws[0]!=0) ) break; /* whitespace char found */ } } *p=cp; } static int astreq(char *s, char *lng) { if(s[0]==0)return 2; while(s[0]!=0) { if(lng[0]==0)return -1; if(s[0]!=lng[0])return 1; s++; lng++; } return 0; } static card_t *make_card(scanner_t *scan, char *p1, char *p2, char *p3, char *p4) { scanner_def_t *def=scan->sectp->def; card_t *c; int l1=0,l2=0,lc; int i; if( (p1!=NULL) && (p2!=NULL)) l1=p2-p1; if( (p3!=NULL) && (p4!=NULL)) l2=p4-p3; assert(l1>=0); assert(l2>=0); lc=strlen(def->eol_continue); if(p1[0]==0) return NULL; /* nothing here */ if(lc <= l1) if(!astreq(def->eol_continue,p2-lc)) { if(lc < l1 ) { memcpy(scan->sectp->eoline,p1,l1-lc); scan->sectp->eoline[l1]=def->assignment; scan->sectp->eoline[l1+1]=0; scan->sectp->eolstring=1; } return NULL; } if(p3!=NULL) { if((p3[0]==0)||(!astreq(def->eol_continue,p3))) { memcpy(scan->sectp->eoline,p1,l1); scan->sectp->eoline[l1]=def->assignment; scan->sectp->eoline[l1+1]=0; scan->sectp->eolstring=1; return NULL; } } c=memory_alloc(&(scan->strmem),sizeof(card_t)+l1+l2+2); assert(c!=NULL); c->next=NULL; c->token=0; c->str[0]=0; c->val=NULL; memcpy(c->str,p1,l1); c->str[l1]=0; if(l2!=0) { memcpy(c->str+l1+1,p3,l2); c->str[l1+1+l2]=0; c->val=c->str+l1+1; } if(def->convert_case==PARSE_CASE_TOLOWER) for(i=0;i<(l1+l2+2);i++) c->str[i]=tolower(c->str[i]); else if(def->convert_case==PARSE_CASE_TOUPPER) for(i=0;i<(l1+l2+2);i++) c->str[i]=toupper(c->str[i]); if((def->tokenize[0]==0) || (!astreq(def->tokenize,c->str))) c->token=names_check(scan->sectp->tokenizer,c->str); if(c->val!=NULL) if(c->val[0]==scan->sectp->def->quote_char)c->val++; return c; } int scanner_parse_line(scanner_t *scan) { scanner_def_t *def=scan->sectp->def; char *line=scan->sectp->lbuf; char *lp, *tmp; char *p1=NULL,*p2,*p3,*p4,*p5,*p6; card_t *ncp=NULL; int dbg=0; if(scan->inputp==NULL)return 0; if(scan->inputp->file_fp!=NULL) { if(feof(((FILE *)scan->inputp->file_fp)))return 0; } /* return 0; else { if(file_eof(scan->inputp->file)) return 0; } */ line[0]=0; line[1]=0; line[sizeof(scan->sectp->lbuf)-1]=0; if(scan->inputp->file_fp!=NULL) fgets(line,sizeof(scan->sectp->lbuf)-2,scan->inputp->file_fp); else ; /* file_readline(scan->inputp->file,sizeof(scan->sectp->lbuf)-2,line); */ scan->inputp->line++; if(line[0]==0)return 3; /* read one line */ if(dbg)fprintf(stderr,"line: %s",line); lp=line; skip_space(scan,&lp); if(lp[0]==0) return 4; if(!astreq(def->commentstart, lp))return 5; if(!astreq(def->line_stop, lp)) return 0; /* stop scanning */ if(!astreq(def->bol_continue,lp)) /* continue line */ { scan->sectp->line_cont=1; lp+=strlen(def->bol_continue); } if(dbg)fprintf(stderr,"lp: %s",lp); if(dbg) { int l=strlen(lp); if(lp[l-1]=='\n')lp[l-1]=0; } if(! (scan->sectp->line_cont||scan->sectp->eolstring)) /* make a new deck unless we are continuing */ { deck_t *dp; dp=new_deck(scan); if(scan->sectp->dhead==NULL) { scan->sectp->dhead=scan->sectp->dp=dp; } else { scan->sectp->dp->next=dp; scan->sectp->dp=dp; } } scan->sectp->line_cont=0; /* continue last string if necessary */ if(scan->sectp->eolstring) { p1=scan->sectp->eoline; skip_space(scan,&p1); p2=p1; skip_nonspace_quote(scan,&p2); p3=p2; skip_space(scan,&p3); p4=p3; skip_nonspace_quote(scan,&p4); p5=p4; skip_space(scan,&p5); p6=p5; skip_nonspace_quote(scan,&p6); if(p5[0]==0)p5=NULL; if(p3[0]==0)p3=NULL; if(p1[0]==0)p1=NULL; scan->sectp->eolstring=0; } while((lp[0]!=0)||(p1!=NULL)) { int arg=0; if(p1==NULL) { p1=lp; skip_space(scan,&p1); p2=p1; skip_nonspace_quote(scan,&p2); p3=p2; skip_space(scan,&p3); p4=p3; skip_nonspace_quote(scan,&p4); p5=p4; skip_space(scan,&p5); p6=p5; skip_nonspace_quote(scan,&p6); } else if(p3==NULL) { p3=lp; skip_space(scan,&p3); p4=p3; skip_nonspace_quote(scan,&p4); p5=p4; skip_space(scan,&p5); p6=p5; skip_nonspace_quote(scan,&p6); } else if(p5==NULL) { p5=lp; skip_space(scan,&p5); p6=p5; skip_nonspace_quote(scan,&p6); } if(dbg) fprintf(stderr,"doing line: line is [%s]\nlp=[%s]\np1=[%s]\np2=[%s]\np3=[%s]\np4=[%s]\np5=[%s]\np6=[%s]\n\n", line,lp,p1,p2,p3,p4,p5,p6); /* cases: {p1}{p2}{p3}[ ]{p4}{p5}{p6} -> end of line {p1}text{p2}[ ]{p3}{p4}{p5}{p6} -> word end of line {p1}text=moretext{p2}... -> one word embedded assignment {p1}text={p2}{p3}{p4}{p5}{p6} -> word assignment spills over line {p1}={p2} .. -> continue assignment from prev line if possible {p1}text={p2} {p3}text{p4} -> word assign 1 {p1}text{p2} {p3}=text{p4} -> word assign 2 {p1}text{p2} {p3}={p4} {p5}text{p6} -> word assign 3 {p1}text{p2} {p3}text={p4} -> word text = EOL {p1}text{p2} .. -> eol continue */ if(p1==p2){ p1=NULL; break; } /* end of line */ if(p2>p1) { if(p2[-1]==def->assignment)arg=1; } if((arg==0)&&(p2>p1)) { if( (tmp=memchr(p1,def->assignment,p2-p1))!=NULL) { arg=5; p2=tmp+1; p3=tmp+1; p4=p3; skip_nonspace_quote(scan,&p4); } } if(arg==0) { if(p3[0]==def->assignment) arg=2; } switch(arg) { case 0: /* no arg */ ncp=make_card(scan,p1,p2,NULL,NULL); p1=p3; p2=p4; p3=p5; p4=p6; p5=NULL; lp=p6; break; case 1: /* arg in p3 */ ncp=make_card(scan,p1,p2-1,p3,p4); p1=p5; p2=p6; p3=NULL; p5=NULL; lp=p6; break; case 2: /* arg in p3 or p4 */ if((p3+1)str,ncp->token,ncp->val); if(scan->sectp->dp==NULL)assert(0); if(scan->sectp->dp->card==NULL) scan->sectp->dp->card=scan->sectp->cp=ncp; else { if(scan->sectp->cp!=NULL) { scan->sectp->cp->next=ncp; scan->sectp->cp=scan->sectp->cp->next; } else assert(0); } } else { if(dbg)fprintf(stderr,"card is null, line is [%s]\nlp=[%s]\np1=[%s]\np2=[%s]\np3=[%s]\np4=[%s]\np5=[%s]\np6=[%s]\n\n", line,lp,p1,p2,p3,p4,p5,p6); } } return 6; } int scanner_parse_all(scanner_t *scan) { scan->sectp->eolstring=0; scan->sectp->line_cont=0; while(scanner_parse_line(scan)); return 0; } scanner_def_t *scanner_def_spice(void) { static scanner_def_t spicedef; strcpy(spicedef.line_stop,".end_spice"); strcpy(spicedef.eol_continue,"\\"); strcpy(spicedef.bol_continue,"+"); spicedef.convert_case=PARSE_CASE_TOLOWER; spicedef.quote_char='\''; spicedef.newline='\n'; spicedef.assignment='='; strcpy(spicedef.tokenize,"."); strcpy(spicedef.whitespace," \t\n\r"); strcpy(spicedef.commentstart,"*"); return &spicedef; } char *scanner_token(scanner_t *scan, int token) { return names_lookup(scan->sectp->tokenizer,token); } file_line_t scanner_current_file_line(scanner_t *scan) { file_line_t l; l.fileindex=scan->inputp->index; l.line=scan->inputp->line; return l; } void scanner_debug_all(scanner_t *scan, void *dbg) { FILE *fp=dbg; int q; deck_t *d; card_t *c; fprintf(fp,"\n\n** begin \n\n"); for(d=scan->sectp->dhead;d!=NULL;d=d->next) { q=0; fprintf(fp,"\nline %i: ",d->line.line); for(c=d->card;c!=NULL;c=c->next) { if(c->token>0) fprintf(fp," **%i=%s** ",c->token,scanner_token(scan,c->token)); if(c->val==NULL) fprintf(fp," [%s] ",c->str); else fprintf(fp," [%s]=[%s] ",c->str,c->val); q++; if(q>=6){ fprintf(fp,"\n "); q=1; } } } fprintf(fp,"\n\n** .end\n\n"); } /* parses 0101.0101.0101011.01 */ unsigned parse_binary(char **str) { unsigned result=0; char *p; for(p=*str;p[0]!=0;p++) { if(p[0]=='0') result<<=1; else if(p[0]=='1') { result<<=1; result|=1; } else if(p[0]=='.'); else break; } *str=p; return result; } xcircuit-3.9.73/spiceparser/netlist.c0000664000175000001440000003570612335667423016355 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist.c, generalized netlist functions Conrad Ziesler */ #include /* note: we try to store a netlist in a form which is as compact as possible, while being extensible by clients, in addition to being general enough to handle all possible netlist input formats the primary memory saving device is the termptr_t bitfield, where we make a complex pointer which represents the type of node it points to. also we statically allocate memory for the devices using list_t blocks. and allocate extra space per device as defined by the client structure */ #include #include #include "debug.h" #define __NETLIST_PRIVATE__ #include "netlist.h" #include "mergedup.h" /* call these at entry and exit of all netlist functions that potentially modify equations */ void netlist_eqn_begin(netlist_t *nl) { assert(nl->eqn_mem!=NULL); eqn_mem_push(nl->eqn_mem); } void netlist_eqn_end(netlist_t *nl) { if(eqn_mem_pop()!=nl->eqn_mem) assert(0); } /* some assumptions we make about bitfield encodings */ int netlist_machine(void) { assert(sizeof(termptr_t)==sizeof(void*)); assert(sizeof(unsigned int) == sizeof(void*)); assert(sizeof(unsigned int) == 4 ); return 0; } termptr_t netlist_termptr_null_t(termptr_t from) { from.nonnull=0; return from; } termptr_t netlist_termptr_null(void) { termptr_t v; v.nonnull=0; v.termi=0; v.devi=0; v.devt=0; return v; } termptr_t netlist_termptr_nonnull(termptr_t from) { from.nonnull=1; return from; } termptr_t netlist_termptr(int dev, int term, int type) { termptr_t t; t.termi=term; t.devi=dev; t.devt=type; t.nonnull=1; return t; } int netlist_termptr_devi(termptr_t t) { return t.devi; } int netlist_termptr_termi(termptr_t t) { return t.termi; } int netlist_termptr_devt(termptr_t t) { return t.devt; } termptr_t netlist_termptr_deref(netlist_t *nl, termptr_t t) { assert(t.devt>=0); assert(t.devtqe); assert(t.termi>=0); assert(t.termie[t.devt].qterms); assert(t.nonnull==1); return NETLIST_TERM(nl,t.devt,t.devi,t.termi); } int netlist_node_termptr(netlist_t *nl, termptr_t t) { while(t.devt!=DEVT_NODE) t=netlist_termptr_deref(nl,t); return t.devi; } int netlist_add_dev_(netlist_t *nl, int devt, void *p) { int i; assert(devt>=0); assert(devtqe); i=list_add(&(nl->e[devt].l),p); return i; } int netlist_add_dev(netlist_t *nl, int devt) { int i; assert(devt>=0); assert(devtqe); i=list_nextz(&(nl->e[devt].l)); return i; } /* merge duplicate entities summing results the user function tocompare returns a ptr to some static area which is filled with data that should be sorted and matched to the user function sum takes the indices of the two entities and performs the equivilent of [a]=[a]+[b] if sum returns 1 we remove item b so sum should frees any private data associated with [b] on 1 */ void netlist_merge(netlistfunc_t *nm) { mergedup_t *md; int i,ib,ia; void *data; char *buffer; list_t *entity=&(nm->entity->l); list_t newl; if(nm->tocompare==NULL)return; if(nm->sum==NULL)return; if(nm->qcmp<=0)return; buffer=malloc(nm->qcmp); assert(buffer!=NULL); memset(buffer,0,nm->qcmp); md=mergedup_alloc(list_qty(entity),nm->qcmp); list_iterate(entity,i,data) { nm->tocompare(nm,i,buffer); mergedup_fill(md,buffer,i); } free(buffer); buffer=NULL; mergedup_sort(md); ib=-1; ia=-1; while(1) { ib=mergedup_visit(md,0); /* get next same */ if(ib==-1) { i=ia; ia=mergedup_visit(md,1); /* get next different */ if(ia==-1)break; } else { if(nm->sum(nm,ia,ib)) { /* flag delete item */ mergedup_setbit(md,ib); } } } ia=0; /* count number of remaining elements */ for(i=0;inl; list_t *entity=&(nm->entity->l); entity_t *e=nm->entity; int qterm=nm->entity->qterms; float *node_sums; if(nm->qproperties<=0)return; node_sums=malloc(sizeof(float)*list_qty(&(nl->e[DEVT_NODE].l))*nm->qproperties); assert(node_sums!=NULL); for(i=0;i< (list_qty(&(nl->e[DEVT_NODE].l))*nm->qproperties);i++) node_sums[i]=0.0; list_iterate_(entity,i) { for(j=0;jqproperties) ; if(nm->accumulate!=NULL) nm->accumulate(nm,i,j,node_data); } } list_iterate_(entity,i) { for(j=0;jqproperties) ; if(nm->distribute!=NULL) nm->distribute(nm,i,j,node_data); } } free(node_sums); } /* fixup netlist node pointers when we first build a netlist, we have a many to one relationship for the entity terminals, ie. they all point to the associated node we also want to be able to enumerate the list of entity terminals on a given net, without going through all entities and comparing. thus we have to fixup the netlist, making a linked list out of the terminal ptrs so we can walk through all the terminals on a net. also we put the actual node on the head of that list. we call a user function for each terminal on the net (to store back pointer if necessary) */ void netlist_fixup(netlistfunc_t *nm) { netlist_t *nl=nm->nl; int i,j,k; int qterms; termptr_t t,nt; void *dp; void *np; /* init tail ptrs, to point to the head ptr */ list_iterate(&(nl->e[DEVT_NODE].l),i,np) { termptr_t t; NETLIST_TERM(nl,DEVT_NODE,i,1)=t=netlist_termptr(i,0,DEVT_NODE); NETLIST_TERM(nl,DEVT_NODE,i,0)=netlist_termptr_null_t(t); } for(i=0;iqe;i++) { qterms=nl->e[i].qterms; list_iterate(&(nl->e[i].l),j,dp) { for(k=0;kfixup!=NULL) nm->fixup(nm,t); } } } } int netlist_findnode(netlist_t *nl, char *str) { int pindex; pindex=names_check(nl->names,str); return pindex; } termptr_t netlist_node(netlist_t *nl, char *str, void *parent) { int pindex; termptr_t tp; if(0)fprintf(stderr,"\nnode %s %p\n",str,parent); pindex=names_check(nl->names,str); if(pindex==-1) { pindex=netlist_add_dev(nl,DEVT_NODE); names_add(nl->names,pindex,str); tp=netlist_termptr(pindex,0,DEVT_NODE); NETLIST_TERM(nl,DEVT_NODE,pindex,0)=tp; NETLIST_TERM(nl,DEVT_NODE,pindex,1)=tp; } else { tp=netlist_termptr(pindex,0,DEVT_NODE); } return tp; } int netlist_newdev_fromnode(netlist_t *nl, int devt, dev_input_t parent , termptr_t n[]) { int q,qv,i,index; qv =NETLIST_QVALS (nl,devt); q =NETLIST_QTERMS (nl,devt); index=netlist_add_dev(nl,devt); NETLIST_PARENT(nl,devt,index)=parent; for(i=0;ie[i]=e; nl->qe=0; nl->names=names_new(); nl->input.p=NULL; nl->eqn_mem=eqn_mem_new(); nl->iscopy=0; eqnl_init(&(nl->eqnl)); } int netlist_register_entity (netlist_t *nl, int id, int qterms, int qvals, int qrest, char *sym, int othersize) { entity_t *ep; if(nl->qe>=TERMPTR_MAX_DEVT) return -1; ep=&(nl->e[nl->qe]); nl->qe++; ep->id=id; ep->qterms=qterms; ep->qvals=qvals; strncpy(ep->sym,sym,8); ep->sym[7]=0; ep->qcount=0; ep->qother=qrest; list_init(&(ep->l),NETLIST_OFFSET_OTHER((*ep))+othersize,LIST_DEFMODE); return nl->qe-1; } netlist_input_t netlist_parse_input(scanner_t *scan, char *type, netlist_param_t *params) { netlist_input_t p; netlist_machine(); p.p=NULL; if(strcmp(type,"spice")==0) { p.spice=spice_new(scan); } if(strcmp(type,"extract")==0) { /* p.ext=extract_new(scan); */ } if(p.p==NULL) parse_error(scan, "Netlist: can't parse input of type %s",type); return p; } void netlist_debug_input(void * dbg_fp, netlist_input_t p) { FILE *dbg=dbg_fp; netlist_machine(); if(p.p==NULL) fprintf(dbg, "can't debug netlist input, null ptr"); if(p.generic->magic==SPICE_MAGIC) spice_debug(dbg,p.spice); else if(p.generic->magic==EXTRACT_MAGIC) /* p.ext=extract_debug(dbg,p.extract) */ ; } void netlist_debug(void * dbg_fp, netlist_t *nl) { netlist_debug_(dbg_fp,nl,0); } void netlist_debug_(void * dbg_fp, netlist_t *nl, int eval) { FILE *dbg=dbg_fp; int i; if(nl==NULL) fprintf(dbg,"can't debug netlist, null ptr"); if(eval) { if(0)fprintf(stderr,"\n\nbegin evaldep \n\n"); eqnl_evaldep(&(nl->eqnl)); if(0)fprintf(stderr,"\n\ndone evaldep \n\n"); } fprintf(dbg,"debugging netlist eval=%i, %p\n",eval,nl); for(i=0;iqe;i++) { entity_t *e; int j; eqn_t *v; e=nl->e+i; fprintf(dbg," e %i %s, qterm=%i qcount=%i l.q,m=%i,%i\n", i,e->sym,e->qterms,e->qcount,e->l.q,e->l.m ); list_iterate_(&(e->l),j) { int k; fprintf(dbg,"%i: ",j); for(k=0;kqterms;k++) { termptr_t t=NETLIST_E_TERM(e,j,k); fprintf(dbg," [%i %s.%i]",t.devi,nl->e[t.devt].sym,t.termi); if(i==DEVT_NODE) fprintf(dbg,"=%s ",names_lookup(nl->names,j)); } fprintf(dbg,"\n "); v=NETLIST_VALS(nl,i,j); for(k=0;kqvals;k++) { if(!eval) { char buf[32]; sprintf(buf," %i",k); debug_eqn(dbg,buf,v+k); fprintf(dbg," "); } else { float f; f=eqnl_eval(&(nl->eqnl),v[k]); fprintf(dbg," ev %g ",f); } } fprintf(dbg,"\n"); } } } /* release input from netlist (free structures if possible) after this call, all parent ptrs and input ptrs are set to null */ void netlist_release(netlist_t *nl) { int i,j; /* reset all the parent ptrs to null */ for(i=0;iqe;i++) { list_iterate_(&(nl->e[i].l),j) NETLIST_PARENT(nl,i,j).p=NULL; } /* call low level free function */ switch(nl->input.generic->magic) { case SPICE_MAGIC: spice_release(nl->input.spice); break; case EXTRACT_MAGIC: /* extract_release(nl->input.ext); */ break; } nl->input.p=NULL; } /* this releases input if not already done and then frees up the memory associated with the netlist any additional client memory should already have been freed */ void netlist_free(netlist_t *nl) { int i; if(nl!=NULL) { if(nl->input.p!=NULL) netlist_release(nl); for(i=0;ie[i].l)); eqn_mem_free(nl->eqn_mem); nl->eqn_mem=NULL; if(!nl->iscopy) { eqnl_free(&(nl->eqnl)); names_free(nl->names); } free(nl); nl=NULL; } } int netlist_print_nodep(netlist_t *n, netprint_t grp, void * file_fp, void *gn, char *str) { FILE *file=file_fp; int index=-1; const char *err="node_error"; char *name="error"; int i; fprintf(file,"%s",str); if(n!=NULL) index=list_index(&(n->e[DEVT_NODE].l),gn); switch(grp) { case netprint_none: break; case netprint_name: if(index!=-1) fprintf(file,"%s",names_lookup(n->names,index)); else fprintf(file,err); break; case netprint_index: if(index!=-1) fprintf(file,"n%i",index); else fprintf(file,err); case netprint_ptr: fprintf(file,"N_%p",gn); case netprint_nname: if(index!=-1) name=names_lookup(n->names,index); i=strlen(name)-8; if(i<0)i=0; fprintf(file,"N%i_%s",index,name+i); break; case netprint_debug: if(index!=-1) fprintf(file,"[Node %p %i %s]",gn,index,names_lookup(n->names,index)); else fprintf(file,"[Node %p]",gn); break; } return 0; } void netlist_eval(netlist_t *n) { eqnl_evaldep(&(n->eqnl)); } /* this is somewhat inefficient, please don't rely on it */ netlist_t *netlist_copyisher(netlist_t *in, int extrasize, int extrasizes[]) { char buffer[4096]; int i,j,sin; void *p; netlist_t *nl; netlist_machine(); nl=malloc(sizeof(netlist_t)+extrasize); assert(nl!=NULL); netlist_init(nl); nl->iscopy=1; for(i=0;iqe;i++) { entity_t *ep; int index; ep=in->e+i; index=netlist_register_entity(nl,ep->id,ep->qterms,ep->qvals,ep->qother,ep->sym,extrasizes[i]); assert(sizeof(buffer)> (extrasizes[i]+NETLIST_OFFSET_OTHER((*ep)))); assert(index>=0); memset(buffer,0,sizeof(buffer)); sin=list_sizeof(&(in->e[i].l)); list_hint(&(nl->e[index].l),sin); list_iterate(&(ep->l),j,p) { memcpy(buffer,p,sin); /* yes, we copy twice. this is required, think about it */ list_add(&(nl->e[index].l),buffer); } } /* POTENTIAL MEMORY LEAK HERE */ nl->names=in->names; /* share name database */ nl->eqnl=in->eqnl; /* share eqnl database */ nl->input.p=NULL; /* flag this to null */ return nl; } xcircuit-3.9.73/spiceparser/eqn.c0000664000175000001440000004614312335667423015453 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* eqn.c, equation evaluation and parsing Conrad Ziesler */ #include #include #include #include "debug.h" #include "eqn.h" extern int __debug_eqn__; /* int __debug_eqn__=1; */ #ifndef STRIP_DEBUGGING #define D(level,a) do { if(__debug_eqn__>(level)) a; } while(0) #else #define D(level,a) #endif #define uchar unsigned char #include "memory.h" #define MAX_STACK 1024 static memory_t eqn_mem_default=MEMORY_INIT; static memory_t *eqn_mem_stack[MAX_STACK]={ &eqn_mem_default , NULL, NULL }; static int eqn_mem_stackp=0; static int eqn_mem_qalloc=0; void eqn_mem_free(void *p) { memory_t *mem=p; if(p!=NULL) { memory_freeall(mem); free(p); } } /* make and return a new eqn memory object */ void *eqn_mem_new(void) { void *p; eqn_mem_qalloc++; p=malloc(sizeof(memory_t)); assert(p!=NULL); memory_init(p); return p; } void eqn_mem_push(void *p) { eqn_mem_stackp++; assert(eqn_mem_stackp0); p=eqn_mem_stack[eqn_mem_stackp]; eqn_mem_stackp--; return p; } #ifdef NO_EQUATIONS void eqn_free(enq_t e) { } /* static equations are not mallocated */ #else static void *eqn_malloc(int size) { void *p=memory_alloc(eqn_mem_stack[eqn_mem_stackp],size); if(p==((void *)0x81dd014)) { int i=0; i++; } return p; } void eqn_free(eqn_t e) { memory_free(eqn_mem_stack[eqn_mem_stackp],e.eqn); } #endif #ifndef NO_EQUATIONS eqntoken_t *eqntoken_next(eqntoken_t *p) { eqntoken_t *r; switch(p->op) { case OPeolist: case OPeol_const: case OPeol_valp: case OPeol_qty: r=p; break; case OPval: case OPvalm: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenval_t) )) ; break; case OPlit: case OPlitm: case OPlitv: case OPlitvm: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenlit_t) )) ; break; default: r= (void *) (((char *)p)+(sizeof(itemop_t))) ; break; } return r; } eqntoken_t *eqntoken_last(eqntoken_t *p) { eqntoken_t *r=p; while(!OP_ISEND(p->op))p=eqntoken_next(p); switch(p->op) { case OPeol_const: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenval_t))) ; break; case OPeol_valp: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenpval_t))) ; break; case OPeolist: r= (void *) (((char *)p)+(sizeof(itemop_t))) ; break; case OPeol_qty: assert(0); default: assert(0); } return r; } #endif static float float_parse(uchar *val, int *count) { float v=0.0,sign=1,sig=0,rest=0; int i,offset=0; uchar *ps=NULL,*pa=NULL,*pb=NULL,*tmpc; uchar a; for(ps=val;(isspace(ps[0]))&&(ps[0]!=0);ps++); if(ps[(unsigned)0]=='-') { sign=-1; pa=ps+1; } else if(ps[(unsigned)0]=='+') { sign=1; pa=ps+1; } else pa=ps; if(pa[(unsigned)0]=='.'){ sig=0; pb=pa+1; } else if(isdigit(pa[(unsigned)0])) { sig=atoi(pa); for(pb=pa;pb[0]!=0;pb++) if(!isdigit(pb[0])) break; } if(pb==NULL){ return -1e99; } if(pb[0]=='.') pb++; i=0; if(isdigit(pb[0])) { rest=atoi(pb); for(i=0;pb[i]!=0;i++) { if(!isdigit(pb[i]))break; rest=rest*0.1; } } v=(sig+rest)*sign; offset=pb+i+1-val; switch(pb[i]) { case 'f': v*=1e-15; break; case 'p': v*=1e-12; break; case 'n': v*=1e-9; break; case 'u': v*=1e-6; break; case 'm': v*=1e-3; break; case 'x': v*=1e6; break; case 'e': v*=pow(10.0,(float)atoi(pb+i+1)); for(tmpc=pb+i+1;isdigit(tmpc[0]);tmpc++); offset=tmpc-val; break; case 0: offset--; break; case ' ': offset--; break; default: offset--; break; /* dont eat this char */ } /* this is for the case of '5fF' where we have some trailing alpha chars for units which must be discarded so the parser doesn't get confused */ while((a=val[offset])!=0) { if(isalpha(a))offset++; else break; } D(10,fprintf(stderr,"%s = %e\n",val,v)); if(count!=NULL)*count=offset; return v; } #ifndef NO_EQUATIONS static int eqntoken_parse(eqntop_t *top) { eqntoken_t *node; char *p=top->str; int i=0; int uselast=1; char c; int r=1; if(isspace(top->last)||(top->last==0))uselast=0; if(!uselast) { for(p=top->str;(isspace(p[0]))&&(p[0]!=0);p++); c=p[0]; } else c=top->last; top->last=0; if(top->nodep>=MAXEQNSTACK)return 0; node=top->nodes+top->nodep++; node->z.lit.lit=NULL; switch(c) { case EQN_DELIM: if(!uselast)top->str++; /* fall through */ case 0: node->op=OPeolist; r=0; break; case '+': node->op=OPadd; if(!uselast)top->str++; top->opc++; break; case '-': node->op=OPsub; if(!uselast)top->str++; top->opc++; break; case '*': node->op=OPmul; if(!uselast)top->str++; top->opc++; break; case '/': node->op=OPdiv; if(!uselast)top->str++; top->opc++; break; case '^': node->op=OPexp; if(!uselast)top->str++; top->opc++; break; case '(': node->op=OPopen; if(!uselast)top->str++; top->opc++; break; case ')': node->op=OPclose; if(!uselast)top->str++; top->opc++; break; default: if(isdigit(p[0])) { int count=0; node->z.val.x=float_parse(p,&count); node->op=OPval; top->str=p+count; } else { for(i=0;p[i]!=0;i++) if(strchr("\'+-/*^\n\r()",p[i])!=NULL)break; top->last=p[i]; p[i]=0; if( (top->last==0) || (top->last==EQN_DELIM)) { r=0; top->str=p+i; } else top->str=p+i+1; assert(uselast==0); /* can never have alphanumeral followed by alphanumeral without some delimiter, since it would just become one big identifer */ node->z.lit.ref=eqn_litref_INIT; node->z.lit.cache=0.0; node->z.lit.lit=p; node->op=OPlit; } top->litc++; break; } return r; } /* this code assumes dependencies have already been cached, see eqnlist.c */ static int token_value(eqntoken_t *token, float *v) { int r=0; float a=0.0; switch(token->op) { case OPeol_valp: if(token->z.pval.xp!=NULL) a=*(token->z.pval.xp); else r++; D(3,fprintf(stderr,"loaded pval=(%p->%g)\n",token->z.pval.xp,a)); break; case OPeol_const: a=token->z.val.x; break; case OPlit: a= 0.0; r++; break; case OPlitm: a=-0.0; r++; break; case OPlitv: a= token->z.lit.cache; break; case OPlitvm: a=-(token->z.lit.cache); break; case OPval: a= token->z.val.x; break; case OPvalm: a=-(token->z.val.x); break; default: assert(0); } *v=a; return r; } #define PUSH(a) do { if(data->stackpstack[data->stackp++]=(a); \ D(5,fprintf(stderr,"Push(%g) new stackp=%i\n",(a),data->stackp)); } while (0) #define POP(a) do { if(data->stackp>0) (a)=data->stack[--(data->stackp)]; \ D(5,fprintf(stderr,"Pop(%g) new stackp=%i\n",(a),data->stackp)); } while (0) static int eqntoken_eval(eqneval_t *data) { int loop,toend; int r=0; float a,b; eqntoken_t *token,*lp; int i; static const int precidence[]=OPprecidence; static const int type[]=OPtype; int types[4]={ -10 , -10 , -10 , -10 }; int precs[4]={ -10, -10 , -10, -10 }; int stack_entry=data->stackp; toend=0; do { itemop_t ops[4]={OPeolist, OPeolist, OPeolist, OPeolist}; eqntoken_t *tokens[4]={ NULL, NULL, NULL, NULL }; loop=0; token=data->list; data->list=eqntoken_next(data->list); if(data->list==token) toend++; /* catch endings */ for(lp=token,i=0;(i<4);i++,lp=eqntoken_next(lp)) /* lookahead */ { ops[i]=lp->op; tokens[i]=lp; assert(ops[i]>=0); assert((ops[i]*sizeof(int))op)) /* we did last token, stop */ break; } D(8,fprintf(stderr,"Eval: lookahead = ")); for(i=0;i<4;i++) { char *syms[]=OPsyms; D(8,fprintf(stderr," %s,t%i,p%i" ,syms[ops[i]],types[i],precs[i])); } D(8,fprintf(stderr,"\n")); if(OP_ISANYV(token->op)) { r=token_value(token,&a); D(5,fprintf(stderr,"Value: %g\n",a)); PUSH(a); } else if(types[0]==2) /* binary op */ { a=1.0; b=1.0; POP(a); if( /* literal and higher precidence operator after literal not () */ (OP_ISV(ops[1]) && (precs[2] > precs[0]) && (types[2]!=4) ) || /* operator (ie open/close) which has a higher precidence */ ((types[1]>=2) && (precs[1] > precs[0])) ) { /* SHIFT */ D(6,fprintf(stderr,"Shift: recursion\n")); eqntoken_eval(data); POP(b); } else /* REDUCE */ { D(6,fprintf(stderr,"Reduce: \n")); if( OP_ISANYV(ops[1]) ) { data->list=eqntoken_next(data->list); r+=token_value(tokens[1],&b); } else { /* error, need literal */ assert(0); } } D(6,fprintf(stderr,"Doing Binary Op, %g op %g \n",a,b)); switch(token->op) { case OPadd: a=a+b; break; case OPsub: a=a-b; break; case OPmul: a=a*b; break; case OPdiv: if(b!=0.0) a=a/b; else a=0.0; break; case OPexp: a=pow(a,b); break; default: assert(0); } PUSH(a); } else if(types[0]==4) /* open/close */ { if(token->op==OPopen) { D(6,fprintf(stderr,"open { : \n")); loop=1; } else if(token->op==OPclose) { D(6,fprintf(stderr,"close } : returning \n")); return 0; } } else if(token->op == OPeolist); if(toend) { D(6,fprintf(stderr,"Ending: \n")); return 0; } else { D(6,fprintf(stderr,"Stack: entry=%i now=%i %s \n",stack_entry,data->stackp, ((stack_entrystackp)||loop)?"looping":"returning")); } } while((stack_entrystackp)||loop); return r; } #undef PUSH #undef POP eqntoken_t *eqntok_parse(char *str) { eqn_t eq; int i,j,qlit,qval,qvalp; int last_was_op; int type[]=OPtype; eqntoken_t *list,*lp,*lpn; eqntop_t data; eqntoken_t *cp,*np; data.nodep=0; data.litc=0; data.opc=0; data.last=0; data.str=str; D(2,fprintf(stderr,"Parsing [%s]\n",str)); while(eqntoken_parse(&data)); for(i=0,qval=0,qlit=0,qvalp=0,j=0;iop==OPsub) && (type[np->op]==1) ) { np->op++; /* go from OPxxx to OPxxxm */ last_was_op=0; continue; } } if(type[cp->op]>1) last_was_op=1; else last_was_op=0; lp->op=cp->op; lpn=eqntoken_next(lp); memcpy(lp,cp,((char *)lpn)-((char *)lp)); lp=lpn; /* list[j++]=cp[0]; */ } /*memcpy(list,data.nodes,data->nodep*sizeof(eqntok_t));*/ lp->op=OPeolist; /* list[j].op=OPeolist; */ } D(7, do { char *syms[]=OPsyms; fprintf(stderr, "eqnparse: %i tokens %p ", data.nodep,lp); for(lp=list;!OP_ISEND(lp->op);lp=eqntoken_next(lp)) fprintf(stderr, "%s ",syms[lp->op]); fprintf(stderr, "%s ",syms[lp->op]); fprintf(stderr,"\n"); } while (0) ); return list; } /* returns 0 if equation can be evaluated */ int eqntok_depend(eqntoken_t *list, plookup_t *lookup) { int q=0; eqn_litref_t vp; eqntoken_t *lp; if(list->op==OPeol_const)return 0; /*optimization */ assert(lookup!=NULL); for(lp=list;!OP_ISEND(lp->op);lp=eqntoken_next(lp)) { if((lp->op==OPlit)||(lp->op==OPlitm)) { D(3,fprintf(stderr,"eqntok_depend: Looking up %s\n",lp->z.lit.lit)); if((vp=lookup->lookup(lookup,lp->z.lit.lit))!=eqn_litref_INIT) { lp->z.lit.ref=vp;; lp->op=(lp->op==OPlit)?OPlitv:OPlitvm; } else q++; } } return q; } /* only evaluate after eqntok_depend, and call eqntok_eval IN PROPER ORDER returns 0 if eval ok, 1 if broken dependency, 2 on parse error */ int eqntok_eval(float *res, eqntoken_t *list) { eqntoken_t *lp; eqneval_t data; memset(&data,0,sizeof(data)); data.stack[(data.stackp=0)]=0.0; data.stackp++; data.list=list; { eqn_t v; v.eqn=list; D(3,debug_eqn(stderr,"Evaluating ",&v)); D(3,fprintf(stderr,"\n")); } for(lp=list;!OP_ISEND(lp->op);lp=eqntoken_next(lp)) { if(lp->op==OPlit)return 1; } eqntoken_eval(&data); if(res!=NULL) *res=data.stack[1]; if(data.stackp==2)return 0; else return 2; } eqntoken_t *eqntok_copy(eqntoken_t *p) { int q; eqntoken_t *np; np=eqntoken_last(p); q=((char *)np)-((char *)p); np=eqn_malloc(q); assert(np!=NULL); memcpy(np,p,q); return np; } eqntoken_t *eqntok_copy_m(eqntoken_t *p, float m) { int q; eqntoken_t *np,*nnp; if(p->op==OPeol_const) /* common case */ { np=eqn_malloc(sizeof(itemop_t)+sizeof(eqntokenval_t)); np->op=OPeol_const; np->z.val.x=m*p->z.val.x; } else /* build np = m*(old_equation)EOL */ { np=eqntoken_last(p); q=((char *)np)-((char *)p); np=eqn_malloc(q+(sizeof(itemop_t)*4)+sizeof(eqntokenval_t)); nnp=np; nnp->op=OPval; nnp->z.val.x=m; nnp=eqntoken_next(nnp); nnp->op=OPmul; nnp=eqntoken_next(nnp); nnp->op=OPopen; nnp=eqntoken_next(nnp); memcpy(nnp,p,q); nnp=(void *) (((char *)nnp)+q-sizeof(itemop_t)); nnp->op=OPclose; nnp=eqntoken_next(nnp); nnp->op=OPeolist; } return np; } #endif void debug_eqn(void *dbg_fp, char *str, eqn_t *eqn) { FILE *dbg=dbg_fp; #ifdef NO_EQUATIONS if(eqn==NULL)return; fprintf(dbg,"%g",eqn->val); #else eqntoken_t *eqt; if(eqn==NULL)return; if(0)fprintf(dbg," %s=[%p %p]",str,eqn,eqn->eqn); else fprintf(dbg," %s=",str); if(eqn->eqn!=NULL) { char s=' '; for(eqt=eqn->eqn;!OP_ISEND(eqt->op);eqt=eqntoken_next(eqt)) { switch(eqt->op) { case OPlitm: s='-'; case OPlit: fprintf(dbg,"(%c%s)",s,eqt->z.lit.lit); break; case OPvalm: s='-'; case OPval: fprintf(dbg,"(%c%g)",s,eqt->z.val.x); break; case OPlitvm: s='-'; case OPlitv: fprintf(dbg,"(%c%s=%i)",s,eqt->z.lit.lit,eqt->z.lit.ref); break; case OPadd: fprintf(dbg,"+"); break; case OPsub: fprintf(dbg,"-"); break; case OPmul: fprintf(dbg,"*"); break; case OPdiv: fprintf(dbg,"/"); break; case OPexp: fprintf(dbg,"^"); break; case OPopen: fprintf(dbg,"{"); break; case OPclose: fprintf(dbg,"}"); break; default: break; } } if(eqt->op==OPeol_const) fprintf(dbg,"%g",eqt->z.val.x); if(eqt->op==OPeol_valp) fprintf(dbg,"%p->%g",eqt->z.pval.xp, (eqt->z.pval.xp==NULL)?0.0:*(eqt->z.pval.xp)); } #endif } eqn_t eqn_const(float val) { eqn_t eqn; #ifdef NO_EQUATIONS eqn.val=val; #else eqn.eqn=eqn_malloc(sizeof(itemop_t)+sizeof(eqntokenval_t)); eqn.eqn->op=OPeol_const; eqn.eqn->z.val.x=val; #endif return eqn; } eqn_t eqn_valp(float *valp) { eqn_t r; #ifdef NO_EQUATIONS r.val=0.0; #else r.eqn=eqn_malloc(sizeof(itemop_t)+sizeof(eqntokenpval_t)); r.eqn->z.pval.xp=valp; r.eqn->op=OPeol_valp; #endif return r; } eqn_t eqn_undefined(void) { return eqn_valp(NULL); } int eqn_is_undefined(eqn_t e) { #ifdef NO_EQUATIONS return 0; #else if(e.eqn==NULL) return 1; if(e.eqn->op==OPeol_valp) return 2; return 0; #endif } eqn_t eqn_copy(eqn_t e) { #ifdef NO_EQUATIONS return e; #else if(e.eqn!=NULL) e.eqn=eqntok_copy(e.eqn); return e; #endif } eqn_t eqn_copy_m(eqn_t e, float m) { #ifdef NO_EQUATIONS e.val*=m; return e; #else if(e.eqn!=NULL) { if(m==1.0) /* multiplication by 1 is a nop */ e.eqn=eqntok_copy(e.eqn); else e.eqn=eqntok_copy_m(e.eqn,m); } return e; #endif } eqn_t eqn_parse(uchar *val) { eqn_t eqn; #ifdef NO_EQUATIONS eqn.val=float_parse(val,NULL); #else eqn.eqn=eqntok_parse(val); #endif return eqn; } float parse_float(uchar *val) { return float_parse(val,NULL); } /* this is valid ONLY if we have no literals, ie (6+3*5) */ /* use eqnl_eval for equations like (lambda*5+delta) */ float eqn_getval_(eqn_t *eqn) { #ifdef NO_EQUATIONS assert(eqn!=NULL); return eqn->val; #else float f; assert(eqn!=NULL); assert(eqn->eqn!=NULL); if(eqn->eqn->op==OPeol_const) return eqn->eqn->z.val.x; f=0.0; eqntok_eval(&f,eqn->eqn); return f; #endif } eqn_t eqn_empty(void) { eqn_t r; #ifdef NO_EQUATIONS r.val=0.0; #else r.eqn=NULL; #endif return r; } float eqn_setval(eqn_t *eqn, float val) { assert(eqn!=NULL); #ifdef NO_EQUATIONS return (eqn->val=val); #else if(eqn->eqn==NULL) *eqn=eqn_const(val); else if(eqn->eqn->op==OPeol_const) eqn->eqn->z.val.x=val; else { D(1,debug_eqn(stderr, "cannot change eqn",eqn)); D(1,fprintf(stderr,"\n")); assert(0); } return val; #endif } float eqn_setvalp(eqn_t *eqn, float *valp) { assert(eqn!=NULL); #ifdef NO_EQUATIONS return (eqn->val=*valp); #else if(eqn->eqn==NULL) *eqn=eqn_valp(valp); else if(eqn->eqn->op==OPeol_valp) eqn->eqn->z.pval.xp=valp; else { D(1,debug_eqn(stderr, "cannot set valp",eqn)); D(1,fprintf(stderr,"\n")); assert(0); } return *valp; #endif } xcircuit-3.9.73/spiceparser/Makefile.am0000664000175000001440000000100612335667423016545 0ustar timusers## Process this file with automake to produce Makefile.in AUTOMAKE_OPTIONS = foreign no-dependencies EXTRA_DIST = INCLUDES = -I.. ${INC_SPECS} SUBDIRS = SUBLIB = # Requirements for spiceparser library noinst_LIBRARIES = libspiceparser.a libspiceparser_a_SOURCES = \ bitlist.c eqn.c eqnlist.c equations.c hash.c list.c list_search.c \ memory.c mergedup.c names.c netlist.c netlist_dev.c netlist_extract.c \ netlist_funcs.c netlist_lib.c netlist_spice.c netlist_template.c \ scanner.c sort.c xcircspice.c xcircuit-3.9.73/spiceparser/netlist_spice.h0000664000175000001440000001315312335667423017535 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* spice.h, header for spice parsing routines Conrad Ziesler */ /* note: alot of this is imported from legacy/adb so it has some historic baggage still */ #ifndef __NETLIST_SPICE_H__ #define __NETLIST_SPICE_H__ #ifndef __EQN_H__ #include "eqn.h" #endif #ifndef __HASH_H__ #include "hash.h" #endif #ifndef __SCANNER_H__ #include "scanner.h" #endif /*******************************************************/ /********* SPICE HASH TABLE CLIENTS ********************/ #define PAYLOAD_null 0 #define PAYLOAD_card_val 1 #define PAYLOAD_parent 2 #define PAYLOAD_gnptr 3 #define PAYLOAD_subckt 4 #define PAYLOAD_node 5 /* HACK **/ #ifndef __NETLIST_H__ #define TERMPTR_BITS_DEVI 24 #define TERMPTR_BITS_TERMI 3 #define TERMPTR_BITS_DEVT 4 typedef struct termptr_st { unsigned devi: TERMPTR_BITS_DEVI; unsigned nonnull: 1; unsigned termi: TERMPTR_BITS_TERMI; unsigned devt: TERMPTR_BITS_DEVT; }termptr_t; #endif union paydata_u { void *p; char *s; struct subckt_st *subckt; termptr_t t; }; typedef struct hashload_st { int flag; union paydata_u data; }hashload_t; typedef struct nodeclient_st { hashload_t payload; unsigned char str[4]; /* alloc in place */ }nodeclient_t; typedef struct nodeclient_st *node_t; #define FORALL_HASH(h,i,p) hash_forall(h,i,p) typedef struct paramload_st { eqn_t eqn; struct callparam_st *patch_call; int global_i; }paramload_t; typedef struct paramclient_st { paramload_t payload; char str[4]; }paramclient_t; typedef struct paramlookup_st { struct stack_st *sp; struct netlist_st *nl; }paramlookup_t; typedef struct callparam_st { eqn_t eqn; char str[4]; }callparam_t; /*****************************************/ /****** SPICE NETLIST READING *******/ /***** scanner stuff *****/ typedef enum keyword_et { Kother, Kinclude, Ksubckt, Kends, Kend, Kendm, Kmodel, Kparam, Kglobal, Kmult, Kscale, Knull }keyword_t; #define SPICE_TOKENS { \ { Kinclude, ".include" }, \ { Ksubckt, ".subckt" }, \ { Kends, ".ends" }, \ { Kendm, ".endm" }, \ { Kmodel, ".model" }, \ { Kparam, ".param" }, \ { Kglobal, ".global" }, \ { Kmult, ".mult" }, \ { Kscale, ".scale" }, \ { Knull, NULL } \ } extern tokenmap_t spice_tokens[]; /****** pass 2 ************/ struct subckt_st; typedef struct x_st { int nn; struct subckt_st *xp; node_t *nodes; callparam_t **locals; int nl; deck_t *deck; card_t *rest; }x_t; #define INDEX_GATE 1 #define INDEX_DRAIN 0 #define INDEX_SOURCE 2 #define INDEX_BULK 3 typedef struct m_st { node_t nodes[4]; eqn_t l,w,as,ad,ps,pd; deck_t *deck; card_t *rest; uchar type; }m_t; typedef struct c_st { node_t nodes[2]; eqn_t c; deck_t *deck; card_t *rest; }c_t; typedef struct r_st { node_t nodes[2]; eqn_t r; deck_t *deck; card_t *rest; }r_t; typedef struct l_st { node_t nodes[2]; eqn_t l; deck_t *deck; card_t *rest; }l_t; typedef struct v_st { node_t nodes[2]; eqn_t v; deck_t *deck; card_t *rest; }v_t; typedef struct i_st { node_t nodes[2]; eqn_t i; deck_t *deck; card_t *rest; }i_t; #define SUBCKT_MAGIC 0x43236513 typedef struct subckt_st { int subckt_magic; struct subckt_st *parent; /* who are we descended from */ hash_t *nodes; /* table of nodes */ hash_t *params; /* table of parameters (those defined elsewhere) */ hash_t *lparams; /* table of local parameters (those on the .subckt line) */ hash_t *cktdir; /* table of locally defined subckts */ hash_t *global; /* table of locally defined globals */ uchar *name; /* our name */ int ndefn; int nm; int nc; int nr; int nl; int nx; int nv; int ni; node_t *defn; /* ptrs into table of [nodes] for definitions */ m_t *m; /* array of mosfets */ c_t *c; /* array of capacitors */ r_t *r; /* array of resistors */ l_t *l; /* array of inductors */ x_t *x; /* array of subcircuit calls */ v_t *v; /* array of voltage sources */ i_t *i; /* array of current sources */ int flag; float scale,mult; }subckt_t; typedef struct stack_st { int level; struct stack_st *parent; subckt_t *ckt; x_t *call; struct stack_st *top; struct netlist_st *nl; scanner_t *scan; }stack_t; typedef struct spice_st { int spice_magic; scanner_t *scan; deck_t *deck; subckt_t *ckt; void *eqn_mem; }spice_t; #define minimum(a,b) (((a)<(b))?(a):(b)) subckt_t *spice_find_subckt(subckt_t *parent, char *name); spice_t *spice_new(scanner_t *scan); void spice_release(spice_t *sp); void spice_debug(void * dbg_fp, spice_t *sp); list_t spice_list_subckt(subckt_t *parent); #endif /* __NETLIST_SPICE_H__*/ xcircuit-3.9.73/spiceparser/README.c0000664000175000001440000001020612335667423015614 0ustar timusers/* subckt_translator.c : quick hack to enable subckt files to work in standard "magic" characterization flow Conrad Ziesler */ #include #include #include "makeutils.lib/debug.h" #include "parsers.lib/scanner.h" #include "netlist.lib/netlist_spice.h" /* cell: c2 INVX1 area: 10.368 input: i_a out: o_y vss: i_vss vdd: i_vdd */ int is_power(char *name) { if(strcasecmp(name,"vdd")==0) return 1; return 0; } int is_ground(char *name) { if(strcasecmp(name,"gnd")==0) return 1; if(strcasecmp(name,"vss")==0) return 1; return 0; } int is_input(char *name) { if(!is_ground(name)) if(!is_power(name)) if(tolower(name[0])<='f') return 1; return 0; } int is_output(char *name) { char x; x=tolower(name[0]); if(!is_ground(name)) if(!is_power(name)) if(x>='q') return 1; return 0; } char *node(node_t n) { char *p; p=n->str; return p; } void dumprest(FILE *fp, card_t *cp) { for(;cp!=NULL;cp=cp->next) { /* just dump the rest verbatim */ fprintf(fp," %s",cp->str); if(cp->val!=NULL) fprintf(fp,"=%s",cp->val); } } void generate_stuff(spice_t *spice, FILE *fp_pins, FILE *fp_flat) { subckt_t *ckt,**cktpp; list_t subckts; int i,j; int uniq=1; subckts=spice_list_subckt(spice->ckt); list_iterate(&subckts,i,cktpp) { ckt=*cktpp; assert(ckt!=NULL); fprintf(fp_pins,"\n\n"); fprintf(fp_pins,"cell: c%i %s\n",i,ckt->name); fprintf(fp_pins,"area: %i\n",ckt->nm); /* estimate area by transitor count */ for(j=0;jndefn;j++) { char *nn; nn=ckt->defn[j]->str; if(is_input(nn)) { fprintf(fp_pins,"input: %s\n",nn); } else if(is_output(nn)) { fprintf(fp_pins,"out: %s\n",nn); } else if(is_power(nn)) { fprintf(fp_pins,"vdd: %s\n", nn); } else if(is_ground(nn)) { fprintf(fp_pins,"vss: %s\n", nn); } else fprintf(fp_pins,"#error pin %s\n",nn); } if(fp_flat!=NULL) { fprintf(fp_flat,"\n\n*\n*\n* subckt %s \n\n",ckt->name); for(j=0;jnm;j++) { fprintf(fp_flat,"M%i c%i_%s c%i_%s c%i_%s c%i_%s ", uniq++,i,node(ckt->m[j].nodes[0]),i,node(ckt->m[j].nodes[1]), i,node(ckt->m[j].nodes[2]),i,node(ckt->m[j].nodes[3])); dumprest(fp_flat,ckt->m[j].rest); fprintf(fp_flat,"\n"); /* fprintf(fp_flat," l=%g w=%lf pd=%lf ps=%lf ad=%lf as=%lf \n", */ } for(j=0;jnc;j++) { fprintf(fp_flat,"C%i c%i_%s c%i_%s ", uniq++,i,node(ckt->c[j].nodes[0]),i,node(ckt->c[j].nodes[1])); dumprest(fp_flat,ckt->c[j].rest); fprintf(fp_flat,"\n"); } for(j=0;jnr;j++) { fprintf(fp_flat,"R%i c%i_%s c%i_%s ", uniq++,i,node(ckt->r[j].nodes[0]),i,node(ckt->r[j].nodes[1])); dumprest(fp_flat,ckt->r[j].rest); fprintf(fp_flat,"\n"); } } } } int main(int argc, char **argv) { char *subckt_filename=NULL; char *pins_output=NULL; char *flat_spice=NULL; int i; scanner_t scan; FILE *fp,*fp_pins,*fp_flat; spice_t *spice; for(i=1;ilist),size,mode); l->bitmap=NULL; } int listx_alloc(listx_t *l) { int cell; if(l->bitmap==NULL) { cell=list_nextz(&(l->list)); l->bitmap=bitlist_new(l->list.m); assert(l->bitmap!=NULL); bitlist_set(l->bitmap,cell); return cell; } else { cell=bitlist_scan(l->bitmap,SCAN_FORWARD|SCAN_CLEAR); if((cell<0)||(cell>=l->list.q)) cell=list_nextz(&(l->list)); if(l->list.m != l->bitmap->qty ) l->bitmap=bitlist_resize(l->bitmap,l->list.m); bitlist_set(l->bitmap,cell); return cell; } return -1; } void listx_free(listx_t *l, int cell) { bitlist_clear(l->bitmap,cell); memset(list_data(&(l->list),cell),0,l->list.s); } void listx_empty(listx_t *l) { list_empty(&(l->list)); if(l->bitmap!=NULL)bitlist_free(l->bitmap); l->bitmap=NULL; } void *listx_vdata(listx_t *l, int cell) { if(bitlist_test(l->bitmap,cell)) return list_data(&(l->list),cell); return NULL; } void *listx_data(listx_t *l, int cell) { return list_data(&(l->list),cell); } int listx_qty(listx_t *l) { return list_qty(&(l->list)); } void list_shrink(list_t *l) { list_hint(l,l->q); } void list_empty(list_t *l) { if(l->d!=NULL) free(l->d); l->q=0; l->m=0; l->d=NULL; } void list_init(list_t *l, int s, int mode) { static const list_t id=LIST_INITDATA; if(l!=NULL) { *l=id; l->s=s; l->mode=mode; l->q=0; l->m=0; } } void list_hint(list_t *l, int max) { if(max==0) { if(l->d!=NULL) free(l->d); l->d=NULL; l->m=0; l->q=0; } else { if(l->s!=0) l->d=realloc(l->d,(l->m=max)*l->s); assert(l->d!=NULL); } } void list_hint_grow(list_t *l, int add_q) { int qm=l->q+add_q; if(l->m < qm ) l->d=realloc(l->d,(l->m=qm)*l->s); } void inline *list_data_func(list_t *l, int i) { if((iq)&&(i>=0)) return ((char *)(l->d))+(l->s * i); return NULL; } void *list_next(list_t *l) { int v; if(l->q>=l->m) { if( (l->mode & LIST_FIXEDMODE)!=0) { assert(0); return NULL; } if( (l->mode & LIST_EXPMODE)!=0) { if(l->s<(1024*1024)) { if((l->m*l->s)>(1024*1024*16)) list_hint(l,l->m+((1024*1024*16)/l->s)); else list_hint(l,2*( (l->m==0)?16:l->m) ); } else list_hint(l,l->m+1); } else { v=l->m+(l->mode&LIST_MODECHUNK); if(vm)v=l->m+1; list_hint(l, v); } } return ((char *)(l->d))+(l->s * l->q++); } void *list_prev(list_t *l) { if(l->q>0) { return ((char *)(l->d))+(l->s * --(l->q)); } return NULL; } void *list_block_next(list_t *l, int qty) { void *r; if((l->q+qty)>=l->m) list_hint(l, l->q+qty); r=((char*)l->d)+(l->s*l->q); l->q+=qty; return r; } int list_contains(list_t *l, void *d) { int i; for(i=0;iq;i++) if(memcmp(d,list_data(l,i),l->s)==0) return i; return -1; } int list_add(list_t *l, void *d) { void *p; int i; i=l->q; p=list_next(l); memcpy(p,d,l->s); return i; } int list_nextz(list_t *l) { int i; void *p; i=l->q; p=list_next(l); memset(p,0,l->s); return i; } int list_index(list_t *l, void *p) { if( p >= (void *) ((((char *)(l->d))+(l->s*l->q)))) return -1; if( p < l->d) return -1; return (((char *)p)-((char *)(l->d)))/l->s; } int list_stdlib_bsearch(list_t *l, void *key, int (*cmp)(const void *a, const void *b)) { void *p= bsearch(key,l->d, l->q,l->s,cmp); if(p==NULL)return -1; return list_index(l,p); } void list_sort(list_t *l, int (*cmp)(const void *a, const void *b)) { qsort(l->d,l->q,l->s,cmp); } void list_start(list_t *l) { l->q=0; } int list_remove(list_t *l, int i, void *save) { void *p; if(i>=l->q)return 1; if(i<0)return 1; p=list_data(l,i); if(save!=NULL)memcpy(save,p,l->s); l->q--; if(l->q>i) memmove(p,((char *)p)+l->s,(l->q-i)*l->s); return 0; } void list_copyfrom(list_t *newl, list_t *oldl) { list_t id=LIST_INITDATA; if(newl!=NULL) { *newl=id; newl->s=oldl->s; newl->mode=oldl->mode; newl->q=0; newl->m=0; } } void list_dup(list_t *newl, list_t *oldl) { void *d; list_copyfrom(newl,oldl); list_hint(newl,oldl->q); d=list_block_next(newl,oldl->q); memcpy(d,oldl->d,oldl->s*oldl->q); } void list_append(list_t *growing, list_t *copyfrom) { void *d; if(copyfrom==NULL)return; assert(growing->s==copyfrom->s); if(copyfrom->q==0)return; list_hint(growing,growing->q+copyfrom->q); d=list_block_next(growing,copyfrom->q); memcpy(d,copyfrom->d,copyfrom->s*copyfrom->q); } int list_element_dup(list_t *l, int from, int to) { void *a,*b; if( (to>l->q) || (to<0) || (from>=l->q) || (from<0) )return 1; if(to==l->q) list_next(l); a=list_data(l,to); b=list_data(l,from); assert((a!=NULL)&&(b!=NULL)); memcpy(a,b,l->s); return 0; } void list_reset(list_t *l) { l->q=0; } #include int list_bsearch(sort_func_t *sf, void *key) { int l,u,idx, res; char *base=sf->tosort->d; void *p; int size=sf->tosort->s; if(size==0)return -1; if(sf->tosort->q==0)return -1; if(base==NULL)return -1; sf->aiskey=1; l =0; u = sf->tosort->q -1 ; res= sf->cmpf(sf,key,base); idx= sf->cmpf(sf,key,(void *)(((const char *)base)+((u-1)*size))); if(0)fprintf(stderr,"list_bsearch, cmpf(e 0)=%i cmpf(e %i)=%i ",res,u-1,idx); while (l < u) { idx = (l + u) / 2; p = (void *) (((const char *) base) + (idx * size)); res = sf->cmpf (sf, key, p); if (res <= 0) /* if we happen to hit the element, pretend we overshot, we want the first element of key */ u = idx; else if (res > 0) l = idx + 1; } res=-1; if(sf->tosort->q>0) { p = (void *) (((const char *) base) + (l * size)); res = sf->cmpf (sf,key, p); if(0)fprintf(stderr," l=%i u=%i res=%i\n",l,u,res); if(res==0) return l; return -1; } if(0)fprintf(stderr,"no elements\n"); return -1; } xcircuit-3.9.73/spiceparser/netlist_template.c0000664000175000001440000000402712335667423020240 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_template.c, code for building graph matching templates. Conrad Ziesler */ /* primary goal: We want to build a data structure which represents all library graphs merged into one, in such a way that each merge keeps a list of library cells that were merged at that point. With such a sturcture, we should be able to decompose a complex netlist into its component pieces. Ref1-> cell (nfet_sd) (lib 1,2) -g> -sd> -> cell (pfet_g) (lib 3,5) -sd> -sd> netlist nodes are common and simple netlist devices are complex, shared/merged keeping a list of the library cell associations. to decompose a big netlist, 1. initialize bitmap of library cell numbers 2. start traversing depth first from some reference. 2.1. keep track of traversal in template, eliminating at each step cells in the bitmap. 2.2. keep track of devices and nodes traversed and matched with template in gate internal list. 2.3. stop traversing at template boundaries. 3. examine bitmap. if any remain, we have successful match. */ xcircuit-3.9.73/spiceparser/netlist_extract.c0000664000175000001440000003355212335667423020104 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* extract.c : optional magic .ext file input (bypassing ext2spice) links to magic's extract library .ext files have more/better info than what's in the spice file, which gives us better debugging info, and integration with the layout Conrad Ziesler */ /* this is loosely based on magic's extcheck sample program, and links to the magic libraries, so if you don't have them, undef USE_EXTRACT_FORMAT the following copyright notice was from extcheck.c, which this code was based on */ /* * extcheck.c -- * * ********************************************************************* * * Copyright (C) 1985, 1990 Regents of the University of California. * * * Permission to use, copy, modify, and distribute this * * * software and its documentation for any purpose and without * * * fee is hereby granted, provided that the above copyright * * * notice appear in all copies. The University of California * * * makes no representations about the suitability of this * * * software for any purpose. It is provided "as is" without * * * express or implied warranty. Export of this software outside * * * of the United States of America may require an export license. * * ********************************************************************* */ #include #include #include "debug.h" #include "netlist_extract.h" #ifndef __NETLIST_H__ #include "netlist.h" #endif void *mymalloc(unsigned size) { return malloc(size); } #define CHECK_EXTINIT(g) if(g!=NULL) if(g->input.generic->magic==EXTRACT_MAGIC) if(g->input.ext->did_EF_init_read) #ifdef USE_EXTRACT_FORMAT #include #include #include #include "include/magic.h" #include "include/paths.h" #include "include/geometry.h" #include "include/hash.h" #include "include/utils.h" #include "include/pathvisit.h" #include "include/extflat.h" #include "include/runstats.h" int GeoScale(Transform *t); void EFInit(void); void EFReadFile(char *name); void EFFlatBuild(char *rootName, int flags); void EFFlatDone(void); void EFVisitFets( int (*fetProc)(Fet *fet, HierName *hname, Transform *t, int l , int w, ClientData data), ClientData cdata ); void EFVisitNodes( int (*nodeProc)(EFNode *node, int r, double c, ClientData cdata), ClientData cdata ); bool EFHNIsGlob(HierName *hname); char * EFHNToStr(HierName *hierName); void EFDone(void); static int ecNumFets; static int ecNumCaps; static int ecNumResists; static int ecNumThreshCaps; static int ecNumThreshResists; static int ecNumNodes; static int ecNumGlobalNodes; static int ecNumNodeCaps; static int ecNumNodeResists; #endif /* make a new extract_t container first create fake argc, *argv[] using extract options from config file */ #ifdef USE_EXTRACT_FORMAT extract_t *extract_new(char *rootname) { extract_t *p; int i; assert(rootname!=NULL); p=mymalloc(sizeof(extract_t)+(sizeof(char*)*(PARAMS.extract_qty+4))); assert(p!=NULL); memset(p,0,sizeof(extract_t)); p->root=strdup(rootname); assert(p->root!=NULL); p->extract_magic=EXTRACT_MAGIC; p->ext_argv=(char **) (&p[1]); p->ext_argv[0]="ext2spice"; for(i=1;i< (PARAMS.extract_qty+1);i++) p->ext_argv[i]=PARAMS.extract_params[i-1]; p->ext_argv[i]=p->root; p->ext_argv[i+1]=NULL; p->ext_argc=i+1; p->did_EF_init_read=0; /* Process command line arguments */ EFInit(); p->fname = EFArgs(p->ext_argc, p->ext_argv, (int (*)()) NULL, (ClientData) NULL); if(p->fname==NULL){ fprintf(stderr,"ERROR: extract configuration error\n"); return NULL; } /* Read the hierarchical description of the input circuit */ EFReadFile(p->fname); if(PARAMS.extfix!=NULL) /* tag with extfix data (merge Gnd/Vdd GND/VDD) */ EFReadFile(PARAMS.extfix); if (EFArgTech) EFTech = StrDup((char **) NULL, EFArgTech); if (EFScale==0) EFScale = 1; p->did_EF_init_read=1; if(0) { fprintf(stderr,"EXT: %i layers defined\n",EFLayerNumNames); for(i=0;ifet_type&=0x07f; /* clear our sneaky bit */ ecNumFets++; return 0; } static int countnodeVisit(EFNode *node, int res, double cap, ClientData data) { ecNumNodes++; return 0; } static EFNode *GetNode(HierName *prefix,HierName *suffix) { HashEntry *he; he = EFHNConcatLook(prefix, suffix, "output"); return(((EFNodeName *) HashGetValue(he))->efnn_node); } void extract_setup_graph(graph_t *gr) { int er=1; CHECK_EXTINIT(gr)er=0; assert(!er); /* Convert the hierarchical description to a flat one */ EFFlatBuild(gr->input.ext->fname, EF_FLATNODES | EF_FLATCAPS | EF_FLATRESISTS); ecNumFets=0; ecNumNodes=0; EFVisitFets(countfetVisit, (void *) gr); EFVisitNodes(countnodeVisit, (void *) gr); gr->mge=ecNumFets; gr->mgn=ecNumNodes; fprintf(stderr,"EXT: setup %i fets %i nodes\n",gr->mge, gr->mgn); } static int buildnodeVisit(EFNode *node, int res, double cap, ClientData data) { graph_t *g=(void *)data; hashchain_t *hc; hashload_t pay; char *str; gn_t *gn; int i; PerimArea *diff[2]; /* cap = (cap + 500) / 1000; res = (res + 500) / 1000; what's up with this? */ assert(node!=NULL); assert(node->efnode_name!=NULL); str=EFHNToStr(node->efnode_name->efnn_hier); ecNumNodes++; if (EFHNIsGlob(node->efnode_name->efnn_hier)) ecNumGlobalNodes++; pay.flag=PAYLOAD_node; pay.data=gn=new_gn(g); node->efnode_client=(void *)gn; /* store our node ptr in here so we don't have to compare strings */ hc=add_hashtab(g->names,str,pay); /* add some string data for debugging, printing, etc memory hog*/ if(EFHNIsGlob(node->efnode_name->efnn_hier)) { int l; gn->special=safestrdup(hc->str); l=strlen(gn->special); if(gn->special[l-1]=='!')gn->special[l-1]=0; } else gn->special=NULL; gn->name=hc->str; gn->debug=gn->name; gn->wtotal=0; gn->cfixed=cap*1e-18; /* cap in attofarrads 1e-18 */ diff[FTpfet]=node->efnode_pa+1; /* resist class 1 from techfile is pdiff */ diff[FTnfet]=node->efnode_pa+0; /* resist class 0 from techfile is ndiff */ for(i=0;i<2;i++) gn->cdiff[i]= (PARAMS.scale * PARAMS.scale * diff[i]->pa_area * PARAMS.c_area_sd[i]) + (PARAMS.scale * diff[i]->pa_perim * PARAMS.c_perim_sd[i]) ; /* note on capacitance: The above code is very dependent on the magic techfile extract section, namely, it assumes a specific resistance class ordering and it assumes the extractor doesn't sum up diffusion and gate capacitance */ return 0; } static graph_t *extract_Graph; static int buildfetVisit(Fet *fet, HierName *hname, Transform *t, int l , int w, ClientData data) { ge_t *ep; FetTerm *gate, *source, *drain; EFNode /* *bnode,*/ *snode, *dnode, *gnode; Rect r; int scale; graph_t *gr=extract_Graph; int typ; char *ft; double sc=PARAMS.scale; /* lamda in meters */ assert(sc>0); assert(fet!=NULL); gate = &fet->fet_terms[0]; source = drain = &fet->fet_terms[1]; if (fet->fet_nterm >= 3) drain = &fet->fet_terms[2]; gnode = GetNode (hname, gate->fterm_node->efnode_name->efnn_hier); snode = GetNode (hname, source->fterm_node->efnode_name->efnn_hier); dnode = GetNode (hname, drain->fterm_node->efnode_name->efnn_hier); /*bnode = fetSubstrate(hname, fet->fet_subsnode->efnode_name->efnn_hier, fet->fet_type, NULL);*/ assert(w!=0); assert(l!=0); GeoTransRect(t, &fet->fet_rect, &r); scale = GeoScale(t); assert(scale!=0); typ=fet->fet_type; ft=EFFetTypes[typ]; typ=np_type((uchar)ft[0]); ep=new_ge(gr); ep->type=typ; ep->flatref.x=r.r_ll.p_x; ep->flatref.xx=r.r_ur.p_x; ep->flatref.y=r.r_ll.p_y; ep->flatref.yy=r.r_ur.p_y; ep->WL= (PARAMS.gm_woverl[ep->type]*(double)w)/(double)l; ep->Cg= sc*sc*PARAMS.c_area_gate[ep->type]*((double)w*scale)*((double)l*scale); ep->Cs=0; /* compute this from ? */ ep->Cd=0; /* same with this */ /* for above Cs,Cd: strategy, split the diffusion resistance classes between all fet s/d's connected to the node, proportional to the total width of each device this is better than the hspice version, where diffusion is lumped onto a single fet. so one poor fet gets all the diffusion for resizing we have to do this after we visit all the fets once, so node wtotals are updated correctly */ ep->parent.vp=(void *)fet; ep->gn[GE_G]=(void *)(gnode->efnode_client); ep->gn[GE_S]=(void *)(snode->efnode_client); ep->gn[GE_D]=(void *)(dnode->efnode_client); if(ep->gn[GE_S] > ep->gn[GE_D] ) /* put source/drain in cannonical order (source is lower node number) */ { void *tmp=ep->gn[GE_S]; ep->gn[GE_S]=ep->gn[GE_D]; ep->gn[GE_D]=tmp; } ep->gn[GE_S]->wtotal+=(w*scale*sc); ep->gn[GE_D]->wtotal+=(w*scale*sc); return 0; } /* static int capVisit(HierName *hn1, HierName *hn2, double cap) { ecNumCaps++; cap = (cap + 500) / 1000; if (cap > (double) EFCapThreshold) ecNumThreshCaps++; return 0; } static int resistVisit(HierName *hn1, HierName *hn2, int res) { ecNumResists++; res = (res + 500) / 1000; if (res > EFResistThreshold) ecNumThreshResists++; return 0; } */ static int comparesorted(const void *a, const void *b) { const ge_t *pa=a,*pb=b; if(pa==pb)return 0; if(pa==NULL)return 1; if(pb==NULL)return -1; if(pa->gn[GE_G] > pb->gn[GE_G])return 1; if(pa->gn[GE_G] < pb->gn[GE_G])return -1; if( (pa->gn[GE_S]==pb->gn[GE_S]) ) { if(pa->gn[GE_D] > pb->gn[GE_D] ) return 1; else if(pa->gn[GE_D] < pb->gn[GE_D] ) return -1; } if( (pa->gn[GE_D]==pb->gn[GE_D]) ) { if(pa->gn[GE_D] > pb->gn[GE_D] ) return 1; else if(pa->gn[GE_D] < pb->gn[GE_D] ) return -1; } else if( (pa->gn[GE_S]==pb->gn[GE_D]) ) { if(pa->gn[GE_D] > pb->gn[GE_S] ) return 1; else if(pa->gn[GE_D] < pb->gn[GE_S] ) return -1; } else if( (pa->gn[GE_D]==pb->gn[GE_S]) ) { if(pa->gn[GE_S] > pb->gn[GE_D] ) return 1; else if(pa->gn[GE_S] < pb->gn[GE_D] ) return -1; } else { if(pa->gn[GE_S] > pb->gn[GE_S] ) return 1; else if(pa->gn[GE_S] < pb->gn[GE_S] ) return -1; assert(0); } return 0; } static double compute_diffcap(gn_t *np, double w, int type) { double ws,c; ws=np->wtotal; if(ws<=0.0)assert(0); c= np->cdiff[type]*w/ws; return c; } void extract_build_graph(graph_t *gr) { ge_t *ep,*pep,*wep; int i,j; int er=1; CHECK_EXTINIT(gr)er=0; assert(!er); extract_Graph=gr; EFVisitNodes(buildnodeVisit, (ClientData) gr); EFVisitFets(buildfetVisit, (ClientData) gr); /* if (EFCapThreshold < INFINITE_THRESHOLD) EFVisitCaps(capVisit, (ClientData) NULL); if (EFResistThreshold < INFINITE_THRESHOLD) EFVisitResists(resistVisit, (ClientData) NULL); */ /* now we want to sort the edges to merge duplicate fets faster */ qsort(gr->ge,gr->qge,sizeof(ge_t),comparesorted); /* mark and merge parallel transistors */ for(i=0,j=0,pep=NULL,ep=gr->ge;iqge;i++) { ep->flag=0; if(pep!=NULL) if( (ep->gn[GE_G]==pep->gn[GE_G]) && (ep->gn[GE_S]==pep->gn[GE_S]) && (ep->gn[GE_D]==pep->gn[GE_D]) ) /* parallel fet, merge */ { pep->WL+=ep->WL; pep->Cg+=ep->Cg; pep->Cs+=ep->Cs; pep->Cd+=ep->Cd; ep->flag=1; j++; } else pep=ep; else pep=ep; ep++; } /* eliminate flagged transistors wep moves forward for each new good transistor ep moves forward for each transistor */ for(j=0,wep=ep=gr->ge,i=0;iqge;i++) { if(!ep->flag) { if(wep!=ep) { *wep=*ep; } j++; wep++; } ep++; } gr->qge=j; /* now divvy up s/d diffusions between fets */ for(ep=gr->ge,i=0;iqge;i++) { double w; w=edge_width(ep); ep->Cs=compute_diffcap(ep->gn[GE_S],w,ep->type); ep->Cd=compute_diffcap(ep->gn[GE_D],w,ep->type); ep++; } } #endif /* USE_EXTRACT_FORMAT */ xcircuit-3.9.73/spiceparser/debug.h0000664000175000001440000000263412335667423015760 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* debug.h, header controlling inclusion of debugging code, specifically dmalloc Conrad Ziesler */ #include #include #include #include #include #ifndef CONFIGURED #define DEBUG #endif #ifdef DEBUG #include #endif void *cmdline_read_rc(int *p_argc, char ***p_argv, char *path); void cmdline_free_rc(void *p); #ifdef PRODUCTION #define DEBUG_CMDLINE(c,v,s) NULL #else #define DEBUG_CMDLINE(c,v,s) cmdline_read_rc(&c,&v,s) #endif xcircuit-3.9.73/spiceparser/memory.c0000664000175000001440000001071412335667423016173 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* memory.c, sequential memory allocator Conrad Ziesler */ /* these routines are used to allocate char aligned objects (namely strings) in such a way that we 1. allocate in big chunks 2. keep track of all the chunk allocations 3. free a bunch at once without having to remember all the little pointers we once had. this allows any module to maintain private string (or equations too) storage space that is leak-proof */ #include "debug.h" #include "memory.h" static memory_chain_t *memory_newblock(void) { int i; memory_chain_t *p; p=malloc(sizeof(memory_chain_t)); p->q=0; for(i=0;i<4;i++)p->magic[i]=MEMORY_MAGIC+i; p->next=NULL; p->qref=0; /*assert(p!=((void *)0x80d8008)); */ return p; } void memory_init(memory_t *ma) { memory_t def=MEMORY_INIT; *ma=def; } void memory_checkblock(memory_chain_t *p) { int i; for(i=0;i<4;i++) if(p->magic[i]!=MEMORY_MAGIC+i) assert(0); } void *memory_alloc(memory_t *ma, int size) { memory_chain_t *p,*pp; memory_other_t *op; if(size==0)return NULL; /* round up to word alignment, thus all allocations will be aligned */ size=(size+(sizeof(int)-1))&(~(sizeof(int)-1)); /* directly allocate big blocks */ if(size> (MEMORY_CHUNKSIZE/2)) { op=malloc(size+sizeof(memory_other_t)+4); op->next=ma->others; ma->others=op; return (op+1); } /* indirectly allocate small blocks */ while(1) { for(pp=NULL,p=ma->head;p!=NULL;p=p->next) { memory_checkblock(p); if((MEMORY_CHUNKSIZE-p->q)>=size) { void *d=p->data+p->q; p->q+=size; p->qref++; if(p->q> (MEMORY_CHUNKSIZE-MEMORY_THRESHOLD)) { if(pp==NULL) { ma->head=p->next; p->next=ma->full; ma->full=p; } else { pp->next=p->next; p->next=ma->full; ma->full=p; } } return d; } pp=p; } if(ma->head==NULL) ma->head= memory_newblock(); else { for(pp=NULL,p=ma->head;p!=NULL;p=p->next) pp=p; pp->next=memory_newblock(); } } } void memory_free(memory_t *ma, void *vp) { memory_chain_t *p,*pp, **hp; char *ca,*cb,*c=vp; memory_other_t *op,*pop; for(hp=&ma->head,pp=NULL,p=ma->head;p!=NULL;p=p->next) { ca=(void*)p; cb=(void*) (p+1); if((c>=ca)&&(cqref--; break; } pp=p; } if(p!=NULL) for(hp=&ma->full,pp=NULL,p=ma->full;p!=NULL;p=p->next) { ca=(void*)p; cb=(void*) (p+1); if((c>=ca)&&(cqref--; break; } pp=p; } if(p!=NULL) { if(pp==NULL) *hp=p->next; else pp->next=p->next; free(p); return ; } for(pop=NULL,op=ma->others;op!=NULL;op=op->next) { if(op==vp) { if(pop==NULL)ma->others=op->next; else pop->next=ma->others; free(op); return; } pop=op; } } void memory_freeall(memory_t *ma) { memory_chain_t *p,*pp; memory_other_t *op,*pop; for(pp=NULL,p=ma->head;p!=NULL;p=p->next) { if(pp!=NULL) { memory_checkblock(pp); free(pp); } pp=p; } if(pp!=NULL) { memory_checkblock(pp); free(pp); } ma->head=NULL; for(pp=NULL,p=ma->full;p!=NULL;p=p->next) { if(pp!=NULL) { memory_checkblock(pp); free(pp); } pp=p; } if(pp!=NULL) { memory_checkblock(pp); free(pp); } ma->full=NULL; for(pop=NULL,op=ma->others;op!=NULL;op=op->next) { if(pop!=NULL) free(pop); pop=op; } if(pop!=NULL) { free(pop); } ma->others=NULL; } xcircuit-3.9.73/spiceparser/mergedup.h0000664000175000001440000000312012335667423016471 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* mergedup.h : utility routine header for detecting multiple same entities in nlogn time Conrad Ziesler */ typedef struct sortlist_st { int index; unsigned char sorted[1]; } sortlist_t; typedef struct mergedup_st { int qs,es; int qun; int run; int q; int i; int flb; sortlist_t *last; unsigned char *freelist; char *data; }mergedup_t; void mergedup_setbit(mergedup_t *m, int index); int mergedup_testbit(mergedup_t *m, int index); mergedup_t *mergedup_alloc(int q, int qs); void mergedup_fill(mergedup_t *m, unsigned char *d, int index); void mergedup_sort(mergedup_t *m); int mergedup_visit(mergedup_t *m, int w); void mergedup_free(mergedup_t *m); xcircuit-3.9.73/spiceparser/netlist_extract.h0000664000175000001440000000231212335667423020077 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_extract.h definitions for magic extract file reader Conrad Ziesler */ #define __NETLIST_EXTRACT_H__ typedef struct extract_st { int extract_magic; char *root; char *fname; int did_EF_init_read; void *merged_list; int ext_argc; char **ext_argv; }extract_t; xcircuit-3.9.73/spiceparser/memory.h0000664000175000001440000000336312335667423016202 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* memory.h, header for private memory allocation routines Conrad Ziesler */ #ifndef __MEMORY_H__ #define __MEMORY_H__ #define MEMORY_CHUNKSIZE (1024*16) #define MEMORY_THRESHOLD 16 /* a block is full if it within this size of full */ typedef struct memory_chain_st { struct memory_chain_st *next; int q; int qref; /* we maintain an reference count */ char data[MEMORY_CHUNKSIZE]; int magic[4]; }memory_chain_t; #define MEMORY_MAGIC 0x35dfa315 typedef struct memory_other_st { struct memory_other_st *next; }memory_other_t; typedef struct memory_head_st { memory_chain_t *head,*full; memory_other_t *others; }memory_t; #define MEMORY_INIT { NULL, NULL, NULL } void *memory_alloc(memory_t *ma, int size); void memory_free(memory_t *ma, void *vp); void memory_freeall(memory_t *ma); void memory_init(memory_t *ma); #endif xcircuit-3.9.73/spiceparser/netlist_funcs.c0000664000175000001440000001122012335667423017534 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_funcs.c: table of usefull netlistfunc_t's for standard devtypes Conrad Ziesler */ #include #include "debug.h" #include "netlist_dev.h" #define EVALfull(n,a) eqnl_eval(&((n)->nl->eqnl),(a)) #define EVALquick(n,a) eqn_getval_(&(a)) #define EVALnm(a) EVALquick(nm,a) /* accumulate fet properties (areas, perimeters add per fraction of total width) */ static int nlfd_props[]={ DEVFET_as, DEVFET_ad, DEVFET_ps, DEVFET_pd }; static int nlfd_merge_same[]= { DEVFET_w, DEVFET_as, DEVFET_ad, DEVFET_ps, DEVFET_pd}; static int nlfd_merge_flip[]= { DEVFET_w, DEVFET_ad, DEVFET_as, DEVFET_pd, DEVFET_ps}; static void nlfd_fet_acc(netlistfunc_t *nm, int devi, int termi, float *nodeprops) { devfet_t *f; int w,i; f=list_data(&(nm->entity->l),devi); assert(f!=NULL); w= (f->type==DEVFET_nmos)?0:1; if((termi==DEVFET_S)||(termi==DEVFET_D)) { nodeprops[w]+=EVALnm(f->v[DEVFET_w]); for(i=0;i<4;i++) nodeprops[2+i]+=EVALnm(f->v[nlfd_props[i]]); } } static void nlfd_fet_dist(netlistfunc_t *nm, int devi, int termi, float *nodeprops) { devfet_t *f; int w,i; float fraction; f=list_data(&(nm->entity->l),devi); assert(f!=NULL); w= (f->type==DEVFET_nmos)?0:1; if((termi==DEVFET_S)||(termi==DEVFET_D)) { if(nodeprops[w]!=0) fraction=EVALnm(f->v[DEVFET_w])/nodeprops[w]; else fraction=0; for(i=0;i<4;i++) eqn_setval(&(f->v[nlfd_props[i]]),nodeprops[i+2]*fraction); } } /* source and drain we do separately by in nlfd_fet_sum, since they are symmetrical */ typedef struct nlfd_cmp_st { termptr_t g,b; float l; char type; }nlfd_cmp_t; static void nlfd_fet_cmp(netlistfunc_t *nm, int index, void *data) { devfet_t *f; nlfd_cmp_t *cmp=data; f=list_data(&(nm->entity->l),index); assert(f!=NULL); cmp->type=f->type; cmp->l=EVALnm(f->v[DEVFET_l]); cmp->g=f->n[DEVFET_G]; cmp->b=f->n[DEVFET_B]; } static int nlfd_fet_sum(struct netlistfunc_st *nm,int ia, int ib) { devfet_t *fa,*fb; int i; fa=list_data(&(nm->entity->l),ia); fb=list_data(&(nm->entity->l),ib); assert(fa!=NULL); assert(fb!=NULL); if( /* these are checked in mergedup, and should be ok */ (!memcmp(&(fa->n[DEVFET_G]),&(fb->n[DEVFET_G]),sizeof(termptr_t))) && (!memcmp(&(fa->n[DEVFET_B]),&(fb->n[DEVFET_B]),sizeof(termptr_t))) && (EVALnm(fa->v[DEVFET_l]) == EVALnm(fb->v[DEVFET_l])) ) { if((!memcmp(&(fa->n[DEVFET_S]),&(fb->n[DEVFET_S]),sizeof(termptr_t))) && (!memcmp(&(fa->n[DEVFET_D]),&(fb->n[DEVFET_D]),sizeof(termptr_t))) ) { /* merge devices, same orientation */ for(i=0;i<(sizeof(nlfd_merge_same)/sizeof(int));i++) eqn_setval( &(fa->v[nlfd_merge_same[i]]), EVALnm(fa->v[nlfd_merge_same[i]])+ EVALnm(fb->v[nlfd_merge_same[i]]) ); return 1; } if((!memcmp(&(fa->n[DEVFET_S]),&(fb->n[DEVFET_D]),sizeof(termptr_t))) && (!memcmp(&(fa->n[DEVFET_D]),&(fb->n[DEVFET_S]),sizeof(termptr_t))) ) { /* merge devices, opposite orientation */ for(i=0;i<(sizeof(nlfd_merge_same)/sizeof(int));i++) eqn_setval( &(fa->v[nlfd_merge_same[i]]), EVALnm(fa->v[nlfd_merge_same[i]])+ EVALnm(fb->v[nlfd_merge_flip[i]]) ); return 1; } } else { fprintf(stderr,"mergedup compare failure\n"); } return 0; /* fail request */ } netlistfunc_t * netlist_devfet_funcs(netlist_t *nl, netlistfunc_t *fp) { netlistfunc_t f; memset(&f,0,sizeof(f)); f.nl=nl; f.entity=nl->e+DEVT_FET; f.qproperties=6; /* n/p width + as/ad/ps/pd */ f.accumulate=nlfd_fet_acc; f.distribute=nlfd_fet_dist; f.qcmp=sizeof(nlfd_cmp_t); f.sum=nlfd_fet_sum; f.tocompare=nlfd_fet_cmp; f.fixup=NULL; /* this is not needed, only if user wants it */ if(fp!=NULL) *fp=f; return fp; } xcircuit-3.9.73/spiceparser/sort.c0000664000175000001440000003561212335667423015656 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* sort.c, sorting routines Conrad Ziesler this code is adapted from gnu glibc qsort.c, and so their header is as follows: reason: stdlib sort interface does not allow for indirection in cmp without using hackish global variables. also, we rely heavily on list already, so this makes the interface cleaner */ /* Copyright (C) 1991, 1992, 1996, 1997 Free Software Foundation, Inc. This file is part of the GNU C Library. Written by Douglas C. Schmidt (schmidt@ics.uci.edu). The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 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 Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "debug.h" #include "list.h" #include "list_search.h" /* Byte-wise swap two items of size SIZE. */ #define SWAP(a, b, size) \ do \ { \ register size_t __size = (size); \ register char *__a = (a), *__b = (b); \ do \ { \ char __tmp = *__a; \ *__a++ = *__b; \ *__b++ = __tmp; \ } while (--__size > 0); \ } while (0) /* Discontinue quicksort algorithm when partition gets below this size. This particular magic number was chosen to work best on a Sun 4/260. */ #define MAX_THRESH 4 /* Stack node declarations used to store unfulfilled partition obligations. */ typedef struct { char *lo; char *hi; } stack_node; /* The next 4 #defines implement a very fast in-line stack abstraction. */ #define STACK_SIZE (8 * sizeof(unsigned long int)) #define PUSH(low, high) ((void) ((top->lo = (low)), (top->hi = (high)), ++top)) #define POP(low, high) ((void) (--top, (low = top->lo), (high = top->hi))) #define STACK_NOT_EMPTY (stack < top) /* Order size using quicksort. This implementation incorporates four optimizations discussed in Sedgewick: 1. Non-recursive, using an explicit stack of pointer that store the next array partition to sort. To save time, this maximum amount of space required to store an array of MAX_INT is allocated on the stack. Assuming a 32-bit integer, this needs only 32 * sizeof(stack_node) == 136 bits. Pretty cheap, actually. 2. Chose the pivot element using a median-of-three decision tree. This reduces the probability of selecting a bad pivot value and eliminates certain extraneous comparisons. 3. Only quicksorts TOTAL_ELEMS / MAX_THRESH partitions, leaving insertion sort to order the MAX_THRESH items within each partition. This is a big win, since insertion sort is faster for small, mostly sorted array segments. 4. The larger of the two sub-partitions is always pushed onto the stack first, with the algorithm then concentrating on the smaller partition. This *guarantees* no more than log (n) stack size is needed (actually O(1) in this case)! */ #define CMP(a,b) (sf->cmpf(sf,a,b)) void list_qsort (sort_func_t *sf) { size_t total_elems=sf->tosort->q; size_t size=sf->tosort->s; void *const pbase=sf->tosort->d; register char *base_ptr = (char *) pbase; /* Allocating SIZE bytes for a pivot buffer facilitates a better algorithm below since we can do comparisons directly on the pivot. */ char *pivot_buffer = (char *) malloc (size); const size_t max_thresh = MAX_THRESH * size; sf->aiskey=0; assert(pivot_buffer!=NULL); memset(pivot_buffer,0,size); if (total_elems == 0) /* Avoid lossage with unsigned arithmetic below. */ { free(pivot_buffer); return; } if (total_elems > MAX_THRESH) { char *lo = base_ptr; char *hi = &lo[size * (total_elems - 1)]; /* Largest size needed for 32-bit int!!! */ stack_node stack[STACK_SIZE]; stack_node *top = stack + 1; while (STACK_NOT_EMPTY) { char *left_ptr; char *right_ptr; char *pivot = pivot_buffer; /* Select median value from among LO, MID, and HI. Rearrange LO and HI so the three values are sorted. This lowers the probability of picking a pathological pivot value and skips a comparison for both the LEFT_PTR and RIGHT_PTR. */ char *mid = lo + size * ((hi - lo) / size >> 1); if (CMP ((void *) mid, (void *) lo) < 0) SWAP (mid, lo, size); if (CMP ((void *) hi, (void *) mid) < 0) SWAP (mid, hi, size); else goto jump_over; if (CMP ((void *) mid, (void *) lo) < 0) SWAP (mid, lo, size); jump_over:; memcpy (pivot, mid, size); pivot = pivot_buffer; left_ptr = lo + size; right_ptr = hi - size; /* Here's the famous ``collapse the walls'' section of quicksort. Gotta like those tight inner loops! They are the main reason that this algorithm runs much faster than others. */ do { while (CMP ((void *) left_ptr, (void *) pivot) < 0) left_ptr += size; while (CMP ((void *) pivot, (void *) right_ptr) < 0) right_ptr -= size; if (left_ptr < right_ptr) { SWAP (left_ptr, right_ptr, size); left_ptr += size; right_ptr -= size; } else if (left_ptr == right_ptr) { left_ptr += size; right_ptr -= size; break; } } while (left_ptr <= right_ptr); /* Set up pointers for next iteration. First determine whether left and right partitions are below the threshold size. If so, ignore one or both. Otherwise, push the larger partition's bounds on the stack and continue sorting the smaller one. */ if ((size_t) (right_ptr - lo) <= max_thresh) { if ((size_t) (hi - left_ptr) <= max_thresh) /* Ignore both small partitions. */ POP (lo, hi); else /* Ignore small left partition. */ lo = left_ptr; } else if ((size_t) (hi - left_ptr) <= max_thresh) /* Ignore small right partition. */ hi = right_ptr; else if ((right_ptr - lo) > (hi - left_ptr)) { /* Push larger left partition indices. */ PUSH (lo, right_ptr); lo = left_ptr; } else { /* Push larger right partition indices. */ PUSH (left_ptr, hi); hi = right_ptr; } } } /* Once the BASE_PTR array is partially sorted by quicksort the rest is completely sorted using insertion sort, since this is efficient for partitions below MAX_THRESH size. BASE_PTR points to the beginning of the array to sort, and END_PTR points at the very last element in the array (*not* one beyond it!). */ #define min(x, y) ((x) < (y) ? (x) : (y)) { char *const end_ptr = &base_ptr[size * (total_elems - 1)]; char *tmp_ptr = base_ptr; char *thresh = min(end_ptr, base_ptr + max_thresh); register char *run_ptr; /* Find smallest element in first threshold and place it at the array's beginning. This is the smallest array element, and the operation speeds up insertion sort's inner loop. */ for (run_ptr = tmp_ptr + size; run_ptr <= thresh; run_ptr += size) if (CMP ((void *) run_ptr, (void *) tmp_ptr) < 0) tmp_ptr = run_ptr; if (tmp_ptr != base_ptr) SWAP (tmp_ptr, base_ptr, size); /* Insertion sort, running from left-hand-side up to right-hand-side. */ run_ptr = base_ptr + size; while ((run_ptr += size) <= end_ptr) { tmp_ptr = run_ptr - size; while (CMP ((void *) run_ptr, (void *) tmp_ptr) < 0) tmp_ptr -= size; tmp_ptr += size; if (tmp_ptr != run_ptr) { char *trav; trav = run_ptr + size; while (--trav >= run_ptr) { char c = *trav; char *hi, *lo; for (hi = lo = trav; (lo -= size) >= tmp_ptr; hi = lo) *hi = *lo; *hi = c; } } } } { free(pivot_buffer); return; } } /**** support for search list bindings. we copy and modify the qsort to reduce overhead of extra bindings -- conrad ***/ /* swap optimized for integers */ #define SWAPINT(a, b) \ do \ { \ register int *__a = (void *)(a), *__b = (void *)(b), __tmp; \ __tmp=*__a; *__a=*__b; *__a=__tmp; \ } while (0) #define CMPIND(a,b) (psp_cmpf( psp->user, source_d+(source_s*(*((int*)a))), source_d+(source_s*(*((int*)b))))) #define size (sizeof(int)) void list_search_qsort (list_search_t *lsp, list_psearch_t *psp) { char *source_d; int source_s; int (*psp_cmpf)(const void *user ,const void *a, const void *b); size_t total_elems=lsp->list.q; void *const pbase=psp->isearchdata; register char *base_ptr; int pivot_buffer_el=0; char *pivot_buffer = (char *) &pivot_buffer_el; const size_t max_thresh = MAX_THRESH * size; base_ptr= (char *) pbase; /* copy out of pointers to stack variables so compile can do memory scheduling */ source_d=lsp->list.d; source_s=lsp->list.s; psp_cmpf=psp->cmpf; if (total_elems == 0) return; if (total_elems > MAX_THRESH) { char *lo = base_ptr; char *hi = &lo[size * (total_elems - 1)]; /* Largest size needed for 32-bit int!!! */ stack_node stack[STACK_SIZE]; stack_node *top = stack + 1; while (STACK_NOT_EMPTY) { char *left_ptr; char *right_ptr; char *pivot = pivot_buffer; /* Select median value from among LO, MID, and HI. Rearrange LO and HI so the three values are sorted. This lowers the probability of picking a pathological pivot value and skips a comparison for both the LEFT_PTR and RIGHT_PTR. */ char *mid = lo + size * ((hi - lo) / size >> 1); assert(hi>=lo); if (CMPIND ((void *) mid, (void *) lo) < 0) SWAPINT (mid, lo); if (CMPIND ((void *) hi, (void *) mid) < 0) SWAPINT (mid, hi); else goto jump_over; if (CMPIND ((void *) mid, (void *) lo) < 0) SWAPINT (mid, lo); jump_over:; (*((int*)pivot)) = (*((int*)mid)); pivot = pivot_buffer; left_ptr = lo + size; right_ptr = hi - size; /* Here's the famous ``collapse the walls'' section of quicksort. Gotta like those tight inner loops! They are the main reason that this algorithm runs much faster than others. */ do { while (CMPIND ((void *) left_ptr, (void *) pivot) < 0) left_ptr += size; while (CMPIND ((void *) pivot, (void *) right_ptr) < 0) right_ptr -= size; if (left_ptr < right_ptr) { SWAPINT (left_ptr, right_ptr); left_ptr += size; right_ptr -= size; } else if (left_ptr == right_ptr) { left_ptr += size; right_ptr -= size; break; } } while (left_ptr <= right_ptr); /* Set up pointers for next iteration. First determine whether left and right partitions are below the threshold size. If so, ignore one or both. Otherwise, push the larger partition's bounds on the stack and continue sorting the smaller one. */ if ((size_t) (right_ptr - lo) <= max_thresh) { if ((size_t) (hi - left_ptr) <= max_thresh) /* Ignore both small partitions. */ POP (lo, hi); else /* Ignore small left partition. */ lo = left_ptr; } else if ((size_t) (hi - left_ptr) <= max_thresh) /* Ignore small right partition. */ hi = right_ptr; else if ((right_ptr - lo) > (hi - left_ptr)) { /* Push larger left partition indices. */ PUSH (lo, right_ptr); lo = left_ptr; } else { /* Push larger right partition indices. */ PUSH (left_ptr, hi); hi = right_ptr; } } } /* Once the BASE_PTR array is partially sorted by quicksort the rest is completely sorted using insertion sort, since this is efficient for partitions below MAX_THRESH size. BASE_PTR points to the beginning of the array to sort, and END_PTR points at the very last element in the array (*not* one beyond it!). */ #define min(x, y) ((x) < (y) ? (x) : (y)) { char *const end_ptr = &base_ptr[size * (total_elems - 1)]; char *tmp_ptr = base_ptr; char *thresh = min(end_ptr, base_ptr + max_thresh); register char *run_ptr; /* Find smallest element in first threshold and place it at the array's beginning. This is the smallest array element, and the operation speeds up insertion sort's inner loop. */ for (run_ptr = tmp_ptr + size; run_ptr <= thresh; run_ptr += size) if (CMPIND ((void *) run_ptr, (void *) tmp_ptr) < 0) tmp_ptr = run_ptr; if (tmp_ptr != base_ptr) SWAPINT (tmp_ptr, base_ptr); /* Insertion sort, running from left-hand-side up to right-hand-side. */ run_ptr = base_ptr + size; while ((run_ptr += size) <= end_ptr) { tmp_ptr = run_ptr - size; while (CMPIND ((void *) run_ptr, (void *) tmp_ptr) < 0) tmp_ptr -= size; tmp_ptr += size; if (tmp_ptr != run_ptr) { char *trav; trav = run_ptr + size; while (--trav >= run_ptr) { char c = *trav; char *hi, *lo; for (hi = lo = trav; (lo -= size) >= tmp_ptr; hi = lo) *hi = *lo; *hi = c; } } } } { return; } } xcircuit-3.9.73/spiceparser/test.lib0000664000175000001440000013772012335667423016175 0ustar timusers ** and2m05p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m05p.iclib2,v 9.0.1.6 2002/07/18 14:38:53 rchiang Exp $ .SUBCKT AND2M05P Z A B VDD VSS * devices: m0 8 11 7 VDD pm_hp l=0.118744u w=0.926776u ad=0.156347p as=0.697362p + pd=0.348111u ps=3.88u m1 9 12 8 VDD pm_hp l=0.118237u w=0.910208u ad=0.35608p as=0.153552p pd=1.43203u + ps=0.341888u m2 10 13 9 VDD pm_hp l=0.117864u w=1.02521u ad=0.331912p as=0.401069p pd=1.685u + ps=1.61296u m3 3 11 2 VSS nm_hp l=0.115u w=0.595u ad=0.0820299p as=0.23205p pd=0.275106u + ps=1.375u m4 4 12 3 VSS nm_hp l=0.119905u w=0.605355u ad=0.292388p as=0.0834575p + pd=1.40001u ps=0.279894u m5 5 13 4 VSS nm_hp l=0.120619u w=0.670208u ad=0.223637p as=0.323712p pd=1.33u + ps=1.54999u * resistors: r6 37 2 40 $[mnc] r7 VSS 4 40 $[mnc] r8 VSS 4 40 $[mnc] r9 Z 5 40 $[mnc] r10 VDD 7 40 $[mpc] r11 VDD 7 40 $[mpc] r12 37 8 40 $[mpc] r13 VDD 9 40 $[mpc] r14 VDD 9 40 $[mpc] r15 Z 10 40 $[mpc] r16 A 11 14 $[mpolyc] r17 B 12 14 $[mpolyc] r18 37 13 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.351161f cp2 2 VSS 0.0283066f cp3 4 VSS 0.0523448f cp4 5 VSS 0.0320563f cp5 7 VSS 0.0721056f cp6 8 VSS 0.0290149f cp7 9 VSS 0.0753449f cp8 10 VSS 0.0239399f cp9 11 VSS 0.376099f cp10 12 VSS 0.458626f cp11 13 VSS 0.339844f cp12 37 VSS 0.428433f cp13 A VSS 0.144954f cp14 B VSS 0.118711f cp15 Z VSS 0.196733f .ENDS ** and2m10p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m10p.iclib2,v 9.0.1.5 2002/06/20 18:41:49 kensz Exp $ .SUBCKT AND2M10P Z A B VDD VSS * devices: m0 21 37 20 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.701075p pd=0.385u + ps=2.615u m1 22 37 21 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p pd=0.385u + ps=0.385u m2 23 37 22 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.399462p pd=0.385u + ps=0.385u m3 24 37 23 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p pd=0.385u + ps=0.385u m4 25 37 24 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.399462p pd=0.385u + ps=0.385u m5 26 37 25 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p pd=0.385u + ps=0.385u m6 27 37 26 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.399462p pd=0.385u + ps=0.385u m7 28 37 27 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p pd=0.385u + ps=0.385u m8 29 37 28 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.399462p pd=0.385u + ps=0.385u m9 30 37 29 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p pd=0.385u + ps=0.385u m10 31 38 30 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.399462p + pd=0.385u ps=0.385u m11 32 39 31 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p + pd=0.385u ps=0.385u m12 33 39 32 VDD pm_hp l=0.116519u w=1.95228u ad=0.332862p as=0.399462p + pd=0.385u ps=0.385u m13 34 40 33 VDD pm_hp l=0.116519u w=1.95228u ad=0.399462p as=0.332862p + pd=0.385u ps=0.385u m14 35 40 34 VDD pm_hp l=0.116519u w=1.95228u ad=0.428612p as=0.399462p + pd=0.485u ps=0.385u m15 36 41 35 VDD pm_hp l=0.116519u w=1.95228u ad=0.6915p as=0.428612p pd=2.605u + ps=0.485u m16 3 37 2 VSS nm_hp l=0.117852u w=1.29021u ad=0.215075p as=0.454812p pd=0.38u + ps=1.95u m17 4 37 3 VSS nm_hp l=0.117852u w=1.29021u ad=0.247737p as=0.215075p pd=0.365u + ps=0.38u m18 5 37 4 VSS nm_hp l=0.117852u w=1.29021u ad=0.215075p as=0.247737p pd=0.38u + ps=0.365u m19 6 37 5 VSS nm_hp l=0.117852u w=1.29021u ad=0.25715p as=0.215075p pd=0.38u + ps=0.38u m20 7 37 6 VSS nm_hp l=0.117852u w=1.29021u ad=0.216727p as=0.25715p + pd=0.384383u ps=0.38u m21 8 37 7 VSS nm_hp l=0.117943u w=1.29435u ad=0.261568p as=0.217423p + pd=0.385617u ps=0.385617u m22 9 37 8 VSS nm_hp l=0.117852u w=1.29021u ad=0.216727p as=0.260731p + pd=0.384383u ps=0.384383u m23 10 37 9 VSS nm_hp l=0.117943u w=1.29435u ad=0.261568p as=0.217423p + pd=0.385617u ps=0.385617u m24 11 37 10 VSS nm_hp l=0.117852u w=1.29021u ad=0.222814p as=0.260731p + pd=0.345562u ps=0.384383u m25 12 37 11 VSS nm_hp l=0.118569u w=1.32334u ad=0.348887p as=0.228536p + pd=0.832275u ps=0.354437u m26 13 38 12 VSS nm_hp l=0.117829u w=1.30021u ad=0.2613p as=0.342787p pd=0.44u + ps=0.817724u m27 14 39 13 VSS nm_hp l=0.117829u w=1.30021u ad=0.252675p as=0.2613p pd=0.38u + ps=0.44u m28 15 39 14 VSS nm_hp l=0.117829u w=1.30021u ad=0.238725p as=0.252675p + pd=0.365u ps=0.38u m29 16 40 15 VSS nm_hp l=0.117829u w=1.30021u ad=0.299337p as=0.238725p pd=0.78u + ps=0.365u m30 17 40 16 VSS nm_hp l=0.117829u w=1.30021u ad=0.235325p as=0.299337p + pd=0.365u ps=0.78u m31 18 41 17 VSS nm_hp l=0.117829u w=1.30021u ad=0.458712p as=0.235325p pd=1.96u + ps=0.365u * resistors: r32 VSS 2 40 $[mnc] r33 VSS 2 40 $[mnc] r34 Z 3 40 $[mnc] r35 VSS 4 40 $[mnc] r36 VSS 4 40 $[mnc] r37 Z 5 40 $[mnc] r38 VSS 6 40 $[mnc] r39 VSS 6 40 $[mnc] r40 Z 7 40 $[mnc] r41 VSS 8 40 $[mnc] r42 VSS 8 40 $[mnc] r43 Z 9 40 $[mnc] r44 VSS 10 40 $[mnc] r45 VSS 10 40 $[mnc] r46 Z 11 40 $[mnc] r47 VSS 12 40 $[mnc] r48 VSS 12 40 $[mnc] r49 141 13 40 $[mnc] r50 139 14 40 $[mnc] r51 141 15 40 $[mnc] r52 VSS 16 40 $[mnc] r53 141 17 40 $[mnc] r54 139 18 40 $[mnc] r55 VDD 20 40 $[mpc] r56 VDD 20 40 $[mpc] r57 Z 21 40 $[mpc] r58 VDD 22 40 $[mpc] r59 VDD 22 40 $[mpc] r60 Z 23 40 $[mpc] r61 VDD 24 40 $[mpc] r62 VDD 24 40 $[mpc] r63 Z 25 40 $[mpc] r64 VDD 26 40 $[mpc] r65 VDD 26 40 $[mpc] r66 Z 27 40 $[mpc] r67 VDD 28 40 $[mpc] r68 VDD 28 40 $[mpc] r69 Z 29 40 $[mpc] r70 VDD 30 40 $[mpc] r71 VDD 30 40 $[mpc] r72 139 31 40 $[mpc] r73 VDD 32 40 $[mpc] r74 VDD 32 40 $[mpc] r75 139 33 40 $[mpc] r76 VDD 34 40 $[mpc] r77 VDD 34 40 $[mpc] r78 139 35 40 $[mpc] r79 VDD 36 40 $[mpc] r80 VDD 36 40 $[mpc] r81 139 37 14 $[mpolyc] r82 B 38 14 $[mpolyc] r83 A 39 14 $[mpolyc] r84 B 40 14 $[mpolyc] r85 A 41 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 1.77416f cp2 2 VSS 0.0669776f cp3 3 VSS 0.0367983f cp4 4 VSS 0.0685088f cp5 5 VSS 0.0372035f cp6 6 VSS 0.0698596f cp7 7 VSS 0.0380034f cp8 8 VSS 0.070147f cp9 9 VSS 0.037995f cp10 10 VSS 0.072258f cp11 11 VSS 0.0301182f cp12 12 VSS 0.101874f cp13 13 VSS 0.0581621f cp14 14 VSS 0.0391833f cp15 15 VSS 0.0401044f cp16 16 VSS 0.0518607f cp17 17 VSS 0.0549393f cp18 18 VSS 0.0303713f cp19 20 VSS 0.0670358f cp20 21 VSS 0.0390511f cp21 22 VSS 0.0753915f cp22 23 VSS 0.0398222f cp23 24 VSS 0.0756207f cp24 25 VSS 0.0611674f cp25 26 VSS 0.0756207f cp26 27 VSS 0.0398222f cp27 28 VSS 0.0756207f cp28 29 VSS 0.0312145f cp29 30 VSS 0.0876255f cp30 31 VSS 0.0363787f cp31 32 VSS 0.0727265f cp32 33 VSS 0.0318193f cp33 34 VSS 0.0711524f cp34 35 VSS 0.0436748f cp35 36 VSS 0.0714809f cp36 37 VSS 2.18688f cp37 38 VSS 0.58226f cp38 39 VSS 0.844982f cp39 40 VSS 0.840807f cp40 41 VSS 0.41454f cp41 Z VSS 1.11933f cp42 139 VSS 1.22948f cp43 B VSS 0.425553f cp44 141 VSS 0.400358f cp45 A VSS 0.382799f .ENDS ** and2m12p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m12p.iclib2,v 9.0.1.5 2002/06/25 06:56:51 tvarga Exp $ .SUBCKT AND2M12P Z A B VDD VSS * devices: m0 23 41 22 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.635312p pd=0.38u + ps=2.415u m1 24 41 23 VDD pm_hp l=0.116656u w=1.75521u ad=0.351512p as=0.284512p pd=0.365u + ps=0.38u m2 25 41 24 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.351512p pd=0.38u + ps=0.365u m3 26 41 25 VDD pm_hp l=0.116656u w=1.75521u ad=0.351512p as=0.284512p pd=0.365u + ps=0.38u m4 27 41 26 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.351512p pd=0.38u + ps=0.365u m5 28 41 27 VDD pm_hp l=0.116656u w=1.75521u ad=0.351512p as=0.284512p pd=0.365u + ps=0.38u m6 29 41 28 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.351512p pd=0.38u + ps=0.365u m7 30 41 29 VDD pm_hp l=0.116656u w=1.75521u ad=0.351512p as=0.284512p pd=0.365u + ps=0.38u m8 31 41 30 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.351512p pd=0.38u + ps=0.365u m9 32 41 31 VDD pm_hp l=0.116656u w=1.75521u ad=0.351512p as=0.284512p pd=0.365u + ps=0.38u m10 33 41 32 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.351512p pd=0.38u + ps=0.365u m11 34 41 33 VDD pm_hp l=0.116656u w=1.75521u ad=0.428912p as=0.284512p + pd=0.455u ps=0.38u m12 35 42 34 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.428912p pd=0.38u + ps=0.455u m13 36 43 35 VDD pm_hp l=0.116656u w=1.75521u ad=0.364412p as=0.284512p pd=0.38u + ps=0.38u m14 37 43 36 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.364412p pd=0.38u + ps=0.38u m15 38 44 37 VDD pm_hp l=0.116656u w=1.75521u ad=0.364412p as=0.284512p pd=0.38u + ps=0.38u m16 39 44 38 VDD pm_hp l=0.116656u w=1.75521u ad=0.288812p as=0.364412p + pd=0.385u ps=0.38u m17 40 45 39 VDD pm_hp l=0.116656u w=1.75521u ad=0.635312p as=0.288812p + pd=2.415u ps=0.385u m18 3 41 2 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.408012p pd=0.38u + ps=1.83u m19 4 41 3 VSS nm_hp l=0.118152u w=1.17021u ad=0.220737p as=0.197375p pd=0.365u + ps=0.38u m20 5 41 4 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.220737p pd=0.38u + ps=0.365u m21 6 41 5 VSS nm_hp l=0.118152u w=1.17021u ad=0.220737p as=0.197375p pd=0.365u + ps=0.38u m22 7 41 6 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.220737p pd=0.38u + ps=0.365u m23 8 41 7 VSS nm_hp l=0.118152u w=1.17021u ad=0.220737p as=0.197375p pd=0.365u + ps=0.38u m24 9 41 8 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.220737p pd=0.38u + ps=0.365u m25 10 41 9 VSS nm_hp l=0.118152u w=1.17021u ad=0.220737p as=0.197375p pd=0.365u + ps=0.38u m26 11 41 10 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.220737p pd=0.38u + ps=0.365u m27 12 41 11 VSS nm_hp l=0.118152u w=1.17021u ad=0.220737p as=0.197375p + pd=0.365u ps=0.38u m28 13 41 12 VSS nm_hp l=0.118152u w=1.17021u ad=0.211387p as=0.220737p + pd=0.365u ps=0.365u m29 14 41 13 VSS nm_hp l=0.118152u w=1.17021u ad=0.320337p as=0.211387p pd=0.91u + ps=0.365u m30 15 42 14 VSS nm_hp l=0.118152u w=1.17021u ad=0.2048p as=0.320337p pd=0.365u + ps=0.91u m31 16 43 15 VSS nm_hp l=0.118152u w=1.17021u ad=0.2048p as=0.2048p pd=0.365u + ps=0.365u m32 17 43 16 VSS nm_hp l=0.118152u w=1.17021u ad=0.217275p as=0.2048p pd=0.375u + ps=0.365u m33 18 44 17 VSS nm_hp l=0.118152u w=1.17021u ad=0.320125p as=0.217275p pd=0.91u + ps=0.375u m34 19 44 18 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.320125p pd=0.38u + ps=0.91u m35 20 45 19 VSS nm_hp l=0.118152u w=1.17021u ad=0.408012p as=0.197375p pd=1.83u + ps=0.38u * resistors: r36 VSS 2 40 $[mnc] r37 VSS 2 40 $[mnc] r38 Z 3 40 $[mnc] r39 VSS 4 40 $[mnc] r40 VSS 4 40 $[mnc] r41 Z 5 40 $[mnc] r42 VSS 6 40 $[mnc] r43 VSS 6 40 $[mnc] r44 Z 7 40 $[mnc] r45 VSS 8 40 $[mnc] r46 VSS 8 40 $[mnc] r47 Z 9 40 $[mnc] r48 VSS 10 40 $[mnc] r49 VSS 10 40 $[mnc] r50 Z 11 40 $[mnc] r51 VSS 12 40 $[mnc] r52 VSS 12 40 $[mnc] r53 Z 13 40 $[mnc] r54 VSS 14 40 $[mnc] r55 VSS 14 40 $[mnc] r56 155 15 40 $[mnc] r57 153 16 40 $[mnc] r58 155 17 40 $[mnc] r59 VSS 18 40 $[mnc] r60 155 19 40 $[mnc] r61 153 20 40 $[mnc] r62 VDD 22 40 $[mpc] r63 VDD 22 40 $[mpc] r64 Z 23 40 $[mpc] r65 VDD 24 40 $[mpc] r66 VDD 24 40 $[mpc] r67 Z 25 40 $[mpc] r68 VDD 26 40 $[mpc] r69 VDD 26 40 $[mpc] r70 Z 27 40 $[mpc] r71 VDD 28 40 $[mpc] r72 VDD 28 40 $[mpc] r73 Z 29 40 $[mpc] r74 VDD 30 40 $[mpc] r75 VDD 30 40 $[mpc] r76 Z 31 40 $[mpc] r77 VDD 32 40 $[mpc] r78 VDD 32 40 $[mpc] r79 Z 33 40 $[mpc] r80 VDD 34 40 $[mpc] r81 VDD 34 40 $[mpc] r82 153 35 40 $[mpc] r83 VDD 36 40 $[mpc] r84 VDD 36 40 $[mpc] r85 153 37 40 $[mpc] r86 VDD 38 40 $[mpc] r87 VDD 38 40 $[mpc] r88 153 39 40 $[mpc] r89 VDD 40 40 $[mpc] r90 VDD 40 40 $[mpc] r91 153 41 14 $[mpolyc] r92 B 42 14 $[mpolyc] r93 A 43 14 $[mpolyc] r94 B 44 14 $[mpolyc] r95 A 45 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 1.94455f cp2 2 VSS 0.0669294f cp3 3 VSS 0.0367983f cp4 4 VSS 0.0664982f cp5 5 VSS 0.0372005f cp6 6 VSS 0.0664982f cp7 7 VSS 0.0371777f cp8 8 VSS 0.0664982f cp9 9 VSS 0.0363705f cp10 10 VSS 0.0664982f cp11 11 VSS 0.0372005f cp12 12 VSS 0.0697293f cp13 13 VSS 0.0296194f cp14 14 VSS 0.108156f cp15 15 VSS 0.0628747f cp16 16 VSS 0.0395401f cp17 17 VSS 0.0415426f cp18 18 VSS 0.0591968f cp19 19 VSS 0.0474836f cp20 20 VSS 0.0309044f cp21 22 VSS 0.0669294f cp22 23 VSS 0.0382232f cp23 24 VSS 0.0738112f cp24 25 VSS 0.0389894f cp25 26 VSS 0.0738112f cp26 27 VSS 0.0389666f cp27 28 VSS 0.0738112f cp28 29 VSS 0.0401976f cp29 30 VSS 0.0738112f cp30 31 VSS 0.0389894f cp31 32 VSS 0.0746449f cp32 33 VSS 0.0316214f cp33 34 VSS 0.0864697f cp34 35 VSS 0.0355994f cp35 36 VSS 0.0704575f cp36 37 VSS 0.030572f cp37 38 VSS 0.0694666f cp38 39 VSS 0.0303905f cp39 40 VSS 0.0701144f cp40 41 VSS 2.59583f cp41 42 VSS 0.598906f cp42 43 VSS 0.853775f cp43 44 VSS 0.850337f cp44 45 VSS 0.454421f cp45 Z VSS 1.32967f cp46 153 VSS 1.18339f cp47 B VSS 0.328543f cp48 155 VSS 0.361829f cp49 A VSS 0.338686f .ENDS ** and2m1p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m1p.iclib2,v 9.0.1.5 2002/06/20 18:50:42 kensz Exp $ .SUBCKT AND2M1P Z A B VDD VSS * devices: m0 8 11 7 VDD pm_hp l=0.117448u w=1.19521u ad=0.201062p as=0.417762p pd=0.38u + ps=1.855u m1 9 12 8 VDD pm_hp l=0.117448u w=1.19521u ad=0.301859p as=0.201062p + pd=0.573131u ps=0.38u m2 10 13 9 VDD pm_hp l=0.116666u w=1.74521u ad=0.551512p as=0.440766p pd=2.405u + ps=0.836869u m3 3 11 2 VSS nm_hp l=0.119762u w=0.785208u ad=0.135287p as=0.258712p pd=0.35u + ps=1.445u m4 4 12 3 VSS nm_hp l=0.119762u w=0.785208u ad=0.261162p as=0.135287p + pd=0.914864u ps=0.35u m5 5 13 4 VSS nm_hp l=0.118209u w=1.15021u ad=0.370037p as=0.382562p pd=1.81u + ps=1.34013u * resistors: r6 38 2 40 $[mnc] r7 VSS 4 40 $[mnc] r8 VSS 4 40 $[mnc] r9 Z 5 40 $[mnc] r10 VDD 7 40 $[mpc] r11 VDD 7 40 $[mpc] r12 38 8 40 $[mpc] r13 VDD 9 40 $[mpc] r14 VDD 9 40 $[mpc] r15 Z 10 40 $[mpc] r16 A 11 14 $[mpolyc] r17 B 12 14 $[mpolyc] r18 38 13 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.479219f cp2 2 VSS 0.0339761f cp3 3 VSS 0.0206746f cp4 4 VSS 0.0805333f cp5 5 VSS 0.0360938f cp6 7 VSS 0.0837751f cp7 8 VSS 0.0355503f cp8 9 VSS 0.0889938f cp9 10 VSS 0.0343166f cp10 11 VSS 0.40561f cp11 12 VSS 0.485111f cp12 13 VSS 0.409236f cp13 A VSS 0.0990763f cp14 38 VSS 0.491529f cp15 B VSS 0.11438f cp16 Z VSS 0.227802f .ENDS ** and2m2p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m2p.iclib2,v 9.0.1.5 2002/06/20 18:49:41 kensz Exp $ .SUBCKT AND2M2P Z A B VDD VSS * devices: m0 9 13 8 VDD pm_hp l=0.116666u w=1.74521u ad=0.293987p as=0.632262p + pd=0.335311u ps=2.405u m1 10 13 9 VDD pm_hp l=0.117041u w=1.76799u ad=0.348317p as=0.297825p + pd=0.716275u ps=0.339688u m2 11 14 10 VDD pm_hp l=0.116734u w=1.74935u ad=0.303886p as=0.344645p + pd=0.357712u ps=0.708724u m3 12 15 11 VDD pm_hp l=0.1167u w=1.74728u ad=0.63p as=0.303526p pd=2.4u + ps=0.357288u m4 3 13 2 VSS nm_hp l=0.117764u w=1.33021u ad=0.220975p as=0.470412p pd=0.38u + ps=1.99u m5 4 13 3 VSS nm_hp l=0.117764u w=1.33021u ad=0.355725p as=0.220975p pd=0.755u + ps=0.38u m6 5 14 4 VSS nm_hp l=0.117764u w=1.33021u ad=0.1821p as=0.355725p pd=0.275u + ps=0.755u m7 6 15 5 VSS nm_hp l=0.117764u w=1.33021u ad=0.424937p as=0.1821p pd=1.99u + ps=0.275u * resistors: r8 VSS 2 40 $[mnc] r9 VSS 2 40 $[mnc] r10 Z 3 40 $[mnc] r11 VSS 4 40 $[mnc] r12 VSS 4 40 $[mnc] r13 46 6 40 $[mnc] r14 VDD 8 40 $[mpc] r15 VDD 8 40 $[mpc] r16 Z 9 40 $[mpc] r17 VDD 10 40 $[mpc] r18 VDD 10 40 $[mpc] r19 46 11 40 $[mpc] r20 VDD 12 40 $[mpc] r21 VDD 12 40 $[mpc] r22 46 13 14 $[mpolyc] r23 B 14 14 $[mpolyc] r24 A 15 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.558962f cp2 2 VSS 0.0939312f cp3 3 VSS 0.0338934f cp4 4 VSS 0.0466969f cp5 6 VSS 0.0283539f cp6 8 VSS 0.0953829f cp7 9 VSS 0.0318202f cp8 10 VSS 0.0627591f cp9 11 VSS 0.033193f cp10 12 VSS 0.0929633f cp11 13 VSS 0.651235f cp12 14 VSS 0.677715f cp13 15 VSS 0.508204f cp14 Z VSS 0.290201f cp15 46 VSS 0.414581f cp16 B VSS 0.134029f cp17 A VSS 0.153095f .ENDS ** and2m4p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m4p.iclib2,v 9.0.1.5 2002/06/20 18:47:18 kensz Exp $ .SUBCKT AND2M4P Z A B VDD VSS * devices: m0 11 17 10 VDD pm_hp l=0.116557u w=1.86521u ad=0.310087p as=0.668862p pd=0.38u + ps=2.525u m1 12 17 11 VDD pm_hp l=0.116557u w=1.86521u ad=0.380637p as=0.310087p pd=0.38u + ps=0.38u m2 13 17 12 VDD pm_hp l=0.116557u w=1.86521u ad=0.310087p as=0.380637p pd=0.38u + ps=0.38u m3 14 17 13 VDD pm_hp l=0.116557u w=1.86521u ad=0.380637p as=0.310087p pd=0.38u + ps=0.38u m4 15 18 14 VDD pm_hp l=0.116557u w=1.86521u ad=0.310087p as=0.380637p pd=0.38u + ps=0.38u m5 16 19 15 VDD pm_hp l=0.116557u w=1.86521u ad=0.668862p as=0.310087p pd=2.525u + ps=0.38u m6 3 17 2 VSS nm_hp l=0.118017u w=1.24228u ad=0.209687p as=0.439075p pd=0.385u + ps=1.905u m7 4 17 3 VSS nm_hp l=0.118017u w=1.24228u ad=0.249287p as=0.209687p pd=0.385u + ps=0.385u m8 5 17 4 VSS nm_hp l=0.118017u w=1.24228u ad=0.209687p as=0.249287p pd=0.385u + ps=0.385u m9 6 17 5 VSS nm_hp l=0.118017u w=1.24228u ad=0.34085p as=0.209687p pd=0.835u + ps=0.385u m10 7 18 6 VSS nm_hp l=0.118017u w=1.24228u ad=0.169962p as=0.34085p pd=0.275u + ps=0.835u m11 8 19 7 VSS nm_hp l=0.118017u w=1.24228u ad=0.53805p as=0.169962p pd=2.135u + ps=0.275u * resistors: r12 VSS 2 40 $[mnc] r13 VSS 2 40 $[mnc] r14 Z 3 40 $[mnc] r15 VSS 4 40 $[mnc] r16 VSS 4 40 $[mnc] r17 Z 5 40 $[mnc] r18 VSS 6 40 $[mnc] r19 VSS 6 40 $[mnc] r20 62 8 40 $[mnc] r21 VDD 10 40 $[mpc] r22 VDD 10 40 $[mpc] r23 Z 11 40 $[mpc] r24 VDD 12 40 $[mpc] r25 VDD 12 40 $[mpc] r26 Z 13 40 $[mpc] r27 VDD 14 40 $[mpc] r28 VDD 14 40 $[mpc] r29 62 15 40 $[mpc] r30 VDD 16 40 $[mpc] r31 VDD 16 40 $[mpc] r32 62 17 14 $[mpolyc] r33 B 18 14 $[mpolyc] r34 A 19 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.793447f cp2 2 VSS 0.0670167f cp3 3 VSS 0.0415182f cp4 4 VSS 0.073124f cp5 5 VSS 0.0317776f cp6 6 VSS 0.0484275f cp7 8 VSS 0.0307134f cp8 10 VSS 0.0669584f cp9 11 VSS 0.0525539f cp10 12 VSS 0.0716035f cp11 13 VSS 0.0303499f cp12 14 VSS 0.0821127f cp13 15 VSS 0.040096f cp14 16 VSS 0.0592826f cp15 17 VSS 1.0376f cp16 18 VSS 0.636199f cp17 19 VSS 0.498244f cp18 Z VSS 0.480911f cp19 62 VSS 0.573239f cp20 B VSS 0.100422f cp21 A VSS 0.122793f .ENDS ** and2m8p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and2m8p.iclib2,v 9.0.1.5 2002/06/20 18:46:25 kensz Exp $ .SUBCKT AND2M8P Z A B VDD VSS * devices: m0 17 29 16 VDD pm_hp l=0.116557u w=1.86521u ad=0.299887p as=0.679062p pd=0.38u + ps=2.525u m1 18 29 17 VDD pm_hp l=0.116557u w=1.86521u ad=0.390837p as=0.299887p pd=0.38u + ps=0.38u m2 19 29 18 VDD pm_hp l=0.116557u w=1.86521u ad=0.299887p as=0.390837p pd=0.38u + ps=0.38u m3 20 29 19 VDD pm_hp l=0.116557u w=1.86521u ad=0.390837p as=0.299887p pd=0.38u + ps=0.38u m4 21 29 20 VDD pm_hp l=0.116557u w=1.86521u ad=0.299887p as=0.390837p pd=0.38u + ps=0.38u m5 22 29 21 VDD pm_hp l=0.116557u w=1.86521u ad=0.385737p as=0.299887p pd=0.38u + ps=0.38u m6 23 29 22 VDD pm_hp l=0.116557u w=1.86521u ad=0.520537p as=0.385737p pd=0.61u + ps=0.38u m7 24 29 23 VDD pm_hp l=0.116557u w=1.86521u ad=0.467704p as=0.520537p + pd=0.540951u ps=0.61u m8 25 30 24 VDD pm_hp l=0.116656u w=1.75521u ad=0.293862p as=0.440121p pd=0.38u + ps=0.509049u m9 26 31 25 VDD pm_hp l=0.116656u w=1.75521u ad=0.355062p as=0.293862p pd=0.38u + ps=0.38u m10 27 31 26 VDD pm_hp l=0.116656u w=1.75521u ad=0.461562p as=0.355062p + pd=0.575u ps=0.38u m11 28 32 27 VDD pm_hp l=0.116656u w=1.75521u ad=0.625962p as=0.461562p + pd=2.415u ps=0.575u m12 3 29 2 VSS nm_hp l=0.118017u w=1.24228u ad=0.209687p as=0.439075p pd=0.385u + ps=1.905u m13 4 29 3 VSS nm_hp l=0.118017u w=1.24228u ad=0.249287p as=0.209687p pd=0.385u + ps=0.385u m14 5 29 4 VSS nm_hp l=0.118017u w=1.24228u ad=0.209687p as=0.249287p pd=0.385u + ps=0.385u m15 6 29 5 VSS nm_hp l=0.118017u w=1.24228u ad=0.249287p as=0.209687p pd=0.385u + ps=0.385u m16 7 29 6 VSS nm_hp l=0.118017u w=1.24228u ad=0.209687p as=0.249287p pd=0.385u + ps=0.385u m17 8 29 7 VSS nm_hp l=0.118017u w=1.24228u ad=0.249287p as=0.209687p pd=0.385u + ps=0.385u m18 9 29 8 VSS nm_hp l=0.118017u w=1.24228u ad=0.230775p as=0.249287p pd=0.42u + ps=0.385u m19 10 29 9 VSS nm_hp l=0.118017u w=1.24228u ad=0.285607p as=0.230775p + pd=0.501661u ps=0.42u m20 11 30 10 VSS nm_hp l=0.115u w=1.135u ad=0.264762p as=0.260943p pd=0.484978u + ps=0.458339u m21 12 31 11 VSS nm_hp l=0.118152u w=1.17021u ad=0.253037p as=0.272975p pd=0.45u + ps=0.500022u m22 13 31 12 VSS nm_hp l=0.118152u w=1.17021u ad=0.315223p as=0.253037p + pd=0.540633u ps=0.45u m23 14 32 13 VSS nm_hp l=0.115u w=1.135u ad=0.44265p as=0.305739p pd=1.915u + ps=0.524367u * resistors: r24 VSS 2 40 $[mnc] r25 VSS 2 40 $[mnc] r26 Z 3 40 $[mnc] r27 VSS 4 40 $[mnc] r28 VSS 4 40 $[mnc] r29 Z 5 40 $[mnc] r30 VSS 6 40 $[mnc] r31 VSS 6 40 $[mnc] r32 Z 7 40 $[mnc] r33 VSS 8 40 $[mnc] r34 VSS 8 40 $[mnc] r35 Z 9 40 $[mnc] r36 VSS 10 40 $[mnc] r37 VSS 10 40 $[mnc] r38 113 11 40 $[mnc] r39 111 12 40 $[mnc] r40 113 13 40 $[mnc] r41 VSS 14 40 $[mnc] r42 VSS 14 40 $[mnc] r43 VDD 16 40 $[mpc] r44 VDD 16 40 $[mpc] r45 Z 17 40 $[mpc] r46 VDD 18 40 $[mpc] r47 VDD 18 40 $[mpc] r48 Z 19 40 $[mpc] r49 VDD 20 40 $[mpc] r50 VDD 20 40 $[mpc] r51 Z 21 40 $[mpc] r52 VDD 22 40 $[mpc] r53 VDD 22 40 $[mpc] r54 Z 23 40 $[mpc] r55 VDD 24 40 $[mpc] r56 VDD 24 40 $[mpc] r57 111 25 40 $[mpc] r58 VDD 26 40 $[mpc] r59 VDD 26 40 $[mpc] r60 111 27 40 $[mpc] r61 VDD 28 40 $[mpc] r62 VDD 28 40 $[mpc] r63 111 29 14 $[mpolyc] r64 B 30 14 $[mpolyc] r65 A 31 14 $[mpolyc] r66 B 32 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 1.41855f cp2 2 VSS 0.0670167f cp3 3 VSS 0.0339461f cp4 4 VSS 0.0523969f cp5 5 VSS 0.0284561f cp6 6 VSS 0.052626f cp7 7 VSS 0.0278551f cp8 8 VSS 0.0529962f cp9 9 VSS 0.0305014f cp10 10 VSS 0.0833849f cp11 11 VSS 0.0449052f cp12 12 VSS 0.0466324f cp13 13 VSS 0.0344949f cp14 14 VSS 0.075112f cp15 16 VSS 0.0669584f cp16 17 VSS 0.0351186f cp17 18 VSS 0.0546883f cp18 19 VSS 0.0304703f cp19 20 VSS 0.054862f cp20 21 VSS 0.0300126f cp21 22 VSS 0.0571222f cp22 23 VSS 0.0398241f cp23 24 VSS 0.0575249f cp24 25 VSS 0.0468614f cp25 26 VSS 0.0727373f cp26 27 VSS 0.0511403f cp27 28 VSS 0.0732119f cp28 29 VSS 1.79882f cp29 30 VSS 0.53576f cp30 31 VSS 0.745306f cp31 32 VSS 0.345019f cp32 Z VSS 0.863828f cp33 111 VSS 0.701749f cp34 B VSS 0.352914f cp35 113 VSS 0.237335f cp36 A VSS 0.11993f .ENDS ** and3m05p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and3m05p.iclib2,v 9.0.1.5 2002/07/18 14:39:04 rchiang Exp $ .SUBCKT AND3M05P Z A B C VDD VSS * devices: m0 9 13 8 VDD pm_hp l=0.115u w=1.005u ad=0.226125p as=0.39195p pd=0.45u + ps=1.785u m1 10 14 9 VDD pm_hp l=0.115u w=1.005u ad=0.226125p as=0.226125p pd=0.45u + ps=0.45u m2 11 15 10 VDD pm_hp l=0.115u w=1.005u ad=0.226125p as=0.226125p pd=0.45u + ps=0.45u m3 12 16 11 VDD pm_hp l=0.115u w=1.005u ad=0.396975p as=0.226125p pd=1.795u + ps=0.45u m4 3 13 2 VSS nm_hp l=0.119677u w=0.647426u ad=0.1221p as=0.298675p pd=0.39u + ps=1.575u m5 4 14 3 VSS nm_hp l=0.119677u w=0.647426u ad=0.118987p as=0.1221p pd=0.375u + ps=0.39u m6 5 15 4 VSS nm_hp l=0.119677u w=0.647426u ad=0.341486p as=0.118987p + pd=1.54531u ps=0.375u m7 6 16 5 VSS nm_hp l=0.120619u w=0.670208u ad=0.223637p as=0.353502p pd=1.33u + ps=1.59969u * resistors: r8 46 2 40 $[mnc] r9 VSS 5 40 $[mnc] r10 VSS 5 40 $[mnc] r11 Z 6 40 $[mnc] r12 46 8 40 $[mpc] r13 VDD 9 40 $[mpc] r14 VDD 9 40 $[mpc] r15 46 10 40 $[mpc] r16 VDD 11 40 $[mpc] r17 VDD 11 40 $[mpc] r18 Z 12 40 $[mpc] r19 A 13 14 $[mpolyc] r20 B 14 14 $[mpolyc] r21 C 15 14 $[mpolyc] r22 46 16 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.636591f cp2 2 VSS 0.0290607f cp3 5 VSS 0.0721881f cp4 6 VSS 0.0391547f cp5 8 VSS 0.0322457f cp6 9 VSS 0.0807842f cp7 10 VSS 0.0387073f cp8 11 VSS 0.085382f cp9 12 VSS 0.0314358f cp10 13 VSS 0.371906f cp11 14 VSS 0.467658f cp12 15 VSS 0.415995f cp13 16 VSS 0.36607f cp14 46 VSS 0.53657f cp15 A VSS 0.12523f cp16 B VSS 0.13926f cp17 C VSS 0.10389f cp18 Z VSS 0.256418f .ENDS ** and3m1p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and3m1p.iclib2,v 9.0.1.6 2002/07/18 14:39:06 rchiang Exp $ .SUBCKT AND3M1P Z A B C VDD VSS * devices: m0 9 13 8 VDD pm_hp l=0.117238u w=1.30521u ad=0.242981p as=0.417312p + pd=0.348342u ps=1.965u m1 10 14 9 VDD pm_hp l=0.11751u w=1.31763u ad=0.221833p as=0.245294p + pd=0.351658u ps=0.351658u m2 11 15 10 VDD pm_hp l=0.117238u w=1.30521u ad=0.287866p as=0.219741p + pd=0.534848u ps=0.348342u m3 12 16 11 VDD pm_hp l=0.116666u w=1.74521u ad=0.551512p as=0.384909p pd=2.405u + ps=0.715151u m4 3 13 2 VSS nm_hp l=0.118449u w=0.850355u ad=0.129287p as=0.314662p pd=0.305u + ps=1.595u m5 4 14 3 VSS nm_hp l=0.118449u w=0.850355u ad=0.104087p as=0.129287p pd=0.245u + ps=0.305u m6 5 15 4 VSS nm_hp l=0.118449u w=0.850355u ad=0.301834p as=0.104087p + pd=0.961919u ps=0.245u m7 6 16 5 VSS nm_hp l=0.118166u w=1.16521u ad=0.374612p as=0.413591p pd=1.825u + ps=1.31808u * resistors: r8 45 2 40 $[mnc] r9 VSS 5 40 $[mnc] r10 VSS 5 40 $[mnc] r11 Z 6 40 $[mnc] r12 45 8 40 $[mpc] r13 VDD 9 40 $[mpc] r14 VDD 9 40 $[mpc] r15 45 10 40 $[mpc] r16 VDD 11 40 $[mpc] r17 VDD 11 40 $[mpc] r18 Z 12 40 $[mpc] r19 A 13 14 $[mpolyc] r20 B 14 14 $[mpolyc] r21 C 15 14 $[mpolyc] r22 45 16 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.51545f cp2 2 VSS 0.0287003f cp3 3 VSS 0.0204619f cp4 4 VSS 0.0144722f cp5 5 VSS 0.0838524f cp6 6 VSS 0.0265267f cp7 8 VSS 0.0340576f cp8 9 VSS 0.0785224f cp9 10 VSS 0.0331284f cp10 11 VSS 0.0841101f cp11 12 VSS 0.0249463f cp12 13 VSS 0.421279f cp13 14 VSS 0.589448f cp14 15 VSS 0.547472f cp15 16 VSS 0.407897f cp16 A VSS 0.124394f cp17 45 VSS 0.686422f cp18 B VSS 0.123534f cp19 C VSS 0.144458f cp20 Z VSS 0.210486f .ENDS ** and3m2p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and3m2p.iclib2,v 9.0.1.5 2002/06/20 18:48:37 kensz Exp $ .SUBCKT AND3M2P Z A B C VDD VSS * devices: m0 10 15 9 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.632262p pd=0.38u + ps=2.405u m1 11 15 10 VDD pm_hp l=0.116666u w=1.74521u ad=0.362937p as=0.282187p pd=0.38u + ps=0.38u m2 12 16 11 VDD pm_hp l=0.116666u w=1.74521u ad=0.406162p as=0.362937p pd=0.525u + ps=0.38u m3 13 17 12 VDD pm_hp l=0.116666u w=1.74521u ad=0.486912p as=0.406162p pd=0.525u + ps=0.525u m4 14 18 13 VDD pm_hp l=0.116666u w=1.74521u ad=0.551512p as=0.486912p pd=2.405u + ps=0.525u m5 3 15 2 VSS nm_hp l=0.118166u w=1.16521u ad=0.196637p as=0.406062p pd=0.38u + ps=1.825u m6 4 15 3 VSS nm_hp l=0.118166u w=1.16521u ad=0.329962p as=0.196637p pd=0.905u + ps=0.38u m7 5 16 4 VSS nm_hp l=0.118166u w=1.16521u ad=0.246987p as=0.329962p pd=0.43u + ps=0.905u m8 6 17 5 VSS nm_hp l=0.118166u w=1.16521u ad=0.165062p as=0.246987p pd=0.285u + ps=0.43u m9 7 18 6 VSS nm_hp l=0.118166u w=1.16521u ad=0.674062p as=0.165062p pd=2.355u + ps=0.285u * resistors: r10 VSS 2 40 $[mnc] r11 VSS 2 40 $[mnc] r12 Z 3 40 $[mnc] r13 VSS 4 40 $[mnc] r14 VSS 4 40 $[mnc] r15 55 7 40 $[mnc] r16 VDD 9 40 $[mpc] r17 VDD 9 40 $[mpc] r18 Z 10 40 $[mpc] r19 VDD 11 40 $[mpc] r20 VDD 11 40 $[mpc] r21 55 12 40 $[mpc] r22 VDD 13 40 $[mpc] r23 VDD 13 40 $[mpc] r24 55 14 40 $[mpc] r25 55 15 14 $[mpolyc] r26 C 16 14 $[mpolyc] r27 B 17 14 $[mpolyc] r28 A 18 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.683924f cp2 2 VSS 0.0742825f cp3 3 VSS 0.0378567f cp4 4 VSS 0.0484689f cp5 7 VSS 0.0370081f cp6 9 VSS 0.0669337f cp7 10 VSS 0.0286857f cp8 11 VSS 0.075655f cp9 12 VSS 0.0430763f cp10 13 VSS 0.0930873f cp11 14 VSS 0.040152f cp12 15 VSS 0.649459f cp13 16 VSS 0.557927f cp14 17 VSS 0.575231f cp15 18 VSS 0.460976f cp16 Z VSS 0.228263f cp17 55 VSS 0.519969f cp18 C VSS 0.107776f cp19 B VSS 0.13741f cp20 A VSS 0.116509f .ENDS ** and3m4p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and3m4p.iclib2,v 9.0.1.5 2002/06/25 06:53:39 tvarga Exp $ .SUBCKT AND3M4P Z A B C VDD VSS * devices: m0 12 19 11 VDD pm_hp l=0.11669u w=1.72021u ad=0.2785p as=0.622512p pd=0.38u + ps=2.38u m1 13 19 12 VDD pm_hp l=0.11669u w=1.72021u ad=0.357125p as=0.2785p pd=0.38u + ps=0.38u m2 14 19 13 VDD pm_hp l=0.11669u w=1.72021u ad=0.2785p as=0.357125p pd=0.38u + ps=0.38u m3 15 19 14 VDD pm_hp l=0.11669u w=1.72021u ad=0.357125p as=0.2785p pd=0.38u + ps=0.38u m4 16 20 15 VDD pm_hp l=0.11669u w=1.72021u ad=0.3796p as=0.357125p pd=0.5u + ps=0.38u m5 17 21 16 VDD pm_hp l=0.11669u w=1.72021u ad=0.357125p as=0.3796p pd=0.38u + ps=0.5u m6 18 22 17 VDD pm_hp l=0.11669u w=1.72021u ad=0.543887p as=0.357125p pd=2.38u + ps=0.38u m7 3 19 2 VSS nm_hp l=0.118201u w=1.13314u ad=0.19025p as=0.3966p pd=0.375u + ps=1.8u m8 4 19 3 VSS nm_hp l=0.118201u w=1.13314u ad=0.21785p as=0.19025p pd=0.375u + ps=0.375u m9 5 19 4 VSS nm_hp l=0.118201u w=1.13314u ad=0.191057p as=0.21785p pd=0.377155u + ps=0.375u m10 6 19 5 VSS nm_hp l=0.118252u w=1.13521u ad=0.329839p as=0.191406p + pd=0.954602u ps=0.377844u m11 7 20 6 VSS nm_hp l=0.118267u w=1.13021u ad=0.203875p as=0.328386p pd=0.365u + ps=0.950397u m12 8 21 7 VSS nm_hp l=0.118267u w=1.13021u ad=0.190187p as=0.203875p pd=0.34u + ps=0.365u m13 9 22 8 VSS nm_hp l=0.118267u w=1.13021u ad=0.489862p as=0.190187p pd=2.02u + ps=0.34u * resistors: r14 VSS 2 40 $[mnc] r15 Z 3 40 $[mnc] r16 VSS 4 40 $[mnc] r17 VSS 4 40 $[mnc] r18 Z 5 40 $[mnc] r19 VSS 6 40 $[mnc] r20 VSS 6 40 $[mnc] r21 68 9 40 $[mnc] r22 VDD 11 40 $[mpc] r23 VDD 11 40 $[mpc] r24 Z 12 40 $[mpc] r25 VDD 13 40 $[mpc] r26 VDD 13 40 $[mpc] r27 Z 14 40 $[mpc] r28 VDD 15 40 $[mpc] r29 VDD 15 40 $[mpc] r30 68 16 40 $[mpc] r31 VDD 17 40 $[mpc] r32 VDD 17 40 $[mpc] r33 68 18 40 $[mpc] r34 68 19 14 $[mpolyc] r35 C 20 14 $[mpolyc] r36 B 21 14 $[mpolyc] r37 A 22 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.860845f cp2 2 VSS 0.0647564f cp3 3 VSS 0.033657f cp4 4 VSS 0.0595684f cp5 5 VSS 0.0313281f cp6 6 VSS 0.0485204f cp7 9 VSS 0.0368949f cp8 11 VSS 0.0669228f cp9 12 VSS 0.0348794f cp10 13 VSS 0.0546883f cp11 14 VSS 0.0283784f cp12 15 VSS 0.0754251f cp13 16 VSS 0.0382087f cp14 17 VSS 0.0836821f cp15 18 VSS 0.0400116f cp16 19 VSS 1.03962f cp17 20 VSS 0.579237f cp18 21 VSS 0.58947f cp19 22 VSS 0.456138f cp20 Z VSS 0.47425f cp21 68 VSS 0.51157f cp22 C VSS 0.122544f cp23 B VSS 0.144857f cp24 A VSS 0.116581f .ENDS ** and3m8p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and3m8p.iclib2,v 9.0.1.4 2002/06/20 18:52:35 kensz Exp $ .SUBCKT AND3M8P Z A B C VDD VSS * devices: m0 19 33 18 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.632262p pd=0.38u + ps=2.405u m1 20 33 19 VDD pm_hp l=0.116666u w=1.74521u ad=0.350112p as=0.282187p pd=0.365u + ps=0.38u m2 21 33 20 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.350112p pd=0.38u + ps=0.365u m3 22 33 21 VDD pm_hp l=0.116666u w=1.74521u ad=0.350112p as=0.282187p pd=0.365u + ps=0.38u m4 23 33 22 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.350112p pd=0.38u + ps=0.365u m5 24 33 23 VDD pm_hp l=0.116666u w=1.74521u ad=0.332687p as=0.282187p pd=0.365u + ps=0.38u m6 25 34 24 VDD pm_hp l=0.116666u w=1.74521u ad=0.315218p as=0.332687p + pd=0.377724u ps=0.365u m7 26 35 25 VDD pm_hp l=0.116631u w=1.74314u ad=0.325763p as=0.314844p + pd=0.377276u ps=0.377276u m8 27 36 26 VDD pm_hp l=0.116666u w=1.74521u ad=0.317037p as=0.32615p pd=0.38u + ps=0.377724u m9 28 36 27 VDD pm_hp l=0.116666u w=1.74521u ad=0.328087p as=0.317037p pd=0.38u + ps=0.38u m10 29 37 28 VDD pm_hp l=0.116666u w=1.74521u ad=0.317037p as=0.328087p pd=0.38u + ps=0.38u m11 30 38 29 VDD pm_hp l=0.116666u w=1.74521u ad=0.332687p as=0.317037p + pd=0.365u ps=0.38u m12 31 39 30 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.332687p pd=0.38u + ps=0.365u m13 32 39 31 VDD pm_hp l=0.116666u w=1.74521u ad=0.632262p as=0.282187p + pd=2.405u ps=0.38u m14 3 33 2 VSS nm_hp l=0.11818u w=1.16021u ad=0.1959p as=0.404112p pd=0.38u + ps=1.82u m15 4 33 3 VSS nm_hp l=0.11818u w=1.16021u ad=0.226925p as=0.1959p pd=0.38u + ps=0.38u m16 5 33 4 VSS nm_hp l=0.11818u w=1.16021u ad=0.1959p as=0.226925p pd=0.38u + ps=0.38u m17 6 33 5 VSS nm_hp l=0.11818u w=1.16021u ad=0.226925p as=0.1959p pd=0.38u + ps=0.38u m18 7 33 6 VSS nm_hp l=0.11818u w=1.16021u ad=0.1959p as=0.226925p pd=0.38u + ps=0.38u m19 8 33 7 VSS nm_hp l=0.11818u w=1.16021u ad=0.323862p as=0.1959p pd=0.84u + ps=0.38u m20 9 34 8 VSS nm_hp l=0.11818u w=1.16021u ad=0.167162p as=0.323862p pd=0.29u + ps=0.84u m21 10 35 9 VSS nm_hp l=0.11818u w=1.16021u ad=0.1756p as=0.167162p pd=0.305u + ps=0.29u m22 11 36 10 VSS nm_hp l=0.11818u w=1.16021u ad=0.1959p as=0.1756p pd=0.38u + ps=0.305u m23 12 36 11 VSS nm_hp l=0.11818u w=1.16021u ad=0.2206p as=0.1959p pd=0.385u + ps=0.38u m24 13 37 12 VSS nm_hp l=0.11818u w=1.16021u ad=0.14185p as=0.2206p pd=0.245u + ps=0.385u m25 14 38 13 VSS nm_hp l=0.11818u w=1.16021u ad=0.357612p as=0.14185p pd=0.9u + ps=0.245u m26 15 39 14 VSS nm_hp l=0.11818u w=1.16021u ad=0.1959p as=0.357612p pd=0.38u + ps=0.9u m27 16 39 15 VSS nm_hp l=0.11818u w=1.16021u ad=0.404112p as=0.1959p pd=1.82u + ps=0.38u * resistors: r28 VSS 2 40 $[mnc] r29 VSS 2 40 $[mnc] r30 Z 3 40 $[mnc] r31 VSS 4 40 $[mnc] r32 VSS 4 40 $[mnc] r33 Z 5 40 $[mnc] r34 VSS 6 40 $[mnc] r35 VSS 6 40 $[mnc] r36 Z 7 40 $[mnc] r37 VSS 8 40 $[mnc] r38 VSS 8 40 $[mnc] r39 124 11 40 $[mnc] r40 VSS 14 40 $[mnc] r41 VSS 14 40 $[mnc] r42 Z 15 40 $[mnc] r43 VSS 16 40 $[mnc] r44 VSS 16 40 $[mnc] r45 VDD 18 40 $[mpc] r46 VDD 18 40 $[mpc] r47 Z 19 40 $[mpc] r48 VDD 20 40 $[mpc] r49 VDD 20 40 $[mpc] r50 Z 21 40 $[mpc] r51 VDD 22 40 $[mpc] r52 VDD 22 40 $[mpc] r53 Z 23 40 $[mpc] r54 VDD 24 40 $[mpc] r55 VDD 24 40 $[mpc] r56 124 25 40 $[mpc] r57 VDD 26 40 $[mpc] r58 VDD 26 40 $[mpc] r59 124 27 40 $[mpc] r60 VDD 28 40 $[mpc] r61 VDD 28 40 $[mpc] r62 124 29 40 $[mpc] r63 VDD 30 40 $[mpc] r64 VDD 30 40 $[mpc] r65 Z 31 40 $[mpc] r66 VDD 32 40 $[mpc] r67 VDD 32 40 $[mpc] r68 124 33 14 $[mpolyc] r69 C 34 14 $[mpolyc] r70 B 35 14 $[mpolyc] r71 A 36 14 $[mpolyc] r72 B 37 14 $[mpolyc] r73 C 38 14 $[mpolyc] r74 124 39 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 1.56329f cp2 2 VSS 0.066909f cp3 3 VSS 0.0329567f cp4 4 VSS 0.053738f cp5 5 VSS 0.0311139f cp6 6 VSS 0.0589038f cp7 7 VSS 0.0343163f cp8 8 VSS 0.0845744f cp9 9 VSS 0.0313892f cp10 10 VSS 0.0295062f cp11 11 VSS 0.0355657f cp12 12 VSS 0.0272432f cp13 13 VSS 0.0374993f cp14 14 VSS 0.0743539f cp15 15 VSS 0.040173f cp16 16 VSS 0.0772047f cp17 18 VSS 0.0669662f cp18 19 VSS 0.0343023f cp19 20 VSS 0.0537532f cp20 21 VSS 0.0292001f cp21 22 VSS 0.0537718f cp22 23 VSS 0.02742f cp23 24 VSS 0.0961625f cp24 25 VSS 0.0541043f cp25 26 VSS 0.0806768f cp26 27 VSS 0.0474487f cp27 28 VSS 0.0809222f cp28 29 VSS 0.0503317f cp29 30 VSS 0.0980707f cp30 31 VSS 0.031499f cp31 32 VSS 0.0712853f cp32 33 VSS 1.5824f cp33 34 VSS 0.702386f cp34 35 VSS 0.71486f cp35 36 VSS 0.956247f cp36 37 VSS 0.736203f cp37 38 VSS 0.695164f cp38 39 VSS 0.722612f cp39 Z VSS 1.54225f cp40 124 VSS 1.26666f cp41 C VSS 0.572138f cp42 B VSS 0.269761f cp43 A VSS 0.135527f .ENDS ** and4m05p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and4m05p.iclib2,v 9.0.1.6 2002/07/18 14:39:13 rchiang Exp $ .SUBCKT AND4M05P Z A B C D VDD VSS * devices: m0 10 15 9 VDD pm_hp l=0.117328u w=1.09278u ad=0.200462p as=0.395712p pd=0.395u + ps=1.795u m1 11 16 10 VDD pm_hp l=0.117328u w=1.09278u ad=0.219162p as=0.200462p pd=0.395u + ps=0.395u m2 12 17 11 VDD pm_hp l=0.117328u w=1.09278u ad=0.200462p as=0.219162p pd=0.395u + ps=0.395u m3 13 18 12 VDD pm_hp l=0.117328u w=1.09278u ad=0.244587p as=0.200462p + pd=0.48183u ps=0.395u m4 14 19 13 VDD pm_hp l=0.117479u w=1.02778u ad=0.420562p as=0.230038p pd=1.86u + ps=0.45317u m5 3 15 2 VSS nm_hp l=0.119204u w=0.717426u ad=0.112125p as=0.330525p pd=0.32u + ps=1.645u m6 4 16 3 VSS nm_hp l=0.119204u w=0.717426u ad=0.113737p as=0.112125p pd=0.325u + ps=0.32u m7 5 17 4 VSS nm_hp l=0.119204u w=0.717426u ad=0.0958125p as=0.113737p pd=0.275u + ps=0.325u m8 6 18 5 VSS nm_hp l=0.119204u w=0.717426u ad=0.367823p as=0.0958125p + pd=1.58982u ps=0.275u m9 7 19 6 VSS nm_hp l=0.120619u w=0.670208u ad=0.223637p as=0.343614p pd=1.33u + ps=1.48518u * resistors: r10 53 2 40 $[mnc] r11 VSS 6 40 $[mnc] r12 VSS 6 40 $[mnc] r13 Z 7 40 $[mnc] r14 VDD 9 40 $[mpc] r15 53 10 40 $[mpc] r16 VDD 11 40 $[mpc] r17 VDD 11 40 $[mpc] r18 53 12 40 $[mpc] r19 VDD 13 40 $[mpc] r20 VDD 13 40 $[mpc] r21 Z 14 40 $[mpc] r22 A 15 14 $[mpolyc] r23 B 16 14 $[mpolyc] r24 C 17 14 $[mpolyc] r25 D 18 14 $[mpolyc] r26 53 19 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.755985f cp2 2 VSS 0.0370352f cp3 4 VSS 0.00742427f cp4 5 VSS 0.00382252f cp5 6 VSS 0.0534347f cp6 7 VSS 0.0397901f cp7 9 VSS 0.0872681f cp8 10 VSS 0.0304373f cp9 11 VSS 0.0684828f cp10 12 VSS 0.0314364f cp11 13 VSS 0.0816418f cp12 14 VSS 0.0317797f cp13 15 VSS 0.372691f cp14 16 VSS 0.498733f cp15 17 VSS 0.531127f cp16 18 VSS 0.519558f cp17 19 VSS 0.423686f cp18 53 VSS 0.689956f cp19 A VSS 0.129825f cp20 B VSS 0.129243f cp21 C VSS 0.0974697f cp22 D VSS 0.122331f cp23 Z VSS 0.241547f .ENDS ** and4m1p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and4m1p.iclib2,v 9.0.1.4 2002/06/20 18:49:38 kensz Exp $ .SUBCKT AND4M1P Z A B C D VDD VSS * devices: m0 10 15 9 VDD pm_hp l=0.117032u w=1.43521u ad=0.236462p as=0.511362p pd=0.38u + ps=2.095u m1 11 16 10 VDD pm_hp l=0.117032u w=1.43521u ad=0.290862p as=0.236462p pd=0.38u + ps=0.38u m2 12 17 11 VDD pm_hp l=0.117032u w=1.43521u ad=0.281962p as=0.290862p pd=0.445u + ps=0.38u m3 13 18 12 VDD pm_hp l=0.117032u w=1.43521u ad=0.332148p as=0.281962p + pd=0.502483u ps=0.445u m4 14 19 13 VDD pm_hp l=0.116675u w=1.73521u ad=0.658962p as=0.401577p pd=2.525u + ps=0.607517u m5 3 15 2 VSS nm_hp l=0.118972u w=0.935208u ad=0.14375p as=0.380962p pd=0.31u + ps=1.765u m6 4 16 3 VSS nm_hp l=0.118972u w=0.935208u ad=0.137162p as=0.14375p pd=0.31u + ps=0.31u m7 5 17 4 VSS nm_hp l=0.118972u w=0.935208u ad=0.129937p as=0.137162p pd=0.31u + ps=0.31u m8 6 18 5 VSS nm_hp l=0.118972u w=0.935208u ad=0.353809p as=0.129937p + pd=1.05134u ps=0.31u m9 7 19 6 VSS nm_hp l=0.118194u w=1.15521u ad=0.371562p as=0.43704p pd=1.815u + ps=1.29866u * resistors: r10 54 2 40 $[mnc] r11 VSS 6 40 $[mnc] r12 VSS 6 40 $[mnc] r13 Z 7 40 $[mnc] r14 VDD 9 40 $[mpc] r15 VDD 9 40 $[mpc] r16 54 10 40 $[mpc] r17 VDD 11 40 $[mpc] r18 VDD 11 40 $[mpc] r19 54 12 40 $[mpc] r20 VDD 13 40 $[mpc] r21 VDD 13 40 $[mpc] r22 Z 14 40 $[mpc] r23 A 15 14 $[mpolyc] r24 B 16 14 $[mpolyc] r25 C 17 14 $[mpolyc] r26 D 18 14 $[mpolyc] r27 54 19 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.668808f cp2 2 VSS 0.0288445f cp3 4 VSS 0.00425421f cp4 5 VSS 0.00736845f cp5 6 VSS 0.0535487f cp6 7 VSS 0.0418897f cp7 9 VSS 0.0836126f cp8 10 VSS 0.0309527f cp9 11 VSS 0.0761958f cp10 12 VSS 0.037819f cp11 13 VSS 0.0868835f cp12 14 VSS 0.031722f cp13 15 VSS 0.420047f cp14 16 VSS 0.577185f cp15 17 VSS 0.564959f cp16 18 VSS 0.533858f cp17 19 VSS 0.469582f cp18 54 VSS 0.656012f cp19 A VSS 0.125542f cp20 B VSS 0.131007f cp21 C VSS 0.0967615f cp22 D VSS 0.128138f cp23 Z VSS 0.229475f .ENDS ** and4m2p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and4m2p.iclib2,v 9.0.1.4 2002/06/20 19:29:06 kensz Exp $ .SUBCKT AND4M2P Z A B C D VDD VSS * devices: m0 11 17 10 VDD pm_hp l=0.116656u w=1.75521u ad=0.283662p as=0.636162p pd=0.38u + ps=2.415u m1 12 17 11 VDD pm_hp l=0.116656u w=1.75521u ad=0.364837p as=0.283662p pd=0.38u + ps=0.38u m2 13 18 12 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.364837p pd=0.38u + ps=0.38u m3 14 19 13 VDD pm_hp l=0.116656u w=1.75521u ad=0.364412p as=0.284512p pd=0.38u + ps=0.38u m4 15 20 14 VDD pm_hp l=0.116656u w=1.75521u ad=0.460812p as=0.364412p pd=0.585u + ps=0.38u m5 16 21 15 VDD pm_hp l=0.116656u w=1.75521u ad=0.635312p as=0.460812p pd=2.415u + ps=0.585u m6 3 17 2 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.408012p pd=0.38u + ps=1.83u m7 4 17 3 VSS nm_hp l=0.118152u w=1.17021u ad=0.326575p as=0.197375p pd=0.915u + ps=0.38u m8 5 18 4 VSS nm_hp l=0.118152u w=1.17021u ad=0.2282p as=0.326575p pd=0.395u + ps=0.915u m9 6 19 5 VSS nm_hp l=0.118152u w=1.17021u ad=0.191312p as=0.2282p pd=0.33u + ps=0.395u m10 7 20 6 VSS nm_hp l=0.118152u w=1.17021u ad=0.316162p as=0.191312p pd=0.55u + ps=0.33u m11 8 21 7 VSS nm_hp l=0.118152u w=1.17021u ad=0.376137p as=0.316162p pd=1.83u + ps=0.55u * resistors: r12 VSS 2 40 $[mnc] r13 VSS 2 40 $[mnc] r14 Z 3 40 $[mnc] r15 VSS 4 40 $[mnc] r16 VSS 4 40 $[mnc] r17 63 8 40 $[mnc] r18 VDD 10 40 $[mpc] r19 VDD 10 40 $[mpc] r20 Z 11 40 $[mpc] r21 VDD 12 40 $[mpc] r22 VDD 12 40 $[mpc] r23 63 13 40 $[mpc] r24 VDD 14 40 $[mpc] r25 VDD 14 40 $[mpc] r26 63 15 40 $[mpc] r27 VDD 16 40 $[mpc] r28 VDD 16 40 $[mpc] r29 63 17 14 $[mpolyc] r30 D 18 14 $[mpolyc] r31 C 19 14 $[mpolyc] r32 B 20 14 $[mpolyc] r33 A 21 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.805408f cp2 2 VSS 0.0744319f cp3 3 VSS 0.0381096f cp4 4 VSS 0.0484689f cp5 8 VSS 0.0295542f cp6 10 VSS 0.0668804f cp7 11 VSS 0.031473f cp8 12 VSS 0.0539689f cp9 13 VSS 0.0374769f cp10 14 VSS 0.0712234f cp11 15 VSS 0.0449856f cp12 16 VSS 0.0934304f cp13 17 VSS 0.634257f cp14 18 VSS 0.612393f cp15 19 VSS 0.611031f cp16 20 VSS 0.561056f cp17 21 VSS 0.380966f cp18 Z VSS 0.218002f cp19 63 VSS 0.610683f cp20 D VSS 0.123016f cp21 C VSS 0.139425f cp22 B VSS 0.108584f cp23 A VSS 0.129863f .ENDS ** and4m4p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and4m4p.iclib2,v 9.0.1.5 2002/06/20 18:50:40 kensz Exp $ .SUBCKT AND4M4P Z A B C D VDD VSS * devices: m0 13 21 12 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.635312p pd=0.38u + ps=2.415u m1 14 21 13 VDD pm_hp l=0.116656u w=1.75521u ad=0.364412p as=0.284512p pd=0.38u + ps=0.38u m2 15 21 14 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.364412p pd=0.38u + ps=0.38u m3 16 21 15 VDD pm_hp l=0.116656u w=1.75521u ad=0.364412p as=0.284512p pd=0.38u + ps=0.38u m4 17 22 16 VDD pm_hp l=0.116656u w=1.75521u ad=0.284512p as=0.364412p pd=0.38u + ps=0.38u m5 18 23 17 VDD pm_hp l=0.116656u w=1.75521u ad=0.364412p as=0.284512p pd=0.38u + ps=0.38u m6 19 24 18 VDD pm_hp l=0.116656u w=1.75521u ad=0.314612p as=0.364412p pd=0.415u + ps=0.38u m7 20 25 19 VDD pm_hp l=0.116656u w=1.75521u ad=0.635312p as=0.314612p pd=2.415u + ps=0.415u m8 3 21 2 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.408012p pd=0.38u + ps=1.83u m9 4 21 3 VSS nm_hp l=0.118152u w=1.17021u ad=0.22925p as=0.197375p pd=0.38u + ps=0.38u m10 5 21 4 VSS nm_hp l=0.118152u w=1.17021u ad=0.197375p as=0.22925p pd=0.38u + ps=0.38u m11 6 21 5 VSS nm_hp l=0.118152u w=1.17021u ad=0.322087p as=0.197375p pd=0.9u + ps=0.38u m12 7 22 6 VSS nm_hp l=0.118152u w=1.17021u ad=0.1374p as=0.322087p pd=0.235u + ps=0.9u m13 8 23 7 VSS nm_hp l=0.118152u w=1.17021u ad=0.28495p as=0.1374p pd=0.495u + ps=0.235u m14 9 24 8 VSS nm_hp l=0.118152u w=1.17021u ad=0.219687p as=0.28495p pd=0.38u + ps=0.495u m15 10 25 9 VSS nm_hp l=0.118152u w=1.17021u ad=0.376137p as=0.219687p pd=1.83u + ps=0.38u * resistors: r16 VSS 2 40 $[mnc] r17 VSS 2 40 $[mnc] r18 Z 3 40 $[mnc] r19 VSS 4 40 $[mnc] r20 VSS 4 40 $[mnc] r21 Z 5 40 $[mnc] r22 VSS 6 40 $[mnc] r23 VSS 6 40 $[mnc] r24 77 10 40 $[mnc] r25 VDD 12 40 $[mpc] r26 VDD 12 40 $[mpc] r27 Z 13 40 $[mpc] r28 VDD 14 40 $[mpc] r29 VDD 14 40 $[mpc] r30 Z 15 40 $[mpc] r31 VDD 16 40 $[mpc] r32 VDD 16 40 $[mpc] r33 77 17 40 $[mpc] r34 VDD 18 40 $[mpc] r35 VDD 18 40 $[mpc] r36 77 19 40 $[mpc] r37 VDD 20 40 $[mpc] r38 VDD 20 40 $[mpc] r39 77 21 14 $[mpolyc] r40 D 22 14 $[mpolyc] r41 C 23 14 $[mpolyc] r42 B 24 14 $[mpolyc] r43 A 25 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 0.976713f cp2 2 VSS 0.0669337f cp3 3 VSS 0.0399503f cp4 4 VSS 0.0728176f cp5 5 VSS 0.0326792f cp6 6 VSS 0.0483475f cp7 10 VSS 0.0296893f cp8 12 VSS 0.0669337f cp9 13 VSS 0.0426534f cp10 14 VSS 0.0697763f cp11 15 VSS 0.0259259f cp12 16 VSS 0.0741454f cp13 17 VSS 0.0296032f cp14 18 VSS 0.0731667f cp15 19 VSS 0.0321976f cp16 20 VSS 0.0917249f cp17 21 VSS 1.04403f cp18 22 VSS 0.671622f cp19 23 VSS 0.660961f cp20 24 VSS 0.596943f cp21 25 VSS 0.452201f cp22 Z VSS 0.481297f cp23 77 VSS 0.70876f cp24 D VSS 0.103867f cp25 C VSS 0.129789f cp26 B VSS 0.102416f cp27 A VSS 0.133726f .ENDS ** and4m8p.lpe extracted by xCalibre v9.1_1.1 ** ** Version: $LSILogic: and4m8p.iclib2,v 9.0.1.4 2002/06/20 18:50:20 kensz Exp $ .SUBCKT AND4M8P Z A B C D VDD VSS * devices: m0 22 39 21 VDD pm_hp l=0.116481u w=1.96021u ad=0.39465p as=0.654612p pd=0.38u + ps=2.64u m1 23 39 22 VDD pm_hp l=0.116481u w=1.96021u ad=0.332175p as=0.39465p pd=0.38u + ps=0.38u m2 24 40 23 VDD pm_hp l=0.116481u w=1.96021u ad=0.39465p as=0.332175p pd=0.38u + ps=0.38u m3 25 40 24 VDD pm_hp l=0.116481u w=1.96021u ad=0.635362p as=0.39465p pd=2.62u + ps=0.38u m4 27 41 26 VDD pm_hp l=0.116666u w=1.74521u ad=0.585712p as=0.632262p pd=0.735u + ps=2.405u m5 28 42 27 VDD pm_hp l=0.116666u w=1.74521u ad=0.362937p as=0.585712p pd=0.38u + ps=0.735u m6 29 42 28 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.362937p pd=0.38u + ps=0.38u m7 30 43 29 VDD pm_hp l=0.116666u w=1.74521u ad=0.362937p as=0.282187p pd=0.38u + ps=0.38u m8 31 44 30 VDD pm_hp l=0.116666u w=1.74521u ad=0.329212p as=0.362937p pd=0.435u + ps=0.38u m9 32 44 31 VDD pm_hp l=0.116666u w=1.74521u ad=0.362937p as=0.329212p pd=0.38u + ps=0.435u m10 33 44 32 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.362937p pd=0.38u + ps=0.38u m11 34 45 33 VDD pm_hp l=0.116666u w=1.74521u ad=0.362937p as=0.282187p pd=0.38u + ps=0.38u m12 35 45 34 VDD pm_hp l=0.116666u w=1.74521u ad=0.333487p as=0.362937p pd=0.44u + ps=0.38u m13 36 45 35 VDD pm_hp l=0.116666u w=1.74521u ad=0.362937p as=0.333487p pd=0.38u + ps=0.44u m14 37 46 36 VDD pm_hp l=0.116666u w=1.74521u ad=0.282187p as=0.362937p pd=0.38u + ps=0.38u m15 38 46 37 VDD pm_hp l=0.116666u w=1.74521u ad=0.632262p as=0.282187p + pd=2.405u ps=0.38u m16 3 39 2 VSS nm_hp l=0.117796u w=1.31521u ad=0.311262p as=0.573362p pd=0.49u + ps=2.145u m17 4 39 3 VSS nm_hp l=0.117796u w=1.31521u ad=0.241272p as=0.311262p + pd=0.411295u ps=0.49u m18 5 40 4 VSS nm_hp l=0.117616u w=1.30692u ad=0.262162p as=0.239753p pd=0.385u + ps=0.408705u m19 6 40 5 VSS nm_hp l=0.117616u w=1.30692u ad=0.438262p as=0.262162p pd=1.995u + ps=0.385u m20 8 41 7 VSS nm_hp l=0.118209u w=1.15021u ad=0.194061p as=0.604862p + pd=0.376355u ps=2.86u m21 9 42 8 VSS nm_hp l=0.118004u w=1.14192u ad=0.225037p as=0.192664p pd=0.385u + ps=0.373645u m22 10 42 9 VSS nm_hp l=0.118004u w=1.14192u ad=0.264877p as=0.225037p + pd=0.503175u ps=0.385u m23 11 43 10 VSS nm_hp l=0.118209u w=1.15021u ad=0.241325p as=0.266798p pd=0.41u + ps=0.506825u m24 12 44 11 VSS nm_hp l=0.118209u w=1.15021u ad=0.194425p as=0.241325p pd=0.38u + ps=0.41u m25 13 44 12 VSS nm_hp l=0.118209u w=1.15021u ad=0.2246p as=0.194425p pd=0.38u + ps=0.38u m26 14 44 13 VSS nm_hp l=0.118209u w=1.15021u ad=0.194425p as=0.2246p pd=0.38u + ps=0.38u m27 15 45 14 VSS nm_hp l=0.118209u w=1.15021u ad=0.2246p as=0.194425p pd=0.38u + ps=0.38u m28 16 45 15 VSS nm_hp l=0.118209u w=1.15021u ad=0.21115p as=0.2246p pd=0.41u + ps=0.38u m29 17 45 16 VSS nm_hp l=0.118209u w=1.15021u ad=0.2246p as=0.21115p pd=0.38u + ps=0.41u m30 18 46 17 VSS nm_hp l=0.118209u w=1.15021u ad=0.194425p as=0.2246p pd=0.38u + ps=0.38u m31 19 46 18 VSS nm_hp l=0.118209u w=1.15021u ad=0.400212p as=0.194425p pd=1.81u + ps=0.38u * resistors: r32 152 2 40 $[mnc] r33 151 3 40 $[mnc] r34 152 4 40 $[mnc] r35 154 5 40 $[mnc] r36 152 6 40 $[mnc] r37 VSS 7 40 $[mnc] r38 VSS 7 40 $[mnc] r39 157 8 40 $[mnc] r40 154 9 40 $[mnc] r41 157 10 40 $[mnc] r42 VSS 11 40 $[mnc] r43 VSS 11 40 $[mnc] r44 Z 12 40 $[mnc] r45 VSS 13 40 $[mnc] r46 VSS 13 40 $[mnc] r47 Z 14 40 $[mnc] r48 VSS 15 40 $[mnc] r49 VSS 15 40 $[mnc] r50 Z 16 40 $[mnc] r51 VSS 17 40 $[mnc] r52 VSS 17 40 $[mnc] r53 Z 18 40 $[mnc] r54 VSS 19 40 $[mnc] r55 151 21 40 $[mpc] r56 VDD 22 40 $[mpc] r57 VDD 22 40 $[mpc] r58 151 23 40 $[mpc] r59 VDD 24 40 $[mpc] r60 VDD 24 40 $[mpc] r61 151 25 40 $[mpc] r62 VDD 26 40 $[mpc] r63 VDD 26 40 $[mpc] r64 151 27 40 $[mpc] r65 VDD 28 40 $[mpc] r66 VDD 28 40 $[mpc] r67 151 29 40 $[mpc] r68 VDD 30 40 $[mpc] r69 VDD 30 40 $[mpc] r70 Z 31 40 $[mpc] r71 VDD 32 40 $[mpc] r72 VDD 32 40 $[mpc] r73 Z 33 40 $[mpc] r74 VDD 34 40 $[mpc] r75 VDD 34 40 $[mpc] r76 Z 35 40 $[mpc] r77 VDD 36 40 $[mpc] r78 VDD 36 40 $[mpc] r79 Z 37 40 $[mpc] r80 VDD 38 40 $[mpc] r81 VDD 38 40 $[mpc] r82 A 39 14 $[mpolyc] r83 B 40 14 $[mpolyc] r84 D 41 14 $[mpolyc] r85 C 42 14 $[mpolyc] r86 D 43 14 $[mpolyc] r87 151 44 14 $[mpolyc] r88 151 45 14 $[mpolyc] r89 151 46 14 $[mpolyc] * lumped capacitances: cp1 VDD VSS 1.88539f cp2 2 VSS 0.0733921f cp3 3 VSS 0.0517399f cp4 4 VSS 0.0595972f cp5 5 VSS 0.0403998f cp6 6 VSS 0.0411972f cp7 7 VSS 0.0727517f cp8 8 VSS 0.0360192f cp9 9 VSS 0.0387512f cp10 10 VSS 0.0267839f cp11 11 VSS 0.0602358f cp12 12 VSS 0.0316335f cp13 13 VSS 0.0654892f cp14 14 VSS 0.0334395f cp15 15 VSS 0.0682219f cp16 16 VSS 0.0355611f cp17 17 VSS 0.0650075f cp18 18 VSS 0.036368f cp19 19 VSS 0.0690729f cp20 21 VSS 0.0413738f cp21 22 VSS 0.0846182f cp22 23 VSS 0.0502937f cp23 24 VSS 0.0756185f cp24 25 VSS 0.0362481f cp25 26 VSS 0.0774668f cp26 27 VSS 0.0627529f cp27 28 VSS 0.0728926f cp28 29 VSS 0.034799f cp29 30 VSS 0.0750678f cp30 31 VSS 0.0310642f cp31 32 VSS 0.0710903f cp32 33 VSS 0.0312666f cp33 34 VSS 0.0711433f cp34 35 VSS 0.0351933f cp35 36 VSS 0.0703017f cp36 37 VSS 0.0367407f cp37 38 VSS 0.0712393f cp38 39 VSS 0.714853f cp39 40 VSS 0.715523f cp40 41 VSS 0.470212f cp41 42 VSS 0.769196f cp42 43 VSS 0.580036f cp43 44 VSS 1.04419f cp44 45 VSS 1.06122f cp45 46 VSS 0.703884f cp46 151 VSS 1.43567f cp47 152 VSS 0.454536f cp48 A VSS 0.123952f cp49 154 VSS 0.35775f cp50 B VSS 0.106251f cp51 D VSS 0.379062f cp52 157 VSS 0.224034f cp53 C VSS 0.133522f cp54 Z VSS 1.09684f .ENDS xcircuit-3.9.73/spiceparser/equations.c0000664000175000001440000004105712335667423016677 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* equations.c, equation evaluation and parsing Conrad Ziesler */ #include #include #include #include "debug.h" #include "equations.h" int __debug_eqn__=0; #ifndef STRIP_DEBUGGING #define D(level,a) do { if(__debug_eqn__>(level)) a; } while(0) #else #define D(level,a) #endif #define uchar unsigned char static eqntoken_t *eqntoken_next(eqntoken_t *p); static void debug_eqn(FILE *fp, char *str, eqn_t *eqn) { eqntoken_t *eqt; if(eqn==NULL)return; fprintf(fp," %s=",str); if(eqn->eqn!=NULL) { char s=' '; for(eqt=eqn->eqn;!OP_ISEND(eqt->op);eqt=eqntoken_next(eqt)) { switch(eqt->op) { case OPlitm: s='-'; case OPlit: fprintf(fp,"(%c%s)",s,eqt->z.lit.lit); break; case OPvalm: s='-'; case OPval: fprintf(fp,"(%c%g)",s,eqt->z.val.x); break; case OPlitvm: s='-'; case OPlitv: fprintf(fp,"(%c%p->%g)",s,eqt->z.pval.xp,eqt->z.pval.xp[0]); break; case OPadd: fprintf(fp,"+"); break; case OPsub: fprintf(fp,"-"); break; case OPmul: fprintf(fp,"*"); break; case OPdiv: fprintf(fp,"/"); break; case OPexp: fprintf(fp,"^"); break; case OPopen: fprintf(fp,"{"); break; case OPclose: fprintf(fp,"}"); break; case OPnorm: fprintf(fp,":norm:"); break; /* A norm B == norm_B(A) */ default: break; } } if(eqt->op==OPeol_const) fprintf(fp,"%g",eqt->z.val.x); if(eqt->op==OPeol_valp) fprintf(fp,"%p->%g",eqt->z.pval.xp, (eqt->z.pval.xp==NULL)?0.0:*(eqt->z.pval.xp)); } } static void *eqn_malloc(int size) { void *p=calloc(1,size); return p; } static char *eqn_strdup(char *p) { return strdup(p); } static void eqn_free(void *p) { if(p!=NULL) free(p); } static eqntoken_t *eqntoken_next(eqntoken_t *p) { eqntoken_t *r; switch(p->op) { case OPeolist: case OPeol_const: case OPeol_valp: case OPeol_qty: r=p; break; case OPval: case OPvalm: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenval_t) )) ; break; case OPlit: case OPlitm: case OPlitv: case OPlitvm: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenlit_t) )) ; break; default: r= (void *) (((char *)p)+(sizeof(itemop_t))) ; break; } return r; } #ifdef UNUSED static eqntoken_t *eqntoken_last(eqntoken_t *p) { eqntoken_t *r=p; while(!OP_ISEND(p->op))p=eqntoken_next(p); switch(p->op) { case OPeol_const: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenval_t))) ; break; case OPeol_valp: r= (void *) (((char *)p)+(sizeof(itemop_t)+sizeof(eqntokenpval_t))) ; break; case OPeolist: r= (void *) (((char *)p)+(sizeof(itemop_t))) ; break; case OPeol_qty: assert(0); default: assert(0); } return r; } #endif static inline char t_peek(eqntop_t *top) { if(top->n_unget>0) { return top->unget[top->n_unget-1]; } return top->str[0]; } static inline char t_eat(eqntop_t *top) { char c; c=t_peek(top); if(top->n_unget>0) top->n_unget++; else top->str++; return c; } static inline void t_uneat(eqntop_t *top, char a) { if(top->n_unget>(sizeof(top->unget)-1)) assert(0); else { top->unget[top->n_unget]=a; top->n_unget++; } } static float float_parse(eqntop_t *top) { float v=0.0,sign=1,sig=0,rest=0,digit,place,exp; uchar a; while(isspace(t_peek(top))) t_eat(top); a=t_peek(top); if(a=='-') { sign=-1; t_eat(top); } else if(a=='+') { sign=1; t_eat(top); } if(t_peek(top)=='.') { sig=0; t_eat(top); } else { sig=0; while(isdigit(t_peek(top))) { sig*=10; sig+=(t_eat(top)-'0'); } } if(t_peek(top)=='.') t_eat(top); if(isdigit(t_peek(top))) { place=0.1; while(isdigit(t_peek(top))) { digit=(t_eat(top)-'0'); rest+=(digit*place); place*=0.1; } } v=(sig+rest)*sign; a=t_peek(top); switch(a) { case 'f': t_eat(top); v*=1e-15; break; case 'p': t_eat(top); v*=1e-12; break; case 'n': t_eat(top); v*=1e-9; break; case 'u': t_eat(top); v*=1e-6; break; case 'm': t_eat(top); v*=1e-3; break; case 'x': t_eat(top); v*=1e6; break; case 'e': t_eat(top); exp=0; while(isdigit(t_peek(top))) { exp*=10; exp+=(t_eat(top)-'0'); } v*=pow(10.0,exp); break; } if(isalpha(t_peek(top))) /* eat trailing alphanumerics (ie. 15fF <- F is extra alpha) */ t_eat(top); D(10,fprintf(stdout,"NUM[%e]\n",v)); return v; } static int eqntoken_parse(eqntop_t *top) { eqntoken_t *node; int i,inquote=0; char c; c=t_peek(top); if(top->nodep>=MAXEQNSTACK)return 0; node=top->nodes+top->nodep++; node->z.lit.lit=NULL; switch(c) { case EQN_DELIM: t_eat(top); /* fall through */ case 0: node->op=OPeolist; return 0; case '+': node->op=OPadd; t_eat(top); top->opc++; break; case '-': node->op=OPsub; t_eat(top); top->opc++; break; case '*': node->op=OPmul; t_eat(top); top->opc++; break; case '/': node->op=OPdiv; t_eat(top); top->opc++; break; case '^': node->op=OPexp; t_eat(top); top->opc++; break; case '(': node->op=OPopen; t_eat(top); top->opc++; break; case ')': node->op=OPclose; t_eat(top); top->opc++; break; case '$': node->op=OPnorm ; t_eat(top); top->opc++; break; default: if(isdigit(c)) { node->z.val.x=float_parse(top); node->op=OPval; } else { char *p; p=alloca(strlen(top->str)+sizeof(top->unget)+16); if(c=='{') { inquote++; t_eat(top); c=t_peek(top); } for(i=0;c!=0;c=t_peek(top),i++) { if(!inquote) { if(strchr("\'+-/*^\n\r()",c)!=NULL)break; } if(inquote && (c=='{')) inquote++; if(inquote && (c=='}')) { inquote--; if(inquote==0) { t_eat(top); break; }} p[i]=t_eat(top); p[i+1]=0; } D(10,fprintf(stdout,"LIT[%s]\n",p)); node->z.lit.lit=eqn_strdup(p); node->op=OPlit; } top->litc++; break; } return 1; } /* this code assumes dependencies have already been cached, see eqnlist.c */ static int token_value(eqntoken_t *token, float *v) { int r=0; float a=0.0; switch(token->op) { case OPeol_valp: if(token->z.pval.xp!=NULL) a=*(token->z.pval.xp); else r++; D(3,fprintf(stdout,"loaded pval=(%p->%g)\n",token->z.pval.xp,a)); break; case OPeol_const: a=token->z.val.x; break; case OPlit: a= 0.0; r++; break; case OPlitm: a=-0.0; r++; break; case OPlitv: a= *(token->z.pval.xp); break; case OPlitvm: a=-(*(token->z.pval.xp)); break; case OPval: a= token->z.val.x; break; case OPvalm: a=-(token->z.val.x); break; default: assert(0); } *v=a; return r; } #define PUSH(a) do { if(data->stackpstack[data->stackp++]=(a); \ D(5,fprintf(stdout,"Push(%g) new stackp=%i\n",(a),data->stackp)); } while (0) #define POP(a) do { if(data->stackp>0) (a)=data->stack[--(data->stackp)]; \ D(5,fprintf(stdout,"Pop(%g) new stackp=%i\n",(a),data->stackp)); } while (0) static int eqntoken_eval(eqneval_t *data) { int loop,toend; int r=0; float a,b; eqntoken_t *token,*lp; int i; static const int precidence[]=OPprecidence; static const int type[]=OPtype; int types[4]={ -10 , -10 , -10 , -10 }; int precs[4]={ -10, -10 , -10, -10 }; int stack_entry=data->stackp; toend=0; do { itemop_t ops[4]={OPeolist, OPeolist, OPeolist, OPeolist}; eqntoken_t *tokens[4]={ NULL, NULL, NULL, NULL }; loop=0; token=data->list; data->list=eqntoken_next(data->list); if(data->list==token) toend++; /* catch endings */ for(lp=token,i=0;(i<4);i++,lp=eqntoken_next(lp)) /* lookahead */ { ops[i]=lp->op; tokens[i]=lp; assert(ops[i]>=0); assert((ops[i]*sizeof(int))op)) /* we did last token, stop */ break; } D(8,fprintf(stdout,"Eval: lookahead = ")); for(i=0;i<4;i++) { char *syms[]=OPsyms; D(8,fprintf(stdout," %s,t%i,p%i" ,syms[ops[i]],types[i],precs[i])); } D(8,fprintf(stdout,"\n")); if(OP_ISANYV(token->op)) { r=token_value(token,&a); D(5,fprintf(stdout,"Value: %g\n",a)); PUSH(a); } else if(types[0]==2) /* binary op */ { a=1.0; b=1.0; POP(a); if( /* literal and higher precidence operator after literal not () */ (OP_ISV(ops[1]) && (precs[2] > precs[0]) && (types[2]!=4) ) || /* operator (ie open/close) which has a higher precidence */ ((types[1]>=2) && (precs[1] > precs[0])) ) { /* SHIFT */ D(6,fprintf(stdout,"Shift: recursion\n")); eqntoken_eval(data); POP(b); } else /* REDUCE */ { D(6,fprintf(stdout,"Reduce: \n")); if( OP_ISANYV(ops[1]) ) { data->list=eqntoken_next(data->list); r+=token_value(tokens[1],&b); } else { /* error, need literal */ assert(0); } } D(6,fprintf(stdout,"Doing Binary Op, %g op %g \n",a,b)); switch(token->op) { case OPadd: a=a+b; break; case OPsub: a=a-b; break; case OPmul: a=a*b; break; case OPdiv: if(b!=0.0) a=a/b; else a=0.0; break; case OPexp: a=pow(a,b); break; case OPnorm: if(b!=0) a=pow(pow(a,b),1/b); else a=0; break; default: assert(0); } PUSH(a); } else if(types[0]==4) /* open/close */ { if(token->op==OPopen) { D(6,fprintf(stdout,"open { : \n")); loop=1; } else if(token->op==OPclose) { D(6,fprintf(stdout,"close } : returning \n")); return 0; } } else if(token->op == OPeolist); if(toend) { D(6,fprintf(stdout,"Ending: \n")); return 0; } else { D(6,fprintf(stdout,"Stack: entry=%i now=%i %s \n",stack_entry,data->stackp, ((stack_entrystackp)||loop)?"looping":"returning")); } } while((stack_entrystackp)||loop); return r; } #undef PUSH #undef POP static eqntoken_t *eqntok_parse(char *str) { int i,j,qlit,qval,qvalp; int last_was_op; int type[]=OPtype; eqntoken_t *list,*lp,*lpn; eqntop_t data; eqntoken_t *cp,*np; memset(&data,0,sizeof(data)); data.n_unget=0; data.nodep=0; data.litc=0; data.opc=0; data.str=str; D(2,fprintf(stdout,"Parsing [%s]\n",str)); data.errors=0; if(data.str[0]==EQN_DELIM) data.str++; /* eat equation prefix delimiter */ while(eqntoken_parse(&data)); for(i=0,qval=0,qlit=0,qvalp=0,j=0;iop==OPsub) && (type[np->op]==1) ) { np->op++; /* go from OPxxx to OPxxxm */ last_was_op=0; continue; } } if(type[cp->op]>1) last_was_op=1; else last_was_op=0; lp->op=cp->op; lpn=eqntoken_next(lp); memcpy(lp,cp,((char *)lpn)-((char *)lp)); lp=lpn; } lp->op=OPeolist; } D(7, do { char *syms[]=OPsyms; fprintf(stdout, "eqnparse: %i tokens %p ", data.nodep,lp); for(lp=list;!OP_ISEND(lp->op);lp=eqntoken_next(lp)) fprintf(stdout, "%s ",syms[lp->op]); fprintf(stdout, "%s ",syms[lp->op]); fprintf(stdout,"\n"); } while (0) ); return list; } /* only evaluate after eqntok_depend, and call eqntok_eval IN PROPER ORDER returns 0 if eval ok, 1 if broken dependency, 2 on parse error */ static int eqntok_eval(float *res, eqntoken_t *list) { eqntoken_t *lp; eqneval_t data; memset(&data,0,sizeof(data)); data.stack[(data.stackp=0)]=0.0; data.stackp++; data.list=list; { eqn_t v; v.eqn=list; D(3,debug_eqn(stdout,"Evaluating \n",&v)); } /* check that all dependencies have been taken care of */ for(lp=list;!OP_ISEND(lp->op);lp=eqntoken_next(lp)) { if((lp->op==OPlit)||(lp->op==OPlitm))return 1; } eqntoken_eval(&data); if(res!=NULL) *res=data.stack[1]; if(data.stackp==2)return 0; else return 2; } #ifdef UNUSED static eqntoken_t *eqntok_copy(eqntoken_t *p) { int q; eqntoken_t *np; np=eqntoken_last(p); q=((char *)np)-((char *)p); np=eqn_malloc(q); assert(np!=NULL); memcpy(np,p,q); return np; } static eqntoken_t *eqntok_copy_m(eqntoken_t *p, float m) { int q; eqntoken_t *np,*nnp; if(p->op==OPeol_const) /* common case */ { np=eqn_malloc(sizeof(itemop_t)+sizeof(eqntokenval_t)); np->op=OPeol_const; np->z.val.x=m*p->z.val.x; } else /* build np = m*(old_equation)EOL */ { np=eqntoken_last(p); q=((char *)np)-((char *)p); np=eqn_malloc(q+(sizeof(itemop_t)*4)+sizeof(eqntokenval_t)); nnp=np; nnp->op=OPval; nnp->z.val.x=m; nnp=eqntoken_next(nnp); nnp->op=OPmul; nnp=eqntoken_next(nnp); nnp->op=OPopen; nnp=eqntoken_next(nnp); memcpy(nnp,p,q); nnp=(void *) (((char *)nnp)+q-sizeof(itemop_t)); nnp->op=OPclose; nnp=eqntoken_next(nnp); nnp->op=OPeolist; } return np; } #endif eqn_t equation_parse(uchar *str) { eqn_t eqn; eqn.val=0.0; eqn.eqn=eqntok_parse(str); return eqn; } /* returns 0 if equation can be evaluated */ int equation_depend(eqn_t eqn, float *(lookup)(void *user, char *str), void *user) { int q=0; float *vp; eqntoken_t *lp,*list; list=eqn.eqn; if(list==NULL)return -1; if(list->op==OPeol_const)return 0; /*optimization */ for(lp=list;!OP_ISEND(lp->op);lp=eqntoken_next(lp)) { if((lp->op==OPlit)||(lp->op==OPlitm)) { D(50,fprintf(stdout,"eqntok_depend: Looking up %s\n",lp->z.lit.lit)); if((vp=lookup(user,lp->z.lit.lit))!=NULL) { eqn_free(lp->z.lit.lit); lp->z.pval.xp=vp; lp->op=(lp->op==OPlit)?OPlitv:OPlitvm; } else q++; } } return q; } int equation_eval(eqn_t *peqn) { int r=-1; if(peqn->eqn!=NULL) { r=eqntok_eval(&(peqn->val), peqn->eqn); D(1,fprintf(stdout,"Result: %g\n",peqn->val)); } return r; } eqn_t equation_empty(eqn_t eqn) { eqntoken_t *eqt; /* should traverse equations first to free any literal strings */ for(eqt=eqn.eqn;(eqt!=NULL);eqt=eqntoken_next(eqt)) { switch(eqt->op) { case OPlit: case OPlitm: eqn_free(eqt->z.lit.lit); break; default: break; } if(OP_ISEND(eqt->op)) break; } eqn_free(eqn.eqn); eqn.eqn=NULL; eqn.val=0.0; return eqn; } void equation_debug(eqn_t eqn, void *fp) { char buf[64]; sprintf(buf,"eqn=%g \n ",eqn.val); debug_eqn(fp, buf, &eqn); } xcircuit-3.9.73/spiceparser/netlist_lib.h0000664000175000001440000001702112335667423017176 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_lib.h, definitions for netlist library routines Conrad Ziesler */ #ifndef __EQN_H__ #include "eqn.h" #endif #ifndef __NETLIST_H__ #include "netlist.h" #endif #ifndef __BITLIST_H__ #include "bitlist.h" #endif #define NLIBIO_MAXNODES 4 /* convenience structures */ typedef struct nlibiodef_st { char *encoding; int wires; int tokens; int digitize; }nlibiodef_t; /* input definition */ typedef struct nlibio_st { int tokens; int qnodes; int digitize; int nodes[NLIBIO_MAXNODES]; }nlibio_t; typedef struct nlibiol_st { list_t iol; int qtokens; /* product (iol[k].tokens) */ }nlibiol_t; /* parameter range */ typedef struct nlibpm_st { int index; /* index into netlist parameter list */ float min, max; int qty; }nlibpm_t; typedef struct nlibfunc_st { int p_delay; /* phases of delay before we begin computations */ int p_cycle; /* phases per cycle (compute each n phases) */ int p_offset; /* phases between inputs sampled and outputs valid */ int qin; int qout; int map[2]; /* alloc in place, size = qin*sizeof(int) */ }nlibfunc_t; /* function reference */ typedef struct nlibfref_st { int index; }nlibfref_t; /* reference nodes and associated skew parameters */ typedef enum nlibreftype_en { RTrseries=0, RTcshunt=1, RTdelay=2, RTqty }nlibreftype_t; #define MAXSKEW_PARAMS 3 typedef struct nlibrefnode_st { eqn_t skew[MAXSKEW_PARAMS]; /* RTxxx indices */ int vrefi; /* index into vref structure */ int devnodei; /* node index in netlist */ }nlibrefnode_t; /* database object */ typedef struct nlibdb_st { netlist_t *nl; nlibiol_t in,out; nlibfref_t map; /* mapping between input and output tokens */ list_t params; list_t refnodes; float *pvals; }nlibdb_t; typedef struct nlibflatdb_st { int lib_index; /* index from process */ int db_index; /* index into db list */ int qvals; /* cache db->params.q */ float *pvals; /* copy db pvals to here */ list_t uservals; /* array of user gate physical parameters */ }nlibflatdb_t; /* container of database objects */ typedef struct nlib_st { list_t iodefs; list_t db; /* our database of nlibdb objects */ names_t *dbref; /* database gate reference names */ names_t *vref; /* voltage reference node names */ int qvref; list_t funcs; /* ptrs */ names_t *funcnames; eqnlist_t eqnl; /* top level parameters we can use anywhere in eqns */ bitlist_t *flags; /* user can select set of elements to use */ list_t flatdb; /* database of flat info */ void *eqn_mem; }nlib_t; #define NLIB_MAXPHASES 4 typedef struct nlib_icall_st { int dbi; int flatdbi; float *in[NLIBIO_MAXNODES]; float *out[NLIBIO_MAXNODES]; int itokens[NLIB_MAXPHASES], otokens[NLIB_MAXPHASES], ctoken; int ver; int err; int idigitize, odigitize; int inode,onode; }nlib_icall_t; #define NLIB_MAXFREF 64 typedef struct nlib_ifref_st { float *val; float vals[NLIB_MAXPHASES]; char name[NLIB_MAXFREF]; }nlib_ifref_t; typedef enum nlib_refid_en { NLIBref_vss, /* the vdd/vss values are used by cmos digitalize */ NLIBref_vdd, NLIBref_clk, /* clk is generic refering to some clock signal */ NLIBref_firstunused, /* user can allocate any ref ids after this point */ NLIBref_max=512 }nlib_refid_e; typedef struct nlib_iface_st { nlib_t *nlib; list_t icalls; list_t frefs; int ref_map[NLIBref_max]; int phase; float * (*lookup_node_f)(void *user, char *name); void *user; }nlib_iface_t; typedef enum nlib_tokens_en { Knlib_start=1024, Knlib_nlib,Knlib_input, Knlib_output, Knlib_param, Knlib_netlist, Knlib_spice, Knlib_encoding, Knlib_wires, Knlib_tokens, Knlib_digitize, Knlib_digital, Knlib_qtyin, Knlib_qtyout, Knlib_end_digital, Knlib_min, Knlib_max, Knlib_qty, Knlib_function, Knlib_end_netlist, Knlib_define, Knlib_reference, Knlib_name, Knlib_rseries, Knlib_cshunt, Knlib_delay, Knlib_p_delay, Knlib_p_offset, Knlib_p_cycle, Knlib_end }nlib_tokens_t; #define NLIB_TOKENS { \ { Knlib_nlib, ".nlib" }, \ { Knlib_input, ".input" }, \ { Knlib_output, ".output" }, \ { Knlib_define, ".define" }, \ { Knlib_param, ".param" }, \ { Knlib_netlist, ".netlist" }, \ { Knlib_end_netlist, ".end_netlist" }, \ { Knlib_spice, ".spice" }, \ { Knlib_encoding, ".encoding" }, \ { Knlib_digital, ".digital" }, \ { Knlib_end_digital, ".end_digital" }, \ { Knlib_qtyout, ".qtyout" }, \ { Knlib_qtyin, ".qtyin" }, \ { Knlib_digitize, ".digitize" }, \ { Knlib_min, ".min" }, \ { Knlib_max, ".max" }, \ { Knlib_qty, ".qtysteps" }, \ { Knlib_function, ".function" }, \ { Knlib_tokens, ".tokens" }, \ { Knlib_wires, ".wires" }, \ { Knlib_name, ".name" }, \ { Knlib_rseries, ".rseries" }, \ { Knlib_cshunt, ".cshunt" }, \ { Knlib_delay, ".delay" }, \ { Knlib_reference, ".reference" }, \ { Knlib_p_delay, ".p_delay" }, \ { Knlib_p_offset, ".p_offset" }, \ { Knlib_p_cycle, ".p_cycle" }, \ { Knlib_end, NULL } } typedef struct nlib_process_st { /* filled in by user */ void (*process)(struct nlib_process_st *proc); void *user; nlib_t *nlib; /* filled in by nlib_process before user->process() is called */ int lib_index; int db_index; netlist_t *nl; }nlib_process_t; int nlib_parse(nlib_t *nlib, scanner_t *scan); int nlib_add_io(nlib_t *nlib, int dbindex, nlibiol_t *io, int tokens, int nodes, int dig, char **names); int nlib_init(nlib_t *nlib); int nlib_add_pm(nlib_t *nlib, int dbi, char *str, float min, float max, int qty); int nlib_new_db(nlib_t *nlib, char *str); int nlib_db_netlist(nlib_t *nlib, int index, netlist_t *nl); int nlib_db_func(nlib_t *nlib, int index, char *str); void nlib_process(nlib_process_t *user, int screened); void nlib_fixup(nlib_t *nlib); void nlib_disable(nlib_t *nlib, int index); int nlib_isdisabled(nlib_t *nlib, int index); void nlib_release(nlib_t *nlib); void *nlib_flat(nlib_process_t *user, int s_uservals, int q_uservals); void nlib_o_spice_subckts(nlib_t *nlib, void * of_fp); void nlib_o_spice_call(nlib_t *nlib, int index, int i_node, int o_node, int *skt, void * of); void nlib_o_spice_refs(nlib_t *nlib, void * of_fp); int nlib_flatdb_write(nlib_t *nlib, void * file_fp); int nlib_flatdb_read(nlib_t *nlib, void * file_fp); /* interface routines */ nlib_ifref_t *nlib_iface_getref(nlib_iface_t *iface, int id); void nlib_iface_phase(nlib_iface_t *iface); int nlib_i_spice_calls(nlib_iface_t *iface, void * cktf_fp); void nlib_iface_init(nlib_iface_t *iface, nlib_t *nlib); void nlib_iface_release(nlib_iface_t *iface); xcircuit-3.9.73/spiceparser/netlist_dev.c0000664000175000001440000001167312335667423017210 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_dev.c, netlist functions for netlists of circuital devices (ie fets) Conrad Ziesler */ /* our goal here is to provide all the netlist convenience functions which are dependent on the particular definitions for the devices (ie hard coded device types) by device netlists we refer to netlists to be fed to spice-like simulators. this was split off the core device-independent netlist routines */ #include #include "debug.h" #include "netlist_dev.h" /* make a new device netlist, using client sizes as given ni is ptr returned by netlist_parse_input */ netlist_t *netlist_devnew_inplace(netlist_input_t ni, int extrasize, int extrasizes[DEVT_MAX]) { int i,r; int terms[]=DEVT_TERMS; int vals[]=DEVT_VALS; char *syms[]=DEVT_SYMS; int others[]=DEVT_OTHERS; netlist_t *nl; nl=malloc(sizeof(netlist_t)+extrasize); assert(nl!=NULL); netlist_init(nl); for(i=0;iinput=ni; if(ni.p!=NULL) { switch(ni.generic->magic) { case SPICE_MAGIC: spice_count(nl); for(i=0;ie[i].qcount>0) list_hint(&(nl->e[i].l),nl->e[i].qcount); spice_build(nl); break; case EXTRACT_MAGIC: /* extract_count(nl); for(i=0;ie[i].qcount>0) list_hint(&(nl->e[i].l),nl->e[i].qcount); extract_build(nl); */ break; } } return nl; } netlist_t *netlist_devnew(netlist_input_t ni) { int sz[DEVT_MAX]; memset(sz,0,sizeof(sz)); return netlist_devnew_inplace(ni, 0, sz); } /**** output spice_like file ****/ void netlist_o_spice(void *of_fp, netlist_t *nl, int n_start) { FILE *of=of_fp; int i,j,k; int m_i=1, c_i=1, l_i=1, i_i=1, v_i=1; devall_p p; entity_t *e; int nodes[32]; float vals[32]; eqn_t *v; if(nl==NULL) return; eqnl_evaldep(&(nl->eqnl)); fprintf(of,"*** netlist output \n"); for(i=0;ie+i; assert(e->qterms<(sizeof(nodes)/sizeof(int))); assert(e->qvals<(sizeof(vals)/sizeof(float))); list_iterate(&(e->l),j,p.p) { for(k=0;kqterms;k++) nodes[k]=n_start+netlist_node_termptr(nl,p.genp->n[k]); v=NETLIST_VALS(nl,i,j); for(k=0;kqvals;k++) vals[k]=eqnl_eval(&(nl->eqnl),v[k]); switch(e->id) { case DEVT_NODE: /* output a mini node-name directory */ fprintf(of,"* %i %s\n",j+n_start,names_lookup(nl->names,j)); break; case DEVT_FET: fprintf(of,"m%i %i %i %i %i %s L=%g W=%g AS=%g AD=%g PS=%g PD=%g\n",m_i++, nodes[DEVFET_S],nodes[DEVFET_G],nodes[DEVFET_D], nodes[DEVFET_B], (p.fetp->type==DEVFET_nmos)?"n":"p", vals[DEVFET_l],vals[DEVFET_w], vals[DEVFET_as], vals[DEVFET_ad], vals[DEVFET_ps], vals[DEVFET_pd] ); break; case DEVT_CAP: fprintf(of,"c%i %i %i %g\n",c_i++, nodes[DEV2TERM_P], nodes[DEV2TERM_N], vals[DEVCAP_c] ); break; case DEVT_RES: fprintf(of,"c%i %i %i %g\n",c_i++, nodes[DEV2TERM_P], nodes[DEV2TERM_N], vals[DEVRES_r] ); break; case DEVT_IND: fprintf(of,"l%i %i %i %g\n",l_i++, nodes[DEV2TERM_P], nodes[DEV2TERM_N], vals[0] ); break; case DEVT_VSRC: fprintf(of,"v%i %i %i %g\n",v_i++, nodes[DEV2TERM_P], nodes[DEV2TERM_N], vals[0] ); break; case DEVT_ISRC: fprintf(of,"i%i %i %i %g\n",i_i++, nodes[DEV2TERM_P], nodes[DEV2TERM_N], vals[0] ); break; default: break; } } } fprintf(of,"*** end netlist output \n"); } netlist_t *netlist_copyish(netlist_t *in, int size, int sizes[]) { int i; int extras[TERMPTR_MAX_DEVT]; int defsize[DEVT_MAX]=NETLIST_DEFSIZES; for(i=0;i #ifndef __SCANNER_H__ #define __SCANNER_H__ #ifndef __MEMORY_H__ #include "memory.h" #endif #ifndef __NAMES_H__ #include "names.h" #endif /* we provide a consistent way for tools to read large text files of various line oriented formats in addition, we manage memory, so freeing these structures is simple */ typedef struct file_line_st { unsigned int fileindex:8; unsigned int line:24; }file_line_t; typedef struct tokenmap_st { int token; char *str; }tokenmap_t; typedef struct card_st { struct card_st *next; int token; char *val; char str[4]; }card_t; typedef struct deck_st { struct deck_st *next; card_t *card; file_line_t line; }deck_t; typedef struct scanner_def_st { char line_stop[32]; /* stop scanning when we hit this line */ char eol_continue[8]; /* continue line if this is detected at the end */ char bol_continue[8]; /* continue line if this is detected at beggining */ int convert_case; /* convert everything to a case ? */ char quote_char; /* what to use as value quote */ char newline; /* what to use as new line character */ char assignment; /* what to use as assignment '=' delimiter */ char tokenize[8]; /* prefix for all tokens of interest */ char whitespace[32]; /* ignore all of this */ char commentstart[8]; /* this starts a comment */ }scanner_def_t; typedef struct scanner_sect_st { struct scanner_sect_st *back; names_t *tokenizer; /* we use this as our hasher */ scanner_def_t *def; /* we get our defaults from here */ card_t *cp; deck_t *dp,*dhead; int eolstring; /* got = [space] EOLINE */ char lbuf[512]; /* line buffer */ char eoline[512]; /* continue buffer */ int line_cont; }scanner_sect_t; typedef struct scanner_input_st { struct scanner_input_st *back, *next; /* list of all inputs*/ void *file_fp; /* FILE * */ int line; int index; }scanner_input_t; typedef struct scanner_st { memory_t strmem; /* where we allocate our strings */ scanner_input_t *inputp; /* current input stack, for #include files */ scanner_input_t *allinputs; /* list of all inputs */ scanner_sect_t *sectp; /* section stack, who is parsing this */ /****** error processing ****/ deck_t *errdeck; card_t *errcard; void (*errfunc)(struct scanner_st *sp, char *format, va_list vp); void (*warnfunc)(struct scanner_st *sp, char *format, va_list vp); }scanner_t; #define PARSE_CASE_TOLOWER 1 #define PARSE_CASE_TOUPPER 2 #define PARSE_NOCASECVT 0 /**** initialization and release ******/ void scanner_add_tokens(scanner_t *scan, tokenmap_t *map); void scanner_reset_tokens(scanner_t *scan); void scanner_init(scanner_t *scan); /* init all structures */ void scanner_release(scanner_t *scan); /* free all associated structures */ void scanner_input_newfp(scanner_t *scan, void *fp); void scanner_sect_new(scanner_t *scan, scanner_def_t *defs, tokenmap_t *map); void scanner_input_release(scanner_t *scan); /* release top of stack */ void scanner_sect_release(scanner_t *scan); /* release top of stack */ /* some standardized scanner defaults */ scanner_def_t *scanner_def_spice(void); void scanner_def_err(scanner_t *scan, char *fmt, va_list vp); /* the scanner functions, file section oriented keeps allocating memory, so you get roughly the file size + about 25% overhead of memory usage. free_all dumps it all quickly, though. */ int scanner_parse_all(scanner_t *scan); void scanner_free_all(scanner_t *scan); /* free all string (&card/&deck) memory */ int scanner_parse_line(scanner_t *scan); unsigned parse_binary(char **str); /* misc. */ void parse_error (scanner_t *scan, char *fmt, ...); void parse_warn (scanner_t *scan, char *fmt, ...); int scanner_checkvalid(deck_t *d, int qty); void scanner_debug_all(scanner_t *scan, void *dbg); file_line_t scanner_current_file_line(scanner_t *scan); #endif xcircuit-3.9.73/spiceparser/xcircspice.c0000664000175000001440000001003612335667423017014 0ustar timusers/* xcircspice.c --- implements routine ReadSpice() for xcircuit * SPICE import. * Conrad Ziesler, Tim Edwards */ #include #include #include "debug.h" #include "scanner.h" #include "netlist_spice.h" #define fprintf tcl_printf /*--------------------------------------------------------------*/ /* Get the node name from a node structure */ /*--------------------------------------------------------------*/ char *node(node_t n) { char *p; p=n->str; return p; } /*--------------------------------------------------------------*/ /* Make a pass through the internal representation of the */ /* SPICE input file and translate to the internal */ /* representation of the SPAR ASG code. */ /*--------------------------------------------------------------*/ void generate_asg(spice_t *spice) { subckt_t *ckt = NULL, **cktpp; list_t subckts; int i, j; int uniq = 1; /* Iterate over all subcircuits */ subckts = spice_list_subckt(spice->ckt); list_iterate(&subckts, i, cktpp) { ckt = *cktpp; do_ckt: assert(ckt != NULL); fprintf(stdout, "spiceparser: cell(%i) is \"%s\"\n", i, ckt->name); for (j = 0; j < ckt->ndefn; j++) { char *nn; nn = ckt->defn[j]->str; fprintf(stdout, "pin: %s\n",nn); } /* Loop through circuit MOSFET devices */ /* (to be done---use model information to determine if this is a */ /* pMOS or nMOS device). */ for (j = 0; j < ckt->nm; j++) { /* For now, ignoring substrate node ckt->m[j].nodes[3] */ /* We should have two devices; if substrate is VDD or GND, */ /* then use the 3-terminal device; otherwise, use the 4- */ /* terminal device. */ AddNTermModule(ckt->m[j].deck->card->str, "MSFET", 4, "D", node(ckt->m[j].nodes[0]), "G", node(ckt->m[j].nodes[1]), "S", node(ckt->m[j].nodes[2]), "B", node(ckt->m[j].nodes[3])); } /* Loop through circuit capacitor devices */ for(j = 0; j < ckt->nc; j++) { AddNTermModule(ckt->c[j].deck->card->str, "CAPC", 2, "1", node(ckt->c[j].nodes[0]), "2", node(ckt->c[j].nodes[1])); } /* Loop through circuit resistor devices */ for (j = 0; j < ckt->nr; j++) { AddNTermModule(ckt->r[j].deck->card->str, "RESTR", 2, "1", node(ckt->r[j].nodes[0]), "2", node(ckt->r[j].nodes[1])); } /* Loop through circuit inductor devices */ for (j = 0; j < ckt->nl; j++) { AddNTermModule(ckt->l[j].deck->card->str, "INDR", 2, "1", node(ckt->l[j].nodes[0]), "2", node(ckt->l[j].nodes[1])); } /* Loop through circuit voltage sources */ for (j = 0; j < ckt->nv; j++) { AddNTermModule(ckt->v[j].deck->card->str, "VAMP", 2, "1", node(ckt->v[j].nodes[0]), "2", node(ckt->v[j].nodes[1])); } /* Loop through circuit current sources */ for (j = 0; j < ckt->ni; j++) { AddNTermModule(ckt->i[j].deck->card->str, "IAMP", 2, "1", node(ckt->i[j].nodes[0]), "2", node(ckt->i[j].nodes[1])); } /* Loop through circuit subcircuit calls, where those */ /* calls are not defined within the file and are assumed */ /* to be primitives (this may require more checking---may */ /* need to remove the x[] records when they are expanded */ for (j = 0; j < ckt->nx; j++) { AddNTermModule(ckt->x[j].deck->card->str, ckt->x[j].rest->str, 0); for (i = 0; i < ckt->x[j].nn; i++) AddModuleTerm(ckt->x[j].rest->str, node(ckt->x[j].nodes[i]), i, ckt->x[j].nn); } } /* kludge for getting the top-level circuit */ if (ckt == spice->ckt) return; else { ckt = spice->ckt; goto do_ckt; } } /*--------------------------------------------------------------*/ /* Top-level call used in xcircuit (files.c) to read in a SPICE */ /* file. */ /*--------------------------------------------------------------*/ int ReadSpice(FILE *fp) { scanner_t scan; spice_t *spice; scanner_init(&scan); scanner_input_newfp(&scan, fp); spice = spice_new(&scan); generate_asg(spice); spice_release(spice); return 0; } xcircuit-3.9.73/spiceparser/netlist.h0000664000175000001440000001745612335667423016364 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist.h, headers for generic netlist wrappers Conrad Ziesler */ /* even though the different file formats (spice, magic extract, verilog) have widely different requirements, the basic information is still comparable, so we try to build a common interface to the subtype procedures */ #ifndef __NETLIST_H__ #ifndef __LIST_H__ #include "list.h" #endif #ifndef __NAMES_H__ #include "names.h" #endif #ifndef __EQN_H__ #include "eqn.h" #endif #ifndef __SCANNER_H__ #include "scanner.h" #endif #define __NETLIST_H__ struct extract_st; struct spice_st; #define EXTRACT_MAGIC 0x55315662 #define SPICE_MAGIC 0x435acde0 typedef struct geninput_st { int magic; int other[4]; }geninput_t; /* internal definition of netlist type */ typedef union netlist_input_un { void *p; geninput_t *generic; struct spice_st *spice; struct extract_st *ext; }netlist_input_t; typedef union dev_input_un { void *p; struct m_st *spice_fet; struct c_st *spice_cap; void *spice_res; void *extract_fet; void *extract_cap; void *extract_res; }dev_input_t; /* compact netlist: device is: object with k terminals (k small) netlist is connection of devices share common terminal pointer. */ #define TERMPTR_BITS_DEVI 24 #define TERMPTR_BITS_TERMI 3 #define TERMPTR_BITS_DEVT 4 typedef struct termptr_st { unsigned devi: TERMPTR_BITS_DEVI; unsigned nonnull: 1; unsigned termi: TERMPTR_BITS_TERMI; unsigned devt: TERMPTR_BITS_DEVT; }termptr_t; #define TERMPTR_MAX_DEVI ((1<qterms]; eqn_t vals[e->qvals]; rest.... } *****/ typedef struct entity_st { list_t l; int qterms; /* q terms of in generic structure */ int qvals; /* q values in generic structure */ int qcount; /* counted number, low level */ int id; /* uniq device id */ int qother; /* bytes of other info in dev structure */ char sym[8]; /* symbolic name */ }entity_t; #define ENTITY_INVALID { LIST_INITDATA, 0, 0, 0, -1,0, "INVALID" } /* macros for accessing entities */ #define NETLIST_E(nl,t,i) ((void *)list_data(&((nl)->e[(t)].l),i)) #define NETLIST_E_DATA(nl,t,i) ((char *)NETLIST_E(nl,t,i)) #define NETLIST_ED(e,i) ((char *)(list_data(&(e->l),i))) #define NETLIST_OFFSET_PARENT(e) (0) #define NETLIST_PARENTS(nl,t,i) ((dev_input_t*) (NETLIST_E_DATA(nl,t,i)+NETLIST_OFFSET_PARENT(nl->e[t]))) #define NETLIST_PARENT(nl,t,i) (NETLIST_PARENTS((nl),(t),(i))[0]) #define NETLIST_OFFSET_TERMS(e) (sizeof(dev_input_t) + NETLIST_OFFSET_PARENT(e) ) #define NETLIST_TERMS(nl,t,i) ((termptr_t*)(NETLIST_E_DATA(nl,t,i)+NETLIST_OFFSET_TERMS(nl->e[t]))) #define NETLIST_TERM(nl,t,i,j) (NETLIST_TERMS(nl,t,i)[(j)]) #define NETLIST_E_TERMS(e,i) ((termptr_t*) (NETLIST_ED(e,i) + NETLIST_OFFSET_TERMS(*(e)))) #define NETLIST_E_TERM(e,i,j) (NETLIST_E_TERMS(e,i)[(j)]) #define NETLIST_OFFSET_VALS(e) (NETLIST_OFFSET_TERMS((e)) + ((e).qterms*sizeof(termptr_t))) #define NETLIST_VALS(nl,t,i) ((eqn_t *) (NETLIST_E_DATA(nl,t,i)+NETLIST_OFFSET_VALS(nl->e[t]))) #define NETLIST_VAL(nl,t,i,j) (NETLIST_VALS(nl,t,(i))[(j)]) #define NETLIST_OFFSET_REST(e) ( NETLIST_OFFSET_VALS(e) + (sizeof(eqn_t)*((e).qvals))) #define NETLIST_REST(nl,t,i) ((void *) (NETLIST_E_DATA(nl,t,i) + NETLIST_OFFSET_REST(nl->e[t])) #define NETLIST_OFFSET_OTHER(e) ( NETLIST_OFFSET_REST(e) + (e).qother ) #define NETLIST_OTHER(nl,t,i) ((void *) (NETLIST_E_DATA(nl,t,i)+NETLIST_OFFSET_OTHER(nl->e[t]))) #define NETLIST_E_QTERMS(e) ((e)->qterms) #define NETLIST_QTERMS(nl,t) ((nl)->e[t].qterms) #define NETLIST_E_QVALS(e) ((e)->qvals) #define NETLIST_QVALS(nl,t) ((nl)->e[t].qvals) #define DEVT_NODE 0 /* all netlists have type 0 as a node */ #define DEVP(nl,t) list_data(&((nl)->e[(t).devt].l),(t).devi) #define DEVT_NODE_TERMS 2 typedef struct devnode_st { dev_input_t parent; termptr_t n[DEVT_NODE_TERMS]; }devnode_t; typedef struct netlist_st { netlist_input_t input; /* where the netlist came from */ void *eqn_mem; /* where we store our equations */ int iscopy; /* this is set if we shouldn't free/modify some structures */ names_t *names; /* key off of node indices */ eqnlist_t eqnl; int qe; /* valid entities */ entity_t e[TERMPTR_MAX_DEVT]; }netlist_t; typedef struct netlistfunc_st { netlist_t *nl; entity_t *entity; /* for merge */ int qcmp; int (*sum)(struct netlistfunc_st *nm,int ia, int ib); void (*tocompare)(struct netlistfunc_st *nm, int index, void *data); /* for distribute */ int qproperties; void (*accumulate)(struct netlistfunc_st *nm, int devi, int termi, float *nodeprops); void (*distribute)(struct netlistfunc_st *nm, int devi, int termi, float *nodeprops); /* for fixup */ void (*fixup)(struct netlistfunc_st *nm, termptr_t t); }netlistfunc_t; typedef struct netlist_param_st { struct netlist_param_st *next; char str[4]; }netlist_param_t; typedef enum netprint_en { netprint_none, netprint_name, netprint_index, netprint_ptr, netprint_nname, netprint_debug }netprint_t; /******* netlist.c ********/ void netlist_init(netlist_t *nl); int netlist_register_entity (netlist_t *nl, int id, int qterms, int qvals, int qrest, char *sym, int othersize); int netlist_print_nodep(netlist_t *n, netprint_t grp, void *filefp, void *gn, char *str); netlist_input_t netlist_parse_input(scanner_t *scan, char *type, netlist_param_t *params); void netlist_release(netlist_t *nl); void netlist_free(netlist_t *nl); int netlist_newdev_fromnode(netlist_t *nl, int devt, dev_input_t parent , termptr_t n[]); void netlist_debug_input(void *dbg_fp, netlist_input_t p); void netlist_debug(void *dbg_fp, netlist_t *nl); void netlist_debug_(void *dbg_fp, netlist_t *nl, int eval); termptr_t netlist_node(netlist_t *nl, char *str, void *parent); termptr_t netlist_termptr(int dev, int term, int type); int netlist_node_termptr(netlist_t *nl, termptr_t t); int netlist_findnode(netlist_t *nl, char *str); void netlist_merge(netlistfunc_t *nm); void netlist_distribute(netlistfunc_t *nm); void netlist_fixup(netlistfunc_t *nm); void netlist_eval(netlist_t *n); void netlist_eqn_begin(netlist_t *nl); void netlist_eqn_end(netlist_t *nl); netlist_t *netlist_copyisher(netlist_t *in, int extrasize, int extrasizes[]); void netlist_copyfree(netlist_t *nl); /********* netlist_spice.c *********/ struct spice_st *spice_new(scanner_t *scan); void spice_release(struct spice_st *sp); void spice_build(netlist_t *nl); void spice_count(netlist_t *nl); void spice_debug(void *dbg_fp, struct spice_st *sp); #endif xcircuit-3.9.73/spiceparser/hash.c0000664000175000001440000001225412335667423015607 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* hash.c : Hash table functions for string identifier lookup Conrad Ziesler */ #include "debug.h" #include "hash.h" unsigned int hash_strhash(int max, void *data, int size) { int i; unsigned int r=0; char *str=data; for(i=0;i=0); return r; } #define quickhashbin(a,b,c) hash_binhash(a,b,c) unsigned int hash_binhash(int max, void *data, int size) { unsigned int r=0; int i; uchar *str=data; for(i=0;i=0); return r; } static hashbin_t *hash_newbin(void *copyfrom, int size) { hashbin_t *p; p=malloc(size+sizeof(hashbin_t)); assert(p!=NULL); p->size=size; p->next=NULL; memcpy(hash_bin2user(p),copyfrom,size); return p; } static hashbin_t *hash_insert(hash_t *h, unsigned int index, hashbin_t *cp) { cp->next=h->bins[index]; h->bins[index]=cp; return cp; } #ifdef UNUSED static hashbin_t *hash_insertsorted(hash_t *h, hashbin_t *head, hashbin_t *cp) { hashbin_t *a,*b=NULL; for(a=head;a!=NULL;a=a->next) { if(h->hashcmp(a,cp)>=0) { if(b==NULL) { cp->next=head; return cp; } else { cp->next=a; b->next=cp; return head; } } b=a; } if(b==NULL) { cp->next=NULL; return cp; } else { cp->next=NULL; b->next=cp; return head; } } #endif static hashbin_t *hash_findbin(hash_t *h, hashbin_t *start, int ksize, void *key) { while(start!=NULL) { if(h->hashcmp(ksize,key,start->size,start+1)==0)return start; start=start->next; } return NULL; } /******* public functions ********/ void hash_free (hash_t *h) { int i; hashbin_t *p,*np; if(h!=NULL) { for(i=0;iqalloc;i++) if(h->alloc[i]!=NULL)free(h->alloc[i]); for(i=0;iqbin;i++) { for(p=h->bins[i];p!=NULL;p=np) { np=p->next; free(p); } } free(h); } } hash_t *hash_new ( int qbins, uint (*hashfunc)(int max, void *data, int size), int (*hashcmp)(int sizea, void *a, int sizeb, void *b) ) { hash_t *p; int i; if(qbins<=0)qbins=4; p=malloc(sizeof(hash_t)+(sizeof(hashbin_t *)*qbins) ); assert(p!=NULL); p->bins=(void *) (((char *)p)+sizeof(hash_t)); p->uniq=0; p->qbin=qbins; p->hashfunc=hashfunc; p->hashcmp=hashcmp; for(i=0;ibins[i]=NULL; p->qalloc=0; p->alloc=NULL; return p; } void *hash_find(hash_t *h, void *key, int ksize) { unsigned int ukey; hashbin_t *fbin; assert(h!=NULL); ukey=h->hashfunc(h->qbin,key,ksize); assert(ukeyqbin); fbin=hash_findbin(h,h->bins[ukey],ksize,key); if(fbin==NULL)return NULL; return hash_bin2user(fbin); } int hash_size(void *user) { hashbin_t *bin; if(user==NULL)return 0; bin=hash_user2bin(user); return bin->size; } void *hash_add(hash_t *h, void *key, int ksize) { unsigned int ukey; hashbin_t *fbin, *dbin; assert(h!=NULL); ukey=h->hashfunc(h->qbin,key,ksize); assert(ukeyqbin); fbin=hash_findbin(h,h->bins[ukey],ksize,key); if(fbin==NULL) { dbin=hash_newbin(key,ksize); fbin=hash_insert(h,ukey,dbin); } if(fbin!=NULL) return hash_bin2user(fbin); else return NULL; } uint hclient_ptrflagstr_hash(int max, void *data, int size) { return hash_strhash(max, ((char *)data) + sizeof(hclient_ptrflagstr_t) ,size-sizeof(hclient_ptrflagstr_t)); } int hclient_ptrflagstr_cmp(hashbin_t *a, hashbin_t *b) { if(a==NULL)return 1; if(b==NULL)return -1; if(a->size > b->size) return 1; if(a->size < b->size) return -1; return strcmp( ((char *) hash_bin2user(a) ) + sizeof(hclient_ptrflagstr_t), ((char *) hash_bin2user(b) ) + sizeof(hclient_ptrflagstr_t) ); } /* binary object straight binary comparison and hash */ uint hclient_bobject_hash(int max, void *data, int size) { return quickhashbin(max,data,size); } int hclient_bobject_cmp(int sizea, void *a, int sizeb, void *b) { if(a==NULL)return 1; if(b==NULL)return -1; if(sizea > sizeb) return 1; if(sizea < sizeb) return -1; return memcmp(a,b,sizea); } xcircuit-3.9.73/spiceparser/list_search.c0000664000175000001440000001072412335667423017164 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* list_search.c, container supporting mulitple sorted searches Conrad Ziesler */ #include "debug.h" #include "list_search.h" void list_search_init(list_search_t *lp, int size, int mode) { list_init(&(lp->list),size,mode); list_init(&(lp->psearch),sizeof(list_psearch_t),LIST_DEFMODE); } void list_search_empty(list_search_t *lp) { int i; list_psearch_t *p; list_empty(&(lp->list)); list_iterate(&(lp->psearch),i,p) { if(p->isearchdata!=NULL)free(p->isearchdata); } list_empty(&(lp->list)); } int list_search_addrule(list_search_t *lp, int (*cmpf)(const void *user, const void *a, const void *b),void *user) { list_psearch_t t; t.isearchdata=NULL; t.is_sorted=0; t.user=user; t.cmpf=cmpf; t.len=0; return list_add(&(lp->psearch),&t); } int list_search_findnext(list_search_iterator_t *sip) { list_psearch_t *psp; int id; void *pa,*pb; id=sip->last_id+1; if(sip->sp==NULL)return -1; if(sip->last_id<0)return -1; if(id>=sip->sp->list.q)return -1; /* last one, can't be any more */ psp=list_data(&(sip->sp->psearch),sip->which); if(psp==NULL)return -1; if(!psp->is_sorted)return -1; if(psp->len!=sip->sp->list.q) return -1; pa=list_data(&(sip->sp->list),psp->isearchdata[sip->last_id]); pb=list_data(&(sip->sp->list),psp->isearchdata[id]); if((pa!=NULL) && (pb!=NULL)) if( psp->cmpf(psp->user,pa,pb)==0) /* yes we match previous */ { sip->last_id=id; return psp->isearchdata[id]; } return -1; } static list_t *debug_cmpf_list=NULL; static int (*debug_psp_cmpf)(const void *user ,const void *a, const void *b); static void *debug_user; int debug_cmpf(const void *a, const void *b) { const int *ap=a,*bp=b; return debug_psp_cmpf(debug_user,list_vdata(debug_cmpf_list,ap[0]),list_vdata(debug_cmpf_list,bp[0])); } void list_search_qsort_debug (list_search_t *lsp, list_psearch_t *psp) { debug_cmpf_list=&(lsp->list); debug_psp_cmpf=psp->cmpf; debug_user=psp->user; qsort(psp->isearchdata,psp->len,sizeof(int),debug_cmpf); } int list_search_find(list_search_t *lp, int which, void *key, list_search_iterator_t *sip) { list_psearch_t *psp; int i,l,u,idx, res; char *list_base=lp->list.d; int base_size=lp->list.s; int base_qty=lp->list.q; int *base; if(sip!=NULL) { sip->sp=lp; sip->which=which; sip->last_id=-1; } if(base_size==0)return -1; if(base_qty<=0)return -1; psp=list_data(&(lp->psearch),which); assert(psp!=NULL); if(psp->len!=base_qty)psp->is_sorted=0; /* guard against changes */ if(!psp->is_sorted) { if(psp->isearchdata!=NULL)free(psp->isearchdata); psp->isearchdata=malloc(sizeof(int)*base_qty); assert(psp->isearchdata!=NULL); psp->len=base_qty; for(i=0;iisearchdata[i]=i; list_search_qsort_debug(lp,psp); psp->is_sorted=1; } base=psp->isearchdata; l =0; u = base_qty; if(base==NULL)return -1; while (l < u) { idx = (l + u) >> 1; res= psp->cmpf(psp->user, key, (void *)(list_base+ (base_size*base[idx]))); if (res <= 0) u = idx; else if (res > 0) l = idx + 1; } if(l>=base_qty) return -1; if(l<0)return -1; res= psp->cmpf(psp->user, key, (void *)(list_base+ (base_size*base[l]))); if(res==0) { if(sip!=NULL)sip->last_id=l; return base[l]; } return -1; } void list_search_resort(list_search_t *lp) { int i; list_psearch_t *ps; list_iterate(&(lp->psearch),i,ps) { ps->is_sorted=0; ps->len=0; if(ps->isearchdata!=NULL)free(ps->isearchdata); } } xcircuit-3.9.73/spiceparser/bitlist.c0000664000175000001440000000717212335667423016341 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* bitlist.c, routines for bit arrays Conrad Ziesler */ #include "debug.h" #include "bitlist.h" bitlist_t * bitlist_new(int qty) { bitlist_t *bl; int qbytes; qbytes=(qty>>3)+1; bl= malloc(sizeof(bitlist_t)+qbytes); assert(bl!=NULL); memset(bl,0,sizeof(bitlist_t)+qbytes); bl->qty=qty; bl->qbytes=qbytes; return bl; } void bitlist_free(bitlist_t *bl) { if(bl!=NULL) free(bl); } void bitlist_setall(bitlist_t *bl) { memset(bl->data,0xff,bl->qbytes); } void bitlist_clearall(bitlist_t *bl) { memset(bl->data,0,bl->qbytes); } int bitlist_set(bitlist_t *bl, int index) { int byte,bit,r=0; if(index<0) return 0; byte=index>>3; bit=index-(byte<<3); assert(byteqbytes); if((bl->data[byte]&(1<data[byte]|=(1<>3; bit=index-(byte<<3); assert(byteqbytes); if((bl->data[byte]&(1<>3; bit=index-(byte<<3); assert(byteqbytes); if((bl->data[byte]&(1<data[byte]&=~(1<>3)+1; oldqty=bl->qty; bl=realloc(bl,sizeof(bitlist_t)+qbytes); assert(bl!=NULL); if( (oldqty>>3) < (qbytes-(oldqty>>3)) ) memset(bl->data+(oldqty>>3),0,qbytes-(oldqty>>3)); bl->qty=qty; bl->qbytes=qbytes; return bl; } /* returns the index of the first bit set or cleared from dir */ int bitlist_scan(bitlist_t *bl, int flags) { int i,j; assert(bl!=NULL); switch(flags) { case (SCAN_FORWARD|SCAN_SET): for(i=0;i<(bl->qbytes-1);i++) { if(bl->data[i]!=0) { for(j=(i<<3);jqty;j++) if(bitlist_test(bl,j))return j; } } break; case (SCAN_FORWARD|SCAN_CLEAR): for(i=0;i<(bl->qbytes-1);i++) { if( (bl->data[i])< ((unsigned char)0x00ff)) { for(j=(i<<3);jqty;j++) if(!bitlist_test(bl,j))return j; } } break; default: assert(0); } return -1; } int bitlist_copyhead(bitlist_t *dest, bitlist_t *src, int length) { int i; int finalbyte; int finalbitoffset; unsigned char a,b; if(length>src->qty)length=src->qty; if(length>dest->qty)length=dest->qty; finalbyte=length>>3; finalbitoffset=length-(finalbyte<<3); for(i=0;idata[i]=src->data[i]; a=dest->data[finalbyte]; b=src->data[finalbyte]; for(i=0;idata[finalbyte]=a; return length; } xcircuit-3.9.73/spiceparser/equations.h0000664000175000001440000000712212335667423016677 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* eqn.h, equation parsing and evaluation Conrad Ziesler */ #ifndef __EQUATIONS_H__ #define __EQUATIONS_H__ #ifndef __LIST_H__ #include "list.h" #endif #ifndef __NAMES_H__ #include "names.h" #endif #ifndef __HASH_H__ #include "hash.h" #endif typedef enum itemop_e { OPeolist, OPeol_const, /* special terminator, for constant (reduced memory usage) */ OPeol_valp, /* special terminator, for indirection (float *) */ OPeol_qty, /* for simplified decoding of eol */ OPlit, OPlitm, OPlitv, /* valp */ OPlitvm, /* -valp */ OPval, OPvalm, OPadd, OPsub, OPmul, OPdiv, OPexp, OPnorm, /* a $ b == pow(pow(a,b),1/b) */ OPopen, OPclose }itemop_t; #define OPsyms { "OPeolist", "OPeol_const", "OPeol_valp", "OPeol_qty", \ "OPlit", "OPlitm", "OPlitv", "OPlitvm", \ "OPval", "OPvalm", "OPadd", "OPsub", \ "OPmul", "OPdiv", "OPexp","OPnorm", "OPopen", \ "OPclose" \ } #define OPprecidence { 0, 0, 0, 0, \ 0, 0, 0, 0, \ 0, 0, 1, 1, \ 2, 2, 3, 3, 4, \ 4 \ } #define OPtype { 0, 1, 1, 0, \ 1, -1, 1, -1, \ 1, -1, 2, 2, \ 2, 2, 2, 2, 4, \ 4 \ } #define OP_ISEV(a) (((a)>OPeolist) && ((a) < OPeol_qty) ) #define OP_ISV(a) (((a)>=OPlit) && ((a) <= OPvalm)) #define OP_ISEND(a) ( ((a)<=OPeol_qty) ) #define OP_ISANYV(a) (OP_ISV(a) || OP_ISEV(a)) typedef struct eqntokenlit_st { char *lit; }eqntokenlit_t; typedef struct eqntokenval_st { float x; }eqntokenval_t; typedef struct eqntokenpval_st { float *xp; } eqntokenpval_t; typedef struct eqntoken_st { itemop_t op; union lit_val_un { eqntokenlit_t lit; eqntokenval_t val; eqntokenpval_t pval; }z; }eqntoken_t; #define EQN_DELIM '\'' #define MAXEQNSTACK 512 typedef struct eqntop_st { char *str; char unget[4]; int n_unget; int errors; eqntoken_t nodes[MAXEQNSTACK]; int nodep; int litc; int opc; }eqntop_t; #define MAXSTACK 512 typedef struct eqneval_st { float stack[MAXSTACK]; int stackp; eqntoken_t *list; }eqneval_t; typedef struct eqn_st { float val; eqntoken_t *eqn; }eqn_t; /* for named equations */ typedef struct eqndef_st { char *name; eqn_t eqn; }eqndef_t; /* public interface */ eqn_t equation_parse(uchar *str); int equation_depend(eqn_t eqn, float *(lookup)(void *user, char *str), void *user); int equation_eval(eqn_t *peqn); eqn_t equation_empty(eqn_t eqn); void equation_debug(eqn_t eqn, void *fp); #endif xcircuit-3.9.73/spiceparser/netlist_lib.c0000664000175000001440000010534412335667423017177 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* netlist_lib.c, routines for building a library of netlists Conrad Ziesler */ /* the goal here is to be able to read/write a file composed of segments each segment has a header describing 1. reference name 2. equation parameters to iterate through 3. logic function 4. output ports, output tokens 5. input ports, input tokens 6. spice format netlist block to be parsed by netlist_spice we then maintain this library of each version of each gate in addition we would like to procedurally add gates to our library. (ie. automatically generate library from templates) */ #include #include #include #include "debug.h" #include "netlist_lib.h" #include "netlist_dev.h" int __debug_nlib__=1; #ifndef STRIP_DEBUGGING #define D(level,a) do { if(__debug_nlib__>(level)) a; } while(0) #else #define D(level,a) #endif /* add a new param, to a db */ int nlib_add_pm(nlib_t *nlib, int dbindex, char *str, float min, float max, int qty) { nlibpm_t template; nlibdb_t *db; int index; template.min=min; template.max=max; template.qty=qty; db=list_data(&(nlib->db),dbindex); if(db==NULL)assert(0); if(str!=NULL) template.index=eqnl_find(&(db->nl->eqnl),str); else template.index=-1; if(template.index<0) { fprintf(stderr,"couldn't find parameter %s used in netlist, assuming ignoring\n",str); return -1; } index=list_add(&(db->params),&template); return index; } /* add a new io definition to a db */ int nlib_add_io(nlib_t *nlib, int dbindex, nlibiol_t *io, int tokens, int nodes, int dig, char **names) { int index,ni; int i; nlibio_t *p,template; nlibdb_t *db; db=list_data(&(nlib->db),dbindex); assert(db!=NULL); memset(&template,0,sizeof(template)); index=list_add(&(io->iol),&template); p=list_data(&(io->iol),index); assert((nodesqtokens= (io->qtokens>0)?io->qtokens*tokens : tokens; p->tokens=tokens; p->qnodes=nodes; p->digitize=dig; for(i=0;inl->names,names[i]); if(ni<0) { fprintf(stderr,"NLIB: could not find i/o node %s in circuit\n",names[i]); assert(0); } p->nodes[i]=ni; } return index; } static void nlib_init_io(nlibiol_t *io) { io->qtokens=0; list_init(&(io->iol),sizeof(nlibio_t),LIST_UNITMODE); } int nlib_db_netlist(nlib_t *nlib, int index, netlist_t *nl) { nlibdb_t *db; db=list_data(&(nlib->db),index); assert(db!=NULL); db->nl=nl; return index; } /* makes a new db */ int nlib_new_db(nlib_t *nlib, char *str) { int index; nlibdb_t template,*db; memset(&template,0,sizeof(template)); index=list_add(&(nlib->db),&template); names_add(nlib->dbref,index,str); db=list_data(&(nlib->db),index); list_init(&(db->params),sizeof(nlibpm_t),LIST_DEFMODE); nlib_init_io(&(db->in)); nlib_init_io(&(db->out)); list_init(&(db->refnodes),sizeof(nlibrefnode_t),LIST_UNITMODE); return index; } nlibfref_t nlib_func_lookup(nlib_t *nlib, char *str) { nlibfref_t f; f.index=names_check(nlib->funcnames,str); return f; } /* fixme: should look up name of function in nlib->functions and use that index */ int nlib_db_func(nlib_t *nlib, int index, char *str) { nlibdb_t *db; db=list_data(&(nlib->db),index); assert(db!=NULL); db->map=nlib_func_lookup(nlib,str); return 0; } /* makes empty function of specified variables */ nlibfunc_t *nlib_new_func(nlib_t *nlib, char *str, int qin, int qout,int p_delay, int p_offset, int p_cycle) { int l; nlibfunc_t *fp; fp=malloc((l=sizeof(nlibfunc_t)+(sizeof(int)*qin))); assert(fp!=NULL); memset(fp,0,l); fp->qin=qin; fp->qout=qout; fp->p_delay=p_delay; fp->p_offset=p_offset; fp->p_cycle=p_cycle; l=list_add(&(nlib->funcs),&fp); names_add(nlib->funcnames,l,str); return fp; } /* specify one mapping */ void nlib_func_addmap(nlib_t *nlib, nlibfunc_t *fp, int in, int out) { assert(inqin); assert(outqout); assert(in>=0); assert(out>=0); fp->map[in]=out; } /* inits a nlib, call before any action on nlib */ int nlib_init(nlib_t *nlib) { list_init(&(nlib->db),sizeof(nlibdb_t),LIST_DEFMODE); nlib->dbref=names_new(); list_init(&(nlib->iodefs),sizeof(nlibiodef_t), LIST_DEFMODE); eqnl_init(&(nlib->eqnl)); list_init(&(nlib->funcs), sizeof(nlibfunc_t *), LIST_DEFMODE); /* list of pointers */ list_init(&(nlib->flatdb), sizeof(nlibflatdb_t), LIST_DEFMODE); nlib->funcnames=names_new(); nlib->qvref=0; nlib->vref=names_new(); nlib->flags=NULL; nlib->eqn_mem=eqn_mem_new(); return 0; } void nlib_release_flatdb(nlib_t *nlib) { int i; nlibflatdb_t *fdbp; list_iterate(&(nlib->flatdb),i,fdbp) { list_empty(&(fdbp->uservals)); if(fdbp->pvals!=NULL)free(fdbp->pvals); fdbp->pvals=NULL; } list_empty(&(nlib->flatdb)); bitlist_free(nlib->flags); nlib->flags=NULL; } void nlib_release_io(nlib_t *nlib, nlibiol_t *io) { list_empty(&(io->iol)); } void nlib_release_db(nlib_t *nlib) { int i; nlibdb_t *dbp; list_iterate(&(nlib->db),i,dbp) { if(dbp->pvals!=NULL)free(dbp->pvals); dbp->pvals=NULL; list_empty(&(dbp->refnodes)); list_empty(&(dbp->params)); nlib_release_io(nlib,&(dbp->in)); nlib_release_io(nlib,&(dbp->out)); netlist_free(dbp->nl); dbp->nl=NULL; } list_empty(&(nlib->db)); names_free(nlib->dbref); nlib->dbref=NULL; } void nlib_release_funcs(nlib_t *nlib) { int i; void **p; names_free(nlib->funcnames); nlib->funcnames=NULL; list_iterate(&(nlib->funcs),i,p) { if((*p)!=NULL) free((*p)); } list_empty(&(nlib->funcs)); } void nlib_release_refs(nlib_t *nlib) { names_free(nlib->vref); nlib->vref=NULL; nlib->qvref=0; } void nlib_release_iodefs(nlib_t *nlib) { int i; nlibiodef_t *p; list_iterate(&(nlib->iodefs),i,p) { if(p->encoding!=NULL)free(p->encoding); p->encoding=NULL; } list_empty(&(nlib->iodefs)); } /* frees all data in nlib */ void nlib_release(nlib_t *nlib) { nlib_release_flatdb(nlib); nlib_release_db(nlib); nlib_release_refs(nlib); nlib_release_funcs(nlib); eqnl_free(&(nlib->eqnl)); nlib_release_iodefs(nlib); eqn_mem_free(nlib->eqn_mem); nlib->eqn_mem=NULL; } /* post processing of db structure */ int nlib_db_fixup(nlib_t *nlib, nlibdb_t *db) { int i,q,j; nlibpm_t *p; nlibrefnode_t *rnp; int l=list_qty(&(db->params)); db->pvals=malloc((sizeof(float)*l)); memset(db->pvals,0,sizeof(float)*l); list_shrink(&(db->params)); list_shrink(&(db->refnodes)); list_iterate(&(db->params),i,p) { if(0)fprintf(stderr,"nlib_db_fixup: trying to define eqn: %i->%s (%p)\n",p->index,eqnl_lookup(&(db->nl->eqnl),p->index),db->pvals+i); eqnl_define(&(db->nl->eqnl),p->index,db->pvals+i); } q=eqnl_qty(&(db->nl->eqnl)); /* setup equations in our reference nodes */ list_iterate(&(db->refnodes),i,rnp) { for(j=0;jeqnl), rnp->skew[j]); } return 0; } /* step through library, (in terms of param qty's, in order) substitute in, and call client process function for each instance of each cell */ void nlib_process(nlib_process_t *user, int screened) { int i,j,k,lib_index; nlib_t *nlib=user->nlib; nlibdb_t *dbp; nlibpm_t *dbpm; int li[64]; /* max 64 parameters */ int lq[64]; int qp=0; assert(nlib!=NULL); memset(li,0,sizeof(li)); memset(lq,0,sizeof(lq)); lib_index=0; list_iterate(&(nlib->db),i,dbp) { qp=0; list_iterate(&(dbp->params),j,dbpm) { lq[j]=dbpm->qty; li[j]=0; dbp->pvals[j]= dbpm->min; qp++; if(qp>=64)assert(0); } k=0; fprintf(stderr,"\n\nstarting db index %i\n",i); while(1) { if(0) { fprintf(stderr,"iteration:"); for(j=0;jparams),j); dbp->pvals[j]=dbpm->min+ li[j]*(dbpm->max-dbpm->min)/dbpm->qty; if(0)fprintf(stderr,"setting %i (%p) val[%i]=%g\n",j,dbp->pvals+j,dbpm->index,dbp->pvals[j]); } user->nl=dbp->nl; user->lib_index=lib_index; user->db_index=i; user->process(user); } lib_index++; /* increment loop */ for(j=0;j=0;j--) /* roll over rest of indices */ li[j]=0; break; } if(j==qp)break; } } } static void nlib_fixup_process(nlib_process_t *user) { int *ip=user->user; ip[0]++; } void nlib_fixup(nlib_t *nlib) { int count=0; nlib_process_t pr; eqnl_autodepend(&(nlib->eqnl)); eqnl_evaldep(&(nlib->eqnl)); if(nlib->flags!=NULL) /* in case we were called multiple times */ bitlist_free(nlib->flags); nlib->flags=NULL; if(0) { pr.user=&count; pr.nlib=nlib; pr.process=nlib_fixup_process; nlib_process(&pr,0); nlib->flags=bitlist_new(count+1); } } /* this does the dirty work of updating configurable db netlists from flat db */ void nlib_doflat(nlib_t *nlib, int index) { nlibflatdb_t *fdb; nlibdb_t *db; assert(nlib!=NULL); fdb=list_data(&(nlib->flatdb),index); assert(fdb!=NULL); db=list_data(&(nlib->db),fdb->db_index); assert(db!=NULL); if(fdb->pvals!=NULL) memcpy(db->pvals,fdb->pvals,sizeof(float)*fdb->qvals); else assert(fdb->qvals==0); } /* call this from user process for each gate we want to keep */ void *nlib_flat(nlib_process_t *user, int s_uservals, int q_uservals) { nlib_t *nlib; nlibdb_t *db; int index; nlibflatdb_t *fdb; assert(user!=NULL); nlib=user->nlib; assert(nlib!=NULL); index=list_nextz(&(nlib->flatdb)); fdb=list_data(&(nlib->flatdb),index); fdb->lib_index=user->lib_index; fdb->db_index=user->db_index; db=list_data(&(nlib->db),fdb->db_index); assert(db!=NULL); fdb->qvals=list_qty(&(db->params)); list_init(&(fdb->uservals),s_uservals,LIST_UNITMODE); list_hint(&(fdb->uservals),q_uservals); if(fdb->qvals>0) { fdb->pvals=malloc(sizeof(float)*fdb->qvals); assert(fdb->pvals!=NULL); memcpy(fdb->pvals,db->pvals,sizeof(float)*fdb->qvals); } else fdb->pvals=NULL; return list_block_next(&(fdb->uservals),q_uservals); } void nlib_disable(nlib_t *nlib, int index) { if(nlib->flags!=NULL) bitlist_set(nlib->flags,index); } int nlib_isdisabled(nlib_t *nlib, int index) { if(nlib->flags!=NULL) return bitlist_test(nlib->flags,index); return -1; } static void nlib_o_spice_subckt_(nlib_t *nlib, int db_index, int lib_index, void * of_fp) { FILE *of=of_fp; nlibdb_t *dbp; nlibrefnode_t *rnp; nlibio_t *iop; int i,j; int z_index=1; int n_start=1; dbp=list_data(&(nlib->db),db_index); assert(dbp!=NULL); fprintf(of,"\n.subckt sc%i", lib_index); /* reference nodes */ list_iterate(&(dbp->refnodes),i,rnp) fprintf(of," rn%i",rnp->vrefi); /* input nodes */ list_iterate(&(dbp->in.iol),i,iop) for(j=0;jqnodes;j++) fprintf(of," %i",iop->nodes[j]+n_start); /* output nodes */ list_iterate(&(dbp->out.iol),i,iop) for(j=0;jqnodes;j++) fprintf(of," on%i_%i",i,j); fprintf(of,"\n"); /* call netlist_o_spice to output subckt netlist */ netlist_o_spice(of, dbp->nl, n_start); /* add additional circuitry for output buffers */ list_iterate(&(dbp->out.iol),i,iop) for(j=0;jqnodes;j++) fprintf(of,"Ez%i on%i_%i 0 VCVS PWL(1) %i 0 -10v,-10v 10v,10v\n",z_index++,i,j, iop->nodes[j]+n_start); /* add aditional circuitry for delay and rc of references */ list_iterate(&(dbp->refnodes),i,rnp) { float f[4]={0.0, 0.0, 0.0, 0.0 }; int ud[4]; assert(RTqty<=3); for(j=0;jskew[j])!=0); f[j]=eqnl_eval(&(nlib->eqnl),rnp->skew[j]); } if( ud[RTdelay] && ud[RTrseries] ) fprintf(of,"rz%i rn%i %i 1e-3\n", z_index++,rnp->vrefi,rnp->devnodei+n_start); else if (!ud[RTdelay] && ud[RTrseries]) fprintf(of,"Ez%i %i 0 VCVS DELAY rn%i 0 TD=%g SCALE=1\n", z_index++, rnp->devnodei+n_start, rnp->vrefi, f[RTdelay] ); else if ( ud[RTdelay] && !ud[RTrseries]) fprintf(of,"rz%i rn%i %i %g\n",z_index++, rnp->vrefi, rnp->devnodei+n_start, f[RTrseries]); else { fprintf(of,"dz%i rn%i rn%ia %g\nrz%i rn%ia %i %g\n", z_index, rnp->vrefi, rnp->vrefi, f[RTdelay], z_index+1, rnp->vrefi, rnp->devnodei+n_start, f[RTrseries] ); z_index+=2; } if(!ud[RTcshunt]) fprintf(of,"cz%i %i 0 %g\n",z_index++,rnp->devnodei+n_start, f[RTcshunt] ); } fprintf(of,".ends sc%i\n",lib_index); } void nlib_o_spice_refs(nlib_t *nlib, void * of_fp) { FILE *of=of_fp; int i; char *p; for(i=0;(p=names_lookup(nlib->vref,i))!=NULL;i++) { fprintf(of,"*nref %s\n",p); } } static void nlib_o_spice_subckt_process(nlib_process_t *user) { nlib_o_spice_subckt_(user->nlib,user->db_index,user->lib_index, user->user); } void nlib_o_spice_subckts(nlib_t *nlib, void * of_fp) { FILE *of=of_fp; /* if we built a flat db, use it */ if(list_qty(&(nlib->flatdb))>0) { int i,j; nlibflatdb_t *fdb; float *dp; list_iterate(&(nlib->flatdb),i,fdb) { /* print header with some usefull info */ fprintf(of,"****** index=%i db_index=%i lib_index=%i ***", i,fdb->db_index,fdb->lib_index ); list_iterate(&(fdb->uservals),j,dp) fprintf(of,"%s%g",((j%5)==0)?"\n*** ":" ",*dp); fprintf(of,"\n"); nlib_doflat(nlib,i); /* update the netlist */ nlib_o_spice_subckt_(nlib,fdb->db_index,fdb->lib_index, of); } } else { nlib_process_t proc; proc.nlib=nlib; proc.user=of; proc.process=nlib_o_spice_subckt_process; nlib_process(&proc,1); } } /************ TOFIX: NEED to add multiple input nodes probably the easiest is to pass a list ptr of i_nodes tree.c needs some helper function in netlist_lib.c which gives the number of inputs a given gate needs, so it can figure out it's proper wiring topology. perhaps we should allocate the list of input nodes within the flatdb structure and then tree would only have to pass *which* node to change in the list? or at the very least, tree.c won't have to allocate a bunch of random lists and keep them current. ************/ /* output spice style subckt call, mapping i_node and o_node */ void nlib_o_spice_call(nlib_t *nlib, int index, int i_node, int o_node, int *skt, void * of_fp) { FILE *of=of_fp; nlibflatdb_t *fdb; nlibdb_t *db; nlibio_t *iop; nlibrefnode_t *rnp; int i,j; char tmp[64]; assert(nlib!=NULL); fdb=list_data(&(nlib->flatdb),index); assert(fdb!=NULL); db=list_data(&(nlib->db),fdb->db_index); assert(db!=NULL); fprintf(of,"X%i ",(*skt)++); /* reference nodes */ list_iterate(&(db->refnodes),i,rnp) fprintf(of," %s",names_lookup(nlib->vref,rnp->vrefi)); if(i_node==-1)sprintf(tmp,"root"); else sprintf(tmp,"n%i",i_node); /* input nodes, for multi-input gate, tie inputs together */ list_iterate(&(db->in.iol),i,iop) for(j=0;jqnodes;j++) fprintf(of," %s_%i",tmp,j); /* output nodes, for multi-output gate, tie outputs together */ list_iterate(&(db->out.iol),i,iop) for(j=0;jqnodes;j++) fprintf(of," n%i_%i",o_node,j); fprintf(of," sc%i",fdb->lib_index); fprintf(of,"\n"); fprintf(of,"*nlib %i %i %i %i\n",i_node,o_node,fdb->db_index,index); } void nlib_iface_release(nlib_iface_t *iface) { list_empty(&(iface->icalls)); list_empty(&(iface->frefs)); } void nlib_iface_init(nlib_iface_t *iface, nlib_t *nlib) { memset(iface->ref_map,0,sizeof(iface->ref_map)); list_init(&(iface->icalls),sizeof(nlib_icall_t),LIST_DEFMODE); list_init(&(iface->frefs),sizeof(nlib_ifref_t),LIST_DEFMODE); iface->nlib=nlib; iface->phase=0; } nlib_ifref_t *nlib_iface_getref(nlib_iface_t *iface, int id) { nlib_ifref_t *rp; assert(id=0); rp=list_data(&(iface->frefs),iface->ref_map[id]); assert(rp!=NULL); return rp; } static int nlib_digitize(float *vals[], int digitize, int tokens[], nlib_iface_t *iface) { int i; int token=-1; float dv; float vdd,vss; switch(digitize) { case 0: /* default */ assert(0); break; case 1: /* delta v */ assert(vals[0]!=NULL); assert(vals[1]!=NULL); dv=(*vals[0])-(*vals[1]); if(dv>(1e-3))token=1; if(dv<(-1e-3)) token=0; break; case 2: /* cmos */ assert(vals[0]!=NULL); dv=*vals[0]; vss=nlib_iface_getref(iface,NLIBref_vss)->val[0]; vdd=nlib_iface_getref(iface,NLIBref_vdd)->val[0]; if((2*dv)>(vdd-vss)) token=1; else token=0; break; default: assert(0); break; } /* update tokens[phases] current phase is always tokens[0].. */ if(tokens!=NULL) { for(i=(NLIB_MAXPHASES-1);i>=1;i--) tokens[i]=tokens[i-1]; tokens[0]=token; } return token; } int nlib_func_compute(nlibfunc_t *map, int input) { assert(map!=NULL); if(input<0)return -1; assert(inputqin); return map->map[input]; } int nlib_icall_digitize(nlib_iface_t *iface, int calli, int phase) { nlib_icall_t *cd; nlibdb_t *dp; nlibfunc_t *fp,**fpp; cd=list_data(&(iface->icalls),calli); assert(cd!=NULL); dp=list_data(&(iface->nlib->db),cd->dbi); assert(dp!=NULL); fpp=list_data(&(iface->nlib->funcs),dp->map.index); assert(fpp!=NULL); fp=*fpp; assert(fp!=NULL); nlib_digitize(cd->in, cd->idigitize, cd->itokens, iface); nlib_digitize(cd->out, cd->odigitize, cd->otokens, iface); if(phase> (fp->p_delay+fp->p_offset)) /* wait at least this long before checking valididy */ if( (phase%fp->p_cycle)== (fp->p_delay%fp->p_cycle) ) /* are we on the correct phase */ { cd->ctoken=nlib_func_compute(fp,cd->itokens[(fp->p_offset%fp->p_delay)]); if(cd->ctoken!=cd->otokens[0]) cd->err++; else cd->ver++; } return cd->err; } void nlib_iface_phase(nlib_iface_t *iface) { int i; nlib_icall_t *cp; iface->phase++; list_iterate(&(iface->icalls),i,cp) nlib_icall_digitize(iface,i,iface->phase); } int nlib_iface_do_call(nlib_iface_t *iface, int in, int on, int dbi, int fdbi) { nlib_t *nlib=iface->nlib; nlibdb_t *db; char nn[64],*nnp; int j; nlib_icall_t *cd; nlibio_t *iop; int z; db=list_data(&(nlib->db),dbi); if(db==NULL)return 0; z=list_qty(&(iface->icalls)); cd=list_next(&(iface->icalls)); cd->dbi=dbi; cd->flatdbi=fdbi; cd->err=0; cd->ver=0; for(j=0;jin[j]=NULL; cd->out[j]=NULL; } for(j=0;jitokens[j]=cd->otokens[j]=-1; cd->ctoken=-1; cd->inode=in; cd->onode=on; /*** lookup input nodes from tracefile interface *****/ if(in>-1) sprintf(nn,"n%i_",in); else sprintf(nn,"root_"); nnp=nn+strlen(nn); iop=list_data(&(db->in.iol),0); /* only handle inverters right now */ assert(iop!=NULL); for(j=0;jqnodes;j++) { sprintf(nnp,"%i",j); cd->in[j]=iface->lookup_node_f(iface->user, nn); if(cd->in[j]==NULL) fprintf(stderr,"ERROR: did not find trace node %s\n",nn); } cd->idigitize=iop->digitize; /*** lookup output nodes from tracefile interface ****/ sprintf(nn,"n%i_",on); nnp=nn+strlen(nn); iop=list_data(&(db->out.iol),0); /* only handle inverters right now */ assert(iop!=NULL); for(j=0;jqnodes;j++) { sprintf(nnp,"%i",j); cd->out[j]=iface->lookup_node_f(iface->user, nn); if(cd->out[j]==NULL) fprintf(stderr,"ERROR: did not find trace node %s\n",nn); } cd->odigitize=iop->digitize; return z; } int nlib_i_spice_calls(nlib_iface_t *iface, void * cktf_fp) { FILE *cktf=cktf_fp; int dbi,fdbi; int in,on; char line[4096]; int q=0; int i; nlib_ifref_t ifref; memset(line,0,sizeof(line)); while(!feof(cktf)) { line[0]=0; line[1]=0; line[sizeof(line)-1]=0; line[sizeof(line)-2]=0; fgets(line,sizeof(line-2),cktf); i=strlen(line)-1; while(i>=0) { if(isspace(line[i])) line[i]=0; else break; i--; } if( ( line[0]=='*') && (line[1]=='n') && (line[2]=='l') && (line[3]=='i') && (line[4]=='b') ) { dbi=-1; fdbi=-1; in=-2; on=-2; sscanf(line+5," %i %i %i %i",&in,&on,&dbi,&fdbi); if(fdbi==-1)continue; q+=nlib_iface_do_call(iface,in,on,dbi,fdbi); continue; } if( (line[0]=='*') && (line[1]=='n') && (line[2]=='r') && (line[3]=='e') && (line[4]=='f')) { if(line[5]!=' ')continue; memset(&ifref,0,sizeof(ifref)); for(i=6;line[i]!=0;i++) { if(isspace(line[i]))break; ifref.name[i-6]=line[i]; } for(i=0;ilookup_node_f(iface->user,ifref.name); dbi=list_add(&(iface->frefs),&ifref); /* this is all just a big consistancy check */ fdbi=names_check(iface->nlib->vref,ifref.name); if(dbi!=fdbi) { fprintf(stderr,"FATAL ERROR: this database file does not seem to match given tracefile\n"); exit(0); } } continue; } return q; } /* saving and restoring the flat db these are non human readable formatted files because i am lazy note: architecture float format and endianess dependence in user parameters */ static char nlib_flatdb_ver[]="NLIB_FLATDB_a"; int nlib_flatdb_write(nlib_t *nlib, void * file) { nlibflatdb_t *p; int i,j,q; unsigned char *c; fprintf(file,"%s %i\n",nlib_flatdb_ver,list_qty(&(nlib->flatdb))); list_iterate(&(nlib->flatdb),i,p) { q=list_sizeof(&(p->uservals))*list_qty(&(p->uservals)); c=list_data(&(p->uservals),0); fprintf(file,"lib %i db %i qvals %i user %i %i\n",p->lib_index,p->db_index,p->qvals, list_sizeof(&(p->uservals)),list_qty(&(p->uservals)) ); for(j=0;jqvals;j++) fprintf(file,"%e%c",p->pvals[j],(j==(p->qvals-1))?'\n':' '); for(j=0;jflatdb),qty); i=0; while(!feof(file)) { if(i==qty)break; line[0]=0; fgets(line,sizeof(line)-2,file); memset(&up,0,sizeof(up)); up.nlib=nlib; up.lib_index=-1; up.db_index=-1; p_qvals=-1; ua=0; ub=0; if(sscanf(line,"lib %i db %i qvals %i user %i %i",&up.lib_index,&up.db_index,&p_qvals,&ua,&ub)!=5) { assert(0); continue; } index=list_qty(&(nlib->flatdb)); c=nlib_flat(&up,ua,ub); p=list_data(&(nlib->flatdb),index); assert(p!=NULL); assert(p_qvals==p->qvals); line[0]=0; fgets(line,sizeof(line)-2,file); for(lp=line,j=0;jqvals;j++) { float f=0.0; while(isspace(lp[0]))lp++; if(sscanf(lp,"%f",&f)!=1)assert(0); while(!isspace(lp[0]))lp++; p->pvals[j]=f; } assert(c!=NULL); q=ua*ub; line[0]=0; fgets(line,sizeof(line)-2,file); for(lp=line,j=0;jeqn_mem!=NULL); eqn_mem_push(nlib->eqn_mem); defs=*scanner_def_spice(); strcpy(defs.line_stop,".end_nlib"); encoding_default.encoding="dual_rail"; encoding_default.wires=2; encoding_default.tokens=2; encoding_default.digitize=0; scanner_sect_new(scan,&defs,nlib_tokens); while(scanner_parse_line(scan)) { card_t *cp=NULL; int flag=0; if(scan->sectp!=NULL) if(scan->sectp->dp!=NULL) if((cp=scan->sectp->dp->card)!=NULL) flag++; if(flag&&(scan->sectp->dp!=dplast)) { dplast=scan->sectp->dp; scan->errdeck=dplast; scan->errcard=dplast->card; if(0)scanner_debug_all(scan,stderr); switch(cp->token) { case Knlib_digital: if(cp->val!=NULL) { card_t *p; int z; int qtyin=-1, qtyout=-1, p_delay=-1, p_offset=-1, p_cycle=-1; for(p=cp->next;p!=NULL;p=p->next) { if(p->val!=NULL) { z=atoi(p->val); switch(p->token) { case Knlib_qtyin: qtyin=z; break; case Knlib_qtyout: qtyout=z; break; case Knlib_p_delay: p_delay=z; break; case Knlib_p_offset: p_offset=z; break; case Knlib_p_cycle: p_cycle=z; break; default: scan->errcard=p; scan->errdeck=dplast; parse_warn(scan,"unknown word in function definition %s\n",p->val); } } } if((qtyin!=-1) && (qtyout!=-1) && (p_delay!=-1) && (p_offset!=-1) && (p_cycle!=-1)) { digital_deck=scan->sectp->dp; digital_func=nlib_new_func(nlib,cp->val, qtyin, qtyout, p_delay,p_offset,p_cycle); break; } } parse_error(scan,"mangled function definition"); break; case Knlib_end_digital: if((digital_deck!=NULL) && (digital_func!=NULL)) { deck_t *dp; for(dp=digital_deck->next;dp!=NULL;dp=dp->next) { card_t *p; if(dp==scan->sectp->dp)break; for(p=dp->card;p!=NULL;p=p->next) { unsigned int a=0,b=0; char *sp=p->str; scan->errcard=p; scan->errdeck=dp; if(sp!=NULL) { a=parse_binary(&sp); sp=p->val; if(sp!=NULL) { b=parse_binary(&sp); nlib_func_addmap(nlib, digital_func, a, b); } else parse_warn(scan,"ignoring mangled mapping %s=%s\n",cp->str,cp->val); } else parse_warn(scan,"ignoring mangled mapping %s=%s\n",cp->str,cp->val); } } } else parse_error(scan,"mangled function definition"); digital_deck=NULL; digital_func=NULL; break; case Knlib_encoding: /* io def */ if(cp->val!=NULL) { int tokens=0, wires=0, h_tokens=0, h_wires=0; char *digitize=NULL; card_t *p; for(p=cp->next;p!=NULL;p=p->next) { D(20,fprintf(stderr,"encoding: %s=[%s]\n",p->str,p->val)); if(p->val!=NULL) { switch(p->token) { case Knlib_wires: wires=atoi(p->val); h_wires++; break; case Knlib_tokens: tokens=atoi(p->val); h_tokens++; break; case Knlib_digitize: digitize=p->val; break; } } } if( h_tokens && h_wires && (digitize!=NULL) ) { int index; nlibiodef_t *iop; index=list_add(&(nlib->iodefs),&encoding_default); iop=list_data(&(nlib->iodefs),index); iop->encoding=strdup(cp->val); if(strcmp(digitize,"deltav")==0) iop->digitize=1; else if(strcmp(digitize,"cmos")==0) iop->digitize=2; else iop->digitize=0; iop->tokens=tokens; iop->wires=wires; D(20,fprintf(stderr,"adding encoding %s, %i %i\n",cp->val,tokens,wires)); break; } } parse_error(scan,"mangled encoding line "); break; case Knlib_define: if(cp->val==NULL) { card_t *p; for(p=cp->next;p!=NULL;p=p->next) { if(p->val!=NULL) { eqnl_add(&(nlib->eqnl),eqn_parse(p->val),p->str); } } } break; case Knlib_netlist: if(cp->val!=NULL) { db_index=nlib_new_db(nlib,cp->val); db_deck=scan->sectp->dp; /* store location in deck where netlist occured */ } else parse_error(scan,".netlist=name expected"); break; case Knlib_spice: if(db_index>=0) { nl=netlist_devnew(netlist_parse_input(scan,"spice",NULL)); assert(nl!=NULL); if(1)netlist_release(nl); /* release spice parse structures */ /* why does it crash with this ???? */ } else parse_error(scan,".spice section must be preceded by .netlist section"); break; case Knlib_end_netlist: if(db_index<0) parse_error(scan,".end netlist without .netlist"); else { deck_t *dp; card_t *cp; nlibdb_t *dbp; nlib_db_netlist(nlib,db_index,nl); dbp=list_data(&(nlib->db),db_index); nl=NULL; for(dp=db_deck;dp!=NULL;dp=dp->next) /* walk through from db_deck to here */ { if(dp->card==NULL)continue; cp=dp->card; scan->errdeck=dp; scan->errcard=cp; switch(cp->token) { case Knlib_param: if(cp->val!=NULL) { card_t *p; float min=0,max=0,qty=0,v; int h_min=0, h_max=0, h_qty=0; for(p=cp->next;p!=NULL;p=p->next) { if(p->val!=NULL) { v=parse_float(p->val); switch(p->token) { case Knlib_min: min=v; h_min++; break; case Knlib_max: max=v; h_max++; break; case Knlib_qty: qty=v; h_qty++; break; } } } if(h_min&&h_max&&h_qty) { nlib_add_pm(nlib,db_index, cp->val, min, max, floorf(qty)); break; } } scan->errdeck=dp; scan->errcard=dp->card; parse_error(scan,"mangled param statement\n"); break; case Knlib_input: case Knlib_output: if(cp->val!=NULL) { card_t *p; char *names[64]; /* max limit */ int i,qnames=0; nlibiodef_t *iop; int tokens=0, wires=0, digital=0, h_stuff=0; for(i=0,p=cp->next;(p!=NULL)&&(i<64);p=p->next,i++) names[i]=p->str; qnames=i; list_iterate(&(nlib->iodefs),i,iop) { if(strcmp(cp->val,iop->encoding)==0) { tokens=iop->tokens; wires=iop->wires; digital=iop->digitize; h_stuff=1; if(0)fprintf(stderr,"got stuff %s %i %i \n",cp->val,wires,qnames); } } if(h_stuff && (wires==qnames)&& (dbp!=NULL) ) { if(cp->token==Knlib_input) nlib_add_io(nlib,db_index,&(dbp->in),tokens,wires,digital,names); if(cp->token==Knlib_output) nlib_add_io(nlib,db_index,&(dbp->out),tokens,wires,digital,names); break; } } scan->errdeck=dp; scan->errcard=dp->card; parse_error(scan,"mangled input/output statement \n"); break; case Knlib_function: if(cp->val!=NULL) { nlib_db_func(nlib,db_index,cp->val); break; } parse_error(scan,"mangled function line \n"); break; case Knlib_reference: if(cp->val!=NULL) { card_t *p; char *str_name=NULL; eqn_t cshunt,rseries,delay; int h_cshunt=0, h_rseries=0, h_delay=0; int nl_index=-1, top_index=-1; for(p=cp->next;p!=NULL;p=p->next) { if(p->val!=NULL) switch(p->token) { case Knlib_name: str_name=p->val; break; case Knlib_cshunt: cshunt=eqn_parse(p->val); h_cshunt++; break; case Knlib_rseries: rseries=eqn_parse(p->val); h_rseries++; break; case Knlib_delay: delay=eqn_parse(p->val); h_delay++; break; default: scan->errdeck=dp; scan->errcard=p; parse_warn(scan,"reference: unknown word %s\n",cp->str); } } if(str_name!=NULL) nl_index=netlist_findnode(dbp->nl,str_name); if(nl_index>=0) { nlibrefnode_t rn; int l; top_index=names_check(nlib->vref,cp->val); if(top_index<0) { top_index=nlib->qvref; names_add(nlib->vref,top_index,cp->val); nlib->qvref++; } for(l=0;lrefnodes),&rn); break; } else { parse_warn(scan,"reference netlist node %s not found, ignoring\n",str_name); break; } } parse_error(scan,"mangled reference line cp=%s val=%s\n",cp->str,cp->val); break; case Knlib_netlist: break; case Knlib_spice: break; case Knlib_end_netlist: break; default: scan->errdeck=dp; scan->errcard=cp; parse_warn(scan,"ignoring unknown card %s\n",cp->str); break; } } if(dbp!=NULL) nlib_db_fixup(nlib,dbp); else assert(0); dbp=NULL; db_index=-1; break; } } } } /* check memory after parse */ free(malloc(32)); nlib_fixup(nlib); if(eqn_mem_pop()!=nlib->eqn_mem)assert(0); return list_qty(&(nlib->db)); } xcircuit-3.9.73/spiceparser/list.h0000664000175000001440000001103112335667423015634 0ustar timusers/******************** This file is part of the software library CADLIB written by Conrad Ziesler Copyright 2003, Conrad Ziesler, all rights reserved. ************************* 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. 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************/ /* list.h list module, for array-type list operators Conrad Ziesler */ #ifndef __LIST_H__ #define __LIST_H__ #ifndef __BITLIST_H__ #include "bitlist.h" #endif typedef struct list_st { int q; /* qty or current index */ int s; /* size of item */ int m; /* max alloc */ int mode; /* list access mode */ void *d; }list_t; typedef struct listx_st { list_t list; bitlist_t *bitmap; }listx_t; #define LIST_INITDATA { 0, 0, 0, 0, NULL } #define LIST_MODECHUNK 0x000fff /* mask for chunck bits */ #define LIST_DEFMODE 0x000010 /* reallocate every 16 */ #define LIST_EXPMODE 0x001fff /* double size per allocation (for exponential growth lists) */ #define LIST_FIXEDMODE 0x002000 /* flag error if we exceed hinted size */ #define LIST_UNITMODE 0x01 /* reallocate every 1 */ #define LIST_USERFLAG1 0x010000 #define LIST_USERFLAG2 0x020000 #define LIST_USERMASK 0xff0000 #define list_getuser(l) (((l)->mode&LIST_USERMASK)>>16) #define list_putuser(l,u) (l)->mode=((u<<16)&LIST_USERMASK) #define list_setuser(l,u) list_putuser((l),list_getuser((l))|(u)) #define list_clearuser(l,u) list_putuser((l),list_getuser((l))&(~u)) #define list_iterate(l,i,p) for((p)=list_data((l),(i)=0);(p)!=NULL;(p)=list_data((l),++(i))) #define list_iterate_(l,i) for((i)=0;(i)<((l)->q);(i)++) #define list_iterate_backwards(l,i,p) for((p)=list_data((l),(i)=((l)->q-1));(p)!=NULL;(p)=list_data((l),--(i))) #define list_lastitem(l) (list_data((l),(l)->q-1)) #define list_firstitem(l) (list_data((l),0)) #define list_qty(l) ((l)->q) #define list_sizeof(l) ((l)->s) /* listx routines allow for allocating and freeing list elements */ void listx_init(listx_t *l, int size, int mode); int listx_qty(listx_t *l); void *listx_data(listx_t *l, int cell); void listx_empty(listx_t *l); void listx_free(listx_t *l, int cell); int listx_alloc(listx_t *l); void *listx_vdata(listx_t *l, int cell); #define listx_iterate(l,i,p) for((p)=list_data(&((l)->list),(i)=0);(p)!=NULL;(p)=list_data(&((l)->list),++(i))) if(bitlist_test((l)->bitmap,i)) /* #define list_data(l,i) ((void *)( (((i)<((l)->q))&&((i)>=0))? (((char *)((l)->d))+((l)->s * (i))):NULL)) #define list_data(l,i) list_data_func(l,i) */ static inline void *list_data(const list_t *l, int i) { if((iq)&&(i>=0)) return ((char *)(l->d))+(l->s * i); return NULL; } static inline void *list_vdata(const list_t *l, int i) { if((iq)&&(i>=0)) return ((char *)(l->d))+(l->s * i); assert(0&&"invalid index into list"); } int list_element_dup(list_t *l, int from, int to); int list_remove(list_t *l, int i, void *save); void list_empty(list_t *l); void list_init(list_t *l, int s, int mode); void list_hint(list_t *l, int max); void *list_next(list_t *l); void *list_prev(list_t *l); void *list_block_next(list_t *l, int qty); void inline *list_data_func(list_t *l, int i); int list_contains(list_t *l, void *d); int list_add(list_t *l, void *d); int list_index(list_t *l, void *p); void list_sort(list_t *l, int (*cmp)(const void *a, const void *b)); void list_start(list_t *l); void list_copyfrom(list_t *newl, list_t *oldl); void list_shrink(list_t *l); int list_nextz(list_t *l); void list_dup(list_t *newl, list_t *oldl); void list_reset(list_t *l); void list_append(list_t *growing, list_t *copyfrom); int list_stdlib_bsearch(list_t *l, void *key, int (*cmp)(const void *a, const void *b)); typedef struct sort_func_st { list_t *tosort; int (*cmpf)(struct sort_func_st *s, void *a, void *b); int aiskey; /* if element a is a key and not a normal element */ void *user; }sort_func_t; int list_bsearch(sort_func_t *sf, void *key); /* this is in sort.c */ void list_qsort (sort_func_t *sf); #endif xcircuit-3.9.73/lib/0000775000175000001440000000000013066774071012742 5ustar timusersxcircuit-3.9.73/lib/isolatin5.enc0000664000175000001440000000422413066774071015342 0ustar timusers%%BeginResource: encoding ISOLatin5Encoding /ISOLatin5Encoding [ /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question % 100 /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /.notdef % 200 /.notdef /.notdef /quotesinglbase /florin /quotedblbase /ellipsis /dagger /daggerdbl /circumflex /perthousand /Scaron /guilsinglleft /OE /.notdef /.notdef /.notdef /.notdef /quoteleft /quoteright /quotedblleft /quotedblright /bullet /endash /emdash /tilde /trademark /scaron /guilsinglright /oe /.notdef /.notdef /Ydieresis /space /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /bullet /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown % 300 /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Gbreve /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Idotaccent /Scedilla /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /gbreve /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex /udieresis /dotlessi /scedilla /ydieresis ] def %%EndResource xcircuit-3.9.73/lib/pcb_layout.lps0000664000175000001440000013126712335667423015635 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: new_pcb % Author: R. Timothy Edwards % % Depend cap300 polarized pin % Depend cap200 polarized pin % Depend res300 resistor pin % Depend regulator pin % Depend sip8 pin1 pin % Depend sip10 pin1 pin % Depend clock8 pin1 pin % Depend dip8 pin pin1 % Depend dip14 pin pin1 % Depend dip16 pin pin1 % Depend dip20 pin1 pin % Depend dip24n pin pin1 % Depend dip28n pin1 pin % Depend dip40 pin1 pin % Depend dio_port pin1 pin % Depend pga68 pin1 pin % Depend pga44 pin1 pin % XCircuitLib library objects /polarized { begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 0 -80 74 66.00 114.00 xcarc endgate } def /pin { begingate 1 5.00 0 0 12 0.00 360.00 xcarc endgate } def /cap300 { begingate 1 1.00 0 64 0 96 2 polygon 1 1.00 0 -96 0 -64 2 polygon 1.00 0 0 0 polarized (+) {/Symbol cf} 2 24 0 1.00 32 32 label 1.00 0 0 96 pin 1.00 0 0 -96 pin endgate } def /cap200 { begingate 1.00 0 0 0 polarized (+) {/Symbol cf} 2 24 0 1.00 32 32 label 1.00 0 0 64 pin 1.00 0 0 -64 pin endgate } def /resistor { begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon endgate } def /res300 { begingate 1.00 0 0 0 resistor 1 1.00 0 64 0 96 2 polygon 1 1.00 0 -96 0 -64 2 polygon 1.00 0 0 96 pin 1.00 0 0 -96 pin endgate } def /regulator { begingate 0 1.00 -96 -48 -96 48 96 48 96 -48 4 polygon 1 1.00 -96 16 96 16 2 polygon 1.00 0 64 -16 pin 1.00 0 0 -16 pin 1.00 0 -64 -16 pin endgate } def /pin1 { begingate 8 0 beginpath 0 0 8 0.00 360.00 arc 15 0 15 -15 -15 -15 -15 15 15 15 15 0 6 polyc 241 1.00 endpath endgate } def /sip8 { begingate 0.843 0.843 0.843 scb 240 1.00 -240 -32 -240 0 240 0 240 -32 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -160 16 label (4) {/Times-Roman cf} 2 29 180 0.75 -32 16 label (3) {/Times-Roman cf} 2 29 180 0.75 -96 16 label (1) {/Times-Roman cf} 2 29 180 0.75 -224 16 label (6) {/Times-Roman cf} 2 29 180 0.75 96 16 label (7) {/Times-Roman cf} 2 29 180 0.75 160 16 label (5) {/Times-Roman cf} 2 29 180 0.75 32 16 label (8) {/Times-Roman cf} 2 29 180 0.75 224 16 label sce 1.00 0 -224 -16 pin1 1.00 0 -160 -16 pin 1.00 0 -96 -16 pin 1.00 0 -32 -16 pin 1.00 0 32 -16 pin 1.00 0 96 -16 pin 1.00 0 160 -16 pin 1.00 0 224 -16 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -160 -16 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -32 -16 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -96 -16 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -224 -16 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 96 -16 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 160 -16 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 32 -16 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 224 -16 pinlabel endgate } def /sip10 { begingate 0.843 0.843 0.843 scb 240 1.00 -240 -32 -240 0 368 0 368 -32 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -160 16 label (4) {/Times-Roman cf} 2 29 180 0.75 -32 16 label (3) {/Times-Roman cf} 2 29 180 0.75 -96 16 label (1) {/Times-Roman cf} 2 29 180 0.75 -224 16 label (6) {/Times-Roman cf} 2 29 180 0.75 96 16 label (7) {/Times-Roman cf} 2 29 180 0.75 160 16 label (5) {/Times-Roman cf} 2 29 180 0.75 32 16 label (8) {/Times-Roman cf} 2 29 180 0.75 224 16 label (9) {/Times-Roman cf} 2 29 180 0.75 288 16 label (10) {/Times-Roman cf} 2 29 180 0.75 352 16 label sce 1.00 0 -224 -16 pin1 1.00 0 -160 -16 pin 1.00 0 -96 -16 pin 1.00 0 -32 -16 pin 1.00 0 32 -16 pin 1.00 0 96 -16 pin 1.00 0 160 -16 pin 1.00 0 224 -16 pin 1.00 0 288 -16 pin 1.00 0 352 -16 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -160 -16 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -32 -16 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -96 -16 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -224 -16 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 96 -16 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 160 -16 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 32 -16 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 224 -16 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 288 -16 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 352 -16 pinlabel endgate } def /clock8 { begingate 0.843 0.843 0.843 scb 240 1.00 -96 -96 -96 96 96 96 96 -96 4 polygon 0.000 0.000 1.000 scb (4) {/Times-Roman cf} 2 29 180 0.75 96 -64 label (8) {/Times-Roman cf} 2 17 180 0.75 -96 64 label (5) {/Times-Roman cf} 2 17 180 0.75 96 64 label (1) {/Times-Roman cf} 2 29 180 0.75 -96 -64 label sce 1.00 0 -96 -96 pin1 1.00 0 96 -96 pin 1.00 0 96 96 pin 1.00 0 -96 96 pin 1.000 0.000 0.000 scb (4) {/Times-Roman cf} 2 17 180 0.75 96 -96 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -96 96 pinlabel (5) {/Times-Roman cf} 2 29 180 0.75 96 96 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -96 -96 pinlabel endgate } def /dip8 { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 -80 112 -80 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 25 180 0.75 -208 80 label (7) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (5) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (8) {/Times-Roman cf} 2 25 180 0.75 -80 80 label sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -80 -80 pin 1.00 0 -144 -80 pin 1.00 0 -208 -80 pin 1.00 0 -272 -80 pin1 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (7) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (5) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel endgate } def /dip14 { begingate 0.843 0.843 0.843 scb 240 1.00 112 -80 112 112 -272 112 -272 -80 4 polygon 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (12) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (11) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (10) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (9) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 112 -80 pin 1.00 0 48 -80 pin 1.00 0 -16 -80 pin 1.00 0 -80 -80 pin 1.00 0 -144 -80 pin 1.00 0 -208 -80 pin 1.00 0 -272 -80 pin1 0.000 0.000 1.000 scb (12) {/Times-Roman cf} 2 17 180 0.75 -144 80 label (14) {/Times-Roman cf} 2 17 180 0.75 -272 80 label (13) {/Times-Roman cf} 2 17 180 0.75 -208 80 label (11) {/Times-Roman cf} 2 17 180 0.75 -80 80 label (10) {/Times-Roman cf} 2 17 180 0.75 -16 80 label (9) {/Times-Roman cf} 2 17 180 0.75 48 80 label (8) {/Times-Roman cf} 2 17 180 0.75 112 80 label (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label endgate } def /dip16 { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 176 112 176 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (12) {/Times-Roman cf} 2 25 180 0.75 -16 80 label (14) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (13) {/Times-Roman cf} 2 25 180 0.75 -80 80 label (11) {/Times-Roman cf} 2 25 180 0.75 48 80 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label (16) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (15) {/Times-Roman cf} 2 25 180 0.75 -208 80 label (8) {/Times-Roman cf} 2 29 180 0.75 176 -48 label (10) {/Times-Roman cf} 2 25 180 0.75 112 80 label (9) {/Times-Roman cf} 2 25 180 0.75 176 80 label sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 176 112 pin 1.00 0 -208 -80 pin 1.00 0 -144 -80 pin 1.00 0 -80 -80 pin 1.00 0 -16 -80 pin 1.00 0 48 -80 pin 1.00 0 112 -80 pin 1.00 0 176 -80 pin 1.00 0 -272 -80 pin1 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (12) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (11) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 176 -80 pinlabel (10) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel (9) {/Times-Roman cf} 2 29 180 0.75 176 112 pinlabel endgate } def /dip20 { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 304 112 304 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (12) {/Times-Roman cf} 2 25 180 0.75 240 80 label (14) {/Times-Roman cf} 2 25 180 0.75 112 80 label (13) {/Times-Roman cf} 2 25 180 0.75 176 80 label (11) {/Times-Roman cf} 2 25 180 0.75 304 80 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label (16) {/Times-Roman cf} 2 25 180 0.75 -16 80 label (15) {/Times-Roman cf} 2 25 180 0.75 48 80 label (8) {/Times-Roman cf} 2 29 180 0.75 176 -48 label (10) {/Times-Roman cf} 2 29 180 0.75 304 -48 label (9) {/Times-Roman cf} 2 29 180 0.75 240 -48 label (18) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (17) {/Times-Roman cf} 2 25 180 0.75 -80 80 label (20) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (19) {/Times-Roman cf} 2 25 180 0.75 -208 80 label sce 1.00 0 -272 -80 pin1 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 176 112 pin 1.00 0 240 112 pin 1.00 0 304 112 pin 1.00 0 304 -80 pin 1.00 0 240 -80 pin 1.00 0 176 -80 pin 1.00 0 112 -80 pin 1.00 0 48 -80 pin 1.00 0 -16 -80 pin 1.00 0 -80 -80 pin 1.00 0 -144 -80 pin 1.00 0 -208 -80 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (12) {/Times-Roman cf} 2 29 180 0.75 240 112 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 176 112 pinlabel (11) {/Times-Roman cf} 2 29 180 0.75 304 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 176 -80 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 304 -80 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 240 -80 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (17) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (19) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel endgate } def /dip24n { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 432 112 432 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (14) {/Times-Roman cf} 2 25 180 0.75 368 80 label (13) {/Times-Roman cf} 2 25 180 0.75 432 80 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label (16) {/Times-Roman cf} 2 25 180 0.75 240 80 label (15) {/Times-Roman cf} 2 25 180 0.75 304 80 label (8) {/Times-Roman cf} 2 29 180 0.75 176 -48 label (10) {/Times-Roman cf} 2 29 180 0.75 304 -48 label (9) {/Times-Roman cf} 2 29 180 0.75 240 -48 label (18) {/Times-Roman cf} 2 25 180 0.75 112 80 label (17) {/Times-Roman cf} 2 25 180 0.75 176 80 label (20) {/Times-Roman cf} 2 25 180 0.75 -16 80 label (19) {/Times-Roman cf} 2 25 180 0.75 48 80 label (21) {/Times-Roman cf} 2 25 180 0.75 -80 80 label (22) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (23) {/Times-Roman cf} 2 25 180 0.75 -208 80 label (24) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (12) {/Times-Roman cf} 2 29 180 0.75 432 -48 label (11) {/Times-Roman cf} 2 29 180 0.75 368 -48 label sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 176 112 pin 1.00 0 240 112 pin 1.00 0 304 112 pin 1.00 0 368 112 pin 1.00 0 432 112 pin 1.00 0 -272 -80 pin1 1.00 0 -208 -80 pin 1.00 0 -144 -80 pin 1.00 0 -80 -80 pin 1.00 0 -16 -80 pin 1.00 0 48 -80 pin 1.00 0 112 -80 pin 1.00 0 176 -80 pin 1.00 0 240 -80 pin 1.00 0 304 -80 pin 1.00 0 368 -80 pin 1.00 0 432 -80 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 368 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 432 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 240 112 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 304 112 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 176 -80 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 304 -80 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 240 -80 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel (17) {/Times-Roman cf} 2 29 180 0.75 176 112 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (19) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (21) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (23) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (12) {/Times-Roman cf} 2 17 180 0.75 432 -80 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 368 -80 pinlabel endgate } def /dip28n { begingate 0.843 0.843 0.843 scb 240 1.00 -416 -96 -416 96 416 96 416 -96 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -352 -64 label (4) {/Times-Roman cf} 2 29 180 0.75 -224 -64 label (22) {/Times-Roman cf} 2 25 180 0.75 -32 64 label (24) {/Times-Roman cf} 2 25 180 0.75 -160 64 label (23) {/Times-Roman cf} 2 25 180 0.75 -96 64 label (21) {/Times-Roman cf} 2 25 180 0.75 32 64 label (3) {/Times-Roman cf} 2 29 180 0.75 -288 -64 label (1) {/Times-Roman cf} 2 29 180 0.75 -416 -64 label (6) {/Times-Roman cf} 2 29 180 0.75 -96 -64 label (7) {/Times-Roman cf} 2 29 180 0.75 -32 -64 label (5) {/Times-Roman cf} 2 29 180 0.75 -160 -64 label (16) {/Times-Roman cf} 2 25 180 0.75 352 64 label (15) {/Times-Roman cf} 2 25 180 0.75 416 64 label (8) {/Times-Roman cf} 2 29 180 0.75 32 -64 label (10) {/Times-Roman cf} 2 29 180 0.75 160 -64 label (9) {/Times-Roman cf} 2 29 180 0.75 96 -64 label (18) {/Times-Roman cf} 2 25 180 0.75 224 64 label (17) {/Times-Roman cf} 2 25 180 0.75 288 64 label (20) {/Times-Roman cf} 2 25 180 0.75 96 64 label (19) {/Times-Roman cf} 2 25 180 0.75 160 64 label (26) {/Times-Roman cf} 2 25 180 0.75 -288 64 label (28) {/Times-Roman cf} 2 25 180 0.75 -416 64 label (27) {/Times-Roman cf} 2 25 180 0.75 -352 64 label (25) {/Times-Roman cf} 2 25 180 0.75 -224 64 label (11) {/Times-Roman cf} 2 29 180 0.75 224 -64 label (12) {/Times-Roman cf} 2 29 180 0.75 288 -64 label (14) {/Times-Roman cf} 2 29 180 0.75 416 -64 label (13) {/Times-Roman cf} 2 29 180 0.75 352 -64 label sce 1.00 0 -416 -96 pin1 1.00 0 -352 -96 pin 1.00 0 -288 -96 pin 1.00 0 -224 -96 pin 1.00 0 -160 -96 pin 1.00 0 -96 -96 pin 1.00 0 -32 -96 pin 1.00 0 32 -96 pin 1.00 0 96 -96 pin 1.00 0 160 -96 pin 1.00 0 224 -96 pin 1.00 0 288 -96 pin 1.00 0 352 -96 pin 1.00 0 416 -96 pin 1.00 0 416 96 pin 1.00 0 352 96 pin 1.00 0 288 96 pin 1.00 0 224 96 pin 1.00 0 160 96 pin 1.00 0 96 96 pin 1.00 0 32 96 pin 1.00 0 -32 96 pin 1.00 0 -96 96 pin 1.00 0 -160 96 pin 1.00 0 -224 96 pin 1.00 0 -288 96 pin 1.00 0 -352 96 pin 1.00 0 -416 96 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -352 -96 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -224 -96 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 -32 96 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 -160 96 pinlabel (23) {/Times-Roman cf} 2 29 180 0.75 -96 96 pinlabel (21) {/Times-Roman cf} 2 29 180 0.75 32 96 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -288 -96 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -416 -96 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 -96 -96 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 -32 -96 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -160 -96 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 352 96 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 416 96 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 32 -96 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 160 -96 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 96 -96 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 224 96 pinlabel (17) {/Times-Roman cf} 2 29 180 0.75 288 96 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 96 96 pinlabel (19) {/Times-Roman cf} 2 29 180 0.75 160 96 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 -288 96 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 -416 96 pinlabel (27) {/Times-Roman cf} 2 29 180 0.75 -352 96 pinlabel (25) {/Times-Roman cf} 2 29 180 0.75 -224 96 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 224 -96 pinlabel (12) {/Times-Roman cf} 2 17 180 0.75 288 -96 pinlabel (14) {/Times-Roman cf} 2 17 180 0.75 416 -96 pinlabel (13) {/Times-Roman cf} 2 17 180 0.75 352 -96 pinlabel endgate } def /dip40 { begingate 0.843 0.843 0.843 scb 240 1.00 -416 -96 -416 224 800 224 800 -96 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -352 -64 label (4) {/Times-Roman cf} 2 29 180 0.75 -224 -64 label (22) {/Times-Roman cf} 2 25 180 0.75 736 192 label (24) {/Times-Roman cf} 2 25 180 0.75 608 192 label (23) {/Times-Roman cf} 2 25 180 0.75 672 192 label (21) {/Times-Roman cf} 2 25 180 0.75 800 192 label (3) {/Times-Roman cf} 2 29 180 0.75 -288 -64 label (1) {/Times-Roman cf} 2 29 180 0.75 -416 -64 label (6) {/Times-Roman cf} 2 29 180 0.75 -96 -64 label (7) {/Times-Roman cf} 2 29 180 0.75 -32 -64 label (5) {/Times-Roman cf} 2 29 180 0.75 -160 -64 label (8) {/Times-Roman cf} 2 29 180 0.75 32 -64 label (10) {/Times-Roman cf} 2 29 180 0.75 160 -64 label (9) {/Times-Roman cf} 2 29 180 0.75 96 -64 label (26) {/Times-Roman cf} 2 25 180 0.75 480 192 label (28) {/Times-Roman cf} 2 25 180 0.75 352 192 label (27) {/Times-Roman cf} 2 25 180 0.75 416 192 label (25) {/Times-Roman cf} 2 25 180 0.75 544 192 label (11) {/Times-Roman cf} 2 29 180 0.75 224 -64 label (12) {/Times-Roman cf} 2 29 180 0.75 288 -64 label (14) {/Times-Roman cf} 2 29 180 0.75 416 -64 label (13) {/Times-Roman cf} 2 29 180 0.75 352 -64 label (29) {/Times-Roman cf} 2 25 180 0.75 288 192 label (30) {/Times-Roman cf} 2 25 180 0.75 224 192 label (31) {/Times-Roman cf} 2 25 180 0.75 160 192 label (32) {/Times-Roman cf} 2 25 180 0.75 96 192 label (33) {/Times-Roman cf} 2 25 180 0.75 32 192 label (34) {/Times-Roman cf} 2 25 180 0.75 -32 192 label (35) {/Times-Roman cf} 2 25 180 0.75 -96 192 label (36) {/Times-Roman cf} 2 25 180 0.75 -160 192 label (37) {/Times-Roman cf} 2 25 180 0.75 -224 192 label (38) {/Times-Roman cf} 2 25 180 0.75 -288 192 label (39) {/Times-Roman cf} 2 25 180 0.75 -352 192 label (40) {/Times-Roman cf} 2 25 180 0.75 -416 192 label (15) {/Times-Roman cf} 2 29 180 0.75 480 -64 label (16) {/Times-Roman cf} 2 29 180 0.75 544 -64 label (17) {/Times-Roman cf} 2 29 180 0.75 608 -64 label (19) {/Times-Roman cf} 2 29 180 0.75 736 -64 label (18) {/Times-Roman cf} 2 29 180 0.75 672 -64 label (20) {/Times-Roman cf} 2 29 180 0.75 800 -64 label sce 1.00 0 -416 -96 pin1 1.00 0 -352 -96 pin 1.00 0 -288 -96 pin 1.00 0 -224 -96 pin 1.00 0 -160 -96 pin 1.00 0 -96 -96 pin 1.00 0 -32 -96 pin 1.00 0 32 -96 pin 1.00 0 96 -96 pin 1.00 0 160 -96 pin 1.00 0 224 -96 pin 1.00 0 288 -96 pin 1.00 0 352 -96 pin 1.00 0 416 -96 pin 1.00 0 480 -96 pin 1.00 0 544 -96 pin 1.00 0 608 -96 pin 1.00 0 672 -96 pin 1.00 0 736 -96 pin 1.00 0 800 -96 pin 1.00 0 800 224 pin 1.00 0 736 224 pin 1.00 0 672 224 pin 1.00 0 608 224 pin 1.00 0 544 224 pin 1.00 0 480 224 pin 1.00 0 416 224 pin 1.00 0 352 224 pin 1.00 0 288 224 pin 1.00 0 224 224 pin 1.00 0 160 224 pin 1.00 0 96 224 pin 1.00 0 32 224 pin 1.00 0 -32 224 pin 1.00 0 -96 224 pin 1.00 0 -160 224 pin 1.00 0 -224 224 pin 1.00 0 -288 224 pin 1.00 0 -352 224 pin 1.00 0 -416 224 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -352 -96 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -224 -96 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 736 224 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 608 224 pinlabel (23) {/Times-Roman cf} 2 29 180 0.75 672 224 pinlabel (21) {/Times-Roman cf} 2 29 180 0.75 800 224 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -288 -96 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -416 -96 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 -96 -96 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 -32 -96 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -160 -96 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 32 -96 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 160 -96 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 96 -96 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 480 224 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 352 224 pinlabel (27) {/Times-Roman cf} 2 29 180 0.75 416 224 pinlabel (25) {/Times-Roman cf} 2 29 180 0.75 544 224 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 224 -96 pinlabel (12) {/Times-Roman cf} 2 17 180 0.75 288 -96 pinlabel (14) {/Times-Roman cf} 2 17 180 0.75 416 -96 pinlabel (13) {/Times-Roman cf} 2 17 180 0.75 352 -96 pinlabel (29) {/Times-Roman cf} 2 29 180 0.75 288 224 pinlabel (30) {/Times-Roman cf} 2 29 180 0.75 224 224 pinlabel (31) {/Times-Roman cf} 2 29 180 0.75 160 224 pinlabel (32) {/Times-Roman cf} 2 29 180 0.75 96 224 pinlabel (33) {/Times-Roman cf} 2 29 180 0.75 32 224 pinlabel (34) {/Times-Roman cf} 2 29 180 0.75 -32 224 pinlabel (35) {/Times-Roman cf} 2 29 180 0.75 -96 224 pinlabel (36) {/Times-Roman cf} 2 29 180 0.75 -160 224 pinlabel (37) {/Times-Roman cf} 2 29 180 0.75 -224 224 pinlabel (38) {/Times-Roman cf} 2 29 180 0.75 -288 224 pinlabel (39) {/Times-Roman cf} 2 29 180 0.75 -352 224 pinlabel (40) {/Times-Roman cf} 2 29 180 0.75 -416 224 pinlabel (15) {/Times-Roman cf} 2 17 180 0.75 480 -96 pinlabel (16) {/Times-Roman cf} 2 17 180 0.75 544 -96 pinlabel (17) {/Times-Roman cf} 2 17 180 0.75 608 -96 pinlabel (19) {/Times-Roman cf} 2 17 180 0.75 736 -96 pinlabel (18) {/Times-Roman cf} 2 17 180 0.75 672 -96 pinlabel (20) {/Times-Roman cf} 2 17 180 0.75 800 -96 pinlabel endgate } def /dio_port { begingate 0.843 0.843 0.843 scb 240 1.00 -768 -32 -768 32 768 32 768 -32 4 polygon 0.000 0.000 1.000 scb (12) {/Times-Roman cf} 2 25 180 0.75 448 -64 label (14) {/Times-Roman cf} 2 25 180 0.75 384 -64 label (3) {/Times-Roman cf} 2 29 180 0.75 704 64 label (1) {/Times-Roman cf} 2 29 180 0.75 768 64 label (7) {/Times-Roman cf} 2 29 180 0.75 576 64 label (5) {/Times-Roman cf} 2 29 180 0.75 640 64 label (16) {/Times-Roman cf} 2 25 180 0.75 320 -64 label (9) {/Times-Roman cf} 2 29 180 0.75 512 64 label (18) {/Times-Roman cf} 2 25 180 0.75 256 -64 label (20) {/Times-Roman cf} 2 25 180 0.75 192 -64 label (2) {/Times-Roman cf} 2 25 180 0.75 768 -64 label (4) {/Times-Roman cf} 2 25 180 0.75 704 -64 label (6) {/Times-Roman cf} 2 25 180 0.75 640 -64 label (8) {/Times-Roman cf} 2 25 180 0.75 576 -64 label (10) {/Times-Roman cf} 2 25 180 0.75 512 -64 label (11) {/Times-Roman cf} 2 29 180 0.75 448 64 label (13) {/Times-Roman cf} 2 29 180 0.75 384 64 label (15) {/Times-Roman cf} 2 29 180 0.75 320 64 label (17) {/Times-Roman cf} 2 29 180 0.75 256 64 label (19) {/Times-Roman cf} 2 29 180 0.75 192 64 label (21) {/Times-Roman cf} 2 29 180 0.75 128 64 label (23) {/Times-Roman cf} 2 29 180 0.75 64 64 label (25) {/Times-Roman cf} 2 29 180 0.75 0 64 label (27) {/Times-Roman cf} 2 29 180 0.75 -64 64 label (29) {/Times-Roman cf} 2 29 180 0.75 -128 64 label (31) {/Times-Roman cf} 2 29 180 0.75 -192 64 label (33) {/Times-Roman cf} 2 29 180 0.75 -256 64 label (35) {/Times-Roman cf} 2 29 180 0.75 -320 64 label (37) {/Times-Roman cf} 2 29 180 0.75 -384 64 label (39) {/Times-Roman cf} 2 29 180 0.75 -448 64 label (41) {/Times-Roman cf} 2 29 180 0.75 -512 64 label (43) {/Times-Roman cf} 2 29 180 0.75 -576 64 label (45) {/Times-Roman cf} 2 29 180 0.75 -640 64 label (47) {/Times-Roman cf} 2 29 180 0.75 -704 64 label (49) {/Times-Roman cf} 2 29 180 0.75 -768 64 label (22) {/Times-Roman cf} 2 25 180 0.75 128 -64 label (24) {/Times-Roman cf} 2 25 180 0.75 64 -64 label (26) {/Times-Roman cf} 2 25 180 0.75 0 -64 label (28) {/Times-Roman cf} 2 25 180 0.75 -64 -64 label (30) {/Times-Roman cf} 2 25 180 0.75 -128 -64 label (32) {/Times-Roman cf} 2 25 180 0.75 -192 -64 label (34) {/Times-Roman cf} 2 25 180 0.75 -256 -64 label (36) {/Times-Roman cf} 2 25 180 0.75 -320 -64 label (38) {/Times-Roman cf} 2 25 180 0.75 -384 -64 label (40) {/Times-Roman cf} 2 25 180 0.75 -448 -64 label (42) {/Times-Roman cf} 2 25 180 0.75 -512 -64 label (44) {/Times-Roman cf} 2 25 180 0.75 -576 -64 label (46) {/Times-Roman cf} 2 25 180 0.75 -640 -64 label (48) {/Times-Roman cf} 2 25 180 0.75 -704 -64 label (50) {/Times-Roman cf} 2 25 180 0.75 -768 -64 label sce 1.00 0 768 32 pin1 1.00 0 704 32 pin 1.00 0 640 32 pin 1.00 0 576 32 pin 1.00 0 512 32 pin 1.00 0 448 32 pin 1.00 0 768 -32 pin 1.00 0 704 -32 pin 1.00 0 640 -32 pin 1.00 0 576 -32 pin 1.00 0 512 -32 pin 1.00 0 448 -32 pin 1.00 0 384 -32 pin 1.00 0 384 32 pin 1.00 0 320 32 pin 1.00 0 256 32 pin 1.00 0 320 -32 pin 1.00 0 256 -32 pin 1.00 0 192 -32 pin 1.00 0 192 32 pin 1.00 0 128 32 pin 1.00 0 64 32 pin 1.00 0 0 32 pin 1.00 0 128 -32 pin 1.00 0 64 -32 pin 1.00 0 0 -32 pin 1.00 0 -64 -32 pin 1.00 0 -64 32 pin 1.00 0 -128 32 pin 1.00 0 -128 -32 pin 1.00 0 -192 -32 pin 1.00 0 -192 32 pin 1.00 0 -256 32 pin 1.00 0 -256 -32 pin 1.00 0 -320 -32 pin 1.00 0 -320 32 pin 1.00 0 -384 32 pin 1.00 0 -384 -32 pin 1.00 0 -448 -32 pin 1.00 0 -448 32 pin 1.00 0 -512 32 pin 1.00 0 -512 -32 pin 1.00 0 -576 -32 pin 1.00 0 -576 32 pin 1.00 0 -640 32 pin 1.00 0 -640 -32 pin 1.00 0 -704 -32 pin 1.00 0 -704 32 pin 1.00 0 -768 32 pin 1.00 0 -768 -32 pin 1.000 0.000 0.000 scb (12) {/Times-Roman cf} 2 29 180 0.75 448 -32 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 384 -32 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 320 -32 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 256 -32 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 192 -32 pinlabel (2) {/Times-Roman cf} 2 29 180 0.75 768 -32 pinlabel (4) {/Times-Roman cf} 2 29 180 0.75 704 -32 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 640 -32 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 576 -32 pinlabel (10) {/Times-Roman cf} 2 29 180 0.75 512 -32 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 128 -32 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 64 -32 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 0 -32 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 -64 -32 pinlabel (30) {/Times-Roman cf} 2 29 180 0.75 -128 -32 pinlabel (32) {/Times-Roman cf} 2 29 180 0.75 -192 -32 pinlabel (34) {/Times-Roman cf} 2 29 180 0.75 -256 -32 pinlabel (36) {/Times-Roman cf} 2 29 180 0.75 -320 -32 pinlabel (38) {/Times-Roman cf} 2 29 180 0.75 -384 -32 pinlabel (40) {/Times-Roman cf} 2 29 180 0.75 -448 -32 pinlabel (42) {/Times-Roman cf} 2 29 180 0.75 -512 -32 pinlabel (44) {/Times-Roman cf} 2 29 180 0.75 -576 -32 pinlabel (46) {/Times-Roman cf} 2 29 180 0.75 -640 -32 pinlabel (48) {/Times-Roman cf} 2 29 180 0.75 -704 -32 pinlabel (50) {/Times-Roman cf} 2 29 180 0.75 -768 -32 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 704 32 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 768 32 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 576 32 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 640 32 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 512 32 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 448 32 pinlabel (13) {/Times-Roman cf} 2 17 180 0.75 384 32 pinlabel (15) {/Times-Roman cf} 2 17 180 0.75 320 32 pinlabel (17) {/Times-Roman cf} 2 17 180 0.75 256 32 pinlabel (19) {/Times-Roman cf} 2 17 180 0.75 192 32 pinlabel (21) {/Times-Roman cf} 2 17 180 0.75 128 32 pinlabel (23) {/Times-Roman cf} 2 17 180 0.75 64 32 pinlabel (25) {/Times-Roman cf} 2 17 180 0.75 0 32 pinlabel (27) {/Times-Roman cf} 2 17 180 0.75 -64 32 pinlabel (29) {/Times-Roman cf} 2 17 180 0.75 -128 32 pinlabel (31) {/Times-Roman cf} 2 17 180 0.75 -192 32 pinlabel (33) {/Times-Roman cf} 2 17 180 0.75 -256 32 pinlabel (35) {/Times-Roman cf} 2 17 180 0.75 -320 32 pinlabel (37) {/Times-Roman cf} 2 17 180 0.75 -384 32 pinlabel (39) {/Times-Roman cf} 2 17 180 0.75 -448 32 pinlabel (41) {/Times-Roman cf} 2 17 180 0.75 -512 32 pinlabel (43) {/Times-Roman cf} 2 17 180 0.75 -576 32 pinlabel (45) {/Times-Roman cf} 2 17 180 0.75 -640 32 pinlabel (47) {/Times-Roman cf} 2 17 180 0.75 -704 32 pinlabel (49) {/Times-Roman cf} 2 17 180 0.75 -768 32 pinlabel endgate } def /pga68 { begingate 0.843 0.843 0.843 scb 241 1.00 -448 -256 -384 -256 -384 -320 128 -320 128 -256 192 -256 192 256 128 256 128 320 -384 320 -384 256 -448 256 -448 0 -384 0 -384 192 -320 192 -320 256 64 256 64 192 128 192 128 -192 64 -192 64 -256 -320 -256 -320 -192 -384 -192 -384 0 -448 0 -448 -256 29 polygon sce 1 1.00 -432 -272 0 0.00 360.00 xcarc 0.000 0.000 1.000 scb (10) {/Times-Roman cf} 2 20 180 0.75 -480 256 label (11) {/Times-Roman cf} 2 28 180 0.75 -400 272 label (12) {/Times-Roman cf} 2 20 180 0.75 -480 192 label (13) {/Times-Roman cf} 2 23 180 0.75 -352 176 label (14) {/Times-Roman cf} 2 20 180 0.75 -480 128 label (15) {/Times-Roman cf} 2 23 180 0.75 -352 128 label (16) {/Times-Roman cf} 2 20 180 0.75 -480 64 label (17) {/Times-Roman cf} 2 23 180 0.75 -352 64 label (18) {/Times-Roman cf} 2 20 180 0.75 -480 0 label (19) {/Times-Roman cf} 2 23 180 0.75 -352 0 label (20) {/Times-Roman cf} 2 20 180 0.75 -480 -64 label (21) {/Times-Roman cf} 2 23 180 0.75 -352 -64 label (22) {/Times-Roman cf} 2 20 180 0.75 -480 -128 label (23) {/Times-Roman cf} 2 23 180 0.75 -352 -128 label (24) {/Times-Roman cf} 2 20 180 0.75 -480 -192 label (25) {/Times-Roman cf} 2 23 180 0.75 -352 -176 label (27) {/Times-Roman cf} 2 25 180 0.75 -384 -368 label (28) {/Times-Roman cf} 2 24 180 0.75 -400 -288 label (29) {/Times-Roman cf} 2 25 180 0.75 -320 -368 label (1) {/Times-Roman cf} 2 29 180 0.75 -128 352 label (2) {/Times-Roman cf} 2 25 180 0.75 -128 208 label (4) {/Times-Roman cf} 2 25 180 0.75 -192 208 label (6) {/Times-Roman cf} 2 25 180 0.75 -256 208 label (8) {/Times-Roman cf} 2 25 180 0.75 -320 208 label (3) {/Times-Roman cf} 2 29 180 0.75 -192 352 label (5) {/Times-Roman cf} 2 29 180 0.75 -256 352 label (7) {/Times-Roman cf} 2 29 180 0.75 -320 352 label (9) {/Times-Roman cf} 2 29 180 0.75 -384 352 label (30) {/Times-Roman cf} 2 29 180 0.75 -320 -224 label (32) {/Times-Roman cf} 2 29 180 0.75 -256 -224 label (34) {/Times-Roman cf} 2 29 180 0.75 -192 -224 label (36) {/Times-Roman cf} 2 29 180 0.75 -128 -224 label (38) {/Times-Roman cf} 2 29 180 0.75 -64 -224 label (40) {/Times-Roman cf} 2 29 180 0.75 0 -224 label (42) {/Times-Roman cf} 2 29 180 0.75 64 -224 label (31) {/Times-Roman cf} 2 25 180 0.75 -256 -368 label (33) {/Times-Roman cf} 2 25 180 0.75 -192 -368 label (35) {/Times-Roman cf} 2 25 180 0.75 -128 -368 label (37) {/Times-Roman cf} 2 25 180 0.75 -64 -368 label (39) {/Times-Roman cf} 2 25 180 0.75 0 -368 label (41) {/Times-Roman cf} 2 25 180 0.75 64 -368 label (43) {/Times-Roman cf} 2 25 180 0.75 128 -368 label (44) {/Times-Roman cf} 2 23 180 0.75 224 -256 label (46) {/Times-Roman cf} 2 23 180 0.75 224 -192 label (48) {/Times-Roman cf} 2 23 180 0.75 224 -128 label (50) {/Times-Roman cf} 2 23 180 0.75 224 -64 label (52) {/Times-Roman cf} 2 23 180 0.75 224 0 label (54) {/Times-Roman cf} 2 23 180 0.75 224 64 label (56) {/Times-Roman cf} 2 23 180 0.75 224 128 label (58) {/Times-Roman cf} 2 23 180 0.75 224 192 label (60) {/Times-Roman cf} 2 23 180 0.75 224 256 label (61) {/Times-Roman cf} 2 29 180 0.75 128 352 label (63) {/Times-Roman cf} 2 29 180 0.75 64 352 label (65) {/Times-Roman cf} 2 29 180 0.75 0 352 label (67) {/Times-Roman cf} 2 29 180 0.75 -64 352 label (45) {/Times-Roman cf} 2 27 180 0.75 144 -288 label (47) {/Times-Roman cf} 2 20 180 0.75 96 -176 label (49) {/Times-Roman cf} 2 20 180 0.75 96 -128 label (51) {/Times-Roman cf} 2 20 180 0.75 96 -64 label (53) {/Times-Roman cf} 2 20 180 0.75 96 0 label (55) {/Times-Roman cf} 2 20 180 0.75 96 64 label (57) {/Times-Roman cf} 2 20 180 0.75 96 128 label (59) {/Times-Roman cf} 2 20 180 0.75 96 176 label (62) {/Times-Roman cf} 2 31 180 0.75 144 288 label (64) {/Times-Roman cf} 2 25 180 0.75 64 208 label (66) {/Times-Roman cf} 2 25 180 0.75 0 208 label (68) {/Times-Roman cf} 2 25 180 0.75 -64 208 label (26) {/Times-Roman cf} 2 20 180 0.75 -480 -256 label sce 1.00 0 -128 320 pin1 1.00 0 -384 -256 pin 1.00 0 -320 -256 pin 1.00 0 -384 -320 pin 1.00 0 -320 -320 pin 1.00 0 -256 -320 pin 1.00 0 -192 -320 pin 1.00 0 -128 -320 pin 1.00 0 -64 -320 pin 1.00 0 0 -320 pin 1.00 0 64 -320 pin 1.00 0 128 -320 pin 1.00 0 128 -256 pin 1.00 0 64 -256 pin 1.00 0 0 -256 pin 1.00 0 -64 -256 pin 1.00 0 -128 -256 pin 1.00 0 -192 -256 pin 1.00 0 -256 -256 pin 1.00 0 -448 -256 pin 1.00 0 -448 -192 pin 1.00 0 -384 -192 pin 1.00 0 -384 -128 pin 1.00 0 -384 -64 pin 1.00 0 -384 0 pin 1.00 0 -384 64 pin 1.00 0 -384 128 pin 1.00 0 -384 192 pin 1.00 0 -384 256 pin 1.00 0 -384 320 pin 1.00 0 -448 256 pin 1.00 0 -448 192 pin 1.00 0 -448 128 pin 1.00 0 -448 64 pin 1.00 0 -448 0 pin 1.00 0 -448 -64 pin 1.00 0 -448 -128 pin 1.00 0 192 -256 pin 1.00 0 192 -192 pin 1.00 0 128 -192 pin 1.00 0 128 -128 pin 1.00 0 192 -128 pin 1.00 0 192 -64 pin 1.00 0 128 -64 pin 1.00 0 128 0 pin 1.00 0 192 0 pin 1.00 0 192 64 pin 1.00 0 128 64 pin 1.00 0 128 128 pin 1.00 0 192 128 pin 1.00 0 192 192 pin 1.00 0 128 192 pin 1.00 0 128 256 pin 1.00 0 192 256 pin 1.00 0 128 320 pin 1.00 0 64 320 pin 1.00 0 64 256 pin 1.00 0 0 256 pin 1.00 0 0 320 pin 1.00 0 -64 320 pin 1.00 0 -64 256 pin 1.00 0 -128 256 pin 1.00 0 -192 256 pin 1.00 0 -192 320 pin 1.00 0 -256 320 pin 1.00 0 -256 256 pin 1.00 0 -320 256 pin 1.00 0 -320 320 pin 1.000 0.000 0.000 scb (13) {/Times-Roman cf} 2 20 180 0.75 -384 192 pinlabel (15) {/Times-Roman cf} 2 20 180 0.75 -384 128 pinlabel (17) {/Times-Roman cf} 2 20 180 0.75 -384 64 pinlabel (19) {/Times-Roman cf} 2 20 180 0.75 -384 0 pinlabel (21) {/Times-Roman cf} 2 20 180 0.75 -384 -64 pinlabel (23) {/Times-Roman cf} 2 20 180 0.75 -384 -128 pinlabel (25) {/Times-Roman cf} 2 20 180 0.75 -384 -192 pinlabel (2) {/Times-Roman cf} 2 29 180 0.75 -128 256 pinlabel (4) {/Times-Roman cf} 2 29 180 0.75 -192 256 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 -256 256 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -320 256 pinlabel (30) {/Times-Roman cf} 2 17 180 0.75 -320 -256 pinlabel (32) {/Times-Roman cf} 2 17 180 0.75 -256 -256 pinlabel (34) {/Times-Roman cf} 2 17 180 0.75 -192 -256 pinlabel (36) {/Times-Roman cf} 2 17 180 0.75 -128 -256 pinlabel (38) {/Times-Roman cf} 2 17 180 0.75 -64 -256 pinlabel (40) {/Times-Roman cf} 2 17 180 0.75 0 -256 pinlabel (42) {/Times-Roman cf} 2 17 180 0.75 64 -256 pinlabel (47) {/Times-Roman cf} 2 23 180 0.75 128 -192 pinlabel (49) {/Times-Roman cf} 2 23 180 0.75 128 -128 pinlabel (51) {/Times-Roman cf} 2 23 180 0.75 128 -64 pinlabel (53) {/Times-Roman cf} 2 23 180 0.75 128 0 pinlabel (55) {/Times-Roman cf} 2 23 180 0.75 128 64 pinlabel (57) {/Times-Roman cf} 2 23 180 0.75 128 128 pinlabel (59) {/Times-Roman cf} 2 23 180 0.75 128 192 pinlabel (43) {/Times-Roman cf} 2 29 180 0.75 64 256 pinlabel (66) {/Times-Roman cf} 2 29 180 0.75 0 256 pinlabel (68) {/Times-Roman cf} 2 29 180 0.75 -64 256 pinlabel (44) {/Times-Roman cf} 2 20 180 0.75 192 -256 pinlabel (46) {/Times-Roman cf} 2 20 180 0.75 192 -192 pinlabel (48) {/Times-Roman cf} 2 20 180 0.75 192 -128 pinlabel (50) {/Times-Roman cf} 2 20 180 0.75 192 -64 pinlabel (52) {/Times-Roman cf} 2 20 180 0.75 192 0 pinlabel (54) {/Times-Roman cf} 2 20 180 0.75 192 64 pinlabel (56) {/Times-Roman cf} 2 20 180 0.75 192 128 pinlabel (58) {/Times-Roman cf} 2 20 180 0.75 192 192 pinlabel (60) {/Times-Roman cf} 2 20 180 0.75 192 256 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -128 320 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -192 320 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -256 320 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 -320 320 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 -384 320 pinlabel (61) {/Times-Roman cf} 2 17 180 0.75 128 320 pinlabel (63) {/Times-Roman cf} 2 17 180 0.75 64 320 pinlabel (65) {/Times-Roman cf} 2 17 180 0.75 0 320 pinlabel (67) {/Times-Roman cf} 2 17 180 0.75 -64 320 pinlabel (27) {/Times-Roman cf} 2 29 180 0.75 -384 -320 pinlabel (29) {/Times-Roman cf} 2 29 180 0.75 -320 -320 pinlabel (31) {/Times-Roman cf} 2 29 180 0.75 -256 -320 pinlabel (33) {/Times-Roman cf} 2 29 180 0.75 -192 -320 pinlabel (35) {/Times-Roman cf} 2 29 180 0.75 -128 -320 pinlabel (37) {/Times-Roman cf} 2 29 180 0.75 -64 -320 pinlabel (39) {/Times-Roman cf} 2 29 180 0.75 0 -320 pinlabel (41) {/Times-Roman cf} 2 29 180 0.75 64 -320 pinlabel (43) {/Times-Roman cf} 2 29 180 0.75 128 -320 pinlabel (10) {/Times-Roman cf} 2 23 180 0.75 -448 256 pinlabel (12) {/Times-Roman cf} 2 23 180 0.75 -448 192 pinlabel (14) {/Times-Roman cf} 2 23 180 0.75 -448 128 pinlabel (16) {/Times-Roman cf} 2 23 180 0.75 -448 64 pinlabel (18) {/Times-Roman cf} 2 23 180 0.75 -448 0 pinlabel (20) {/Times-Roman cf} 2 23 180 0.75 -448 -64 pinlabel (22) {/Times-Roman cf} 2 23 180 0.75 -448 -128 pinlabel (24) {/Times-Roman cf} 2 23 180 0.75 -448 -192 pinlabel (26) {/Times-Roman cf} 2 23 180 0.75 -448 -256 pinlabel (62) {/Times-Roman cf} 2 31 180 0.75 128 256 pinlabel (11) {/Times-Roman cf} 2 28 180 0.75 -384 256 pinlabel sce 1 1.00 432 -256 0 0.00 360.00 xcarc 1.000 0.000 0.000 scb (45) {/Times-Roman cf} 2 19 180 0.75 128 -256 pinlabel (28) {/Times-Roman cf} 2 16 180 0.75 -384 -256 pinlabel endgate } def /pga44 { begingate 0.843 0.843 0.843 scb 240 1.00 -192 -256 -192 -320 128 -320 128 -256 192 -256 192 64 128 64 128 128 -192 128 -192 64 -256 64 -256 -128 -192 -128 -192 0 -128 0 -128 64 64 64 64 0 128 0 128 -192 64 -192 64 -256 -128 -256 -128 -192 -192 -192 -192 -128 -256 -128 -256 -256 28 polygon 0.000 0.000 1.000 scb (7) {/Times-Roman cf} 2 20 180 0.75 -288 64 label (8) {/Times-Roman cf} 2 28 180 0.75 -216 96 label (9) {/Times-Roman cf} 2 20 180 0.75 -288 0 label (10) {/Times-Roman cf} 2 23 180 0.75 -160 -16 label (11) {/Times-Roman cf} 2 20 180 0.75 -288 -64 label (12) {/Times-Roman cf} 2 23 180 0.75 -160 -64 label (13) {/Times-Roman cf} 2 20 180 0.75 -288 -128 label (14) {/Times-Roman cf} 2 23 180 0.75 -160 -128 label (15) {/Times-Roman cf} 2 20 180 0.75 -288 -192 label (16) {/Times-Roman cf} 2 23 180 0.75 -160 -176 label (18) {/Times-Roman cf} 2 25 180 0.75 -192 -368 label (19) {/Times-Roman cf} 2 24 180 0.75 -224 -296 label (20) {/Times-Roman cf} 2 25 180 0.75 -128 -368 label (1) {/Times-Roman cf} 2 21 180 0.75 0 16 label (3) {/Times-Roman cf} 2 25 180 0.75 -64 16 label (5) {/Times-Roman cf} 2 25 180 0.75 -128 16 label (2) {/Times-Roman cf} 2 29 180 0.75 -64 160 label (4) {/Times-Roman cf} 2 29 180 0.75 -128 160 label (6) {/Times-Roman cf} 2 29 180 0.75 -192 160 label (21) {/Times-Roman cf} 2 29 180 0.75 -128 -224 label (23) {/Times-Roman cf} 2 29 180 0.75 -64 -224 label (25) {/Times-Roman cf} 2 29 180 0.75 0 -224 label (27) {/Times-Roman cf} 2 29 180 0.75 64 -224 label (22) {/Times-Roman cf} 2 25 180 0.75 -64 -368 label (24) {/Times-Roman cf} 2 25 180 0.75 0 -368 label (26) {/Times-Roman cf} 2 25 180 0.75 64 -368 label (28) {/Times-Roman cf} 2 25 180 0.75 128 -368 label (29) {/Times-Roman cf} 2 23 180 0.75 224 -256 label (31) {/Times-Roman cf} 2 23 180 0.75 224 -192 label (33) {/Times-Roman cf} 2 23 180 0.75 224 -128 label (35) {/Times-Roman cf} 2 23 180 0.75 224 -64 label (37) {/Times-Roman cf} 2 23 180 0.75 224 0 label (39) {/Times-Roman cf} 2 23 180 0.75 224 64 label (40) {/Times-Roman cf} 2 29 180 0.75 128 160 label (42) {/Times-Roman cf} 2 29 180 0.75 64 160 label (30) {/Times-Roman cf} 2 27 180 0.75 152 -296 label (32) {/Times-Roman cf} 2 20 180 0.75 96 -176 label (34) {/Times-Roman cf} 2 20 180 0.75 96 -128 label (36) {/Times-Roman cf} 2 20 180 0.75 96 -64 label (38) {/Times-Roman cf} 2 20 180 0.75 96 -16 label (41) {/Times-Roman cf} 2 31 180 0.75 160 96 label (43) {/Times-Roman cf} 2 25 180 0.75 64 16 label (17) {/Times-Roman cf} 2 20 180 0.75 -288 -256 label sce 1.00 0 0 64 pin1 1.00 0 -192 -256 pin 1.00 0 -128 -256 pin 1.00 0 -192 -320 pin 1.00 0 -128 -320 pin 1.00 0 -64 -320 pin 1.00 0 0 -320 pin 1.00 0 64 -320 pin 1.00 0 128 -320 pin 1.00 0 128 -256 pin 1.00 0 64 -256 pin 1.00 0 0 -256 pin 1.00 0 -64 -256 pin 1.00 0 -256 -256 pin 1.00 0 -256 -192 pin 1.00 0 -192 -192 pin 1.00 0 -192 -128 pin 1.00 0 -192 -64 pin 1.00 0 -192 0 pin 1.00 0 -192 64 pin 1.00 0 -192 128 pin 1.00 0 -256 64 pin 1.00 0 -256 0 pin 1.00 0 -256 -64 pin 1.00 0 -256 -128 pin 1.00 0 192 -256 pin 1.00 0 192 -192 pin 1.00 0 128 -192 pin 1.00 0 128 -128 pin 1.00 0 192 -128 pin 1.00 0 128 -64 pin 1.00 0 192 -64 pin 1.00 0 192 0 pin 1.00 0 128 0 pin 1.00 0 128 64 pin 1.00 0 192 64 pin 1.00 0 128 128 pin 1.00 0 64 128 pin 1.00 0 64 64 pin 1.00 0 -64 128 pin 1.00 0 -64 64 pin 1.00 0 -128 64 pin 1.00 0 -128 128 pin 1.000 0.000 0.000 scb (10) {/Times-Roman cf} 2 20 180 0.75 -192 0 pinlabel (12) {/Times-Roman cf} 2 20 180 0.75 -192 -64 pinlabel (14) {/Times-Roman cf} 2 20 180 0.75 -192 -128 pinlabel (16) {/Times-Roman cf} 2 20 180 0.75 -192 -192 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 -64 64 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -128 64 pinlabel (21) {/Times-Roman cf} 2 17 180 0.75 -128 -256 pinlabel (23) {/Times-Roman cf} 2 17 180 0.75 -64 -256 pinlabel (25) {/Times-Roman cf} 2 17 180 0.75 0 -256 pinlabel (27) {/Times-Roman cf} 2 17 180 0.75 64 -256 pinlabel (32) {/Times-Roman cf} 2 23 180 0.75 128 -192 pinlabel (34) {/Times-Roman cf} 2 23 180 0.75 128 -128 pinlabel (36) {/Times-Roman cf} 2 23 180 0.75 128 -64 pinlabel (38) {/Times-Roman cf} 2 23 180 0.75 128 0 pinlabel (43) {/Times-Roman cf} 2 29 180 0.75 64 64 pinlabel (29) {/Times-Roman cf} 2 20 180 0.75 192 -256 pinlabel (31) {/Times-Roman cf} 2 20 180 0.75 192 -192 pinlabel (33) {/Times-Roman cf} 2 20 180 0.75 192 -128 pinlabel (35) {/Times-Roman cf} 2 20 180 0.75 192 -64 pinlabel (37) {/Times-Roman cf} 2 20 180 0.75 192 0 pinlabel (39) {/Times-Roman cf} 2 20 180 0.75 192 64 pinlabel (1) {/Times-Roman cf} 2 17 0 0.75 0 64 pinlabel (2) {/Times-Roman cf} 2 17 180 0.75 -64 128 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -128 128 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 -192 128 pinlabel (40) {/Times-Roman cf} 2 17 180 0.75 128 128 pinlabel (42) {/Times-Roman cf} 2 17 180 0.75 64 128 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 -192 -320 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 -128 -320 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 -64 -320 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 0 -320 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 64 -320 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 128 -320 pinlabel (7) {/Times-Roman cf} 2 23 180 0.75 -256 64 pinlabel (9) {/Times-Roman cf} 2 23 180 0.75 -256 0 pinlabel (11) {/Times-Roman cf} 2 23 180 0.75 -256 -64 pinlabel (13) {/Times-Roman cf} 2 23 180 0.75 -256 -128 pinlabel (15) {/Times-Roman cf} 2 23 180 0.75 -256 -192 pinlabel (17) {/Times-Roman cf} 2 23 180 0.75 -256 -256 pinlabel (41) {/Times-Roman cf} 2 31 180 0.75 128 64 pinlabel (8) {/Times-Roman cf} 2 28 180 0.75 -192 64 pinlabel sce 1 1.00 432 -256 0 0.00 360.00 xcarc 1.000 0.000 0.000 scb (30) {/Times-Roman cf} 2 19 180 0.75 128 -256 pinlabel (19) {/Times-Roman cf} 2 16 180 0.75 -192 -256 pinlabel 0.000 0.000 1.000 scb (44) {/Times-Roman cf} 2 29 180 0.75 0 160 label sce 1.00 0 0 128 pin 1.000 0.000 0.000 scb (44) {/Times-Roman cf} 2 17 180 0.75 0 128 pinlabel endgate } def % EndLib xcircuit-3.9.73/lib/xcircps2.pro0000664000175000001440000002135612741310125015211 0ustar timusers%%BeginProlog % % PostScript prolog for output from xcircuit % Version: 3.9 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--4/12/16 (tim@opencircuitdesign.com) % The Johns Hopkins University (1993-2004) % MultiGiG, Inc. (2004-2012) % Open Circuit Design (2012-2016) % %%BeginResource: procset XCIRCproc 3.9 1 % % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { count 0 gt { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } if } def /ol { count 0 gt { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /MR { /twidth exch def } def /CRx { } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto CRx } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /twidth 100000 def /just exch def just 128 and 0 gt {/mshow {pop} def} {/mshow {show} def} ifelse just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /numlines 0 def /padding 0 array def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave /CRx { linewid padding aload pop numlines 1 add dup /numlines exch def array astore /padding exch def /linewid 0 def } def dup 1 add copy dup 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {gsave dup gsave newpath 0 0 moveto true charpath flattenpath pathbbox pop exch pop exch pop grestore currentpoint pop add dup /linewid exch def twidth ge {grestore CR exch 1 add dup 2 add {CR} exch 1 roll exch} {grestore} ifelse true charpath flattenpath} {dup type /arraytype eq {exec} {12 string cvs true charpath flattenpath} ifelse} ifelse} repeat CRx /CRx {padding aload pop just 1280 and 0 gt {blockwid exch sub just 1024 and 0 gt {0.5 mul} if} {pop 0} ifelse 0 rmoveto numlines 1 sub dup /numlines exch def array astore /padding exch def} def exch pop pathbbox grestore 4 copy pop exch pop exch sub /blockwid exch def 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def CRx {dup type /stringtype eq {mshow} {dup type /arraytype eq {exec} {12 string cvs mshow} ifelse} ifelse} repeat grestore endclip} def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /graphic { gsave 4 index cvx exec /DataSource get resetfile translate 0 0 moveto neg rotate dup scale cvx exec image grestore endclip} def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup type /nametype eq not { dup abs currentlinewidth exch div setlinewidth } { pop } ifelse dup abs scale clipped 1 and 1 eq {/clipped clipped 1 add def} if} bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end endclip} bind def /hlevel 0 def /endclip {clipped 1 and 1 eq {grestore /clipped clipped 1 sub def} if} def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 2048 and 0 gt clipped 1 and 0 eq and {clip newpath /clipped clipped 1 add def} { style 1 and 0 gt not {closepath} if style 1024 and 0 gt {2 setlinecap 0 setlinejoin} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore endclip} ifelse} def /addtoy {exch dup dup 2 mul 3 add 1 roll -1 1 { 4 1 roll dup 4 1 roll add 4 -1 roll 2 mul 1 add index 2 mul 2 add 2 roll} for pop} def /addtoy1 {1 exch addtoy pop} def /addtoy3 {3 exch addtoy pop} def /addtoy4 {4 exch addtoy pop} def /addtox {exch dup dup 2 mul 3 add 1 roll -1 1 { 4 1 roll dup 4 1 roll 3 -1 roll add exch 4 -1 roll 2 mul 1 add index 2 mul 2 add 2 roll} for pop} def /addtox1 {1 exch addtox pop} def /addtox3 {3 exch addtox pop} def /addtox4 {4 exch addtox pop} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 2 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef /clipped 0 def} def /psinsertion {/PSobj save def /showpage {} def /setpagedevice {pop} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog xcircuit-3.9.73/lib/analog.lps0000664000175000001440000002042412335667423014725 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.6 % Library name is: analog % Author: R. Timothy Edwards % % Depend analog::vsource analog::source % Depend analog::isource analog::source generic::arrowhead % Depend analog::acsource analog::source % Depend analog::nmos2 analog::nmos generic::arrowhead % Depend analog::pmos2 analog::nmos generic::arrowhead % Depend analog::npn generic::arrowhead % Depend analog::pnp generic::arrowhead % Depend analog::switch generic::circle generic::arrowhead % XCircuitLib library objects /analog::capacitor { begingate 1 1.000 0 -64 0 -6 2 polygon 1 1.000 0 64 0 6 2 polygon 1 1.000 -32 6 32 6 2 polygon 1 1.000 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (c.1) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (c.2) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:C%i %pc.1 %pc.2 1.0P) {/Times-Roman cf} 2 0 0 1.000 -208 -160 infolabel (sim:c %pc.1 %pc.2) {/Times-Roman cf} 2 0 0 1.000 -208 -208 infolabel endgate } def /analog::polarized { begingate 1 1.000 0 -64 0 -6 2 polygon 1 1.000 0 64 0 6 2 polygon 1 1.000 -32 6 32 6 2 polygon 1 1.000 0 -80 74 66.000 114.000 xcarc 1.000 0.000 0.000 scb (t) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (b) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:C%i %pt %pb 1.0P) {/Times-Roman cf} 2 0 0 1.000 -208 -160 infolabel (sim:e %pt %pb %pb) {/Times-Roman cf} 2 0 0 1.000 -208 -208 infolabel endgate } def /analog::resistor { begingate 1 1.000 0 64 0 36 2 polygon 1 1.000 0 -64 0 -36 2 polygon 1 1.000 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (r.2) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:R%i %pr.1 %pr.2 1.0K) {/Times-Roman cf} 2 0 0 1.000 -208 -160 infolabel (sim:r %pr.1 %pr.2) {/Times-Roman cf} 2 0 0 1.000 -208 -208 infolabel endgate } def /analog::inductor { begingate 1 1.000 20 -22 20 -38 0 -42 0 -18 spline 1 1.000 -20 -14 -20 -26 0 -22 0 -18 spline 1 1.000 20 38 20 22 0 18 0 42 spline 1 1.000 20 18 20 2 0 -2 0 22 spline 1 1.000 20 -2 20 -18 0 -22 0 2 spline 1 1.000 -20 26 -20 14 0 18 0 22 spline 1 1.000 -20 6 -20 -6 0 -2 0 2 spline 1 1.000 0 -42 0 -64 2 polygon 1 1.000 0 42 0 64 2 polygon 1.000 0.000 0.000 scb (l.1) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (l.2) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:L%i %pl.1 %pl.2 1.0U) {/Times-Roman cf} 2 0 0 1.000 -208 -160 infolabel (sim:l %pl.1 %pl.2) {/Times-Roman cf} 2 0 0 1.000 -208 -208 infolabel endgate } def /analog::opamp { begingate 0 1.000 -80 -80 -80 80 80 0 3 polygon (-) {/Symbol cf} 2 5 0 1.000 -61 42 label (+) {/Symbol cf} 2 5 0 1.000 -61 -50 label 1.000 0.000 0.000 scb (in.m) {/Times-Roman cf} 2 7 0 1.000 -80 48 pinlabel (in.p) {/Times-Roman cf} 2 7 0 1.000 -80 -48 pinlabel (out) {/Times-Roman cf} 2 4 0 1.000 80 0 pinlabel endgate } def /analog::vdd { % trivial begingate 1 1.000 0 0 0 32 2 polygon 1 1.000 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.900 0 38 label 0.933 0.604 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.000 0 0 pinglobal endgate } def /analog::gnd { % trivial begingate 1 1.000 0 0 0 -32 2 polygon 1 1.000 -32 -32 32 -32 2 polygon 1 1.000 -18 -46 18 -46 2 polygon 1 1.000 -4 -60 4 -60 2 polygon 0.933 0.604 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.000 0 0 pinglobal endgate } def /analog::source { % hidden begingate 1 1.000 0 0 32 0.000 360.000 xcarc 1 1.000 0 32 0 64 2 polygon 1 1.000 0 -32 0 -64 2 polygon endgate } def /analog::vsource { begingate 1.000 0 0 0 analog::source (+) {/Symbol cf} 2 5 0 1.000 0 14 label (-) {/Symbol cf} 2 5 0 1.000 0 -22 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (v.m) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel endgate } def /generic::arrowhead { % nonetwork begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.000 endpath endgate } def /analog::isource { begingate 1.000 0 0 0 analog::source 1 0.750 0 20 0 -8 2 polygon 0.800 180 0 -20 generic::arrowhead 1.000 0.000 0.000 scb (i.p) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (i.m) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel endgate } def /analog::acsource { begingate 1.000 0 0 0 analog::source 1 0.800 0 -48 0 48 -16 0 16 0 spline 1.000 0.000 0.000 scb (s.p) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (s.m) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel endgate } def /analog::nmos { begingate 1 1.000 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.000 -44 -28 -44 28 2 polygon 1 1.000 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.000 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS GND nmos) {/Times-Roman cf} 2 4 0 1.000 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.000 -244 -187 infolabel endgate } def /analog::pmos { begingate 1 1.000 -44 -28 -44 28 2 polygon 1 1.000 -60 0 -64 0 2 polygon 1 1.000 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.000 -52 0 8 0.000 360.000 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.000 -64 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS Vdd pmos) {/Times-Roman cf} 2 4 0 1.000 -196 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.000 -196 -187 infolabel endgate } def /analog::nmos2 { begingate 1.000 0 0 0 analog::nmos 1.000 90 0 -28 generic::arrowhead 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.000 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel endgate } def /analog::pmos2 { begingate 1.000 0 0 0 analog::nmos 1.000 270 -32 28 generic::arrowhead 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.000 -64 0 pinlabel (S) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel endgate } def /analog::diode { begingate 248 1.000 -18 -16 0 16 18 -16 3 polygon 1 1.000 0 -48 0 -16 2 polygon 1 1.000 0 48 0 16 2 polygon 1 1.000 -18 16 18 16 2 polygon 1.000 0.000 0.000 scb (d.m) {/Times-Roman cf} 2 9 0 1.000 0 48 pinlabel (d.p) {/Times-Roman cf} 2 13 0 1.000 0 -48 pinlabel endgate } def /analog::npn { begingate 1 1.000 -48 0 -64 0 2 polygon 1 1.000 -48 48 -48 -48 2 polygon 1 1.000 0 48 -48 22 2 polygon 1 1.000 0 48 0 64 2 polygon 1 1.000 0 -48 -48 -22 2 polygon 1 1.000 0 -48 0 -64 2 polygon 1.000 120 0 -48 generic::arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.000 -64 0 pinlabel (E) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:Q%i %pC %pB %pE npn) {/Times-Roman cf} 2 4 0 1.000 -244 -139 infolabel (sim:b %pB %pE %pC) {/Times-Roman cf} 2 4 0 1.000 -244 -187 infolabel endgate } def /analog::pnp { begingate 1 1.000 -48 0 -64 0 2 polygon 1 1.000 -48 48 -48 -48 2 polygon 1 1.000 0 48 -48 22 2 polygon 1 1.000 0 48 0 64 2 polygon 1 1.000 0 -48 -48 -22 2 polygon 1 1.000 0 -48 0 -64 2 polygon 1.000 240 -48 22 generic::arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.000 -64 0 pinlabel (E) {/Times-Roman cf} 2 9 0 1.000 0 64 pinlabel 0.180 0.545 0.341 scb (spice:Q%i %pC %pB %pE pnp) {/Times-Roman cf} 2 4 0 1.000 -244 -139 infolabel endgate } def /analog::crystal { begingate 0 1.000 -24 -12 -24 12 24 12 24 -12 4 polygon 1 1.000 0 48 0 24 2 polygon 1 1.000 0 -48 0 -24 2 polygon 1 1.000 -20 24 20 24 2 polygon 1 1.000 -20 -24 20 -24 2 polygon 1.000 0.000 0.000 scb (x.1) {/Times-Roman cf} 2 9 0 1.000 0 48 pinlabel (x.2) {/Times-Roman cf} 2 13 0 1.000 0 -48 pinlabel endgate } def /generic::circle { % trivial begingate 1 1.000 16 0 6 0.000 360.000 xcarc 1 1.000 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.000 16 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.000 0 0 pinlabel endgate } def /analog::switch { % trivial begingate 1 1.300 32 32 2 -43 2 polygon 1 0.600 0 -48 57 49.000 90.000 xcarc -1.000 90 0 -64 generic::circle 0.600 270 -12 8 generic::arrowhead 1.000 90 0 48 generic::circle 1.000 0.000 0.000 scb (sw.1) {/Times-Roman cf} 2 9 0 1.000 0 48 pinlabel (sw.2) {/Times-Roman cf} 2 13 0 1.000 0 -64 pinlabel endgate } def % EndLib xcircuit-3.9.73/lib/digital.lps0000664000175000001440000000754212335667423015107 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: digital % Author: R. Timothy Edwards % XCircuitLib library built-in objects /digital::nand { % trivial begingate 1 1.0 0 -48 -64 -48 -64 48 0 48 4 polygon 1 1.0 56 0 8 0 360 xcarc 1 1.0 0 0 48 -90 90 xcarc 1 0 0 scb (Out) {/Times-Roman cf} 1 4 0 1.0 64 0 pinlabel (In.1) {/Times-Roman cf} 1 7 0 1.0 -64 32 pinlabel (In.2) {/Times-Roman cf} 1 7 0 1.0 -64 -32 pinlabel sce endgate } def /digital::nor { % trivial begingate -64 48 -35 48 wire -64 -48 -35 -48 wire 1 1.0 -128 0 80 -37 37 xcarc 1 1.0 56 0 8 0 360 xcarc 1 1.0 -35 -48 96 30 90 xcarc 1 1.0 -35 48 96 270 330 xcarc 1 0 0 scb (Out) {/Times-Roman cf} 1 4 0 1.0 64 0 pinlabel (In.1) {/Times-Roman cf} 1 7 0 1.0 -56 32 pinlabel (In.2) {/Times-Roman cf} 1 7 0 1.0 -56 -32 pinlabel sce endgate } def /digital::invert { % trivial begingate 0 1.00 -32 -40 -32 40 40 0 3 polygon 1 1.00 48 0 8 0.00 360.00 xcarc 1 1.00 -32 0 -48 0 2 polygon 1 1.00 56 0 64 0 2 polygon 1.000 0.000 0.000 scb (Out) {/Times-Roman cf} 1 4 0 1.0 64 0 pinlabel (In) {/Times-Roman cf} 1 7 0 1.0 -48 0 pinlabel sce endgate } def /digital::and { % trivial begingate 1 1.0 0 -48 -64 -48 -64 48 0 48 4 polygon 1 1.0 0 0 48 -90 90 xcarc 1 0 0 scb (Out) {/Times-Roman cf} 1 4 0 1.0 48 0 pinlabel (In.1) {/Times-Roman cf} 1 7 0 1.0 -64 32 pinlabel (In.2) {/Times-Roman cf} 1 7 0 1.0 -64 -32 pinlabel sce endgate } def /digital::or { % trivial begingate 1 1.0 -19 -48 96 30 90 xcarc 1 1.0 -19 48 96 270 330 xcarc 1 1.0 -112 0 80 -37 37 xcarc -48 48 -19 48 wire -48 -48 -19 -48 wire 1 0 0 scb (Out) {/Times-Roman cf} 1 4 0 1.0 64 0 pinlabel (In.1) {/Times-Roman cf} 1 7 0 1.0 -40 32 pinlabel (In.2) {/Times-Roman cf} 1 7 0 1.0 -40 -32 pinlabel sce endgate } def /digital::buffer { % trivial begingate 0 1.0 -32 -40 -32 40 40 0 3 polygon -32 0 -48 0 wire 40 0 64 0 wire 1.000 0.000 0.000 scb (Out) {/Times-Roman cf} 1 4 0 1.0 64 0 pinlabel (In) {/Times-Roman cf} 1 7 0 1.0 -48 0 pinlabel sce endgate } def /digital::xor { % trivial begingate 1 1.0 -19 -48 96 30 90 xcarc 1 1.0 -19 48 96 270 330 xcarc 1 1.0 -128 0 80 -37 37 xcarc 1 1.0 -112 0 80 -37 37 xcarc -48 48 -19 48 wire -48 -48 -19 -48 wire 1 0 0 scb (Out) {/Times-Roman cf} 1 4 0 1.0 64 0 pinlabel (In.1) {/Times-Roman cf} 1 7 0 1.0 -56 32 pinlabel (In.2) {/Times-Roman cf} 1 7 0 1.0 -56 -32 pinlabel sce endgate } def /digital::xnor { % trivial begingate 1 1.0 72 0 8 0 360 xcarc 1 1.0 -19 -48 96 30 90 xcarc 1 1.0 -19 48 96 270 330 xcarc 1 1.0 -128 0 80 -37 37 xcarc 1 1.0 -112 0 80 -37 37 xcarc -48 48 -19 48 wire -48 -48 -19 -48 wire 1 0 0 scb (Out) {/Times-Roman cf} 1 4 0 1.0 80 0 pinlabel (In.1) {/Times-Roman cf} 1 7 0 1.0 -56 32 pinlabel (In.2) {/Times-Roman cf} 1 7 0 1.0 -56 -32 pinlabel sce endgate } def /digital::5V { % trivial begingate -32 0 32 0 wire 0 0 0 -32 wire (V) {/Times-Roman cf} (+5) {/Symbol cf} 2 17 0 0.9 0 8 label 0.933 0.604 0 scb (dVdd) {/Times-Roman cf} 1 13 0 1.0 0 -32 pinglobal sce endgate } def /analog::gnd { % trivial begingate 0 0 0 -32 wire -32 -32 32 -32 wire -18 -46 18 -46 wire -4 -60 4 -60 wire 0.933 0.604 0 scb (GND) {/Times-Roman cf} 1 1 0 1.0 0 0 pinglobal sce endgate } def /digital::battery { % trivial begingate -32 32 32 32 wire 0 64 0 32 wire -16 12 16 12 wire -16 -28 16 -28 wire -32 -8 32 -8 wire 0 -64 0 -28 wire 1 0 0 scb (b.p) {/Times-Roman cf} 1 9 0 1.0 0 64 pinlabel (b.m) {/Times-Roman cf} 1 13 0 1.0 0 -64 pinlabel sce endgate } def /digital::passtrans { % trivial begingate 0 1.0 -64 48 0 -48 64 48 3 polygon 0 1.0 0 48 -64 -48 64 -48 3 polygon -50 0 -80 0 wire 32 0 80 0 wire 0 48 0 64 wire 0 -48 0 -64 wire 1 1.0 -42 0 8 0 360 xcarc 1 0 0 scb (c.p) {/Times-Roman cf} 1 7 0 1.0 -80 0 pinlabel (c.n) {/Times-Roman cf} 1 4 0 1.0 80 0 pinlabel (p.1) {/Times-Roman cf} 1 9 0 1.0 0 64 pinlabel (p.2) {/Times-Roman cf} 1 13 0 1.0 0 -64 pinlabel sce endgate } def % EndLib xcircuit-3.9.73/lib/xspice.lps0000664000175000001440000005307412757621746014774 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.9 % Library name is: xspice % Author: % % XCircuitLib library objects /xspice::d_dff { <> begingate 1 1.000 -64 64 -96 64 2 polygon 1.000 0.000 0.000 scb (D) {/Times-Roman cf} 2 23 0.000 0.700 -96 64 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pD %%d %pCLK %%d %pS %%d %pC %%d %pQ %%d %pQbar d_dff_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -176 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 16 label sce 0 1.000 -64 -64 -64 96 64 96 64 -64 4 polygon 1 1.000 64 64 96 64 2 polygon 1.000 0.000 0.000 scb (Q) {/Times-Roman cf} 2 20 0.000 0.700 96 64 pinlabel (CLK) {/Times-Roman cf} 2 23 0.000 0.700 -96 -32 pinlabel sce 1 1.000 64 -32 96 -32 2 polygon 1.000 0.000 0.000 scb (Qbar) {/Times-Roman cf} 2 20 0.000 0.700 96 -32 pinlabel sce (D) {/Times-Roman cf} 2 21 0.000 0.700 -48 64 label 1 1.000 -64 -48 -48 -32 -64 -16 3 polygon (S) {/Times-Roman cf} 2 21 0.000 0.700 0 80 label (C) {/Times-Roman cf} 2 21 0.000 0.700 0 -48 label (Q) {/Times-Roman cf} 2 21 0.000 0.700 48 64 label (Q) {ol} {/Times-Roman cf} 3 21 0.000 0.700 48 -32 label 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 29 0.000 0.700 0 -96 pinlabel (S) {/Times-Roman cf} 2 17 0.000 0.700 0 128 pinlabel sce 1 1.000 0 -96 0 -64 2 polygon 1 1.000 0 128 0 96 2 polygon 0.180 0.545 0.341 scb mark @reset_load ( reset_load=) @set_load ( set_load=) @clk_load ( clk_load=) @data_load ( data_load=) @ic (spice3:+ ic=) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -240 infolabel mark @fall_delay ( fall_delay=) @rise_delay (spice4:+ rise_delay=) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -272 infolabel mark @reset_delay ( reset_delay=) @set_delay ( set_delay=) @clk_delay ( d_dff\(clk_delay=) @index (spice2:.model d_dff_) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -208 infolabel sce 1 1.000 -96 -32 -64 -32 2 polygon endgate } def /xspice::adc_bridge { <> begingate 1 1.000 48 0 80 0 2 polygon 1 1.000 -48 0 -80 0 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 0 pinlabel (D) {/Times-Roman cf} 2 20 0.000 0.700 80 0 pinlabel 0.180 0.545 0.341 scb mark @index ( [%p"A"] %%d [%p"D"] adc_bridge_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -64 infolabel mark (\)) @fall_delay ( fall_delay=) @rise_delay ( rise_delay=) @in_high ( in_high=) @in_low ( adc_bridge\(in_low=) @index (spice2:.model adc_bridge_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -96 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -48 0 -32 -16 32 -16 48 0 32 16 -32 16 -48 0 7 polygon endgate } def /xspice::dac_bridge { <> begingate 1 1.000 48 0 80 0 2 polygon 1 1.000 -48 0 -80 0 2 polygon 1.000 0.000 0.000 scb (D) {/Times-Roman cf} 2 23 0.000 0.700 -80 0 pinlabel (A) {/Times-Roman cf} 2 20 0.000 0.700 80 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%p"D"] [%p"A"] dac_bridge_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -64 infolabel mark @out_high ( out_high=) @out_low ( dac_bridge\(out_low=) @index (spice2:.model dac_bridge_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -96 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -48 0 -32 -16 32 -16 48 0 32 16 -32 16 -48 0 7 polygon 0.180 0.545 0.341 scb mark (\)) @t_fall ( t_fall=) @t_rise ( t_rise=) @input_load ( input_load=) @out_undef (spice3:+ out_undef=) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel endgate } def /xspice::d_buffer { <> begingate 1 1.000 48 0 80 0 2 polygon 1 1.000 -48 0 -80 0 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 0 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 80 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pA %%d %pX d_buffer_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_buffer\(rise_delay=) @index (spice2:.model d_buffer_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 -16 0 label sce 1 1.000 48 0 -48 48 -48 -48 48 0 4 polygon endgate } def /xspice::d_inverter { <> begingate 1 1.000 64 0 80 0 2 polygon 1 1.000 -48 0 -80 0 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 0 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 80 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pin %%d %pout d_inverter_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_inverter\(rise_delay=) @index (spice2:.model d_inverter_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 -16 0 label sce 1 1.000 56 0 8 0.000 360.000 xcarc 1 1.000 48 0 -48 48 -48 -48 48 0 4 polygon endgate } def /xspice::d_and2 { <> begingate 1 1.000 64 0 96 0 2 polygon 1 1.000 -48 32 -80 32 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 32 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 96 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%pA %pB] %%d %pX d_and2_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_and\(rise_delay=) @index (spice2:.model d_and2_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -48 -48 -48 48 2 polygon 1 1.000 -48 48 16 48 2 polygon 1 1.000 -48 -48 16 -48 2 polygon 1 1.000 16 0 48 270.000 450.000 xcarc 1 1.000 -48 -32 -80 -32 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 23 0.000 0.700 -80 -32 pinlabel endgate } def /xspice::d_nand2 { <> begingate 1 1.000 80 0 96 0 2 polygon 1 1.000 -48 32 -80 32 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 32 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 96 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%pA %pB] %%d %pX d_nand2_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_nand\(rise_delay=) @index (spice2:.model d_nand2_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -48 -48 -48 48 2 polygon 1 1.000 -48 48 16 48 2 polygon 1 1.000 -48 -48 16 -48 2 polygon 1 1.000 16 0 48 270.000 450.000 xcarc 1 1.000 -48 -32 -80 -32 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 23 0.000 0.700 -80 -32 pinlabel sce 1 1.000 72 0 8 0.000 360.000 xcarc endgate } def /xspice::d_or2 { <> begingate 1 1.000 64 0 96 0 2 polygon 1 1.000 -40 32 -80 32 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 32 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 96 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%pA %pB] %%d %pX d_or2_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_or\(rise_delay=) @index (spice2:.model d_or2_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -48 48 -16 48 2 polygon 1 1.000 -40 -32 -80 -32 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 23 0.000 0.700 -80 -32 pinlabel sce 1 1.000 -32 32 -32 -32 -48 -48 -48 48 spline 1 1.000 56 24 16 48 -16 48 64 0 spline 1 1.000 56 -24 16 -48 -16 -48 64 0 spline 1 1.000 -48 -48 -16 -48 2 polygon endgate } def /xspice::d_nor2 { <> begingate 1 1.000 80 0 96 0 2 polygon 1 1.000 -40 32 -80 32 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 32 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 96 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%pA %pB] %%d %pX d_nor2_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_nor\(rise_delay=) @index (spice2:.model d_nor2_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -48 48 -16 48 2 polygon 1 1.000 -40 -32 -80 -32 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 23 0.000 0.700 -80 -32 pinlabel sce 1 1.000 -32 32 -32 -32 -48 -48 -48 48 spline 1 1.000 56 24 16 48 -16 48 64 0 spline 1 1.000 56 -24 16 -48 -16 -48 64 0 spline 1 1.000 -48 -48 -16 -48 2 polygon 1 1.000 72 0 8 0.000 360.000 xcarc endgate } def /xspice::d_xor2 { <> begingate 1 1.000 64 0 96 0 2 polygon 1 1.000 -48 32 -80 32 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 32 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 96 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%pA %pB] %%d %pX d_xor2_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_xor\(rise_delay=) @index (spice2:.model d_xor2_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -44 48 -16 48 2 polygon 1 1.000 -48 -32 -80 -32 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 23 0.000 0.700 -80 -32 pinlabel sce 1 1.000 -28 32 -28 -32 -44 -48 -44 48 spline 1 1.000 56 24 16 48 -16 48 64 0 spline 1 1.000 56 -24 16 -48 -16 -48 64 0 spline 1 1.000 -44 -48 -16 -48 2 polygon 1 1.000 -40 32 -40 -32 -56 -48 -56 48 spline endgate } def /xspice::d_xnor2 { <> begingate 1 1.000 80 0 96 0 2 polygon 1 1.000 -48 32 -80 32 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 32 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 96 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d [%pA %pB] %%d %pX d_xnor2_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @input_load ( input_load=) @fall_delay ( fall_delay=) @rise_delay ( d_xnor\(rise_delay=) @index (spice2:.model d_xnor2_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 0 label sce 1 1.000 -44 48 -16 48 2 polygon 1 1.000 -48 -32 -80 -32 2 polygon 1.000 0.000 0.000 scb (B) {/Times-Roman cf} 2 23 0.000 0.700 -80 -32 pinlabel sce 1 1.000 -28 32 -28 -32 -44 -48 -44 48 spline 1 1.000 56 24 16 48 -16 48 64 0 spline 1 1.000 56 -24 16 -48 -16 -48 64 0 spline 1 1.000 -44 -48 -16 -48 2 polygon 1 1.000 -40 32 -40 -32 -56 -48 -56 48 spline 1 1.000 72 0 8 0.000 360.000 xcarc endgate } def /xspice::d_tristate { <> begingate 1 1.000 48 0 80 0 2 polygon 1 1.000 -48 0 -80 0 2 polygon 1.000 0.000 0.000 scb (A) {/Times-Roman cf} 2 23 0.000 0.700 -80 0 pinlabel (X) {/Times-Roman cf} 2 20 0.000 0.700 80 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pA %%d %pEN %%d %pX d_tristate_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -128 infolabel mark (\)) @enable_load ( enable_load=) @input_load ( input_load=) @delay ( d_tristate\(delay=) @index (spice2:.model d_tristate_) {/Times-Roman cf} ctmk 20 0.000 0.700 -112 -160 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 -16 0 label sce 1 1.000 48 0 -48 48 -48 -48 48 0 4 polygon 1 1.000 0 -24 0 -48 2 polygon 1.000 0.000 0.000 scb (EN) {/Times-Roman cf} 2 29 0.000 0.700 0 -48 pinlabel endgate } def /xspice::d_pullup { <> begingate 1.000 0.000 0.000 scb (X) {/Times-Roman cf} 2 29 0.000 0.700 32 0 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pA %%d %pX d_pullup_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -120 -40 infolabel mark (\)) @load ( d_pullup\(load=) @index (spice2:.model d_pullup_) {/Times-Roman cf} ctmk 20 0.000 0.700 -120 -72 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 20 0.000 0.700 64 64 label sce 1 1.000 32 128 32 100 2 polygon 1 1.000 32 0 32 28 2 polygon 1 1.000 32 28 46 34 18 46 46 58 18 70 46 82 18 94 32 100 8 polygon 1 1.000 0 128 64 128 2 polygon (Vdd) {/Times-Roman cf} 2 17 0.000 0.700 32 136 label endgate } def /xspice::d_pulldown { <> begingate 1.000 0.000 0.000 scb (X) {/Times-Roman cf} 2 17 0.000 0.700 32 160 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pA %%d %pX d_pulldown_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -224 -32 infolabel mark (\)) @load ( d_pulldown\(load=) @index (spice2:.model d_pulldown_) {/Times-Roman cf} ctmk 20 0.000 0.700 -224 -64 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 20 0.000 0.700 64 96 label sce 1 1.000 32 160 32 132 2 polygon 1 1.000 32 32 32 60 2 polygon 1 1.000 32 60 46 66 18 78 46 90 18 102 46 114 18 126 32 132 8 polygon 1 1.000 0 32 64 32 2 polygon 1 1.000 12 20 52 20 2 polygon 1 1.000 24 8 40 8 2 polygon endgate } def /xspice::d_latch { <> begingate 1 1.000 -64 64 -96 64 2 polygon 1.000 0.000 0.000 scb (D) {/Times-Roman cf} 2 23 0.000 0.700 -96 64 pinlabel 0.180 0.545 0.341 scb mark @index ( %%d %pD %%d %pEN %%d %pS %%d %pC %%d %pQ %%d %pQbar d_latch_) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -176 infolabel 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 0 16 label sce 0 1.000 -64 -64 -64 96 64 96 64 -64 4 polygon 1 1.000 64 64 96 64 2 polygon 1.000 0.000 0.000 scb (Q) {/Times-Roman cf} 2 20 0.000 0.700 96 64 pinlabel (EN) {/Times-Roman cf} 2 23 0.000 0.700 -96 -32 pinlabel sce 1 1.000 64 -32 96 -32 2 polygon 1.000 0.000 0.000 scb (Qbar) {/Times-Roman cf} 2 20 0.000 0.700 96 -32 pinlabel sce (D) {/Times-Roman cf} 2 21 0.000 0.700 -48 64 label (S) {/Times-Roman cf} 2 21 0.000 0.700 0 80 label (C) {/Times-Roman cf} 2 21 0.000 0.700 0 -48 label (Q) {/Times-Roman cf} 2 21 0.000 0.700 48 64 label (Q) {ol} {/Times-Roman cf} 3 21 0.000 0.700 48 -32 label 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 29 0.000 0.700 0 -96 pinlabel (S) {/Times-Roman cf} 2 17 0.000 0.700 0 128 pinlabel sce 1 1.000 0 -96 0 -64 2 polygon 1 1.000 0 128 0 96 2 polygon 0.180 0.545 0.341 scb mark @reset_load ( reset_load=) @set_load ( set_load=) @enable_load ( enable_load=) @data_load ( data_load=) @ic (spice3:+ ic=) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -240 infolabel mark (\)) @fall_delay ( fall_delay=) @rise_delay (spice4:+ rise_delay=) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -272 infolabel mark @reset_delay ( reset_delay=) @set_delay ( set_delay=) @enable_delay ( d_latch\(enable_delay=) @index (spice2:.model d_latch_) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -208 infolabel sce 1 1.000 -96 -32 -64 -32 2 polygon (EN) {/Times-Roman cf} 2 20 0.000 0.700 -56 -32 label endgate } def /xspice::d_ram_8x1k { <> begingate 0.000 0.000 1.000 scb mark @index (A) {/Times-Roman cf} ctmk 21 0.000 0.700 224 96 label sce 0 1.000 -64 -64 -64 224 544 224 544 -64 4 polygon 1.000 0.000 0.000 scb (D7) {/Times-Roman cf} 2 23 0.000 0.700 -96 -32 pinlabel sce 1 1.000 -96 -32 -64 -32 2 polygon (D7) {/Times-Roman cf} 2 20 0.000 0.700 -56 -32 label 1.000 0.000 0.000 scb (D6) {/Times-Roman cf} 2 23 0.000 0.700 -96 0 pinlabel sce 1 1.000 -96 0 -64 0 2 polygon (D6) {/Times-Roman cf} 2 20 0.000 0.700 -56 0 label 1.000 0.000 0.000 scb (D5) {/Times-Roman cf} 2 23 0.000 0.700 -96 32 pinlabel sce 1 1.000 -96 32 -64 32 2 polygon (D5) {/Times-Roman cf} 2 20 0.000 0.700 -56 32 label 1.000 0.000 0.000 scb (D4) {/Times-Roman cf} 2 23 0.000 0.700 -96 64 pinlabel sce 1 1.000 -96 64 -64 64 2 polygon (D4) {/Times-Roman cf} 2 20 0.000 0.700 -56 64 label 1.000 0.000 0.000 scb (D3) {/Times-Roman cf} 2 23 0.000 0.700 -96 96 pinlabel sce 1 1.000 -96 96 -64 96 2 polygon (D3) {/Times-Roman cf} 2 20 0.000 0.700 -56 96 label 1.000 0.000 0.000 scb (D2) {/Times-Roman cf} 2 23 0.000 0.700 -96 128 pinlabel sce 1 1.000 -96 128 -64 128 2 polygon (D2) {/Times-Roman cf} 2 20 0.000 0.700 -56 128 label 1.000 0.000 0.000 scb (D1) {/Times-Roman cf} 2 23 0.000 0.700 -96 160 pinlabel sce 1 1.000 -96 160 -64 160 2 polygon (D1) {/Times-Roman cf} 2 20 0.000 0.700 -56 160 label 1.000 0.000 0.000 scb (D0) {/Times-Roman cf} 2 23 0.000 0.700 -96 192 pinlabel sce 1 1.000 -96 192 -64 192 2 polygon (D0) {/Times-Roman cf} 2 20 0.000 0.700 -56 192 label 1.000 0.000 0.000 scb (Q7) {/Times-Roman cf} 2 20 0.000 0.700 576 -32 pinlabel sce 1 1.000 576 -32 544 -32 2 polygon (Q7) {/Times-Roman cf} 2 23 0.000 0.700 536 -32 label 1.000 0.000 0.000 scb (Q6) {/Times-Roman cf} 2 20 0.000 0.700 576 0 pinlabel sce 1 1.000 576 0 544 0 2 polygon (Q6) {/Times-Roman cf} 2 23 0.000 0.700 536 0 label 1.000 0.000 0.000 scb (Q5) {/Times-Roman cf} 2 20 0.000 0.700 576 32 pinlabel sce 1 1.000 576 32 544 32 2 polygon (Q5) {/Times-Roman cf} 2 23 0.000 0.700 536 32 label 1.000 0.000 0.000 scb (Q4) {/Times-Roman cf} 2 20 0.000 0.700 576 64 pinlabel sce 1 1.000 576 64 544 64 2 polygon (Q4) {/Times-Roman cf} 2 23 0.000 0.700 536 64 label 1.000 0.000 0.000 scb (Q3) {/Times-Roman cf} 2 20 0.000 0.700 576 96 pinlabel sce 1 1.000 576 96 544 96 2 polygon (Q3) {/Times-Roman cf} 2 23 0.000 0.700 536 96 label 1.000 0.000 0.000 scb (Q2) {/Times-Roman cf} 2 20 0.000 0.700 576 128 pinlabel sce 1 1.000 576 128 544 128 2 polygon (Q2) {/Times-Roman cf} 2 23 0.000 0.700 536 128 label 1.000 0.000 0.000 scb (Q1) {/Times-Roman cf} 2 20 0.000 0.700 576 160 pinlabel sce 1 1.000 576 160 544 160 2 polygon (Q1) {/Times-Roman cf} 2 23 0.000 0.700 536 160 label 1.000 0.000 0.000 scb (Q0) {/Times-Roman cf} 2 20 0.000 0.700 576 192 pinlabel sce 1 1.000 576 192 544 192 2 polygon (Q0) {/Times-Roman cf} 2 23 0.000 0.700 536 192 label 1 1.000 368 -64 368 -96 2 polygon 1 1.000 416 -64 416 -96 2 polygon 1 1.000 464 -64 464 -96 2 polygon 1.000 0.000 0.000 scb (A2) {/Times-Roman cf} 2 29 0.000 0.700 368 -96 pinlabel (A1) {/Times-Roman cf} 2 29 0.000 0.700 416 -96 pinlabel (A0) {/Times-Roman cf} 2 29 0.000 0.700 464 -96 pinlabel sce 1 1.000 320 -64 320 -96 2 polygon 1.000 0.000 0.000 scb (A3) {/Times-Roman cf} 2 29 0.000 0.700 320 -96 pinlabel sce 1 1.000 272 -64 272 -96 2 polygon 1.000 0.000 0.000 scb (A4) {/Times-Roman cf} 2 29 0.000 0.700 272 -96 pinlabel sce 1 1.000 224 -64 224 -96 2 polygon 1.000 0.000 0.000 scb (A5) {/Times-Roman cf} 2 29 0.000 0.700 224 -96 pinlabel sce 1 1.000 176 -64 176 -96 2 polygon 1.000 0.000 0.000 scb (A6) {/Times-Roman cf} 2 29 0.000 0.700 176 -96 pinlabel sce 1 1.000 128 -64 128 -96 2 polygon 1.000 0.000 0.000 scb (A7) {/Times-Roman cf} 2 29 0.000 0.700 128 -96 pinlabel sce 1 1.000 80 -64 80 -96 2 polygon 1.000 0.000 0.000 scb (A8) {/Times-Roman cf} 2 29 0.000 0.700 80 -96 pinlabel sce 1 1.000 32 -64 32 -96 2 polygon 1.000 0.000 0.000 scb (A9) {/Times-Roman cf} 2 29 0.000 0.700 32 -96 pinlabel sce (A9) {/Times-Roman cf} 2 17 0.000 0.700 32 -48 label (A8) {/Times-Roman cf} 2 17 0.000 0.700 80 -48 label (A7) {/Times-Roman cf} 2 17 0.000 0.700 128 -48 label (A6) {/Times-Roman cf} 2 17 0.000 0.700 176 -48 label (A5) {/Times-Roman cf} 2 17 0.000 0.700 224 -48 label (A4) {/Times-Roman cf} 2 17 0.000 0.700 272 -48 label (A3) {/Times-Roman cf} 2 17 0.000 0.700 320 -48 label (A2) {/Times-Roman cf} 2 17 0.000 0.700 368 -48 label (A1) {/Times-Roman cf} 2 17 0.000 0.700 416 -48 label (A0) {/Times-Roman cf} 2 17 0.000 0.700 464 -48 label (SRAM 1k x 8) {/Times-Roman cf} 2 21 0.000 0.700 224 48 label 0.180 0.545 0.341 scb mark ( %%d [ %pD7 %pD6 %pD5 %pD4 %pD3 %pD2 %pD1 %pD0 ]) @index (spice1:A) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -192 infolabel (spice2:+ %%d [ %pQ7 %pQ6 %pQ5 %pQ4 %pQ3 %pQ2 %pQ1 %pQ0 ]) {/Times-Roman cf} 2 20 0.000 0.700 -144 -224 infolabel (spice3:+ %%d [ %pA9 %pA8 %pA7 %pA6 %pA5 %pA4 %pA3 %pA2 %pA1 %pA0 ]) {/Times-Roman cf} 2 20 0.000 0.700 -144 -256 infolabel mark @index (spice4:+ d_ram_8x1k) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -288 infolabel mark @read_delay ( read_delay=) @ic ( ic=) @select_value ( d_ram\(select_value=) @index (spice5:.model d_ram_8x1k) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -320 infolabel mark (\)) @enable_load ( enable_load=) @select_load ( select_load=) @address_load ( address_load=) @data_load (spice6:+ data_load=) {/Times-Roman cf} ctmk 20 0.000 0.700 -144 -352 infolabel endgate } def % EndLib xcircuit-3.9.73/lib/python/0000775000175000001440000000000012335667423014263 5ustar timusersxcircuit-3.9.73/lib/python/loadlgf.py0000664000175000001440000000246012335667423016247 0ustar timusers# loadlgf.py #----------------------------------------------------------- # Python script which creates a function "loadlgf" that # replaces the code formerly in "formats.c" (deprecated). # Python scripting is now the preferred method for handling # alternate file formats. #----------------------------------------------------------- def loadlgf(f): try: fi = open(f, 'r') except IOError: return else: # check magic cookie to see if it's a real LGF file S = fi.readline() if (S <> '-5\n'): return S = fi.readline() if (S <> 'f s\n'): return # Now go load the LGF library (required) # '-1' loads at the end of the current library pages library('lgf.lps', -1) # clear the page reset() # read in the file S = fi.readlines() for X in S: if (S[0] == '#'): elif (S[0] == 'n'): elif (S[0] == 's'): elif (S[0] == 'l'): elif (S[0] == 'w'): elif (S[0] == 'p'): elif (S[0] == 'b'): elif (S[0] == 'g'): elif (S[0] == 'h'): elif (S[0] == '.'): else: h1 = getpage(); return h1 def promptlgf(): filepopup('Enter filename to load:', 'loadlgf') bind('Control_l', 'promptlgf') newbutton('Edit', 'Load LGF File (^L)', 'promptlgf') #----------------------------------------------------------- xcircuit-3.9.73/lib/python/spice.py0000664000175000001440000002131212335667423015737 0ustar timusers# spice.py #----------------------------------------------------------------------- # Python script which writes a SPICE-format netlist. # Replaces the code formerly in "netlist.c" (deprecated). # Python scripting is now the preferred method for handling # netlist output formats. #----------------------------------------------------------------------- import string #----------------------------------------------------------------------- # Parse the output string, substituting for index, ports, parameters, # and automatic numbering using the '?' parameter. #----------------------------------------------------------------------- def parsedev(lstr, portdict, devdict, classidx, paramdict): rstr = lstr ltext = '' classname = rstr[0] # single-character SPICE element type try: index = classidx[classname] except KeyError: index = 1 classidx[classname] = 1 if string.find(rstr, '%i'): rstr = string.replace(rstr, '%i', str(index)) classidx[classname] = classidx[classname] + 1 for pt in portdict.keys(): ptstr = '%p' + pt rstr = string.replace(rstr, ptstr, portdict[pt]) ptstr = '%p' + '"' + pt + '"' rstr = string.replace(rstr, ptstr, portdict[pt]) for vt in paramdict.keys(): vtvalue = paramdict[vt] if vtvalue == '?': vtvalue = str(index); classidx[classname] = classidx[classname] + 1 vtstr = '%v' + vt rstr = string.replace(rstr, vtstr, vtvalue) vtstr = '%v' + '"' + vt + '"' rstr = string.replace(rstr, vtstr, vtvalue) # Simple replacements (%%, %r, %t) (all occurrences) #................................................... if string.find(rstr, '%%'): rstr = string.replace(rstr, '%%', '%') if string.find(rstr, '%n'): rstr = string.replace(rstr, '%n', devdict['name']) if string.find(rstr, '%r'): rstr = string.replace(rstr, '%r', '\n') if string.find(rstr, '%t'): rstr = string.replace(rstr, '%t', '\t') return rstr #----------------------------------------------------------------------- # Generate a dictionary of port substitutions and create the # device string for output #----------------------------------------------------------------------- def devwrite(calldict, devdict, classidx): ltext = '' # Resolve network connections to ports and store as a dictionary #............................................................... portdict = {} ports_from = calldict['ports'] ports_to = devdict['ports'] for i in range(0,len(ports_from)): portdict[textprint(ports_to[i], params)] = textprint(ports_from[i], []) # Resolve instanced vs. default parameters and store as a dictionary # (only for use with the "%v" statement in info labels) #............................................................... paramdict = {} try: def_params = devdict['parameters'] except KeyError: def_params = [] try: params = calldict['parameters'] except KeyError: params = [] params += def_params[len(params):] for i in range(0,len(params)): paramdict[textprint(def_params[i], [])] = textprint(params[i], []) # For each "spice:" info label, parse the info label #............................................................... w = devdict['devices'] for y in w: for u in y: lstr = select(textprint(u, params), 'spice') if lstr <> '': ltext += parsedev(lstr, portdict, devdict, classidx, paramdict) ltext += '\n' return ltext #----------------------------------------------------------------------- # Check if a device is "fundamental"; that is, has a "devices" dictionary # with at least one entry with "spice:" for SPICE output. #----------------------------------------------------------------------- def isfundamental(devdict): try: w = devdict['devices'] except KeyError: return 0 else: for y in w: for u in y: lstr = select(textprint(u, []), 'spice') if lstr <> '': return 1 return 0 #----------------------------------------------------------------------- # Select the device string corresponding to the given prefix. # Return the body of the string, or an empty string if the prefix # doesn't match. #----------------------------------------------------------------------- def select(sstr, prefix): ltext = '' if sstr.startswith(prefix): ltext += sstr[len(prefix) + 1:] return ltext #----------------------------------------------------------------------- # Generate an ASCII string from an xcircuit string (list). Translate # overlines to "!" and Greek "mu" (either from Symbol font or from the # ISO-Latin1 encoding of any standard font) to "u". # String parameter substitution is performed if "params" is a non-empty # list and the dictionary key "Parameter" is encountered in the string # list "slist". #----------------------------------------------------------------------- def textprint(slist, params): ltext = '' is_symbol = 0 is_iso = 0 for x in slist: try: f = x.keys()[0] except AttributeError: # must be a string if x == 'Return': ltext += '\n' elif x == 'Underline': ltext += '_' elif x == 'Overline': ltext += '!' else: # is a dictionary; will have only one key if f == 'Font': lfont = x[x.keys()[0]] if lfont.startswith('Symbol'): is_symbol = 1 else: is_symbol = 0 if lfont.endswith('ISO'): is_iso = 1 else: is_iso = 0 elif f == 'Parameter': try: plist = params[x[x.keys()[0]]] except IndexError: ltext += ' --unknown parameter %d-- ' % x[x.keys()[0]] else: ltext += textprint(plist, []) continue; else: # text: SPICE translates "mu" to "u" for y in x[x.keys()[0]]: if is_symbol: if y == 'f': ltext += 'phi' elif y == 'm': ltext += 'u' else: ltext += y else: if ord(y) == 181: ltext += 'u' elif ord(y) > 127: ltext += '/' + str(ord(y)) else: ltext += y return ltext #----------------------------------------------------------------------- # Write netlist to the output #----------------------------------------------------------------------- def writespice(): subidx=1 # subcircuit numbering devdict={} # dictionary of low-level devices classidx = {} # indices of SPICE devices (other than subcircuits) p=netlist() # Generate the netlist g=p['globals'] # Get the list of global networks c=p['circuit'] # Get the list of (sub)circuits l=len(c) top=c[l-1] # Top-level circuit topname=top['name'] # Name of the top-level circuit topname += '.spc' # Filename to write to try: outfile=open(topname, 'w') except IOError: return # Print header line #............................................................... outfile.write('*SPICE circuit "' + topname + '"') outfile.write(' from XCircuit v' + str(xc_version)) outfile.write(' (Python script "spice.py")\n') # Print global variables. This is for hspice and should be # commented out for spice3. #............................................................... for x in g: # 'globals' is a list of strings outfile.write('.GLOBAL ' + textprint(x, []) + '\n') outfile.write('\n') # Print the (sub)circuits. Top level circuit does not get a "subckt" # entry. #............................................................... for x in c: # 'circuits' is a list of dictionaries is_device = 0 try: w = x['ports'] # write circuit name and ports, if any except KeyError: is_top = 1 else: is_top = 0 if isfundamental(x) == 0: outfile.write('.subckt ' + x['name']) for y in w: outfile.write(' ' + textprint(y, [])) outfile.write('\n') else: is_device = 1 devdict[x['name']] = x try: v = x['calls'] # calls to subcircuits in xcircuit except KeyError: pass else: for y in v: try: d = devdict[y['name']] except KeyError: # A SPICE subcircuit instance outfile.write('X' + str(subidx)) subidx+=1 for z in y['ports']: outfile.write(' ' + textprint(z, [])) outfile.write(' ' + y['name'] + '\n') else: # A SPICE circuit element nstr = devwrite(y, d, classidx); outfile.write(nstr) if is_top: outfile.write('.end\n') elif is_device == 0: outfile.write('.ends\n\n') #----------------------------------------------------------------------- # Key binding and menu button for the spice netlist output # bind('Alt_S', 'writespice') #----------------------------------------------------------------------- newbutton('Netlist', 'Write Spice', 'writespice') #----------------------------------------------------------------------- xcircuit-3.9.73/lib/python/xcstartup.py0000664000175000001440000000170512335667423016675 0ustar timusers# XCircuit Python startup script (xcstartup.py) # Does the work previously handled by "builtins.lps". Commands # "loadlibrary" and "loadfontencoding" should no longer be used. # # Written by Tim Edwards 1/19/01 (tim@bach.ece.jhu.edu) # The Johns Hopkins University font("times_roman.xfe") font("times_romaniso.xfe") font("helvetica.xfe") font("helveticaiso.xfe") font("courier.xfe") font("courieriso.xfe") font("symbol.xfe") # Alternate font encodings: Uncomment these if you want them # loaded by default # # font("times_romaniso2.xfe") # font("courieriso2.xfe") # font("helveticaiso2.xfe") # font("times_romaniso5.xfe") # font("courieriso5.xfe") # font("helveticaiso5.xfe") # First library page library("generic.lps", 1) library("analog.lps", 1) library("avlsi.lps", 1) library("digital.lps", 1) # Second library page library ("analoglib2.lps", 2) # Third library page library ("ic_templates.lps", 3) # Fourth library page library ("quadparts.lps", 4) xcircuit-3.9.73/lib/python/gettext.py0000664000175000001440000000247112335667423016325 0ustar timusers# gettext.py #----------------------------------------------------------- # Python script which creates a function "gettext(filename)" # that reads an ASCII file and turns the contents into a # text label. # Execute this script using menu option "File/Execute Script", # if Python has been compiled in. # # Also: defines a function which can be called with a key # macro (gets the filename via popup prompt) and binds it # to key "^G" (ctrl-"g"), and defines a button named "Get Text" # under the "Edit" menu which does the same. #----------------------------------------------------------- def newlabel(x, y, l): h1=newelement("Label") d = {"scale": 1.0, "rotation": 0, "justify": 0, "pin": 0, "position": (x, y), "string": l} setattr(h1, d) return h1 def gettext(f): try: fi = open(f, 'r') except IOError: return else: T = getcursor(); D = {'Font': 'Times-Roman'} S2 = [D] S = fi.readlines() for X in S: Y = X[0:len(X)-1] D = {'Text': Y} S2.append(D) S2.append('Return') h1 = newlabel(T[0], T[1], S2) return h1 def prompttext(): filepopup('Enter filename to import:', 'gettext') bind('Control_G', 'prompttext') newbutton('Edit', 'Get Text (^G)', 'prompttext') #----------------------------------------------------------- xcircuit-3.9.73/lib/python/flatspice.py0000664000175000001440000000616212335667423016614 0ustar timusers# flatspice.py #----------------------------------------------------------- # Python script which writes a SPICE-format netlist. # Replaces the code formerly in "netlist.c" (deprecated). # Python scripting is now the preferred method for handling # netlist output formats. #----------------------------------------------------------- # Select the device string corresponding to the given prefix. # Return the body of the string, or an empty string if the prefix doesn't match. def select(sstr, prefix): ltext = '' if sstr.startswith(prefix): ltext += sstr[len(prefix) + 1:] return ltext # Generate an ASCII string from an xcircuit string (list) def textprint(slist, params): ltext = '' is_symbol = 0 is_iso = 0 for x in slist: try: f = x.keys()[0] except AttributeError: # must be a string if x == 'Return': ltext += '\n' elif x == 'Underline': ltext += '_' elif x == 'Overline': ltext += '!' else: # is a dictionary; will have only one key if f == 'Font': lfont = x[x.keys()[0]] if lfont.startswith('Symbol'): is_symbol = 1 else: is_symbol = 0 if lfont.endswith('ISO'): is_iso = 1 else: is_iso = 0 elif f == 'Parameter': ltext += textprint(params[x[x.keys()[0]]], []) else: # text: SPICE translates "mu" to "u" for y in x[x.keys()[0]]: if is_symbol: if y == 'f': ltext += 'phi' elif y == 'm': ltext += 'u' else: ltext += y else: if ord(y) == 181: ltext += 'u' elif ord(y) > 127: ltext += '/' + str(ord(y)) else: ltext += y return ltext # Flatten the netlist and write to the output def recurseflat(outfile, ckt, clist): try: v = ckt['calls'] # calls to subcircuits except KeyError: # A bottom-level circuit element pass else: for y in v: for z in clist: if z['name'] == y['name']: # copy the object and substitute net names into subcircuit ports lobj = z lobj['ports'] = y['ports'] recurseflat(outfile, lobj, clist) break; try: w = ckt['devices'] except KeyError: pass else: for y in w: for u in y: lstr = select(textprint(u, []), 'spice') if lstr <> '': outfile.write('device: ' + lstr + '\n') # Top of the flattened-circuit writing routine def writespiceflat(): p=netlist() g=p['globals'] c=p['circuit'] l=len(c) top=c[l-1] topname=top['name'] topname += '.spc' try: outfile=open(topname, 'w') except IOError: return # print header line outfile.write('*SPICE flattened circuit "' + topname + '"') outfile.write(' from XCircuit v' + str(xc_version)) outfile.write(' (Python script "flatspice.py")\n') # print global variables for x in g: # 'globals' is a list of strings outfile.write('.GLOBAL ' + textprint(x, []) + '\n') outfile.write('\n') recurseflat(outfile, top, c) outfile.write('.end\n') outfile.close() # Key binding and menu button for the spice netlist output # bind('Alt_F', 'writespiceflat') newbutton('Netlist', 'Write Flattened Spice', 'writespiceflat') xcircuit-3.9.73/lib/python/pagebbox.py0000664000175000001440000000326512335667423016432 0ustar timusers# pagebbox.py #----------------------------------------------------------- # Python script which creates a function "pagebbox(width, height)" # that generates a bounding box of the specified width and height. # # Execute this script using menu option "File/Execute Script", # if Python has been compiled in. # # Add key 'B' for popuppromt asking for page size. Add button to # "Edit" menu for same. Add Ctrl-B and Ctrl-Shift-B for standard # 8 1/2 x 11 and 11 x 17 page bounding boxes. #----------------------------------------------------------- def newbox(lx, ly, ux, uy): h1=newelement("Polygon") plist = [(lx, ly), (ux, ly), (ux, uy), (lx, uy)] d = {"points": plist} setattr(h1, d) return h1 def pagebbox(w, h): h1 = newbox(0, 0, w, h) d = {"style": 512, "color": (255, 165, 0)} setattr(h1, d) return h1 def intbbox(s): slist = s.split() slen = len(slist) if slen > 1: w = eval(slist[0]) else: w = 8.5 if slen == 3: h = eval(slist[2]) elif slen == 2: h = eval(slist[1]) else: h = 11 # note to self: should look at coord style, set default for A4 size # if style is CM, not INCHES. p1 = getpage() oscale = p1['output scale'] inchsc = 192 h1 = pagebbox(w * oscale * inchsc, h * oscale * inchsc) return h1 def promptbbox(): popupprompt('Enter width x height:', 'intbbox') def stdbbox(): intbbox("8.5 x 11") def bigbbox(): intbbox("11 x 17") bind('B', 'promptbbox') bind('Control_b', 'stdbbox') bind('Control_Shift_B', 'bigbbox') newbutton('Edit', 'New BBox (B)', 'promptbbox') # newtool('BBox', 'promptbbox', '', 'bounding box'); #----------------------------------------------------------- xcircuit-3.9.73/lib/lgf.lps0000664000175000001440000005052312335667423014237 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: lgf % Author: R. Timothy Edwards % % Depend VDIFF source % Depend IDIFF source arrowhead % Depend STAIRS VDIFF % Depend NFET7F NFET7T % Depend PFET7F PFET7T % Depend NPN1 arrowhead % Depend PNP1 arrowhead % Depend ARROW1 arrowhead % Depend ARROW2 arrowhead % Depend MMETER arrowhead % Depend ISCOPE MMETER % Depend GINST1 arrowhead % Depend SW2 arrowhead % Depend SW4 arrowhead % Depend NFET5 NFET7T % Depend PFET5 PFET7T % Depend PFET6 PFET7F % Depend PULSE SWITCH % XCircuitLib library objects /source { begingate 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon 1 1.00 0 0 32 0.00 360.00 xcarc endgate } def /VDIFF { begingate 1.00 0 0 0 source (+) {/Symbol cf} 2 5 0 1.00 0 18 label (-) {/Symbol cf} 2 5 0 1.00 0 -18 label endgate } def /arrowhead { begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /IDIFF { begingate 1 0.75 0 20 0 -8 2 polygon 1.00 0 0 0 source 0.80 180 0 -20 arrowhead endgate } def /STAIRS { begingate 1.00 0 0 0 VDIFF (S) {/Helvetica-Bold cf} 2 21 0 0.50 0 0 label endgate } def /NFET7T { begingate 1 1.00 -36 -28 -36 28 2 polygon 1 1.00 -36 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -24 -28 -24 28 0 28 0 64 6 polygon 1.000 0.000 0.000 scb (G) {/Helvetica cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Helvetica cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Helvetica cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS GND nmos) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /PFET7T { begingate 1 1.00 -36 -28 -36 28 2 polygon 1 1.00 -52 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -24 -28 -24 28 0 28 0 64 6 polygon 1 1.00 -44 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Helvetica cf} 2 9 0 1.00 0 64 pinlabel (D) {/Helvetica cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Helvetica cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS Vdd pmos) {/Times-Roman cf} 2 4 0 1.00 -196 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel endgate } def /NFET7F { begingate 1 1.00 -24 0 16 0 2 polygon 1.00 0 0 0 NFET7T 1.000 0.000 0.000 scb (G) {/Helvetica cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Helvetica cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Helvetica cf} 2 9 0 1.00 0 64 pinlabel (B) {/Helvetica cf} 2 0 0 1.00 16 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS %pB nmos) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel (sim:n %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /PFET7F { begingate 1 1.00 -24 0 16 0 2 polygon 1.00 0 0 0 PFET7T 1.000 0.000 0.000 scb (S) {/Helvetica cf} 2 9 0 1.00 0 64 pinlabel (D) {/Helvetica cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Helvetica cf} 2 7 0 1.00 -64 0 pinlabel (B) {/Helvetica cf} 2 0 0 1.00 16 0 pinlabel 0.180 0.545 0.341 scb (spice:M%i %pD %pG %pS %pB pmos) {/Times-Roman cf} 2 4 0 1.00 -196 -139 infolabel (sim:p %pG %pS %pD) {/Times-Roman cf} 2 4 0 1.00 -196 -187 infolabel endgate } def /VDD { begingate 1 1.00 0 0 0 32 2 polygon 1 1.00 -32 32 32 32 2 polygon (Vdd) {/Times-Roman cf} 2 17 0 0.90 0 38 label 0.933 0.604 0.000 scb (Vdd) {/Times-Roman cf} 2 13 0 1.00 0 0 pinglobal endgate } def /GND { begingate 1 1.00 0 0 0 -32 2 polygon 1 1.00 -32 -32 32 -32 2 polygon 1 1.00 -18 -46 18 -46 2 polygon 1 1.00 -4 -60 4 -60 2 polygon 0.933 0.604 0.000 scb (GND) {/Times-Roman cf} 2 1 0 1.00 0 0 pinglobal endgate } def /NPN1 { begingate 1 1.00 -16 0 -32 0 2 polygon 1 1.00 -16 48 -16 -48 2 polygon 1 1.00 32 48 -16 22 2 polygon 1 1.00 32 48 32 64 2 polygon 1 1.00 32 -48 -16 -22 2 polygon 1 1.00 32 -48 32 -64 2 polygon 1.00 120 32 -48 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 9 0 1.00 32 64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -32 0 pinlabel (E) {/Times-Roman cf} 2 13 0 1.00 32 -64 pinlabel 0.180 0.545 0.341 scb (spice:Q%i %pC %pB %pE npn) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel (sim:b %pB %pE %pC) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /PNP1 { begingate 1 1.00 -16 0 -32 0 2 polygon 1 1.00 -16 48 -16 -48 2 polygon 1 1.00 32 48 -16 22 2 polygon 1 1.00 32 48 32 64 2 polygon 1 1.00 32 -48 -16 -22 2 polygon 1 1.00 32 -48 32 -64 2 polygon 1.00 240 -16 22 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 13 0 1.00 32 -64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -32 0 pinlabel (E) {/Times-Roman cf} 2 9 0 1.00 32 64 pinlabel 0.180 0.545 0.341 scb (spice:Q%i %pC %pB %pE pnp) {/Times-Roman cf} 2 4 0 1.00 -244 -139 infolabel endgate } def /RESFLOAT { begingate 1 1.00 0 -48 0 -36 2 polygon 1 1.00 0 48 0 36 2 polygon 1 1.00 0 -36 -12 -30 14 -18 -12 -6 14 6 -12 18 12 30 0 36 8 polygon 1.000 0.000 0.000 scb (r.1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (r.2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:R%i %pr.1 %pr.2 1.0K) {/Times-Roman cf} 2 0 0 1.00 -208 -160 infolabel (sim:r %pr.1 %pr.2) {/Times-Roman cf} 2 0 0 1.00 -208 -208 infolabel endgate } def /CAPFLOAT { begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1.000 0.000 0.000 scb (c.1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (c.2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:C%i %pc.1 %pc.2 1.0P) {/Times-Roman cf} 2 0 0 1.00 -208 -160 infolabel (sim:c %pc.1 %pc.2) {/Times-Roman cf} 2 0 0 1.00 -208 -208 infolabel endgate } def /MOSCAP { begingate 1 1.00 0 4 0 64 2 polygon 1 1.00 -64 4 64 4 2 polygon 1 1.00 -64 -4 -8 -4 2 polygon 1 1.00 8 -4 64 -4 2 polygon 1 1.00 -56 -36 -16 -36 2 polygon 1 1.00 36 -36 36 -4 2 polygon 1 1.00 16 -36 56 -36 2 polygon 1 1.00 -36 -36 -36 -4 2 polygon 1 1.00 -48 -44 -24 -44 2 polygon 1 1.00 -40 -52 -32 -52 2 polygon (Vdd) {/Helvetica cf} 2 29 0 0.60 36 -40 label endgate } def /DIODE { begingate 1 1.00 0 -48 0 -16 2 polygon 1 1.00 0 48 0 16 2 polygon 1 1.00 -18 -16 18 -16 2 polygon 248 1.00 -18 16 0 -16 18 16 3 polygon endgate } def /OPAMP { begingate 1 1.00 0 -40 0 -80 2 polygon 0 1.00 -80 -80 -80 80 80 0 3 polygon (-) {/Symbol cf} 2 5 0 1.00 -64 46 label (+) {/Symbol cf} 2 5 0 1.00 -64 -46 label endgate } def /WRAMP { begingate 1 1.00 0 -80 0 -45 2 polygon 1 1.00 48 0 80 0 2 polygon 0 1.00 -80 -80 -80 80 48 24 48 -24 4 polygon (-) {/Symbol cf} 2 5 0 1.00 -64 46 label (+) {/Symbol cf} 2 5 0 1.00 -64 -46 label endgate } def /ARROW1 { begingate 1 0.80 0 -40 0 20 2 polygon 1.00 0 0 40 arrowhead endgate } def /ARROW2 { begingate 1 0.80 -32 -32 16 16 2 polygon 1.00 45 32 32 arrowhead endgate } def /MMETER { begingate 1 1.00 -24 -24 -8 -8 2 polygon 0 1.00 -8 -8 -8 8 8 8 8 -8 4 polygon 0.75 225 -32 -32 arrowhead endgate } def /ISCOPE { begingate 1 1.00 8 8 32 32 48 32 3 polygon 1.00 0 0 0 MMETER endgate } def /TO { begingate 1 1.00 -80 0 -64 0 2 polygon 1 1.00 -76 -12 -64 0 -76 12 3 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.00 -48 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel endgate } def /FROM { begingate 1 1.00 76 0 64 12 2 polygon 1 1.00 76 0 80 0 2 polygon 1 1.00 76 0 64 -12 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 0 1.00 80 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.00 54 0 pinlabel endgate } def /CROSS5 { begingate 1 1.00 32 32 -32 -32 2 polygon 1 1.00 32 -32 -32 32 2 polygon endgate } def /CROSS3 { begingate 1 1.00 16 32 -32 -16 2 polygon 1 1.00 -32 32 16 -16 2 polygon endgate } def /CROSS2 { begingate 1 1.00 16 16 -16 -16 2 polygon 1 1.00 -16 16 16 -16 2 polygon endgate } def /GINST1 { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 0.60 16 36 16 16 2 polygon 0.60 0 16 48 arrowhead endgate } def /SW2 { begingate 1 1.00 0 -32 -16 16 2 polygon 257 1.00 0 -32 4 0.00 360.00 xcarc 257 1.00 -16 16 4 0.00 360.00 xcarc 257 1.00 16 16 4 0.00 360.00 xcarc -0.60 340 -15 12 arrowhead endgate } def /SW4 { begingate 1 1.00 -16 -16 16 -16 2 polygon 1 1.00 32 32 16 -16 2 polygon 1 1.00 -32 32 -48 -16 2 polygon 3 1.00 -40 8 24 8 2 polygon 257 1.00 16 -16 4 0.00 360.00 xcarc 257 1.00 32 32 4 0.00 360.00 xcarc 257 1.00 48 -16 4 0.00 360.00 xcarc 257 1.00 -32 32 4 0.00 360.00 xcarc 257 1.00 -16 -16 4 0.00 360.00 xcarc 257 1.00 -48 -16 4 0.00 360.00 xcarc 0.60 200 17 -12 arrowhead 0.60 200 -47 -11 arrowhead endgate } def /NFET5 { begingate 1.00 0 0 0 NFET7T endgate } def /PFET5 { begingate 1.00 0 0 0 PFET7T endgate } def /PFET6 { begingate 1.00 0 0 0 PFET7F endgate } def /NOR { begingate 1 1.00 -40 32 -8 32 2 polygon 1 1.00 -40 -32 -8 -32 2 polygon 1 1.00 -24 -16 -24 16 -40 32 -40 -32 spline 1 1.00 8 32 24 16 32 0 -8 32 spline 1 1.00 40 0 8 0.00 360.00 xcarc 1 1.00 48 0 64 0 2 polygon 1 1.00 8 -32 24 -16 32 0 -8 -32 spline 1 1.00 -32 16 -64 16 2 polygon 1 1.00 -32 -16 -64 -16 2 polygon endgate } def /OR { begingate 1 1.00 -40 32 -8 32 2 polygon 1 1.00 -40 -32 -8 -32 2 polygon 1 1.00 -24 -16 -24 16 -40 32 -40 -32 spline 1 1.00 8 32 24 16 32 0 -8 32 spline 1 1.00 32 0 64 0 2 polygon 1 1.00 8 -32 24 -16 32 0 -8 -32 spline 1 1.00 -32 16 -64 16 2 polygon 1 1.00 -32 -16 -64 -16 2 polygon endgate } def /NAND { begingate 1 1.00 24 -32 32 -16 32 0 8 -32 spline 1 1.00 48 0 64 0 2 polygon 1 1.00 -32 16 -64 16 2 polygon 1 1.00 -32 -16 -64 -16 2 polygon 1 1.00 24 32 32 16 32 0 8 32 spline 1 1.00 8 32 -32 32 -32 -32 8 -32 4 polygon 1 1.00 40 0 8 0.00 360.00 xcarc endgate } def /AND { begingate 1 1.00 24 -32 32 -16 32 0 8 -32 spline 1 1.00 32 0 64 0 2 polygon 1 1.00 -32 16 -64 16 2 polygon 1 1.00 -32 -16 -64 -16 2 polygon 1 1.00 24 32 32 16 32 0 8 32 spline 1 1.00 8 32 -32 32 -32 -32 8 -32 4 polygon endgate } def /INV { begingate 1 1.00 -48 0 -24 0 2 polygon 1 1.00 -24 32 -24 -32 2 polygon 1 1.00 -24 32 16 0 -24 -32 3 polygon 1 1.00 24 0 8 0.00 360.00 xcarc 1 1.00 32 0 48 0 2 polygon endgate } def /LED { begingate 0 1.00 -16 -16 -16 16 16 16 16 -16 4 polygon 1.000 0.000 0.000 scb 241 1.00 0 0 12 0.00 360.00 xcarc sce 1 1.00 0 0 12 0.00 360.00 xcarc endgate } def /CLOCK { begingate 0 1.00 -40 -40 -40 40 40 40 40 -40 4 polygon 1 1.00 40 16 64 16 2 polygon 1 1.00 40 -16 64 -16 2 polygon 1 1.00 16 -16 12 0.00 360.00 xcarc 1.000 0.000 0.000 scb 241 1.00 16 16 12 0.00 360.00 xcarc sce 1 1.00 16 16 12 0.00 360.00 xcarc endgate } def /SWITCH { begingate 1 1.00 16 16 -16 16 -16 -16 16 -16 32 0 16 16 6 polygon 1.000 0.000 0.000 scb 241 1.00 0 0 12 0.00 360.00 xcarc sce 1 1.00 0 0 12 0.00 360.00 xcarc endgate } def /PULSE { begingate 1.00 0 8 0 SWITCH 1 1.00 16 16 32 16 48 0 32 -16 16 -16 5 polygon endgate } def /XNOR { begingate 1 1.00 -40 32 -8 32 2 polygon 1 1.00 -40 -32 -8 -32 2 polygon 1 1.00 -32 -16 -32 16 -48 32 -48 -32 spline 1 1.00 8 32 24 16 32 0 -8 32 spline 1 1.00 40 0 8 0.00 360.00 xcarc 1 1.00 48 0 64 0 2 polygon 1 1.00 8 -32 24 -16 32 0 -8 -32 spline 1 1.00 -40 16 -64 16 2 polygon 1 1.00 -40 -16 -64 -16 2 polygon 1 1.00 -24 -16 -24 16 -40 32 -40 -32 spline endgate } def /XOR { begingate 1 1.00 -40 32 -8 32 2 polygon 1 1.00 -40 -32 -8 -32 2 polygon 1 1.00 -32 -16 -32 16 -48 32 -48 -32 spline 1 1.00 8 32 24 16 32 0 -8 32 spline 1 1.00 32 0 64 0 2 polygon 1 1.00 8 -32 24 -16 32 0 -8 -32 spline 1 1.00 -40 16 -64 16 2 polygon 1 1.00 -40 -16 -64 -16 2 polygon 1 1.00 -24 -16 -24 16 -40 32 -40 -32 spline endgate } def /AND3 { begingate 1 1.00 24 -48 32 -32 32 0 8 -48 spline 1 1.00 -32 32 -64 32 2 polygon 1 1.00 -32 -32 -64 -32 2 polygon 1 1.00 24 48 32 32 32 0 8 48 spline 1 1.00 8 48 -32 48 -32 -48 8 -48 4 polygon 1 1.00 -32 0 -64 0 2 polygon 1 1.00 32 0 64 0 2 polygon endgate } def /AND4 { begingate 1 1.00 -64 -48 -32 -48 2 polygon 1 1.00 24 -64 48 -32 48 0 8 -64 spline 1 1.00 -32 48 -64 48 2 polygon 1 1.00 -32 -16 -64 -16 2 polygon 1 1.00 8 64 -32 64 -32 -64 8 -64 4 polygon 1 1.00 -32 16 -64 16 2 polygon 1 1.00 48 0 80 0 2 polygon 1 1.00 24 64 48 32 48 0 8 64 spline endgate } def /AND8 { begingate 1 1.00 -64 -64 -32 -64 2 polygon 1 1.00 -32 32 -64 32 2 polygon 1 1.00 -32 -32 -64 -32 2 polygon 1 1.00 24 56 48 32 48 0 8 56 spline 1 1.00 8 56 -32 56 -32 -80 8 -80 4 polygon 1 1.00 -32 0 -64 0 2 polygon 1 1.00 48 0 80 0 2 polygon 1 1.00 -64 -48 -32 -48 2 polygon 1 1.00 -64 -16 -32 -16 2 polygon 1 1.00 -64 16 -32 16 2 polygon 1 1.00 -64 48 -32 48 2 polygon 1 1.00 32 -80 48 -48 48 0 8 -80 spline endgate } def /NAND3 { begingate 1 1.00 24 -48 32 -32 32 0 8 -48 spline 1 1.00 -32 32 -64 32 2 polygon 1 1.00 -32 -32 -64 -32 2 polygon 1 1.00 24 48 32 32 32 0 8 48 spline 1 1.00 8 48 -32 48 -32 -48 8 -48 4 polygon 1 1.00 -32 0 -64 0 2 polygon 1 1.00 48 0 64 0 2 polygon 1 1.00 40 0 8 0.00 360.00 xcarc endgate } def /NAND4 { begingate 1 1.00 -64 -48 -32 -48 2 polygon 1 1.00 -32 48 -64 48 2 polygon 1 1.00 -32 -16 -64 -16 2 polygon 1 1.00 8 64 -32 64 -32 -64 8 -64 4 polygon 1 1.00 -32 16 -64 16 2 polygon 1 1.00 64 0 80 0 2 polygon 1 1.00 56 0 8 0.00 360.00 xcarc 1 1.00 24 -64 48 -32 48 0 8 -64 spline 1 1.00 24 64 48 32 48 0 8 64 spline endgate } def /NAND8 { begingate 1 1.00 -64 -64 -32 -64 2 polygon 1 1.00 32 56 48 32 48 0 8 56 spline 1 1.00 -32 32 -64 32 2 polygon 1 1.00 -32 -32 -64 -32 2 polygon 1 1.00 32 -80 48 -56 48 0 8 -80 spline 1 1.00 8 56 -32 56 -32 -80 8 -80 4 polygon 1 1.00 -32 0 -64 0 2 polygon 1 1.00 64 0 80 0 2 polygon 1 1.00 -64 -48 -32 -48 2 polygon 1 1.00 -64 -16 -32 -16 2 polygon 1 1.00 -64 16 -32 16 2 polygon 1 1.00 -64 48 -32 48 2 polygon 1 1.00 56 0 8 0.00 360.00 xcarc endgate } def /OR3 { begingate 1 1.00 -40 48 -8 48 2 polygon 1 1.00 -40 -48 -8 -48 2 polygon 1 1.00 -24 -32 -24 32 -40 48 -40 -48 spline 1 1.00 8 -48 24 -32 32 0 -8 -48 spline 1 1.00 32 0 64 0 2 polygon 1 1.00 -32 32 -64 32 2 polygon 1 1.00 -28 0 -64 0 2 polygon 1 1.00 -64 -32 -32 -32 2 polygon 1 1.00 8 48 24 32 32 0 -8 48 spline endgate } def /OR4 { begingate 1 1.00 -40 64 -8 64 2 polygon 1 1.00 -40 -64 -8 -64 2 polygon 1 1.00 -24 -48 -24 48 -40 64 -40 -64 spline 1 1.00 48 0 80 0 2 polygon 1 1.00 -34 48 -64 48 2 polygon 1 1.00 -29 16 -64 16 2 polygon 1 1.00 -64 -16 -29 -16 2 polygon 1 1.00 -64 -48 -34 -48 2 polygon 1 1.00 8 -64 40 -40 48 0 -8 -64 spline 1 1.00 8 64 40 40 48 0 -8 64 spline endgate } def /OR8 { begingate 1 1.00 -40 64 -8 64 2 polygon 1 1.00 -40 -72 -8 -72 2 polygon 1 1.00 -24 -56 -24 48 -40 64 -40 -72 spline 1 1.00 48 0 80 0 2 polygon 1 1.00 -34 48 -64 48 2 polygon 1 1.00 -29 16 -64 16 2 polygon 1 1.00 -64 -16 -29 -16 2 polygon 1 1.00 -64 -48 -32 -48 2 polygon 1 1.00 8 -72 32 -48 48 0 -8 -72 spline 1 1.00 -64 32 -30 32 2 polygon 1 1.00 -64 0 -28 0 2 polygon 1 1.00 -64 -32 -30 -32 2 polygon 1 1.00 -64 -64 -36 -64 2 polygon 1 1.00 8 64 32 48 48 0 -8 64 spline endgate } def /NOR3 { begingate 1 1.00 -40 48 -8 48 2 polygon 1 1.00 -40 -48 -8 -48 2 polygon 1 1.00 -24 -32 -24 32 -40 48 -40 -48 spline 1 1.00 8 -48 24 -32 32 0 -8 -48 spline 1 1.00 48 0 64 0 2 polygon 1 1.00 -32 32 -64 32 2 polygon 1 1.00 -28 0 -64 0 2 polygon 1 1.00 -64 -32 -32 -32 2 polygon 1 1.00 8 48 24 32 32 0 -8 48 spline 1 1.00 40 0 8 0.00 360.00 xcarc endgate } def /NOR4 { begingate 1 1.00 -40 64 -8 64 2 polygon 1 1.00 -40 -64 -8 -64 2 polygon 1 1.00 -24 -48 -24 48 -40 64 -40 -64 spline 1 1.00 64 0 80 0 2 polygon 1 1.00 -34 48 -64 48 2 polygon 1 1.00 -29 16 -64 16 2 polygon 1 1.00 -64 -16 -29 -16 2 polygon 1 1.00 -64 -48 -34 -48 2 polygon 1 1.00 56 0 8 0.00 360.00 xcarc 1 1.00 8 -64 40 -40 48 0 -8 -64 spline 1 1.00 8 64 40 40 48 0 -8 64 spline endgate } def /NOR8 { begingate 1 1.00 -40 64 -8 64 2 polygon 1 1.00 -40 -72 -8 -72 2 polygon 1 1.00 -24 -56 -24 48 -40 64 -40 -72 spline 1 1.00 64 0 80 0 2 polygon 1 1.00 -34 48 -64 48 2 polygon 1 1.00 -29 16 -64 16 2 polygon 1 1.00 -64 -16 -29 -16 2 polygon 1 1.00 8 -72 40 -40 48 0 -8 -72 spline 1 1.00 -64 -48 -32 -48 2 polygon 1 1.00 8 64 32 48 48 0 -8 64 spline 1 1.00 -64 32 -30 32 2 polygon 1 1.00 -64 0 -28 0 2 polygon 1 1.00 -64 -32 -30 -32 2 polygon 1 1.00 -64 -64 -36 -64 2 polygon 1 1.00 56 0 8 0.00 360.00 xcarc endgate } def /TPOS { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 -16 -32 -16 2 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -16 64 -16 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 0 -16 -16 -32 -32 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -16 label (T) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label endgate } def /TNEG { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 -16 -48 -16 2 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -16 64 -16 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 0 -16 -16 -32 -32 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -16 label (T) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -40 -16 8 0.00 360.00 xcarc endgate } def /DPOS { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 -16 -32 -16 2 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -16 64 -16 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 0 -16 -16 -32 -32 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -16 label (D) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label endgate } def /DNEG { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 -16 -48 -16 2 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -16 64 -16 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 0 -16 -16 -32 -32 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -16 label (D) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -40 -16 8 0.00 360.00 xcarc endgate } def /GDNEG { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 0 -48 0 2 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -16 64 -16 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 16 -16 0 -32 -16 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -16 label (G) {/Times-Roman cf} 2 4 0 0.65 -24 -32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -40 0 8 0.00 360.00 xcarc 1 1.00 -64 -32 -32 -32 2 polygon (D) {/Times-Roman cf} 2 4 0 0.65 -24 32 label endgate } def /GDPOS { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 0 -32 0 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -16 64 -16 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 16 -16 0 -32 -16 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -16 label (G) {/Times-Roman cf} 2 4 0 0.65 -24 -32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -64 -32 -32 -32 2 polygon (D) {/Times-Roman cf} 2 4 0 0.65 -24 32 label 1 1.00 -64 32 -32 32 2 polygon endgate } def /JKNEG { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 0 -48 0 2 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -32 64 -32 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 16 -16 0 -32 -16 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -40 0 8 0.00 360.00 xcarc 1 1.00 -64 -32 -32 -32 2 polygon (J) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (K) {/Times-Roman cf} 2 4 0 0.65 -24 -32 label endgate } def /JKPOS { begingate 0 1.00 -32 -48 -32 48 32 48 32 -48 4 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -32 64 -32 2 polygon 1 1.00 0 -56 8 0.00 360.00 xcarc 1 1.00 0 -64 0 -80 2 polygon 1 1.00 0 56 8 0.00 360.00 xcarc 1 1.00 0 64 0 80 2 polygon 1 1.00 -32 16 -16 0 -32 -16 3 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -64 -32 -32 -32 2 polygon (J) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (K) {/Times-Roman cf} 2 4 0 0.65 -24 -32 label 1 1.00 -32 0 -64 0 2 polygon endgate } def /LATCH { begingate 0 1.00 -32 -56 -32 56 32 56 32 -56 4 polygon 1 1.00 -64 32 -32 32 2 polygon 1 1.00 32 32 64 32 2 polygon 1 1.00 32 -32 64 -32 2 polygon (Q) {ol} {/Times-Roman cf} 3 7 0 0.65 24 -32 label (Q) {/Times-Roman cf} 2 7 0 0.65 24 32 label 1 1.00 -64 -32 -32 -32 2 polygon (D) {/Times-Roman cf} 2 4 0 0.65 -24 32 label (L) {/Times-Roman cf} 2 4 0 0.65 -24 -32 label endgate } def % EndLib xcircuit-3.9.73/lib/standard_cells_3V.cir0000664000175000001440000000631612335667423017001 0ustar timusers* standard_cells_3V.cir, netlists for verifying standard cells * * Conrad Ziesler and Tim Edwards, MultiGiG, Inc., 2005 * Standard cells are from the IIT standard cell library. * * These cells have been modified for operation at 3.3V in a * nominally 1.8V process (generally, 0.18um feature size), * using thick oxide implant. .subckt BUFX4_3V vdd gnd A Y M1 x A gnd gnd nhv l=360n w=1.35u m=1 M2 x A vdd vdd phv l=360n w=2.70u m=1 M3 Y x gnd gnd nhv l=360n w=1.80u m=2 M4 Y x vdd vdd phv l=360n w=3.60u m=2 .ends .subckt BUFX2_3V vdd gnd A Y M1 x A gnd gnd nhv l=360n w=0.90u m=1 M2 x A vdd vdd phv l=360n w=1.80u m=1 M3 Y x gnd gnd nhv l=360n w=1.80u m=1 M4 Y x vdd vdd phv l=360n w=3.60u m=1 .ends .subckt INVX1_3V vdd gnd A Y M1 Y A gnd gnd nhv l=360n w=0.90u m=1 M2 Y A vdd vdd phv l=360n w=1.80u m=1 .ends .subckt NOR2X1_3V vdd gnd A B Y M1 Y A gnd gnd nhv l=360n w=0.90u m=1 M2 Y B gnd gnd nhv l=360n w=0.90u m=1 M3 x1 A vdd vdd phv l=360n w=3.60u m=1 M4 Y B x1 vdd phv l=360n w=3.60u m=1 .ends .subckt NOR4X1_3V vdd gnd A B C D Y M1 Y A gnd gnd nhv l=360n w=0.90u m=1 M2 Y B gnd gnd nhv l=360n w=0.90u m=1 M3 Y C gnd gnd nhv l=360n w=0.90u m=1 M4 Y D gnd gnd nhv l=360n w=0.90u m=1 M5 x1 A vdd vdd phv l=360n w=2.70u m=2 M6 x2 B x1 vdd phv l=360n w=2.70u m=2 M7 x3 C x2 vdd phv l=360n w=2.70u m=2 M8 Y D x3 vdd phv l=360n w=2.70u m=2 .ends .subckt NOR3X1_3V vdd gnd A B C Y M1 Y A gnd gnd nhv l=360n w=0.90u m=1 M2 Y B gnd gnd nhv l=360n w=0.90u m=1 M3 Y C gnd gnd nhv l=360n w=0.90u m=1 M4 x1 A vdd vdd phv l=360n w=2.70u m=2 M5 x2 B x1 vdd phv l=360n w=2.70u m=2 M6 Y C x2 vdd phv l=360n w=2.70u m=2 .ends .subckt NAND2X1_3V vdd gnd A B Y M1 x1 A gnd gnd nhv l=360n w=1.80u m=1 M2 Y B x1 gnd nhv l=360n w=1.80u m=1 M3 Y A vdd vdd phv l=360n w=1.80u m=1 M4 Y B vdd vdd phv l=360n w=1.80u m=1 .ends .subckt NAND3X1_3V vdd gnd A B C Y M1 x1 A gnd gnd nhv l=360n w=1.80u m=1 M2 x2 B x1 gnd nhv l=360n w=1.80u m=1 M3 Y C x2 gnd nhv l=360n w=1.80u m=1 M4 Y A vdd vdd phv l=360n w=2.70u m=1 M5 Y B vdd vdd phv l=360n w=2.70u m=1 M6 Y C vdd vdd phv l=360n w=2.70u m=1 .ends .subckt NAND4X1_3V vdd gnd A B C D Y M1 x1 A gnd gnd nhv l=360n w=1.80u m=1 M2 x2 B x1 gnd nhv l=360n w=1.80u m=1 M3 x3 C x2 gnd nhv l=360n w=1.80u m=1 M4 Y D x3 gnd nhv l=360n w=1.80u m=1 M5 Y A vdd vdd phv l=360n w=2.70u m=1 M6 Y B vdd vdd phv l=360n w=2.70u m=1 M7 Y C vdd vdd phv l=360n w=2.70u m=1 M8 Y D vdd vdd phv l=360n w=2.70u m=1 .ends .subckt OR2X1_3V vdd gnd A B Y M1 x2 A gnd gnd nhv l=360n w=0.90u m=1 M2 x2 B gnd gnd nhv l=360n w=0.90u m=1 M3 x1 B vdd vdd phv l=360n w=3.60u m=1 M4 x2 A x1 vdd phv l=360n w=3.60u m=1 M5 Y x2 gnd gnd nhv l=360n w=0.90u m=1 M6 Y x2 vdd vdd phv l=360n w=1.80u m=1 .ends .subckt LATCH_3V vdd gnd CLK D Q M1 cb CLK gnd gnd nhv l=360n w=0.90u m=2 M2 cb CLK vdd vdd phv l=360n w=0.90u m=4 M3 x2 D vdd vdd phv l=360n w=0.90u m=2 M4 qb cb x2 vdd phv l=360n w=0.90u m=2 M5 x4 D gnd gnd nhv l=360n w=0.90u m=1 M6 qb CLK x4 gnd nhv l=360n w=0.90u m=1 M7 x5 Q vdd vdd phv l=360n w=0.90u m=1 M8 qb CLK x5 vdd phv l=360n w=0.90u m=1 M9 x7 Q gnd gnd nhv l=360n w=0.90u m=1 M10 qb cb x7 gnd nhv l=360n w=0.90u m=1 M11 Q qb gnd gnd nhv l=360n w=0.90u m=2 M12 Q qb vdd vdd phv l=360n w=0.90u m=4 .ends xcircuit-3.9.73/lib/generic.lps0000664000175000001440000000332212335667423015076 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 2.3 % Library name is: generic % Author: R. Timothy Edwards % Depend arrow arrowhead % Depend netquery arrowhead % XCircuitLib library of objects /generic::arrowhead { % nonetwork begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def 1.00 90 /generic::arrowhead libinst /generic::jumper { % trivial begingate 1 1.0 0 0 10 -90 90 xcarc 0 10 0 16 wire 0 -10 0 -16 wire 1 0 0 scb (a) {/Times-Roman cf} 2 1 0 1.0 0 16 pinlabel (a) {/Times-Roman cf} 2 13 0 1.0 0 -16 pinlabel sce endgate } def 1.00 90 /generic::jumper libinst /generic::circle { % trivial begingate 1 1.0 16 0 6 0 360 xcarc 0 0 10 0 wire 1 0 0 scb (out) {/Times-Roman cf} 2 4 0 1.0 16 0 pinlabel (out) {/Times-Roman cf} 2 7 0 1.0 0 0 pinlabel sce endgate } def 1.00 90 /generic::circle libinst /generic::arrow { % nonetwork begingate 1 0.8 0 -40 0 20 2 polygon 1.0 0 0 40 generic::arrowhead endgate } def 1.00 90 /generic::arrow libinst 1.00 45 /generic::arrow libinst /generic::dot { % trivial begingate 248 1.0 0 0 6 0 360 xcarc 1 0 0 scb (x) {/Times-Roman cf} 2 29 0 1.0 0 0 pinlabel endgate } def /generic::tap { % trivial <> begingate 496 1.0 0 8 16 0 0 -8 3 polygon 1 0 0 scb mark out {/Helvetica cf} ctmk 20 0 1.0 16 0 pinlabel mark in {/Helvetica cf} ctmk 23 0 1.0 0 0 pinlabel endgate } def /generic::netquery { % nonetwork <> begingate 1 1.00 8 8 16 16 80 16 3 polygon mark netname {/Times-Roman cf} ctmk 16 0 1.00 16 24 label 0.65 135 0 0 generic::arrowhead endgate } def % EndLib xcircuit-3.9.73/lib/ic_templates.lps0000664000175000001440000005236512335667423016146 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: ic_templates % Author: R. Timothy Edwards % % XCircuitLib library objects /templateCLK { <> begingate 0 1.00 -144 -144 -144 144 144 144 144 -144 4 polygon mark title {/Helvetica-Bold cf} ctmk 25 0 1.00 0 16 label mark (MHz) {hS} clock_rate {/Helvetica cf} ctmk 21 0 1.00 0 -32 label (N/C) {/Helvetica cf} 2 20 0 1.00 -128 96 label (GND) {/Helvetica cf} 2 20 0 1.00 -128 -96 label (OUT) {/Helvetica cf} 2 23 0 1.00 128 -96 label (Vdd) {/Helvetica cf} 2 23 0 1.00 128 96 label 0.180 0.545 0.341 scb mark @index (pcb:X) {/Helvetica cf} ctmk 21 0 1.00 0 -176 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -144 96 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -144 -96 pinlabel (5) {/Helvetica cf} 2 20 0 1.00 144 -96 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 144 96 pinlabel sce mark @index (X) {/Helvetica cf} ctmk 16 0 1.00 -16 160 label endgate } def /template8 { <> begingate 0 1.00 -224 176 -224 464 224 464 224 176 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 336 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 384 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 496 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin5 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin6 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin7 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin8 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 256 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (6) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (7) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel endgate } def /template14 { <> begingate 0 1.00 -224 0 -224 448 224 448 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 272 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 320 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 464 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin8 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin9 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin10 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin11 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin12 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel endgate } def /template16 { <> begingate 0 1.00 -224 0 -224 512 224 512 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 272 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 320 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 544 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin9 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin10 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin11 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin12 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel endgate } def /template20 { <> begingate 0 1.00 -224 0 -224 640 224 640 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 400 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 448 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 656 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 608 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 544 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin11 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin12 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin17 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin18 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark pin19 {/Helvetica cf} ctmk 23 0 1.00 208 544 label mark pin20 {/Helvetica cf} ctmk 23 0 1.00 208 608 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel endgate } def /template24 { <> begingate 0 1.00 -224 0 -224 768 224 768 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 528 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 576 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 784 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 736 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 672 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 608 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 544 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin11 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin12 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin17 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin18 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin19 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin20 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark pin21 {/Helvetica cf} ctmk 23 0 1.00 208 544 label mark pin22 {/Helvetica cf} ctmk 23 0 1.00 208 608 label mark pin23 {/Helvetica cf} ctmk 23 0 1.00 208 672 label mark pin24 {/Helvetica cf} ctmk 23 0 1.00 208 736 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel endgate } def /template28 { <> begingate 0 1.00 -224 0 -224 896 224 896 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 592 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 640 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 912 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 864 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 800 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 736 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 672 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 608 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 544 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin11 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin12 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin13 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin14 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin17 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin18 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin19 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin20 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin21 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin22 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark pin23 {/Helvetica cf} ctmk 23 0 1.00 208 544 label mark pin24 {/Helvetica cf} ctmk 23 0 1.00 208 608 label mark pin25 {/Helvetica cf} ctmk 23 0 1.00 208 672 label mark pin26 {/Helvetica cf} ctmk 23 0 1.00 208 736 label mark pin27 {/Helvetica cf} ctmk 23 0 1.00 208 800 label mark pin28 {/Helvetica cf} ctmk 23 0 1.00 208 864 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 864 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 800 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 224 800 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 224 864 pinlabel endgate } def /template40 { <> begingate 0 1.00 -480 -352 -480 480 352 480 352 -352 4 polygon mark gate {/Helvetica-Bold cf} ctmk 17 0 1.00 -80 224 label mark title {/Helvetica cf} ctmk 21 0 1.00 -80 160 label mark @index (U) {/Helvetica cf} ctmk 21 0 1.00 -80 -32 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 -96 -160 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -464 352 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -464 288 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -464 224 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -464 160 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -464 96 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -464 32 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -464 -32 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -464 -96 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -464 -160 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -464 -224 label mark pin11 {/Helvetica cf} ctmk 20 270 1.00 -353 -332 label mark pin12 {/Helvetica cf} ctmk 20 270 1.00 -290 -332 label mark pin13 {/Helvetica cf} ctmk 20 270 1.00 -224 -332 label mark pin14 {/Helvetica cf} ctmk 20 270 1.00 -161 -332 label mark pin15 {/Helvetica cf} ctmk 20 270 1.00 -98 -333 label mark pin16 {/Helvetica cf} ctmk 20 270 1.00 -34 -333 label mark pin17 {/Helvetica cf} ctmk 20 270 1.00 29 -333 label mark pin18 {/Helvetica cf} ctmk 20 270 1.00 93 -335 label mark pin19 {/Helvetica cf} ctmk 20 270 1.00 156 -336 label mark pin20 {/Helvetica cf} ctmk 20 270 1.00 221 -335 label mark pin21 {/Helvetica cf} ctmk 23 0 1.00 336 -224 label mark pin22 {/Helvetica cf} ctmk 23 0 1.00 336 -160 label mark pin23 {/Helvetica cf} ctmk 23 0 1.00 336 -96 label mark pin24 {/Helvetica cf} ctmk 23 0 1.00 336 -32 label mark pin25 {/Helvetica cf} ctmk 23 0 1.00 336 32 label mark pin26 {/Helvetica cf} ctmk 23 0 1.00 336 96 label mark pin27 {/Helvetica cf} ctmk 23 0 1.00 336 160 label mark pin28 {/Helvetica cf} ctmk 23 0 1.00 336 224 label mark pin29 {/Helvetica cf} ctmk 23 0 1.00 336 288 label mark pin30 {/Helvetica cf} ctmk 23 0 1.00 336 352 label mark pin31 {/Helvetica cf} ctmk 20 90 1.00 225 463 label mark pin32 {/Helvetica cf} ctmk 20 90 1.00 160 462 label mark pin33 {/Helvetica cf} ctmk 20 90 1.00 98 460 label mark pin34 {/Helvetica cf} ctmk 20 90 1.00 34 460 label mark pin35 {/Helvetica cf} ctmk 20 90 1.00 -32 460 label mark pin36 {/Helvetica cf} ctmk 20 90 1.00 -95 462 label mark pin37 {/Helvetica cf} ctmk 20 90 1.00 -159 461 label mark pin38 {/Helvetica cf} ctmk 20 90 1.00 -223 460 label mark pin39 {/Helvetica cf} ctmk 20 90 1.00 -289 460 label mark pin40 {/Helvetica cf} ctmk 20 90 1.00 -351 460 label 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 -80 304 infolabel 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -480 352 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -480 288 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -480 224 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -480 160 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -480 96 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -480 32 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -480 -32 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -480 -96 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -480 -160 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -480 -224 pinlabel (11) {/Helvetica cf} 2 29 0 1.00 -352 -352 pinlabel (12) {/Helvetica cf} 2 29 0 1.00 -288 -352 pinlabel (13) {/Helvetica cf} 2 29 0 1.00 -224 -352 pinlabel (14) {/Helvetica cf} 2 29 0 1.00 -160 -352 pinlabel (15) {/Helvetica cf} 2 29 0 1.00 -96 -352 pinlabel (16) {/Helvetica cf} 2 29 0 1.00 -32 -352 pinlabel (17) {/Helvetica cf} 2 29 0 1.00 32 -352 pinlabel (18) {/Helvetica cf} 2 29 0 1.00 96 -352 pinlabel (19) {/Helvetica cf} 2 29 0 1.00 160 -352 pinlabel (20) {/Helvetica cf} 2 29 0 1.00 224 -352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 352 -224 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 352 -160 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 352 -96 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 352 -32 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 352 32 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 352 96 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 352 160 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 352 224 pinlabel (29) {/Helvetica cf} 2 20 0 1.00 352 288 pinlabel (30) {/Helvetica cf} 2 20 0 1.00 352 352 pinlabel (31) {/Helvetica cf} 2 25 0 1.00 224 480 pinlabel (32) {/Helvetica cf} 2 25 0 1.00 160 480 pinlabel (33) {/Helvetica cf} 2 25 0 1.00 96 480 pinlabel (34) {/Helvetica cf} 2 25 0 1.00 32 480 pinlabel (35) {/Helvetica cf} 2 25 0 1.00 -32 480 pinlabel (36) {/Helvetica cf} 2 25 0 1.00 -96 480 pinlabel (37) {/Helvetica cf} 2 25 0 1.00 -160 480 pinlabel (38) {/Helvetica cf} 2 25 0 1.00 -224 480 pinlabel (39) {/Helvetica cf} 2 25 0 1.00 -288 480 pinlabel (40) {/Helvetica cf} 2 25 0 1.00 -352 480 pinlabel endgate } def % EndLib xcircuit-3.9.73/lib/musiclib.lps0000664000175000001440000003300112335667423015266 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.6 % Library name is: musiclib % Author: R. Timothy Edwards % % Depend musiclib::qn musiclib::hd % Depend musiclib::qnd musiclib::qn % Depend musiclib::qstem1 musiclib::qn musiclib::lnt % Depend musiclib::qstem2 musiclib::qn musiclib::lnt % Depend musiclib::qstem3 musiclib::qn musiclib::lnt % Depend musiclib::qstem4 musiclib::qn musiclib::lnt % Depend musiclib::hn musiclib::hhd % Depend musiclib::hnd musiclib::hn % Depend musiclib::hnd2 musiclib::lnt musiclib::hn % Depend musiclib::hnd3 musiclib::lnt musiclib::hn % Depend musiclib::hnt musiclib::lnt musiclib::hn % Depend musiclib::hnt2 musiclib::hn musiclib::lnt % Depend musiclib::wnt musiclib::lnt musiclib::wn % Depend musiclib::en musiclib::qn musiclib::flg % Depend musiclib::en2 musiclib::qn musiclib::flg % Depend musiclib::ent musiclib::en2 musiclib::lnt % Depend musiclib::ent2 musiclib::en musiclib::lnt % Depend musiclib::ent3 musiclib::en musiclib::lnt % Depend musiclib::ent4 musiclib::en2 musiclib::lnt % Depend musiclib::sn musiclib::qn musiclib::flg % Depend musiclib::sn2 musiclib::qn % Depend musiclib::sr musiclib::er % Depend musiclib::keyBf musiclib::flt % Depend musiclib::keyEf musiclib::flt % Depend musiclib::keyDf musiclib::flt % Depend musiclib::cuttime musiclib::common % Depend musiclib::pedalstop musiclib::ppin % Depend musiclib::rept musiclib::ddot % Depend musiclib::gliss musiclib::blip % Depend musiclib::staff musiclib::lines musiclib::br1 musiclib::bar musiclib::tclef musiclib::bclef % Depend musiclib::doublet musiclib::qn % Depend musiclib::triplet musiclib::qn musiclib::hd % XCircuitLib library objects /musiclib::lnt { begingate 1 1.750 -4 0 60 0 2 polygon endgate } def /musiclib::hd { begingate 6 9 beginpath -2 25 -38 9 -30 -9 curveto -22 -25 14 -9 6 9 curveto 241 1.000 endpath endgate } def /musiclib::qn { begingate 1.000 0 -7 16 musiclib::hd 1 1.000 0 18 0 128 2 polygon endgate } def /musiclib::qnd { begingate 1.000 180 -40 32 musiclib::qn endgate } def /musiclib::qstem1 { begingate 1.000 180 -40 32 musiclib::qn 1.000 0 -48 16 musiclib::lnt endgate } def /musiclib::qstem2 { begingate 1.000 180 -40 32 musiclib::qn 1.000 0 -52 0 musiclib::lnt endgate } def /musiclib::qstem3 { begingate 1.000 0 0 0 musiclib::qn 1.000 0 -48 16 musiclib::lnt endgate } def /musiclib::qstem4 { begingate 1.000 0 0 0 musiclib::qn 1.000 0 -45 32 musiclib::lnt endgate } def /musiclib::hhd { begingate 6 28 beginpath 16 12 -20 -12 -30 4 curveto -24 -6 12 20 6 28 curveto -4 44 -40 20 -30 4 curveto -36 12 0 38 6 28 curveto 241 1.000 endpath endgate } def /musiclib::hn { begingate 1 1.000 0 23 0 128 2 polygon 1.000 0 -8 0 musiclib::hhd endgate } def /musiclib::hnd { begingate 1.000 180 -40 32 musiclib::hn endgate } def /musiclib::hnd2 { begingate 1.000 0 -48 0 musiclib::lnt 1.000 180 -40 32 musiclib::hn endgate } def /musiclib::hnd3 { begingate 1.000 0 -48 16 musiclib::lnt 1.000 180 -40 32 musiclib::hn endgate } def /musiclib::hnt { begingate 1.000 0 -48 16 musiclib::lnt 1.000 0 0 0 musiclib::hn endgate } def /musiclib::hnt2 { begingate 1.000 0 0 0 musiclib::hn 1.000 0 -44 32 musiclib::lnt endgate } def /musiclib::wn { begingate -28 32 beginpath -48 32 -28 0 -12 0 curveto -52 0 -52 32 -28 32 curveto 12 32 12 0 -12 0 curveto 8 0 -12 32 -28 32 curveto 241 1.000 endpath endgate } def /musiclib::wnt { begingate 1.000 0 -49 16 musiclib::lnt 1.000 0 0 0 musiclib::wn endgate } def /musiclib::flg { begingate 0 76 beginpath 0 32 68 8 28 -52 curveto 64 0 0 32 0 32 curveto 240 1.000 endpath endgate } def /musiclib::en { begingate 1.000 0 0 0 musiclib::qn 1.000 0 0 78 musiclib::flg endgate } def /musiclib::en2 { begingate 1.000 180 -40 32 musiclib::qn -1.000 180 -40 -54 musiclib::flg endgate } def /musiclib::ent { begingate 1.000 0 0 0 musiclib::en2 1.000 0 -48 16 musiclib::lnt endgate } def /musiclib::ent2 { begingate 1.000 0 0 0 musiclib::en 1.000 0 -44 16 musiclib::lnt endgate } def /musiclib::ent3 { begingate 1.000 0 0 0 musiclib::en 1.000 0 -44 32 musiclib::lnt endgate } def /musiclib::ent4 { begingate 1.000 0 0 0 musiclib::en2 1.000 0 -52 0 musiclib::lnt endgate } def /musiclib::sn { begingate 1.000 0 0 0 musiclib::qn 0 188 beginpath 0 144 56 120 36 72 curveto 52 104 0 144 0 144 curveto 240 1.000 endpath 1.000 0 0 72 musiclib::flg endgate } def /musiclib::sn2 { begingate 1.000 180 -40 32 musiclib::qn -40 -136 beginpath -40 -92 16 -68 -4 -20 curveto 12 -52 -40 -92 -40 -92 curveto 240 1.000 endpath -40 -96 beginpath -40 -52 12 -36 -4 4 curveto 8 -24 -40 -52 -40 -52 curveto 240 1.000 endpath endgate } def /musiclib::flt { begingate 1 1.000 -8 71 -8 -1 2 polygon -8 -2 beginpath 32 22 12 46 -8 30 curveto 2 40 20 22 -8 -2 curveto 241 1.000 endpath endgate } def /musiclib::shp { begingate 240 1.000 -16 24 16 32 16 40 -16 32 4 polygon 240 1.000 -16 -8 16 0 16 8 -16 0 4 polygon 1 1.000 -8 56 -8 -28 2 polygon 1 1.000 8 -24 8 60 2 polygon endgate } def /musiclib::nat { begingate 240 1.000 -14 -8 8 0 8 8 -14 0 4 polygon 240 1.000 -14 24 8 32 8 40 -14 32 4 polygon 1 1.000 -14 62 -14 -8 2 polygon 1 1.000 8 -32 8 40 2 polygon endgate } def /musiclib::hr { begingate 240 1.000 -24 0 -24 16 20 16 20 0 4 polygon endgate } def /musiclib::qr { begingate 1 1.000 3 41 -1 49 2 polygon 1 1.000 14 -34 -14 6 2 polygon 8 -26 beginpath -2 -12 -30 -22 -6 -50 curveto -20 -36 -4 -24 14 -34 curveto 241 1.000 endpath -14 6 beginpath -10 30 6 34 -2 50 curveto 10 26 1 polyc -2 14 -6 -6 0 -14 curveto 241 1.000 endpath endgate } def /musiclib::er { begingate 1 1.300 -3 39 -20 -8 2 polygon 241 1.000 -24 36 6 0.000 360.000 xcarc 1 1.000 -18 44 16 237.000 337.000 xcarc endgate } def /musiclib::sr { begingate 241 1.000 -34 12 6 0.000 360.000 xcarc 1 1.000 -28 20 16 237.000 337.000 xcarc 1.000 0 -3 -6 musiclib::er endgate } def /musiclib::fermata { begingate 241 1.000 0 -12 4 0.000 360.000 xcarc -32 -12 beginpath -24 28 24 28 32 -12 curveto 28 16 -28 16 -32 -12 curveto 241 1.000 endpath endgate } def /musiclib::br1 { begingate 0 96 beginpath -76 52 60 -100 -32 -160 curveto 44 -116 -92 36 0 96 curveto 241 1.000 endpath endgate } def /musiclib::tclef { begingate 1 1.000 -2 -26 16 180.000 360.000 xcarc 241 1.000 -8 -26 10 0.000 360.000 xcarc 1 1.000 14 -26 -4 112 2 polygon -4 12 beginpath -20 20 -16 50 12 50 curveto 42 50 36 0 4 0 curveto 48 0 52 64 12 64 curveto -20 64 -28 20 -4 12 curveto 241 1.000 endpath 4 0 beginpath -24 0 -32 16 -32 32 curveto -32 80 30 84 30 140 curveto 30 170 -10 140 -4 112 curveto -10 156 12 164 22 168 curveto 28 158 30 152 30 140 curveto 30 108 -44 92 -44 40 curveto -44 8 -16 0 4 0 curveto 241 1.000 endpath endgate } def /musiclib::bclef { begingate 1 1.000 0 5 27 90.000 192.000 xcarc 241 1.000 48 16 3 0.000 360.000 xcarc 241 1.000 48 -15 3 0.000 360.000 xcarc 241 1.000 -17 3 10 0.000 360.000 xcarc 36 -4 beginpath 36 -44 8 -60 -28 -68 curveto 40 -52 32 32 0 32 curveto 28 32 36 12 36 -4 curveto 241 1.000 endpath endgate } def /musiclib::keyBf { begingate 1.000 0 -18 -17 musiclib::flt 1.000 0 14 31 musiclib::flt endgate } def /musiclib::keyEf { begingate 1.000 0 -18 -17 musiclib::flt 1.000 0 14 31 musiclib::flt 1.000 0 46 -33 musiclib::flt endgate } def /musiclib::keyDf { begingate 1.000 0 -96 -48 musiclib::flt 1.000 0 -64 0 musiclib::flt 1.000 0 -32 -64 musiclib::flt 1.000 0 0 -16 musiclib::flt 1.000 0 32 -80 musiclib::flt endgate } def /musiclib::dot { begingate 248 1.000 0 0 6 0.000 360.000 xcarc endgate } def /musiclib::ddot { begingate 241 1.000 0 16 5 0.000 360.000 xcarc 241 1.000 0 -16 5 0.000 360.000 xcarc endgate } def /musiclib::common { begingate 241 1.000 14 18 8 -180.000 180.000 xcarc 1 1.000 18 30 20 26 22 20 8 32 spline 1 1.000 18 -26 22 -20 24 -14 14 -28 spline -24 0 beginpath -24 16 -16 36 8 32 curveto -20 38 -18 -48 14 -28 curveto 4 -36 -24 -32 -24 0 curveto 241 1.000 endpath endgate } def /musiclib::cuttime { begingate 1.000 0 0 0 musiclib::common 1 1.000 2 46 2 -46 2 polygon endgate } def /musiclib::two { begingate 241 1.000 -10 18 8 0.000 360.000 xcarc 1 1.000 -14 30 -16 26 -18 20 -4 32 spline 1 1.000 -18 -20 -18 -16 2 -6 -24 -32 spline 26 -12 beginpath 26 -50 -14 -20 -24 -32 curveto -8 0 26 -34 26 -12 curveto 241 1.000 endpath -4 32 beginpath 16 34 22 4 2 -6 curveto 24 2 26 8 26 18 curveto 26 24 20 36 -4 32 curveto 241 1.000 endpath endgate } def /musiclib::three { begingate 241 1.000 -14 -18 8 0.000 360.000 xcarc 1 1.000 -18 -30 -20 -26 -22 -20 -8 -32 spline 241 1.000 -14 18 8 0.000 360.000 xcarc 1 1.000 -18 30 -20 26 -22 20 -8 32 spline -6 0 beginpath 16 0 22 6 22 18 curveto 22 24 16 36 -8 32 curveto 12 34 18 0 -6 0 curveto 16 0 22 -6 22 -18 curveto 22 -24 16 -34 -8 -32 curveto 12 -34 18 0 -6 0 curveto 241 1.000 endpath endgate } def /musiclib::four { begingate 1 1.000 -24 -10 24 -10 2 polygon 12 -24 beginpath 11 -28 15 -31 20 -32 curveto -10 -32 1 polyc -5 -31 -2 -28 -2 -24 curveto 12 -24 12 18 -2 2 3 polyc 241 1.000 endpath -24 -10 beginpath -16 0 -6 20 -6 28 curveto -22 -10 14 32 2 polyc 241 1.000 endpath endgate } def /musiclib::six { begingate 241 1.000 12 20 8 0.000 360.000 xcarc 1 1.000 16 30 18 26 20 20 6 32 spline 1 1.000 -6 4 -12 -4 -10 -14 0 4 spline 0 4 beginpath 14 5 12 -34 0 -32 curveto -26 -32 -24 -4 -24 0 curveto -24 8 -20 36 6 32 curveto -14 34 -16 -32 0 -32 curveto 20 -32 22 -20 22 -12 curveto 22 2 8 6 0 4 curveto 241 1.000 endpath endgate } def /musiclib::eight { begingate 1 1.000 -6 -34 8 -34 14 -30 -12 -30 spline -10 30 beginpath -22 24 -30 4 0 -6 curveto 20 -14 22 -24 14 -30 curveto 26 -24 34 0 4 10 curveto -14 16 -18 24 -10 30 curveto 241 1.000 endpath -12 -30 beginpath -18 -26 -22 -14 -14 0 curveto -24 -6 -28 -22 -12 -30 curveto 241 1.000 endpath 14 30 beginpath 22 22 20 10 16 4 curveto 22 8 30 22 14 30 curveto 241 1.000 endpath 1 1.000 -4 34 8 34 14 30 -10 30 spline endgate } def /musiclib::nine { begingate 241 1.000 -16 -18 8 0.000 360.000 xcarc 1 1.000 -20 -30 -22 -26 -24 -20 -10 -32 spline 1 1.000 4 -4 8 0 9 10 -4 -4 spline -4 -4 beginpath -18 -5 -16 34 -4 32 curveto 15 32 16 -39 -10 -32 curveto 26 -34 24 -6 24 0 curveto 24 4 26 32 -4 32 curveto -24 32 -26 20 -26 12 curveto -26 -2 -13 -4 -4 -4 curveto 241 1.000 endpath endgate } def /musiclib::pedal { begingate 1 1.000 -22 34 -32 32 -36 30 -12 30 spline 4 -28 beginpath -8 -18 -30 -34 -32 -32 curveto -34 -30 -18 -24 -4 -32 curveto 4 -28 1 polyc 241 1.000 endpath -20 -28 beginpath -6 0 -32 12 -26 32 curveto -40 4 -14 -8 -20 -28 curveto 241 1.000 endpath -18 18 beginpath -6 2 4 22 -12 30 curveto 18 18 -8 -12 -18 18 curveto 241 1.000 endpath -36 30 beginpath -60 18 -52 -10 -34 6 curveto -50 -4 -48 24 -36 30 curveto 241 1.000 endpath 1 1.000 22 -18 20 0 12 0 4 -28 spline 44 -30 beginpath 30 -36 24 -4 32 0 curveto 20 -6 20 -40 44 -30 curveto 62 -20 42 22 12 16 curveto 36 24 52 -24 44 -30 curveto 241 1.000 endpath 12 0 beginpath -2 0 0 -44 26 -28 curveto 8 -40 4 0 12 0 curveto 241 1.000 endpath 241 1.000 58 -30 2 0.000 360.000 xcarc endgate } def /musiclib::ppin { % hidden begingate 3 -12 beginpath 3 -9 1 polyc -1 -8 0 1 2 2 curveto 5 4 6 7 5 10 curveto 3 13 0 14 -2 13 curveto -5 11 -6 8 -5 5 curveto -4 4 -3 3 -2 2 curveto 0 1 1 -8 -3 -9 curveto -3 -12 1 polyc -1 -10 1 -10 2 -12 curveto 241 1.000 endpath endgate } def /musiclib::blip { % hidden begingate 0 -16 beginpath -24 8 12 4 0 16 curveto 24 -8 -12 -4 0 -16 curveto 241 1.000 endpath endgate } def /musiclib::pedalstop { begingate -1.000 45 11 11 musiclib::ppin 1.000 0 0 15 musiclib::ppin 1.000 90 15 0 musiclib::ppin -1.000 225 -11 -11 musiclib::ppin -1.000 315 -11 11 musiclib::ppin -1.000 270 -15 0 musiclib::ppin -1.000 180 0 -15 musiclib::ppin -1.000 135 11 -11 musiclib::ppin endgate } def /musiclib::rept { begingate 240 1.000 -32 -256 -32 256 -16 256 -16 -256 4 polygon 1 1.000 0 256 0 -256 2 polygon 1.000 0 16 192 musiclib::ddot 1.000 0 16 -192 musiclib::ddot endgate } def /musiclib::gliss { begingate 1.000 0 0 80 musiclib::blip 1.000 0 0 16 musiclib::blip 1.000 0 0 48 musiclib::blip 1.000 0 0 -16 musiclib::blip 1.000 0 0 -80 musiclib::blip 1.000 0 0 -48 musiclib::blip endgate } def /musiclib::bar { begingate 1 1.500 0 256 0 -256 2 polygon endgate } def /musiclib::lines { begingate 1 1.000 0 -32 3552 -32 2 polygon 1 1.000 0 64 3552 64 2 polygon 1 1.000 0 0 3552 0 2 polygon 1 1.000 0 32 3552 32 2 polygon 1 1.000 0 -64 3552 -64 2 polygon endgate } def /musiclib::staff { begingate 1.000 0 64 -192 musiclib::lines 1.000 0 64 192 musiclib::lines -1.000 180 48 -160 musiclib::br1 1.000 0 48 160 musiclib::br1 1.000 0 64 0 musiclib::bar 1.000 0 3616 0 musiclib::bar 1.000 0 144 128 musiclib::tclef 1.000 0 128 -160 musiclib::bclef endgate } def /musiclib::doublet { <> begingate 1.000 0 -32 -96 musiclib::qn 1.000 0 p_xps p_yps musiclib::qn 496 1.000 -32 32 -32 48 p_xps p_yps2 p_xps p_yps3 4 polygon endgate } def /musiclib::triplet { <> begingate 1.000 0 -32 -96 musiclib::qn 1.000 0 p_xps p_yps musiclib::qn 1.000 0 p_xps2 p_yps4 musiclib::hd 1 1.000 p_xps3 p_yps4 p_xps3 p_yps5 2 polygon 496 1.000 -32 32 -32 48 p_xps p_yps2 p_xps p_yps3 4 polygon endgate } def /musiclib::tie { <> begingate p_xps p_yps beginpath p_xps3 p_yps3 p_xps4 p_yps4 p_xps2 p_yps2 curveto p_xps4 p_yps5 p_xps3 p_yps6 p_xps p_yps curveto 497 1.000 endpath endgate } def % EndLib xcircuit-3.9.73/lib/standard_cells.cir0000664000175000001440000000627212335667423016432 0ustar timusers* standard_cells.cir, netlists for verifying standard cells * Conrad Ziesler and Tim Edwards, MultiGiG, Inc. * Standard cells are from the IIT standard cell library. .subckt MUX2X1 vdd gnd A B Y S M1 x1 A gnd gnd nfet l=180n w=1.80u m=1 M2 x2 A vdd vdd pfet l=180n w=3.60u m=1 M3 x2 S Y vdd pfet l=180n w=3.60u m=1 M4 x1 sbar Y gnd nfet l=180n w=1.80u m=1 M5 sbar S vdd vdd pfet l=180n w=1.80u m=1 M6 sbar S gnd gnd nfet l=180n w=0.90u m=1 M7 Y sbar x3 vdd pfet l=180n w=3.60u m=1 M8 Y S x4 gnd nfet l=180n w=1.80u m=1 M9 x3 B vdd vdd pfet l=180n w=3.60u m=1 M10 x4 B gnd gnd nfet l=180n w=1.80u m=1 .ends .subckt TBUFX2 vdd gnd A Y En M1 enb En gnd gnd nfet l=180n w=1.80u m=1 M2 enb En vdd vdd pfet l=180n w=3.60u m=1 M4 i A vdd vdd pfet l=180n w=3.60u m=2 M3 i enb Y vdd pfet l=180n w=3.60u m=2 M5 j En Y gnd nfet l=180n w=1.80u m=2 M6 j A gnd gnd nfet l=180n w=1.80u m=2 .ends .subckt BUFX4 vdd gnd A Y M1 x A gnd gnd nfet l=180n w=1.35u m=1 M2 x A vdd vdd pfet l=180n w=2.70u m=1 M3 Y x gnd gnd nfet l=180n w=1.80u m=2 M4 Y x vdd vdd pfet l=180n w=3.60u m=2 .ends .subckt BUFX2 vdd gnd A Y M1 x A gnd gnd nfet l=180n w=0.90u m=1 M2 x A vdd vdd pfet l=180n w=1.80u m=1 M3 Y x gnd gnd nfet l=180n w=1.80u m=1 M4 Y x vdd vdd pfet l=180n w=3.60u m=1 .ends .subckt INVX1 vdd gnd A Y M1 Y A gnd gnd nfet l=180n w=0.90u m=1 M2 Y A vdd vdd pfet l=180n w=1.80u m=1 .ends .subckt INVX2 vdd gnd A Y M1 Y A gnd gnd nfet l=180n w=1.80u m=1 M2 Y A vdd vdd pfet l=180n w=3.60u m=1 .ends .subckt NOR2X1 vdd gnd A B Y M1 Y A gnd gnd nfet l=180n w=0.90u m=1 M2 Y B gnd gnd nfet l=180n w=0.90u m=1 M3 x1 A vdd vdd pfet l=180n w=3.60u m=1 M4 Y B x1 vdd pfet l=180n w=3.60u m=1 .ends .subckt NOR3X1 vdd gnd A B C Y M1 Y A gnd gnd nfet l=180n w=0.90u m=1 M2 Y B gnd gnd nfet l=180n w=0.90u m=1 M3 Y C gnd gnd nfet l=180n w=0.90u m=1 M4 x1 A vdd vdd pfet l=180n w=2.70u m=2 M5 x2 B x1 vdd pfet l=180n w=2.70u m=2 M6 Y C x2 vdd pfet l=180n w=2.70u m=2 .ends .subckt NAND2X1 vdd gnd A B Y M1 x1 A gnd gnd nfet l=180n w=1.80u m=1 M2 Y B x1 gnd nfet l=180n w=1.80u m=1 M3 Y A vdd vdd pfet l=180n w=1.80u m=1 M4 Y B vdd vdd pfet l=180n w=1.80u m=1 .ends .subckt NAND3X1 vdd gnd A B C Y M1 x1 A gnd gnd nfet l=180n w=2.70u m=1 M2 x2 B x1 gnd nfet l=180n w=2.70u m=1 M3 Y C x2 gnd nfet l=180n w=2.70u m=1 M4 Y A vdd vdd pfet l=180n w=1.80u m=1 M5 Y B vdd vdd pfet l=180n w=1.80u m=1 M6 Y C vdd vdd pfet l=180n w=1.80u m=1 .ends .subckt OR2X1 vdd gnd A B Y M1 x2 A gnd gnd nfet l=180n w=0.90u m=1 M2 x2 B gnd gnd nfet l=180n w=0.90u m=1 M3 x1 B vdd vdd pfet l=180n w=3.60u m=1 M4 x2 A x1 vdd pfet l=180n w=3.60u m=1 M5 Y x2 gnd gnd nfet l=180n w=0.90u m=1 M6 Y x2 vdd vdd pfet l=180n w=1.80u m=1 .ends .subckt LATCH vdd gnd CLK D Q M1 cb CLK gnd gnd nfet l=180n w=0.90u m=2 M2 cb CLK vdd vdd pfet l=180n w=0.90u m=4 M3 x2 D vdd vdd pfet l=180n w=0.90u m=2 M4 qb cb x2 vdd pfet l=180n w=0.90u m=2 M5 x4 D gnd gnd nfet l=180n w=0.90u m=1 M6 qb CLK x4 gnd nfet l=180n w=0.90u m=1 M7 x5 Q vdd vdd pfet l=180n w=0.90u m=1 M8 qb CLK x5 vdd pfet l=180n w=0.90u m=1 M9 x7 Q gnd gnd nfet l=180n w=0.90u m=1 M10 qb cb x7 gnd nfet l=180n w=0.90u m=1 M11 Q qb gnd gnd nfet l=180n w=0.90u m=2 M12 Q qb vdd vdd pfet l=180n w=0.90u m=4 .ends xcircuit-3.9.73/lib/analoglib2.lps0000664000175000001440000003017412335667423015501 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: analoglib2 % Author: R. Timothy Edwards % % Depend analoglib2::Transformer analog::inductor % Depend analoglib2::Vsource analog::source % Depend analoglib2::Isource generic::arrowhead analog::source % Depend analoglib2::ACsource analoglib2::sinusoid analog::source % Depend analoglib2::NPN generic::arrowhead % Depend analoglib2::PNP generic::arrowhead % XCircuitLib library objects /analoglib2::Capacitor { << /value (1.0) /units (p) /@index (?) /p_jst 20 /p_rot 0 /pkg (AXIAL_400) >> begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:C) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:c %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (F) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label 0.180 0.545 0.341 scb mark @index (pcb:C) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::Capacitor libinst /analoglib2::Polarized { << /value (1.0) /units (p) /@index (?) /p_jst 20 /p_rot 0 /pkg (AXIAL_400) >> begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 0 -80 74 66.00 114.00 xcarc 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:C) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:e %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (F) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label 0.180 0.545 0.341 scb mark @index (pcb:C) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::Polarized libinst /analoglib2::Resistor { << /value (1.0) /units (k) /@index (?) /p_jst 20 /p_rot 0 /pkg (AXIAL_400) >> begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:R) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:r %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (W) {/Symbol cf} units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label 0.180 0.545 0.341 scb mark @index (pcb:R) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::Resistor libinst /analoglib2::Inductor { << /value (1.0) /units (m) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 20 -28 20 -44 0 -48 0 -24 spline 1 1.00 -20 -20 -20 -32 0 -28 0 -24 spline 1 1.00 20 32 20 16 0 12 0 36 spline 1 1.00 20 12 20 -4 0 -8 0 16 spline 1 1.00 20 -8 20 -24 0 -28 0 -4 spline 1 1.00 -20 20 -20 8 0 12 0 16 spline 1 1.00 -20 0 -20 -12 0 -8 0 -4 spline 1 1.00 0 -48 0 -64 2 polygon 1 1.00 0 36 0 48 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 48 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:L) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:l %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (H) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label 0.180 0.545 0.341 scb mark @index (pcb:L) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::Inductor libinst /analog::inductor { begingate 1 1.00 20 -28 20 -44 0 -48 0 -24 spline 1 1.00 -20 -20 -20 -32 0 -28 0 -24 spline 1 1.00 20 32 20 16 0 12 0 36 spline 1 1.00 20 12 20 -4 0 -8 0 16 spline 1 1.00 20 -8 20 -24 0 -28 0 -4 spline 1 1.00 -20 20 -20 8 0 12 0 16 spline 1 1.00 -20 0 -20 -12 0 -8 0 -4 spline 1 1.00 0 -48 0 -64 2 polygon 1 1.00 0 36 0 48 2 polygon 1.000 0.000 0.000 scb (l.1) {/Times-Roman cf} 2 9 0 1.00 0 48 pinlabel (l.2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb (spice:L%i %pl.1 %pl.2 1.0U) {/Times-Roman cf} 2 0 0 1.00 -208 -160 infolabel (sim:l %pl.1 %pl.2) {/Times-Roman cf} 2 0 0 1.00 -208 -208 infolabel endgate } def /analoglib2::Transformer { << /@index (?) >> begingate 1.00 0 -48 0 analog::inductor 1 1.00 -16 48 -16 -64 2 polygon 1 1.00 0 48 0 -64 2 polygon 1.00 180 32 -16 analog::inductor 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 25 0 1.00 -48 48 pinlabel (2) {/Times-Roman cf} 2 29 0 1.00 -48 -64 pinlabel (3) {/Times-Roman cf} 2 25 0 1.00 32 48 pinlabel (4) {/Times-Roman cf} 2 29 0 1.00 32 -64 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:T) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel endgate } def /analog::source { % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /analoglib2::Vsource { << /value (5) /p_jst 20 /p_rot 0 >> begingate 1.00 0 0 0 analog::source (+) {/Symbol cf} 2 5 p_rot 1.00 0 14 label (-) {/Symbol cf} 2 5 p_rot 1.00 0 -22 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (v.m) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark value (spice:V%i %pv.p %pv.m ) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel sce mark (V) {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::Vsource libinst /generic::arrowhead { % trivial begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /analoglib2::Isource { << /value (1) /units (m) /p_jst 20 /p_rot 0 >> begingate 1.00 0 0 0 analog::source 1 0.75 0 20 0 -8 2 polygon 0.80 180 0 -20 generic::arrowhead 1.000 0.000 0.000 scb (i.p) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (i.m) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value (spice:I%i %pi.p %pi.m ) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel sce mark (A) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::Isource libinst /analoglib2::sinusoid { % hidden begingate 1 0.80 0 -48 0 48 -16 0 16 0 spline endgate } def /analoglib2::ACsource { << /value (5) /offset (0) /freq (1) /units (k) /p_jst 20 /p_rot 0 >> begingate 1.00 0 0 0 analog::source 1.000 0.000 0.000 scb (s.p) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (s.m) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark (\)) units freq ( ) value ( ) offset (spice:V%i %ps.p %ps.m SIN\() {/Times-Roman cf} ctmk 20 0 1.00 -336 -160 infolabel sce mark (Hz) units {hS} freq {CR} (offset) {ss} (V) {hS} offset {CR} (p-p) {ss} (V) {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label 1.00 p_rot 0 0 analoglib2::sinusoid endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::ACsource libinst /analoglib2::nMOS { << /width (3) /length (2) /model (nmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS GND ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel mark ( %x %y) width ( ) length (sim:n %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -244 -187 infolabel sce mark length (=) {Tf} (L) {hS} {CR} width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::nMOS libinst /analoglib2::pMOS { << /width (3) /length (2) /model (pmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS Vdd ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -196 -139 infolabel mark ( %x %y) width ( ) length (sim:p %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -196 -187 infolabel sce mark length (=) {Tf} (L) {hS} {CR} width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::pMOS libinst /analoglib2::nMOS4 { << /width (3) /length (2) /model (nmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (B) {/Times-Roman cf} 2 4 0 1.00 32 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS %pB ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel mark ( %x %y) width ( ) length (sim:n %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -244 -187 infolabel sce mark length (/) width (W/L=) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 32 label 1 1.00 -32 0 32 0 2 polygon endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::nMOS4 libinst /analoglib2::pMOS4 { << /width (3) /length (2) /model (pmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (B) {/Times-Roman cf} 2 4 0 1.00 32 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS %pB ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -196 -139 infolabel mark ( %x %y) width ( ) length (sim:p %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -196 -187 infolabel sce mark length (/) width (W/L=) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 32 label 1 1.00 -32 0 32 0 2 polygon endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /analoglib2::pMOS4 libinst /analoglib2::NPN { << /model (npn) /@index (?) >> begingate 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 120 0 -48 generic::arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (E) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark model ( %pC %pB %pE ) @index (spice:Q) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel (sim:b %pB %pE %pC) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /analoglib2::PNP { << /model (pnp) /@index (?) >> begingate 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 240 -48 22 generic::arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (E) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb mark model ( %pC %pB %pE ) @index (spice:Q) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel endgate } def /analoglib2::Diode { << /@index (?) >> begingate 248 1.00 -18 -16 0 16 18 -16 3 polygon 1 1.00 0 -48 0 -16 2 polygon 1 1.00 0 48 0 16 2 polygon 1 1.00 -18 16 18 16 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 48 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -48 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:D) {/Times-Roman cf} ctmk 20 0 1.00 -64 -144 infolabel mark ( %p2 %p1 diode) @index (spice:D) {/Times-Roman cf} ctmk 4 0 1.00 -64 -192 infolabel endgate } def % EndLib xcircuit-3.9.73/lib/analoglib3.lps0000664000175000001440000004644312757621746015516 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.9 % Library name is: analoglib3 % Author: % % Depend analoglib3::NPNModel generic::arrowhead % Depend analoglib3::Vsource analog::source % Depend analoglib3::ACsource analog::source analoglib2::sinusoid % Depend analoglib3::Vpwl analog::source % Depend analoglib3::Switch generic::circle generic::arrowhead % Depend analoglib3::Vpulse analog::source % XCircuitLib library objects /analoglib3::pMOS { <> begingate 1 1.000 -44 -28 -44 28 2 polygon 1 1.000 -60 0 -64 0 2 polygon 1 1.000 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.000 -52 0 8 0.000 360.000 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0.000 1.000 -64 0 pinlabel 0.180 0.545 0.341 scb mark @fingers ( M=) @length ( L=) @width ( W=) @model ( ) @subs ( %pD %pG %pS ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -196 -139 infolabel mark ( %x %y) @width ( ) @length (sim:p %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0.000 1.000 -196 -187 infolabel 0.647 0.165 0.165 scb mark @fingers {hS} (=) {hS} (M) {CR} @length (=) {Tf} (L) {hS} {CR} @width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps1 p_yps1 label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 16 p_rot 0.700 p_xps2 p_yps2 label sce mark @model {/Times-RomanISO cf} ctmk 16 p_rot 0.700 p_xps p_yps label endgate } def 1.000 90.000 <> /analoglib3::pMOS libinst <> /analoglib3::pMOS libinst 1.000 90.000 <> /analoglib3::pMOS libinst /analoglib3::pMOS1finger { <> begingate 1 1.000 -44 -28 -44 28 2 polygon 1 1.000 -60 0 -64 0 2 polygon 1 1.000 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.000 -52 0 8 0.000 360.000 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0.000 1.000 -64 0 pinlabel 0.180 0.545 0.341 scb mark @length ( L=) @width ( W=) @model ( ) @subs ( %pD %pG %pS ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -196 -139 infolabel mark ( %x %y) @width ( ) @length (sim:p %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0.000 1.000 -196 -187 infolabel 0.647 0.165 0.165 scb mark @length (=) {Tf} (L) {hS} {CR} @width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps2 p_yps2 label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 16 p_rot 0.700 p_xps p_yps label sce mark @model {/Times-RomanISO cf} ctmk 16 p_rot 0.700 p_xps1 p_yps1 label endgate } def 1.000 90.000 <> /analoglib3::pMOS1finger libinst <> /analoglib3::pMOS1finger libinst 1.000 90.000 <> /analoglib3::pMOS1finger libinst /analoglib3::nMOS { <> begingate 1 1.000 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.000 -44 -28 -44 28 2 polygon 1 1.000 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0.000 1.000 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel 0.180 0.545 0.341 scb mark @fingers ( m=) @length ( l=) @width ( w=) @model ( ) @subs ( %pD %pG %pS ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -244 -139 infolabel mark ( %x %y) @width ( ) @length (sim:n %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0.000 1.000 -244 -187 infolabel 0.647 0.165 0.165 scb mark @fingers (=) {Tf} {Tf} (M) {CR} @length (=) {Tf} (L) {hS} {CR} @width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps2 p_yps2 label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label sce mark @model {/Times-RomanISO cf} ctmk 20 p_rot 0.700 p_xps1 p_yps1 label endgate } def 1.000 90.000 <> /analoglib3::nMOS libinst <> /analoglib3::nMOS libinst 1.000 90.000 <> /analoglib3::nMOS libinst /analoglib3::nMOS1finger { <> begingate 1 1.000 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.000 -44 -28 -44 28 2 polygon 1 1.000 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0.000 1.000 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel 0.180 0.545 0.341 scb mark @length ( l=) @width ( w=) @model ( ) @subs ( %pD %pG %pS ) @index @class (spice:) {/Times-Roman cf} ctmk 4 360.000 1.000 -244 -139 infolabel mark ( %x %y) @width ( ) @length (sim:n %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0.000 1.000 -244 -187 infolabel 0.647 0.165 0.165 scb mark @length (=) {Tf} (L) {hS} {CR} @width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps2 p_yps2 label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label sce mark @model {/Times-RomanISO cf} ctmk 20 p_rot 0.700 p_xps1 p_yps1 label endgate } def 1.000 90.000 <> /analoglib3::nMOS1finger libinst <> /analoglib3::nMOS1finger libinst 1.000 90.000 <> /analoglib3::nMOS1finger libinst /generic::arrowhead { % nonetwork begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.000 endpath endgate } def /analoglib3::NPNModel { <> begingate 1 1.000 -48 0 -64 0 2 polygon 1 1.000 -48 48 -48 -48 2 polygon 1 1.000 0 48 -48 22 2 polygon 1 1.000 0 48 0 64 2 polygon 1 1.000 0 -48 -48 -22 2 polygon 1 1.000 0 -48 0 -64 2 polygon 1.000 120.000 0 -48 generic::arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (B) {/Times-Roman cf} 2 7 0.000 1.000 -64 0 pinlabel (E) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @m ( M=) @length ( L=) @width ( W=) @model ( ) @subs ( %pC %pB %pE ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -244 -139 infolabel (sim:b %pB %pE %pC) {/Times-Roman cf} 2 4 0.000 1.000 -244 -187 infolabel 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 16 p_rot 0.700 p_xps2 p_yps2 label sce mark @model {/Times-RomanISO cf} ctmk 16 p_rot 0.700 p_xps p_yps label 0.647 0.165 0.165 scb mark @m {Tf} (=) {Tf} (M) {CR} @length {Tf} (=) {Tf} (L) {CR} @width {Ts} {hS} (=) {Ts} {hS} (W) {/Times-Roman cf} ctmk 28 p_rot 0.700 p_xps1 p_yps1 label endgate } def 1.000 90.000 <> /analoglib3::NPNModel libinst /analoglib3::ResModel { <> begingate 1 1.000 0 64 0 36 2 polygon 1 1.000 0 -64 0 -36 2 polygon 1 1.000 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @subs (=) @substype ( ) @width ( W=) @length ( L=) @units @value ( R=) @model ( %p1 %p2 ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -208 -160 infolabel (sim:r %p1 %p2) {/Times-Roman cf} 2 4 0.000 1.000 -208 -208 infolabel 0.647 0.165 0.165 scb mark (W) {/Symbol cf} @units {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps1 p_yps1 label 0.180 0.545 0.341 scb mark @index @class (pcb:) {/Times-Roman cf} ctmk 20 0.000 1.000 -208 -256 infolabel 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label 0.647 0.165 0.165 scb mark @model {/Times-RomanISO cf} ctmk 16 p_rot 0.700 p_xps2 p_yps2 label endgate } def 1.000 90.000 <> /analoglib3::ResModel libinst /analoglib3::MiMCap { <> begingate 1 1.000 0 -64 0 -6 2 polygon 1 1.000 0 64 0 6 2 polygon 1 1.000 -32 6 32 6 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @subs (=) @substype ( ) @fingers ( M=) @width ( W=) @length ( L=) @units @value ( %p1 %p2 MIM C=) @index (spice:C) {/Times-Roman cf} ctmk 4 0.000 1.000 -208 -160 infolabel (sim:c %p1 %p2) {/Times-Roman cf} 2 4 0.000 1.000 -208 -208 infolabel 0.647 0.165 0.165 scb mark (F) @units {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps1 p_yps1 label 0.180 0.545 0.341 scb mark @index (pcb:C) {/Times-Roman cf} ctmk 20 0.000 1.000 -208 -256 infolabel 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label 0.647 0.165 0.165 scb mark @fingers {Tf} (=) {Tf} (M) {CR} @length {Tf} (=) {Tf} (L) {CR} @width {Ts} {hS} (=) {Ts} {hS} (W) {/Times-RomanISO cf} ctmk 28 p_rot 0.700 p_xps2 p_yps2 label sce 1 1.000 0 -80 74 66.000 114.000 xcarc endgate } def 1.000 90.000 <> /analoglib3::MiMCap libinst /analoglib3::IndModel { <> begingate 1 1.000 20 -22 20 -38 0 -42 0 -18 spline 1 1.000 -20 -14 -20 -26 0 -22 0 -18 spline 1 1.000 20 38 20 22 0 18 0 42 spline 1 1.000 20 18 20 2 0 -2 0 22 spline 1 1.000 20 -2 20 -18 0 -22 0 2 spline 1 1.000 -20 26 -20 14 0 18 0 22 spline 1 1.000 -20 6 -20 -6 0 -2 0 2 spline 1 1.000 0 -42 0 -64 2 polygon 1 1.000 0 42 0 64 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @turns ( turns=) @sep ( sep=) @width ( width=) @size ( size=) @subs (=) @substype ( ) @units @value ( ind=) @model ( %p1 %p2 ) @index (spice:L) {/Times-Roman cf} ctmk 132 360.000 1.000 -208 -160 infolabel (sim:l %p1 %p2) {/Times-Roman cf} 2 4 0.000 1.000 -208 -208 infolabel 0.647 0.165 0.165 scb mark (H) @units {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps1 p_yps1 label 0.180 0.545 0.341 scb mark @index (pcb:L) {/Times-Roman cf} ctmk 20 0.000 1.000 -208 -256 infolabel 0.000 0.000 1.000 scb mark @index (L) {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label 0.647 0.165 0.165 scb mark @model {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps2 p_yps2 label endgate } def 1.000 90.000 <> /analoglib3::IndModel libinst /analog::source { % hidden begingate 1 1.000 0 0 32 0.000 360.000 xcarc 1 1.000 0 32 0 64 2 polygon 1 1.000 0 -32 0 -64 2 polygon endgate } def /analoglib3::Vsource { <> begingate 1.000 360.000 0 0 analog::source (+) {/Symbol cf} 2 5 p_rot 1.000 0 14 label (-) {/Symbol cf} 2 5 p_rot 1.000 0 -22 label 1.000 0.000 0.000 scb (v.p) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (v.m) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @value ( %pv.p %pv.m ) @index @class (spice:) {/Times-Roman cf} ctmk 20 360.000 1.000 -96 -160 infolabel 0.647 0.165 0.165 scb mark (V) {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.700 48 -16 label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label endgate } def 1.000 270.000 <> /analoglib3::Vsource libinst /analoglib2::sinusoid { % hidden begingate 1 0.800 0 -48 0 48 -16 0 16 0 spline endgate } def /analoglib3::ACsource { <> begingate 1.000 0.000 0 0 analog::source 1.000 0.000 0.000 scb (s.p) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (s.m) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark (\)) @units @freq ( ) @value ( ) @offset ( %ps.p %ps.m SIN\() @index (spice:V) {/Times-Roman cf} ctmk 20 0.000 1.000 -336 -160 infolabel 0.647 0.165 0.165 scb mark (Hz) @units {hS} @freq {CR} (offset) {ss} (V) {hS} @offset {CR} (p-p) {ss} (V) {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.750 p_xps1 p_yps1 label sce 1.000 p_rot 0 0 analoglib2::sinusoid 0.000 0.000 1.000 scb mark @index (V) {/Times-RomanISO cf} ctmk 16 p_rot 0.700 p_xps p_yps label endgate } def 1.000 90.000 <> /analoglib3::ACsource libinst /analoglib3::Vpwl { <> begingate 1.000 360.000 0 0 analog::source (+) {/Symbol cf} 2 5 p_rot 1.000 0 14 label (-) {/Symbol cf} 2 5 p_rot 1.000 0 -22 label 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps p_yps label 0.180 0.545 0.341 scb mark (\)) @pwl ( %p1 %p2 PWL\() @index @class (spice:) {/Times-Roman cf} ctmk 16 0.000 1.000 -304 -176 infolabel 0.647 0.165 0.165 scb mark @pwl {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps1 p_yps1 label endgate } def 1.000 270.000 <> /analoglib3::Vpwl libinst /analoglib3::Capacitor { <> begingate 1 1.000 0 -64 0 -6 2 polygon 1 1.000 0 64 0 6 2 polygon 1 1.000 -32 6 32 6 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @units @value ( %p1 %p2 ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -208 -160 infolabel (sim:e %p1 %p2) {/Times-Roman cf} 2 4 0.000 1.000 -208 -208 infolabel 0.647 0.165 0.165 scb mark (F) @units {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps p_yps label 0.180 0.545 0.341 scb mark @index @class (pcb:) {/Times-Roman cf} ctmk 20 0.000 1.000 -208 -256 infolabel 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps1 p_yps1 label sce 1 1.000 -32 -6 32 -6 2 polygon endgate } def 1.000 90.000 <> /analoglib3::Capacitor libinst /analoglib3::Resistor { <> begingate 1 1.000 0 64 0 36 2 polygon 1 1.000 0 -64 0 -36 2 polygon 1 1.000 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark @units @value ( %p1 %p2 ) @index @class (spice:) {/Times-Roman cf} ctmk 4 0.000 1.000 -208 -160 infolabel mark @index @class (pcb:) {/Times-Roman cf} ctmk 20 0.000 1.000 -208 -256 infolabel (sim:r %p1 %p2) {/Times-Roman cf} 2 4 0.000 1.000 -208 -208 infolabel 0.647 0.165 0.165 scb mark (W) {/Symbol cf} @units {hS} @value {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps p_yps label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk p_jst p_rot 0.700 p_xps1 p_yps1 label endgate } def 1.000 90.000 <> /analoglib3::Resistor libinst /generic::circle { % trivial begingate 1 1.000 16 0 6 0.000 360.000 xcarc 1 1.000 0 0 10 0 2 polygon 1.000 0.000 0.000 scb (out) {/Times-Roman cf} 2 4 -0.000 1.000 16 0 pinlabel (out) {/Times-Roman cf} 2 7 -0.000 1.000 0 0 pinlabel endgate } def /analoglib3::Switch { <> begingate 1 1.300 32 32 2 -43 2 polygon 1 0.600 8 -24 57 49.000 90.000 xcarc -1.000 /sv 90.000 0 -64 generic::circle 1.000 90.000 0 48 generic::circle 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0.000 1.000 0 48 pinlabel (2) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel sce 1 1.000 32 -16 96 -16 2 polygon -1.000 /sv 270.000 16 -16 generic::arrowhead 1.000 0.000 0.000 scb (3) {/Times-Roman cf} 2 20 0.000 1.000 96 -16 pinlabel (4) {/Times-Roman cf} 2 20 0.000 1.000 96 -48 pinlabel 0.180 0.545 0.341 scb mark @model ( %p1 %p2 %p3 %p4 ) @index @class (spice1:) {/Times-Roman cf} ctmk 16 0.000 0.700 -128 -192 infolabel sce (+) {/Symbol cf} 2 17 0.000 0.700 96 -8 label (-) {/Symbol cf} 2 17 0.000 0.700 96 -40 label 1 1.000 96 -48 72 -48 72 -64 3 polygon 1 1.000 54 -64 90 -64 2 polygon 1 1.000 62 -72 82 -72 2 polygon 1 1.000 70 -80 74 -80 2 polygon 0.180 0.545 0.341 scb mark ( sw) @model (spice@1:.model ) {/Times-Roman cf} ctmk 16 0.000 0.700 -128 -160 infolabel endgate } def /analoglib3::Vpulse { <> begingate 1.000 360.000 0 0 analog::source 1.000 0.000 0.000 scb (v.p) {/Times-Roman cf} 2 9 0.000 1.000 0 64 pinlabel (v.m) {/Times-Roman cf} 2 13 0.000 1.000 0 -64 pinlabel 0.180 0.545 0.341 scb mark (\)) @period ( ) @pwidth ( ) @t_fall ( ) @t_rise ( ) @t_delay ( ) @vpulse ( ) @vinit ( PULSE\() @vpulse ( %pv.p %pv.m DC=) @index @class (spice:) {/Times-Roman cf} ctmk 20 360.000 1.000 -96 -160 infolabel 0.647 0.165 0.165 scb mark (V) {hS} @vpulse (\261) @vinit {/Times-Roman cf} ctmk p_jst p_rot 0.700 48 -16 label 0.000 0.000 1.000 scb mark @index @class {/Times-Roman cf} ctmk 20 p_rot 0.700 p_xps p_yps label sce 1 1.000 -24 -12 -16 -12 -16 12 -8 12 -8 -12 0 -12 0 12 8 12 8 -12 16 -12 16 12 24 12 12 polygon mark (s) @period (T=) {0.647 0.165 0.165 scb} {/Times-Roman cf} ctmk 16 0.000 0.700 48 -52 label (+) {/Times-Roman cf} 2 21 0.000 0.600 0 22 label endgate } def % EndLib xcircuit-3.9.73/lib/pixmaps/0000775000175000001440000000000012335667423014423 5ustar timusersxcircuit-3.9.73/lib/pixmaps/a.xpm0000664000175000001440000000122112335667423015365 0ustar timusers/* XPM */ static char * a_xpm[] = { "20 20 6 1", " c #FFFFFFFFFFFF", ". c #000000000000", "X c #BABAC1C1FFFF", "o c #00000000FFFF", "O c #7D7D9797FFFF", "+ c #1A1AB3B32020", " ", " ...... ", " .. .. ", " . XXX. ", " . oooX . ", " . XooX . ", " . XoXo . ", " . XoX . ", " . OX . ", " . + + . ", " . + ++ ++ +. ", " . + + . ", " . . ", " . . ", " . . ", " . . ", " . . ", " .. .. ", " ...... ", " "}; xcircuit-3.9.73/lib/pixmaps/mv.xpm0000664000175000001440000000122612335667423015574 0ustar timusers/* XPM */ static char * mv_xpm[] = { "20 20 8 1", " c white", ". c gray75", "X c gray90", "o c #B6DAB2CAB6DA", "O c gray80", "+ c #618565956185", "@ c black", "# c #79E77DF779E7", " . ", " .X ", " .. ", " XXXX..oXX.O ", " ......o..XX ", " ......O XXX ", " o....OX XX ", " o...oOOX XO ", " .....oX+ XXO ", " O.XXXX.XX+ XO ", " X.OXOX X.XX@XXo ", " XX XoXXXXX@oXXo ", " XXX XXXXXo@@XXXo ", " XX X#ooo@@@oo## ", " OX X@@@@@@@@@ ", " XX X@@@@@@# ", " O XXo@@@# ", " OX X@@@@@## ", " OX+@@ @@# ", " o+# o#o "}; xcircuit-3.9.73/lib/pixmaps/pl.gif0000664000175000001440000000026712335667423015532 0ustar timusersGIF89aò¢µÍÿ=Äÿÿÿÿÿÿy}y!ù,| ѱî- FØ’Pq#@dä@]&0j%ê•"_ –ÕFÙ T8`Bq˜ªìc>Íamœ‰j€J†àg8Š”‚) ¦ØIN Ç©µí°™.**‡íVƳiÔ5O—·Íä‹zý.‹_` ;xcircuit-3.9.73/lib/pixmaps/i.xpm0000664000175000001440000000122012335667423015374 0ustar timusers/* XPM */ static char * i_xpm[] = { "20 20 6 1", " c #00000000FFFF", ". c #80808080FFFF", "X c #FFFFFFFFFFFF", "o c #C0C0C0C0FFFF", "O c #6C6C7575FFFF", "+ c #40404040FFFF", " ", " .XXo ", " OXXXX. ", " oXXXXo ", " .XXXX ", " .oX. ", " ", " .oXX+ ", " oXXXXo ", " .XXXo ", " XXX ", " .XXX ", " oXXo ", " oXX. ", " .XXX ", " .XXo .o. ", " oXXo.Xo ", " oXXXXo ", " .XXo + ", " "}; xcircuit-3.9.73/lib/pixmaps/cw.xpm0000664000175000001440000000117412335667423015565 0ustar timusers/* XPM */ static char * cw_xpm[] = { "20 20 5 1", " c #FFFFFFFFFFFF", ". c #B6DAB2CAB6DA", "X c #000000000000", "o c #79E77DF779E7", "O c #618565956185", " ", " . ", " .. X ", " oXXXXXX. ", " oXXXXXXXXX ", " XXX. .oXX. ", " oXX OXXXXX ", " XX ...XX ", " oX. .. ", " .XX ", " .XX . ", " XX XX ", " oX. oXo ", " XX XX ", " oXX XXo ", " XXX. .XXX ", " oXXXXXXXo ", " oXXXX ", " .. ", " "}; xcircuit-3.9.73/lib/pixmaps/pa.gif0000664000175000001440000000024012335667423015506 0ustar timusersGIF89aòO”ÍÙÙÙÿÀËÿÍ‘žÿÿÿ!ù,eºÜ0BA…„jh-ÙaEJðqƒÕR)€ã´‘@ðjÄeãXl1É,PúitaˆTú6¹Ë-ºdFnZ¥òµÆ”¬f'cãh ð |N¯Ã±»~ íëX0ƒ„ ;xcircuit-3.9.73/lib/pixmaps/z5.xpm0000664000175000001440000000122112335667423015503 0ustar timusers/* XPM */ static char * z5_xpm[] = { "20 20 6 1", " c #000000000000", ". c #FFFFFFFFFFFF", "X c #79797D7D7979", "o c #A2A2B5B5CDCD", "O c #D9D9D9D9D9D9", "+ c #666666666666", " ...................", "..X.............XX..", ".X o............o X.", "..o O..........O o..", "...O O..o..o..O O...", "....O O. .. .O O....", ".....O O .. O O.....", "......O OO O......", "....o OO o....", ".......OOooOO.......", ".......OOooOO.......", "....o OO o....", "......O OO O......", ".....O O .. O O.....", "....O O. .. .O O....", "...O O..o..o..O O...", "..o O..........O o..", ".+ o............o X.", "..X..............X..", "...................."}; xcircuit-3.9.73/lib/pixmaps/pz.xpm0000664000175000001440000000124612335667423015605 0ustar timusers/* XPM */ static char * pz_xpm[] = { "20 20 7 1", " c #B0B0FFFF4C4C", ". c #C0C0C0C0C0C0", "X c #000000000000", "o c #FFFFFFFF0000", "O c #7F7F7F7F0000", "+ c #B2B2BFBF1515", "@ c #808080808080", " .X X. ", " X XXX. ", " XoX. XoooX. ", " XXooX OooooX ", " +ooXoooo+@ ", ". X Xoo+ooooX ", "X X@. Ooooo@XX ", " X@ooXOOoooooX .", ".@Xooo+oooooo.X .X", "X Xoooooooooo.X .X ", " X+ooooOXXooo@X ", " XoooO XoX X ", " XXO+oooX X X", " XooooOooX O .", " XoooX +o+XO X", " X+ooX Xoo@ X ", " XX@ .@X X ", " X X ", " .X.O XX . ", " .X OX X XX"}; xcircuit-3.9.73/lib/pixmaps/yp.gif0000664000175000001440000000025212335667423015541 0ustar timusersGIF89aòÿÿyeÿÿÿÂ0ÿÿÿy}y!ù,o ѱî- DxKr«T‘ÑÄ#ˆX•‹¥¡æ ¥lÓëÁ¶™J¤sånlSñªF*Mfr Ý—]IØ›Ã×`*B02*øèˆÐhÊÓbyž¸‘;xcircuit-3.9.73/lib/pixmaps/b.xpm0000664000175000001440000000117312335667423015374 0ustar timusers/* XPM */ static char * b_xpm[] = { "20 20 5 1", " c #FFFFFFFFFFFF", ". c #000000000000", "X c #BEFBC30BFFFF", "o c #00000000FFFF", "O c #79E79658FFFF", " ", " .................. ", " . XXX. ", " . oooX. ", " . XooX. ", " . XoXo . ", " . XoX . ", " . OX . ", " . . ", " . . ", " . . ", " . . ", " . . ", " . . ", " . . ", " . . ", " . . ", " . . ", " .................. ", " "}; xcircuit-3.9.73/lib/pixmaps/pz.gif0000664000175000001440000000025512335667423015545 0ustar timusersGIF89aò°ÿLÀÀÀÿÿ²¿€€€!ù,rº! aÉ9Ý8Ò;à ·a!@€å¦!:†¢=ÜëZôch'j`CˆÐCádŠå4ÀOÓõ|JLúPŽ‡!dh©6ešDF« SØ|»_}IG* ƒ„ vQ2V&c ;xcircuit-3.9.73/lib/pixmaps/ccw.gif0000664000175000001440000000017712335667423015673 0ustar timusersGIF89aòÿÿÿ¶²¶y}yaea!ù,DºÜÎáI&TˆŠÍGV\¸yR0b€¹I"A d³]è²6WfÆß[§ŸÙ+Xa `“ãö`6dShádŽ")qÔƒüº½;xcircuit-3.9.73/lib/pixmaps/pn.gif0000664000175000001440000000015312335667423015526 0ustar timusersGIF89añÿÿÿÒ´ŒõõÜ!ù,<„¹è¦˜|.ÚFÏtïì-(–Üs)*Æ­îÈ`¯ ©Èl¯öÎûÝ‚°a0›!“¯%S¸T:Ÿ,D;xcircuit-3.9.73/lib/pixmaps/z4.xpm0000664000175000001440000000124612335667423015511 0ustar timusers/* XPM */ static char * z4_xpm[] = { "20 20 7 1", " c #FFFFFFFFFFFF", ". c #666666666666", "X c #D9D9D9D9D9D9", "o c #000000000000", "O c #A2A2B5B5CDCD", "+ c #79797D7D7979", "@ c #20208989B3B3", " ", " .XX XX. ", " Xooo.O O+oooX ", " XooOX XOooX ", " oOoX XoOo ", " .XXoX XoXX. ", " O XoX XoX O ", " Xo oX ", " O O ", " XX ", " XX ", " O O ", " Xo oX ", " O XoX XoX O ", " .XXoX XoXX. ", " oOoX XoOo ", " Xoo@X XOooX ", " Xooo.O O.oooX ", " .XX XX. ", " "}; xcircuit-3.9.73/lib/pixmaps/pn.xpm0000664000175000001440000000107012335667423015564 0ustar timusers/* XPM */ static char * pn_xpm[] = { "20 20 3 1", " c white", ". c tan", "X c beige", " .. .. ", " .. .. .. ", " .. .. .. ", " .. .. .. ", " .. .. .. .. ", " .. .. .. .. ", " .. .. .. .. ", " .. ........ .. ", " ........... ... ", " ........... .... ", " .......... .... ", " ..........X... ", " .............. ", " ............. ", " ............ ", " .......... ", " .......... ", " ........ ", " ....... ", " ....... "}; xcircuit-3.9.73/lib/pixmaps/solid.xbm0000664000175000001440000000120612335667423016244 0ustar timusers/* Definition of a solid square the size of the other toolbar pixmaps. */ /* This is used for drawing the "color" image on the color tool button */ #define solid_width 20 #define solid_height 20 static char solid_bits[] = { 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f, 0xff, 0xff, 0x0f}; xcircuit-3.9.73/lib/pixmaps/stip50.xbm0000664000175000001440000000107412335667423016261 0ustar timusers/* Definition of a stippled square the size of the toolbar pixmaps. */ #define stip50_width 20 #define stip50_height 20 static char stip50_bits[] = { 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a}; xcircuit-3.9.73/lib/pixmaps/mk.gif0000664000175000001440000000030512335667423015517 0ustar timusersGIF89aóÿÿÿ¶²¶ÿ…ÿy}yaea¾¾¾ÿ‘ÿÂ0!ù,rȦ½‘»A5  (¢E0δ_tè^ÄpÎ;Œé¢ ´2CK.(1™|CH²âÝ3Ë™\=3M ™™¨„X„;¸]…C­”ïâ€#â–çýTevxz‚n„g‡@ae! ’’ 3;xcircuit-3.9.73/lib/pixmaps/z5.gif0000664000175000001440000000022112335667423015443 0ustar timusersGIF89aòÿÿÿy}y¢µÍÙÙÙfff!ù,V±ÜþâI—Cºjà„¶˜C†ß’§Ô*Òj' Ì"yë¨Æ@‚¸Ê¡ÈtLö|Àà°”“—¬› ÷x-d7W8Eæ~Æ4j  q<l+I;xcircuit-3.9.73/lib/pixmaps/e.gif0000664000175000001440000000017512335667423015341 0ustar timusersGIF89aòÿÿÿ¾Âÿÿy•ÿ!ù,BºÜDÔ¼¶º¦uÞÏã#3™ø-(¼eê ´ …ŽPßr¬ë¬^ãÇ)26œLl1MÎç2ÆŒJy¬v«½‚;xcircuit-3.9.73/lib/pixmaps/a.gif0000664000175000001440000000160112335667423015330 0ustar timusersGIF87a÷€€€€€€€€€ÀÀÀÀÜÀ¦Êð*UªÔ****U**ª*ÔUU*UUUUªUÔ*UªÔªª*ªUªªªªÔÔÔ*ÔUÔÔªÔÔ****U**ª*Ô*******U****ª**Ô*U*U**UU*U*Uª*UÔ****U**ª*Ô*ª*ª**ªU*ª*ªª*ªÔ*Ô*Ô**ÔU*Ô*Ôª*ÔÔUU*UUUUªUÔU*U**U*UU*U*ªU*ÔUUUU*UUUUUUUªUUÔUU*UUUUªUÔUªUª*UªUUªUªªUªÔUÔUÔ*UÔUUÔUÔªUÔÔ*UªÔ****U**ª*ÔUU*UUUUªUÔ*UªÔªª*ªUªªªªÔÔÔ*ÔUÔÔªÔÔªª*ªUªªªªÔª*ª**ª*Uª*ª*ªª*ÔªUªU*ªUUªUªUªªUÔªª*ªUªªªªÔªªªª*ªªUªªªªªªªÔªÔªÔ*ªÔUªÔªÔªªÔÔÔÔ*ÔUÔÔªÔÔÔ*Ô**Ô*UÔ*Ô*ªÔ*ÔÔUÔU*ÔUUÔUÔUªÔUÔÔÔ*ÔUÔÔªÔÔÔªÔª*ÔªUÔªÔªªÔªÔÔÔÔÔ*ÔÔUÔÔÔÔªÔÔÔ &&&333???LLLYYYfffrrrŒŒŒ™™™¥¥¥²²²¿¿¿ÌÌÌØØØåååòòòÿûð  ¤€€€ÿÿÿÿÿÿÿÿÿÿÿÿ,fÿ H° Aƒ*…Þåô&$g\ôåk¬¶wï_6#6×J¬UÝóQÀ8è©™Àµ^ ²ŠÇ#nÎßð … O‚4—æOdt!uQçóÄ$%#ÅlÐÚ=·JñÏzU¨;xcircuit-3.9.73/lib/pixmaps/tg.gif0000664000175000001440000000022412335667423015522 0ustar timusersGIF89aòÿÿÿ³ îîÿ¥ÿ×!ù,YºÜˆ1¢‚‘ ‹s£Ad6}M¸˜ÀØF¨B9®ÄNÛ#Ö:Ö¥1!zC©˜!'a:]ù^”¬ö¸è8#ß$ÀôdÈ0ÖÒ` NiÙeÀ¤-¯´;xcircuit-3.9.73/lib/pixmaps/ti.gif0000664000175000001440000000022612335667423015526 0ustar timusersGIF89aòÿÿÿ³ ˜û˜šÍ2î€!ù,[ºÜˆ#¨Ž ‹sÖl™5PCô-#¥F§H‚Nª¸Í:-Ó|g6 ŽÕØ1z´ÅÀ' ^Ž‚t:étN”¬v†™"“ ¦åŒ~•2°|V_!KðjËÐ{ ;xcircuit-3.9.73/lib/pixmaps/tp.gif0000664000175000001440000000022412335667423015533 0ustar timusersGIF89aòÿÿÿ³ ÿÀËÿÍ‘ž!ù,YºÜˆ1¢‚‘ ‹s£Ad6}M¸˜ÀØF¨B9®ÄNÛ#Ö:Ö¥1!zC©˜!'a:]ù^”¬ö¸è8#ß$ÀôdÈ0ÖÒ` NiÙeÀ¤-¯´;xcircuit-3.9.73/lib/pixmaps/xcircuit.xpm0000664000175000001440000001362712335667423017014 0ustar timusers/* XPM */ static char * xcircuit_xpm[] = { /* width height num_colors chars_per_pixel */ "69 79 10 1", /* colors */ " c #ff0000", ". c #efefc7", "X c gray40", "o c black", "O c gray80", "+ c gray50", "@ c #b88d5c", "# c white", "$ c gray90", "% c #eaeaea", /* pixels */ " ", " ................... .................... .................... ..... ", " ................... .................... .................... ..... ", " ...X..X...oo..XX... ....XX.X.o.oo.OX.... .....+.o.+oOo....... ..... ", " ...X.X..X.Oo.XX.... ....XX..X..oo.X..... .....+Oo.o.Oo....... ..... ", " ................... .................... .................... ..... ", " ................... .................... .................... ..... ", " ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ ###OX+###$##XX####Ooo$############$############$#######o###$### ", " @@@ ####Oo###$#XX####o+oooo###########$############$#######o###$### ", " @@@ #####oo##$+o####oo###$o+##Oo######$############$##+o###o###$### ", " @@@ ######o+#$o####$o####$#####O######$############$##%+##ooo##$### ", " @@@ #######o#o#####oo####$#####o##oOoo$#+ooX##o####o##%X##OoO##$### ", " @@@ ########oo#####oO####$####oo##oo#oXOo+#+o#o####o##oo###o###$### ", " @@@ #######o++#####o+####$####%o##o%##$o%#####o####o##Oo###o###$### ", " @@@ ######Oo#oo####$o####$#####o##o###$o######o####o##Oo###o###$### ", " @@@ %%%%%Oo$$ oO%%%%oo%%%Oo+%%%o$$o$$$ X$%%%$$oO$$$o%%Oo%%%o%%%$%%% ", " @@@ #####oX##$#oX###$oo$$Xo###Oo##o###$%o+#+o#+o##oo##Oo###o%OX$### ", " @@@ ####oo###$#OoX####oooo####ooo#o###$#OoooO##oooOo##ooo##OoX#$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ ######+$#$###########$############$############$###########$### ", " @@@ ######oo$$###########$############$############$###########$### ", " @@@ ######o#+o$##########$############$############$###########$### ", " @@@ ######o##$oo#########$############$############$###########$### ", " @@@ ######o##$#Oo+#######%############$############$###########$### ", " @@@ ######o##$###+oO#####%############$############$###########$### ", " @@@ ######o##$####$XoO###%###########+o###o####o###$###########$### ", " @@@ %%%%%%o%%O$$%%%%%oo%%Ooo%%%%%%%%%oo%%%oo%%%oo%%O%%%%%$$$$%%O%%% ", " @@@ ######o##$########$o+o##o#######Ooo$#o#o##o#o##$#Oo+#######+XO# ", " @@@ ooooooo##$##########oo##ooooooo#o#$o#o#oo#o##ooooooooooooooX#X# ", " ... ######o##$########o+#oooO#####o$o#$ooO##oo$####$#Oo+#######OXO# ", " @@@ ######o##$######oo###$OO######+o##$+o###+o#####$##o########$### ", " @@@ ######o##$####+oO####$############$############$##o########$### ", " @@@ ######o##$##+o+######$############$############$##o########$### ", " @@@ ######o##$Oo+########$############$############$##o########$### ", " @@@ ######o#O+o$#########$############$############$##o########$### ", " @@@ ######ooo$###########$############$############$##o########$### ", " @@@ ######o$#$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$#########%%%$%%o%%%%%%##$### ", " @@@ $$$$$$$$$ $$$$$$$$$$$ $$$$$$$$$$$$ $$$$$$$$$ooooooooooooo$$ $$$ ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$#OOO#######$### ", " @@@ #########$###########$############$##########$+ooooooo+$###$### ", " @@@ #########$###########$############$#########oo#$##o####oo##$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ #########$###########$############$############$##o########$### ", " @@@ $$$$$$$$$ $$$$$$$$$$$ $$$$$$$$$$$$ $$$$$$$$$$$$O$$o$$$$$$$$ $$$ ", " @@@ #########$###########$############$#########ooooooooooooo##$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############ooooooo#####$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$###########$### ", " @@@ #########$###########$############$############$#ooo#######$### ", " @@@ #########$###########$############$############$###########$### ", " ... #########$###########$############$############$###########$### ", " ... ", " ... .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ", " ... .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ", " ... .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ", " ", " ......................... ......................................... ", " ..o.o.o...o......X..X..o. ......................................... ", " ...oooo.X.o.oo.o.X.XX..o. ......................................... ", " ......................... ......................................... ", " "}; xcircuit-3.9.73/lib/pixmaps/cp.gif0000664000175000001440000000022612335667423015514 0ustar timusersGIF89aòÿÿÿ¶²¶ÿ…ÿy}yaea!ù,[º±þ«¡­1 –E(”­¬“>lf>Äð­3ä=bPF;G,§ðxl CF1¢½1JÑ<- J{É ±¡‰¨Š­¸’!º+[3Y?®RÓK‚%;xcircuit-3.9.73/lib/pixmaps/bd.xpm0000664000175000001440000000112212335667423015532 0ustar timusers/* XPM */ static char * bd_xpm[] = { "20 20 3 1", " c #FFFF00000000", ". c #FFFFFFFFFFFF", "X c #000000000000", " ", " .................. ", " .................. ", "XXXXXXXXXXXXXXXXXXXX", "XXXXXXXXXXXXXXXXXXXX", " .................. ", " .................. ", " .................. ", " .................. ", "XXX..XXXX..XXXX..XXX", "XXX..XXXX..XXXX..XXX", " .................. ", " .................. ", " .................. ", " .................. ", ".XX..XX..XX..XX..XX.", ".XX..XX..XX..XX..XX.", " .................. ", " .................. ", " "}; xcircuit-3.9.73/lib/pixmaps/z4.gif0000664000175000001440000000022312335667423015444 0ustar timusersGIF89aòÿÿÿfffÙÙÙ¢µÍy}y ‰³!ù,XºÜB8ƒ#âHɃ`!RDv–á4² „Ë,X ÷Ò³¢SFËÕÐýˆÒ¥\}ÎKp1ìHyã¬Z Ý„)“ê âZjHl:Hæ¬D] ;xcircuit-3.9.73/lib/pixmaps/w.xpm0000664000175000001440000000114212335667423015415 0ustar timusers/* XPM */ static char * w_xpm[] = { "20 20 5 1", " c white", ". c black", "X c #BEFBC30BFFFF", "o c blue", "O c #79E79658FFFF", " ", " . ", " XXX. ", " oooX. ", " XooX. ", " . XoXo . ", " .. XoX . ", " . OX . ", " .. . ", " .. . ", " . . ", " .. . ", " .. . ", " .. . ", " ... . ", " .. . ", " .... . ", " ........ . ", " ..... ", " "}; xcircuit-3.9.73/lib/pixmaps/stip88.xbm0000664000175000001440000000107412335667423016274 0ustar timusers/* Definition of a stippled square the size of the toolbar pixmaps. */ #define stip88_width 20 #define stip88_height 20 static char stip88_bits[] = { 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0xee, 0xee, 0x0e, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0xee, 0xee, 0x0e, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0xee, 0xee, 0x0e, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0xee, 0xee, 0x0e, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0xee, 0xee, 0x0e}; xcircuit-3.9.73/lib/pixmaps/bd.gif0000664000175000001440000000015212335667423015475 0ustar timusersGIF89añÿÿÿÿ!ù,;„©Áíß œˆ‹³Þ¼g@…$NdYh…1™Û|Ñ­®Q®¼~êj²[†<*‰ÌÛo*¦Ó;xcircuit-3.9.73/lib/pixmaps/w.gif0000664000175000001440000000016612335667423015363 0ustar timusersGIF89aòÿÿÿ¾Âÿÿy•ÿ!ù,;ºÜþ0@(ªœmhqñ[ˆ ŽM@&³’„>*¶.5íÝwJö¾Ù$'ô@N•Tð˜P—ÇB;xcircuit-3.9.73/lib/pixmaps/mk.xpm0000664000175000001440000000134612335667423015564 0ustar timusers/* XPM */ static char * mk_xpm[] = { "20 20 10 1", " c #FFFFFFFFFFFF", ". c #000000000000", "X c #B6DAB2CAB6DA", "o c #FFFF82078617", "O c #FFFF00000000", "+ c #79E77DF779E7", "@ c #618565956185", "# c #BEFBBEFBBEFB", "$ c #FFFF92488E38", "% c #FFFFC30B30C2", " . ", " .X ", " X.. ooO ", " XXXX...XX++ OOO ", " ......... OO ", " ......+ Oo ", " X...+ O ", " X...++ O ", " .....+ O O o", " @.. ..X OOO ", " X@+ X@X OO ", " ... ..O ", " ...# .#$ ...", " .###+ +#+ .", " .#++ +# ++ .", " .###+ +#+ .", " .#++ +# ++ .", " .### +# .", " .##...+... .", " ...%%%.%%%..."}; xcircuit-3.9.73/lib/pixmaps/co.xpm0000664000175000001440000000117412335667423015555 0ustar timusers/* XPM */ static char * co_xpm[] = { "20 20 5 1", " c #000000000000", ". c #FFFF00000000", "X c #00000000FFFF", "o c #FFFFFFFF0000", "O c #0000FFFF0000", " ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " .........XXXXXXXXX ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " oooooooooOOOOOOOOO ", " "}; xcircuit-3.9.73/lib/pixmaps/fx.xpm0000664000175000001440000000127312335667423015571 0ustar timusers/* XPM */ static char * fx_xpm[] = { "20 20 8 1", " c #FFFF00000000", ". c #FFFFA3A3A3A3", "X c #FFFFFFFFFFFF", "o c #FFFFFFFF0000", "O c #FFFFD7D70000", "+ c #C1C1C6C6FFFF", "@ c #00000000FFFF", "# c #8E8E9999FFFF", " .XXXXXXXXXXXX", " oooooO XX++XXXXXXX", ".Ooooooo .X@@@XXXXXX", "X ooooooO X+#@@XXXXX", "X OooooooO XXX@#X#XX", "X OooooooO XXXX@#+XX", "X ooooooO XXX+@@@+XX", ".Ooooooo .XXXXX@@+XX", " oooooO XXXXXXX@+XX", " .XXXXXXXXX+XX", "XXXXXXXXXXXX. ", "XXXXXXXXXXX oooooo ", "XXXXXXXXXX. ooooooO.", "XXXXXXXXXX Ooooooo X", "XXXXXXXXX OooooooO X", "XXXXXXXXX OooooooO X", "XXXXXXXXXX Ooooooo X", "XXXXXXXXXX. ooooooO.", "XXXXXXXXXXX Oooooo ", "XXXXXXXXXXXX. "}; xcircuit-3.9.73/lib/pixmaps/yp.xpm0000664000175000001440000000124612335667423015604 0ustar timusers/* XPM */ static char * yp_xpm[] = { "20 20 7 1", " c #0000FFFFFFFF", ". c #79E765951861", "X c #000000000000", "o c #FFFFFFFF0000", "O c #FFFFC30B30C2", "+ c #FFFFFFFFFFFF", "@ c #79E77DF779E7", " .... .... ", "XX..oooo.X.Oooo..XX ", "X+oooooooXOOoooooO. ", "X+ooo.oooXOOo.oooO. ", "X+o.ooo.oXO.ooo.oO. ", "X+ooo.oooXOOo.oooO. ", "X+o.ooo.oXO.ooo.oO. ", "X+ooo.oooXOOo.oooO. ", "X+o.ooo.oXO.ooo.oO. ", "X+ooo.oooXOOo.oooO. ", "X+o.ooo.oXO.ooo.oO. ", "X+ooo.oooXOOo.oooO. ", "X+o.ooo.oXO.ooo.oO. ", "X+ooo.oooXOOo.oooO. ", "X+o.ooo.oXOOooo.oO. ", "X+oooooooXOOoooooO. ", "X+oo....oXO....ooO. ", "XO..++++.X.++++..O. ", "X++++++++.++++++++. ", "XXXXXXX@XXX@XXXXXXX "}; xcircuit-3.9.73/lib/pixmaps/ccw.xpm0000664000175000001440000000117512335667423015731 0ustar timusers/* XPM */ static char * ccw_xpm[] = { "20 20 5 1", " c #FFFFFFFFFFFF", ". c #B6DAB2CAB6DA", "X c #000000000000", "o c #79E77DF779E7", "O c #618565956185", " ", " . ", " X .. ", " .XXXXXXo ", " XXXXXXXXXo ", " .XXo. .XXX ", " XXXXXO XXo ", " XX... XX ", " .. .Xo ", " XX. ", " . XX. ", " XX XX ", " oXo .Xo ", " XX XX ", " oXX XXo ", " XXX. .XXX ", " oXXXXXXXo ", " XXXXo ", " .. ", " "}; xcircuit-3.9.73/lib/pixmaps/xcircuit.ico0000664000175000001440000002154612335667423016761 0ustar timusershF ¨® hV  ¨¾( @ÿÿÿÀÀÀÙÙÿÿÿÿÿÿØÀÀàÀÀÐÿÿÿÿÿÿ( @€€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿ ,,,999EEERRR___lllxxx………’’’ŸŸŸ«««¸¸¸ÅÅÅÒÒÒÞÞÞëëëøøøðûÿ¤  ÀÜÀðʦ>]|›ºÙð$$ÿHHÿllÿÿ´´ÿ>](|2›<ºFÙUð$mÿH…ÿlÿµÿ´Íÿ*>?]T|i›~º“Ùªð$¶ÿHÂÿlÎÿÚÿ´æÿ>>]]||››ººÙÙðð$ÿÿHÿÿlÿÿÿÿ´ÿÿ>*]?|T›iº~Ù“ðª$ÿ¶HÿÂlÿÎÿÚ´ÿæ>]|(›2º<ÙFðU$ÿmHÿ…lÿÿµ´ÿÍ>]|›ºÙð$ÿ$HÿHlÿlÿ´ÿ´>](|2›<ºFÙUðmÿ$…ÿHÿlµÿÍÿ´*>?]T|i›~º“Ùªð¶ÿ$ÂÿHÎÿlÚÿæÿ´>>]]||››ººÙÙððÿÿ$ÿÿHÿÿlÿÿÿÿ´>*]?|T›iº~Ù“ðªÿ¶$ÿÂHÿÎlÿÚÿæ´>]|(›2º<ÙFðUÿm$ÿ…HÿlÿµÿÍ´>]|›ºÙðÿ$$ÿHHÿllÿÿ´´>]|(›2º<ÙFðUÿ$mÿH…ÿlÿµÿ´Í>*]?|T›iº~Ù“ðªÿ$¶ÿHÂÿlÎÿÚÿ´æ>>]]||››ººÙÙððÿ$ÿÿHÿÿlÿÿÿÿ´ÿ*>?]T|i›~º“Ùªð¶$ÿÂHÿÎlÿÚÿæ´ÿ>](|2›<ºFÙUðm$ÿ…HÿlÿµÿÍ´ÿ          !  !  ! ! !ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿþ@ÿÿ ÿÿ Ï?Ç°€ ÏÈÿÈÏÈÇÈ °€Ï?ÿ?ÿ ÿ ÿþÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ(  @€€€¿ **Ô   é   é   é   éÔ * ééé""ÿ%%ÿ%%ÿ%%ÿ%%ÿ 55ÿ€€€Ô ** éÿ 22ÿ¥¥ÿããÿééÿééÿééÿÔÔÿ JJÿ€€€Ô *ç   éÿ000ÿÿ44ÿÍÍÿûûÿÿÿÿÿÿÿÿÿÿÔÔÿ JJÿ€€€Ô *çééÿ   ÿ""ÿÊÊÿûûÿÿÿÿÿÿÿÿÿÿÿÿÿÔÔÿ 55ÿÔ"""..*?é   ÿ""ÿÊÊÿûûÿÿÿÿÿÿÿÿÿÿÿÿÿééÿ%%ÿ   ÿçç   éé ÿ   ÿ""ÿÊÊÿûûÿÿÿÿÿÿÿÿÿÿÿÿÿééÿÿéççé ÿÿ   ÿ""ÿÍÍÿûûÿÿÿÿÿÿÿÿÿÿÿÿÿÔÔÿÔ**€€€é000ÿÿ77ÿããÿûûÿûûÿûûÿûûÿÔÔÿ**Ô* 退€é 22ÿ¢¢ÿÊÊÿÊÊÿÊÊÿÊÊÿ¸¸ÿ''Ô*¿?ÔéééééÔ*ÿÿÿÿØÀÀàÀÀÐÿÿÿÿÿÿ( @ €  $000000000/# ;0&U…’’’’’’’’‘x< ÿ;Tÿÿÿÿÿÿÿÿÿÿÿÿ¶…= ÿU@ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸†= ## ÿ<Vÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸†= 0TS0 ÿa5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ·z%$€ÿ€ÿIaI13ÿxKÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸJ €ÿVK€ÿnmabÿ…oÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸{' ##€ÿ1V€ÿÿÿÿÿÿÿn6ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ”?2TS€ÿ€ÿ&ÿb5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¢p€ÿ€ÿH%% ÿ`4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ®€ÿqL€ÿ 0TS0 ÿ`4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿ?W€ÿ$€ÿ€ÿIaI103ÿl4ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ~)€ÿ€ÿ%€ÿVK€ÿnma`oÿn5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿL€ÿ1V€ÿÿÿÿÿÿÿK6ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ}'€ÿ€ÿ&ÿX5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ? %ÿ>5ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ ÿU3ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ÿ1'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ÿ ÿÿÿÿÿÿÿÿÿÿÿÿ'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÿþ€ÿÿ ÿ@?çË  ÏÈÿÈçÈËÈ  Ï?ÿ°ÿ ÿÿ`ÿþÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿxcircuit-3.9.73/lib/pixmaps/pa.xpm0000664000175000001440000000114412335667423015551 0ustar timusers/* XPM */ static char * pa_xpm[] = { "20 20 6 1", " c steelblue3", ". c gray85", "X c pink", "o c red", "O c pink3", "+ c white", " ", " ........XXXX...... ", " oooooXOOooooOX.... ", " .OoooXoX.XOOoo.... ", " .XooooX....Xooo... ", " .XoooO......XooO.. ", " ..oooX.......ooo.. ", " ..ooo........ooo.. ", " ..oooX.......ooo.. ", " ..oooO......XooO.. ", " ..ooooX....Xooo... ", " ..oooXoX.XOOoo.... ", " ..oooXOOooooOX.... ", " ..ooo...XXXX...... ", " ooo ", "+++ooo++++++++++++++", "++XoooX+++++++++++++", "++OoooO+++++++++++++", "XoooooooX+++++++++++", "++++++++++++++++++++"}; xcircuit-3.9.73/lib/pixmaps/pu2.gif0000664000175000001440000000014312335667423015616 0ustar timusersGIF89añÿÿÿÿ(®ÿ!ù,4„¡ŠíËœLpJì«áîq µL‰¦ª* ®;/σfç³£çSÿÂõ@ºÚ."eš;xcircuit-3.9.73/lib/pixmaps/pm.gif0000664000175000001440000000031312335667423015523 0ustar timusersGIF89aó€€€ÿÿÿÿÀÀÀÿ·Áÿ³ÊÿŽÿ!ù,xH¦8g × E „U f‘ž4ªMÁPW— ²0RNWl5 ÇãíT „”+>}²ê%[¥aL&sÎJ؜ʱ6´1ïøn¿çÇcwoJu}mr‚‰)‹|„su“‘iˆ—eœ;xcircuit-3.9.73/lib/pixmaps/tp.xpm0000664000175000001440000000113112335667423015570 0ustar timusers/* XPM */ static char * tp_xpm[] = { "20 20 5 1", " c white", ". c #1A1AB3B32020", "X c pink", "o c red", "O c pink3", " .", " Xoo .", " ooX .", " oo .", " ooX .", " OooO .", " oXoo .", " Oo ooX .", " O oo .", " Xo XoX .", " oO Xoo .", " Xo XoX .", " OX XoO .", " XoOOOOOOXoo .", " OooooooooooX .", " XoO XoO .", " OoO ooX .", " Xoo OoOX .", " XooOO OoooOX.", "OoooooO Xoooooo."}; xcircuit-3.9.73/lib/pixmaps/xcircuit.gif0000664000175000001440000000177112335667423016752 0ustar timusersGIF89aEOóÿïïÇfffÌÌ̸\ÿÿÿåååêêê!ù,EOþÈI«½8ëMƒÿ`bY’fê¡Ÿ¤¦ì+ÆòºžÃë+@§óõ`Tø ‚ovcwÒÀÐöÙj=GåòSÈú²Ô­X³Ý5ŽÝ¢ßìÜgÏïû €ƒ„„…ˆƒ‡‰ˆ‹Œ†ƒ€‚Ž˜‘’›™ŒŽ”‘ž‰¤¥›Š¨ •—Ÿª¨¦°“¬¢ƒI’C…R³…Áœ…œ¡–¾Æ©½„P=Ë£±¦Ò«­ˆ=ŠPÅÖϹÒÄš܃քȮλá툧µ »Ñ©¶Ø‰Æá÷îÙÌý:M€¹bƒ< Ež,t·’1ÒVÌa>sË´  e·pþ¥Ó‡+[{ëàJ1¢.:7óbºDRþ (Ó?™9ÚŒ Q£R å(K˜HŸÖNéRŽ*bª”©ZÞ,¶ðÐFC=” ÔKÆÊQ z/A’k%u¦’²#E¿÷ ýŠâ·íܳx%¾êD­1c’ŠçM«õxò±‹-kg3¡‡†=¤¼Y²gŒJIs.M ²ºƒP†‰]™óéÀ²þJfݺ3ÑŸ;2ŠY{uæÛËA±˜ÐqqÓ¿Ò–µÖ"ñGåp ~œ¨S£^•~ïêwðæÉ£GúÝjV»b£ËœÕN.£3â>$…úJo±øÕ‚½gú¢~4ìðuT"ñÄW\qg¬q ,°ñÇc òÈ–t,2É$ŸŒ²Æ·ìòx˜GÌtà`„<ˆ>ÌLs, ø…7Ás?'=GÒH3óËPG @;xcircuit-3.9.73/lib/pixmaps/pl.xpm0000664000175000001440000000124612335667423015567 0ustar timusers/* XPM */ static char * pl_xpm[] = { "20 20 7 1", " c #A2A2B5B5CDCD", ". c #00000000FFFF", "X c #3D3DC4C4FFFF", "o c #0000FFFFFFFF", "O c #000000000000", "+ c #FFFFFFFFFFFF", "@ c #79797D7D7979", " .... .... ", "Xo..oooo.O.Xooo..OO ", "OooooooooOXXoooooX. ", "Ooooo.XooOXXo.oooX. ", "OoX.Xoo.oOX.XoX.oX. ", "Ooooo.XooOXXo.oooX. ", "OoX.Xoo.oOX.XoX.oX. ", "Ooooo.XooOXXo.oooX. ", "OoX.Xoo.oOX.XoX.oX. ", "Ooooo.XooOXXo.oooX. ", "OoX.Xoo.oOX.XoX.oX. ", "Ooooo.XooOXXo.oooX. ", "OoX.Xoo.oOX.XoX.oX. ", "Ooooo.XooOXXo.oooX. ", "OoX.Xoo.oOX.XoX.oX. ", "OooooooooOXXoooooX. ", "Oooo....oOX....ooX. ", "OX..++++.O.++++..X. ", " ++++++++.++++++++X ", "OOOOOOO@OOO@OOOOOO "}; xcircuit-3.9.73/lib/pixmaps/stip62.xbm0000664000175000001440000000107412335667423016264 0ustar timusers/* Definition of a stippled square the size of the toolbar pixmaps. */ #define stip62_width 20 #define stip62_height 20 static char stip62_bits[] = { 0xee, 0xee, 0x0e, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x77, 0x77, 0x07, 0xee, 0xee, 0x0e, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x77, 0x77, 0x07, 0xee, 0xee, 0x0e, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x77, 0x77, 0x07, 0xee, 0xee, 0x0e, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x77, 0x77, 0x07, 0xee, 0xee, 0x0e, 0x55, 0x55, 0x05, 0xaa, 0xaa, 0x0a, 0x77, 0x77, 0x07}; xcircuit-3.9.73/lib/pixmaps/stip38.xbm0000664000175000001440000000107412335667423016267 0ustar timusers/* Definition of a stippled square the size of the toolbar pixmaps. */ #define stip38_width 20 #define stip38_height 20 static char stip38_bits[] = { 0x11, 0x11, 0x01, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0x88, 0x88, 0x08, 0x11, 0x11, 0x01, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0x88, 0x88, 0x08, 0x11, 0x11, 0x01, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0x88, 0x88, 0x08, 0x11, 0x11, 0x01, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0x88, 0x88, 0x08, 0x11, 0x11, 0x01, 0xaa, 0xaa, 0x0a, 0x55, 0x55, 0x05, 0x88, 0x88, 0x08}; xcircuit-3.9.73/lib/pixmaps/fy.xpm0000664000175000001440000000127312335667423015572 0ustar timusers/* XPM */ static char * fy_xpm[] = { "20 20 8 1", " c #FFFFFFFFFFFF", ". c #FFFF00000000", "X c #FFFFA3A3A3A3", "o c #FFFFFFFF0000", "O c #FFFFD7D70000", "+ c #C1C1C6C6FFFF", "@ c #00000000FFFF", "# c #8E8E9999FFFF", " ..X X.. ", " .oO....Oo. ++ ", " .oooOOooo. @@@ ", " .oooooooo. +#@@ ", " .oooooooo. @# # ", " .oooooooo. @#+ ", " .OooooooO. +@@@+ ", " X.oooooo.X @@+ ", " ..OooO.. @+ ", " X.OO.X .. + ", " .. X.OO.X ", " ..OooO.. ", " X.oooooo.X", " .OooooooO.", " .oooooooo.", " .oooooooo.", " .oooooooo.", " .oooOOooo.", " .oO....Oo.", " ..X X.."}; xcircuit-3.9.73/lib/pixmaps/po2.xpm0000664000175000001440000000115012335667423015646 0ustar timusers/* XPM */ static char * po2_xpm[] = { "20 20 4 1", " c #FFFFFFFFFFFF", ". c #00000000FFFF", "X c #000000000000", "o c #28A2AEBAFFFF", " . ", " ... ", " ..... ", " ....... ", " ......... ", " ........... ", " ............. ", " ............... ", " ..... ", " ..... ", " ..... ", "XXXXXXXXXXXXXXXXXXXX", " ooooo ", " ooooo ", " ooooo ", " ooooo ", " ooooo ", " ooooo ", " ooooo ", " ooooo "}; xcircuit-3.9.73/lib/pixmaps/fy.gif0000664000175000001440000000024512335667423015531 0ustar timusersGIF89aòÿÿÿÿÿ££ÿÿÿ×ÁÆÿÿŽ™ÿ!ù,jb½ù k‘@)”c ×FvFŽdËy‡:±îû+uÛM8ÂäÂ< )ƒ0ÒcPRBEÀ„ù=£)¦1ûaEVG„° ™5¤ªy¬9×ÞNs…W½œ—¿SXd>{Uh~]\b ;xcircuit-3.9.73/lib/pixmaps/stip12.xbm0000664000175000001440000000107412335667423016257 0ustar timusers/* Definition of a stippled square the size of the toolbar pixmaps. */ #define stip12_width 20 #define stip12_height 20 static char stip12_bits[] = { 0x00, 0x00, 0x00, 0x44, 0x44, 0x04, 0x00, 0x00, 0x00, 0x11, 0x11, 0x01, 0x00, 0x00, 0x00, 0x44, 0x44, 0x04, 0x00, 0x00, 0x00, 0x11, 0x11, 0x01, 0x00, 0x00, 0x00, 0x44, 0x44, 0x04, 0x00, 0x00, 0x00, 0x11, 0x11, 0x01, 0x00, 0x00, 0x00, 0x44, 0x44, 0x04, 0x00, 0x00, 0x00, 0x11, 0x11, 0x01, 0x00, 0x00, 0x00, 0x44, 0x44, 0x04, 0x00, 0x00, 0x00, 0x11, 0x11, 0x01}; xcircuit-3.9.73/lib/pixmaps/r.gif0000664000175000001440000000022512335667423015352 0ustar timusersGIF89aòÿÿ££ÿÿÿÿÿÁÆÿÿ×ÿŽ™ÿ!ù,Zº!þðA©z„DJ­`Œ›0}àÞ§BÆ!ØB‡!}h&ÔB€ FIt\:EÀR2ÙˆnNÂÙ+ìmt»Ô“+tÂÂâml§½¢Ûp×n§ o;xcircuit-3.9.73/lib/pixmaps/stip75.xbm0000664000175000001440000000107412335667423016270 0ustar timusers/* Definition of a stippled square the size of the toolbar pixmaps. */ #define stip75_width 20 #define stip75_height 20 static char stip75_bits[] = { 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0x55, 0x55, 0x05, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0x55, 0x55, 0x05, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0x55, 0x55, 0x05, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0x55, 0x55, 0x05, 0xff, 0xff, 0x0f, 0xaa, 0xaa, 0x0a, 0xff, 0xff, 0x0f, 0x55, 0x55, 0x05}; xcircuit-3.9.73/lib/pixmaps/b.gif0000664000175000001440000000016612335667423015336 0ustar timusersGIF89aòÿÿÿ¾Âÿÿy•ÿ!ù,;ºÜ0ÊUpXè 8^C(pÞ"i*(ÚYk»¨&!0ôŠÃúþö3ðWêå€G£¹Tþ†$ŠT2Ä$;xcircuit-3.9.73/lib/pixmaps/s.gif0000664000175000001440000000020712335667423015353 0ustar timusersGIF89aòÿÿÿ² aea¶²¶y}y!ù,LÚþÁ©]JŒ!ÈÅ›G Åž3˜ëÓZôNÁ 5ã7+Di17Åntùâ£p$?…”S é?Õ+$P+µ×)øR€ãF;xcircuit-3.9.73/lib/pixmaps/po2.gif0000664000175000001440000000014212335667423015607 0ustar timusersGIF89añÿÿÿÿ(®ÿ!ù,3„ËÚ⛑Í[Ý¥u{é}KHf[6b¨öDÂ Ç²Ü ¶½7žûÐóí‚?â°WD;xcircuit-3.9.73/lib/pixmaps/uj.gif0000664000175000001440000000023712335667423015532 0ustar timusersGIF89aò°ÿL„³ÀÀÀ€€€!ù,d +cIå&€²Íº†ÏÇ]’÷æ·`™¦í_çÉs Ý-Tº€pau ‚ ;‚”“fV*j…P+ÖÄ<$ ‰ÇS‘µ2Óà % XCircuitLib library built-in objects /digital::LED { % nonetwork <> begingate p_col4 scb 496 1.000 -36 -53 -28 -66 -20 -58 -20 -10 -28 -2 -36 -10 6 polygon p_col1 scb 496 1.000 -36 10 -28 2 -20 10 -20 58 -28 66 -36 58 6 polygon p_col2 scb 496 1.000 20 10 28 2 36 10 36 58 28 66 20 58 6 polygon p_col5 scb 496 1.000 20 -58 28 -66 36 -58 36 -10 28 -2 20 -10 6 polygon p_col6 scb 496 1.000 -26 -68 -18 -60 18 -60 26 -68 18 -76 -18 -76 6 polygon p_col3 scb 496 1.000 -26 0 -18 8 18 8 26 0 18 -8 -18 -8 6 polygon p_col scb 496 1.000 -26 68 -18 76 18 76 26 68 18 60 -18 60 6 polygon endgate } def % EndLib xcircuit-3.9.73/lib/XCircuit.ad0000664000175000001440000000172312335667423015005 0ustar timusers! ! Normal X defaults for xcircuit, black-on-white version ! xcircuit*foreground : Brown4 xcircuit*background : Beige xcircuit.foreground : Black xcircuit.background : White xcircuit*gridcolor : Gray95 xcircuit*snapcolor : Red xcircuit*selectcolor : Gold3 xcircuit*querycolor : Turquoise xcircuit*axescolor : Antique White xcircuit*offbuttoncolor : Gray85 xcircuit*auxiliarycolor : Green3 xcircuit*barcolor : Tan xcircuit*ratsnestcolor : Tan4 ! xcircuit*borderWidth : 2 xcircuit*borderColor : Red ! xcircuit.width : 950 xcircuit.height : 760 ! ! Inverse color scheme (white-on-black) ! xcircuit*foreground2 : White xcircuit*background2 : DarkSlateGray xcircuit*gridcolor2 : Gray40 xcircuit*snapcolor2 : Red xcircuit*selectcolor2 : Gold xcircuit*querycolor2 : Turquoise xcircuit*axescolor2 : NavajoWhite4 xcircuit*offbuttoncolor2 : Gray50 xcircuit*auxiliarycolor2 : Green xcircuit*barcolor2 : Tan xcircuit-3.9.73/lib/quadparts.lps0000664000175000001440000000674612335667423015503 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.6 % Library name is: quadparts % Author: R. Timothy Edwards % % XCircuitLib library objects /quadparts::quadnand { <> begingate 1 1.000 0 -48 -64 -48 -64 48 0 48 4 polygon 1 1.000 56 0 8 0.000 360.000 xcarc 1 1.000 0 0 48 -90.000 90.000 xcarc 0.180 0.545 0.341 scb mark @vdd ( 14=) @gnd ( 7=) @index (pcb:U) {/Helvetica cf} ctmk 20 0 1.000 -80 -96 infolabel sce mark @part (7400-) {/Helvetica cf} ctmk 21 0 0.500 0 0 label 1.000 0.000 0.000 scb mark @pinO {/Times-Roman cf} ctmk 4 0 1.000 64 0 pinlabel mark @pinA {/Times-Roman cf} ctmk 7 0 1.000 -64 32 pinlabel mark @pinB {/Times-Roman cf} ctmk 7 0 1.000 -64 -32 pinlabel 0.000 0.000 1.000 scb mark @index (U) {/Times-Roman cf} ctmk 16 0 0.700 -64 64 label endgate } def <> /quadparts::quadnand libinst <> /quadparts::quadnand libinst <> /quadparts::quadnand libinst /quadparts::quadnor { <> begingate 1 1.000 -64 48 -35 48 2 polygon 1 1.000 -64 -48 -35 -48 2 polygon 1 1.000 -128 0 80 -37.000 37.000 xcarc 1 1.000 56 0 8 0.000 360.000 xcarc 1 1.000 -35 -48 96 30.000 90.000 xcarc 1 1.000 -35 48 96 270.000 330.000 xcarc 0.180 0.545 0.341 scb mark @vdd ( 14=) @gnd ( 7=) @index (pcb:U) {/Helvetica cf} ctmk 20 0 1.000 -64 -96 infolabel sce mark @part (7402-) {/Helvetica cf} ctmk 21 0 0.500 0 0 label 1.000 0.000 0.000 scb mark @pinO {/Times-Roman cf} ctmk 4 0 1.000 64 0 pinlabel mark @pinA {/Times-Roman cf} ctmk 7 0 1.000 -56 32 pinlabel mark @pinB {/Times-Roman cf} ctmk 7 0 1.000 -56 -32 pinlabel 0.000 0.000 1.000 scb mark @index (U) {/Times-Roman cf} ctmk 16 0 0.700 -64 64 label endgate } def <> /quadparts::quadnor libinst <> /quadparts::quadnor libinst <> /quadparts::quadnor libinst /quadparts::quador { <> begingate 1 1.000 -19 -48 96 30.000 90.000 xcarc 1 1.000 -19 48 96 270.000 330.000 xcarc 1 1.000 -112 0 80 -37.000 37.000 xcarc 1 1.000 -48 48 -19 48 2 polygon 1 1.000 -48 -48 -19 -48 2 polygon 0.180 0.545 0.341 scb mark @vdd ( 14=) @gnd ( 7=) @index (pcb:U) {/Helvetica cf} ctmk 20 0 1.000 -64 -96 infolabel sce mark @part (7432-) {/Helvetica cf} ctmk 21 0 0.500 16 0 label 1.000 0.000 0.000 scb mark @pinO {/Times-Roman cf} ctmk 4 0 1.000 64 0 pinlabel mark @pinA {/Times-Roman cf} ctmk 7 0 1.000 -40 32 pinlabel mark @pinB {/Times-Roman cf} ctmk 7 0 1.000 -40 -32 pinlabel 0.000 0.000 1.000 scb mark @index (U) {/Times-Roman cf} ctmk 16 0 0.700 -48 64 label endgate } def <> /quadparts::quador libinst <> /quadparts::quador libinst <> /quadparts::quador libinst % EndLib xcircuit-3.9.73/lib/digitallib.lps0000664000175000001440000003074012335667423015572 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.6 % Library name is: digitallib.lps % Author: R. Timothy Edwards % % XCircuitLib library objects /digitallib::INV { <> begingate 0 1.00 -32 -40 -32 40 40 0 3 polygon 1 1.00 48 0 8 0.00 360.00 xcarc 1 1.00 -32 0 -48 0 2 polygon 1 1.00 56 0 64 0 2 polygon 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -48 0 pinlabel 0.180 0.545 0.341 scb mark voltage strength ( %pA %pY INVX) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -32 -136 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -32 -96 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.60 -8 0 label mark strength {qS} (\327) {/Times-RomanISO cf} ctmk 16 0 0.60 0 24 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 8 -24 label endgate } def <> /digitallib::INV libinst <> /digitallib::INV libinst <> /digitallib::INV libinst <> /digitallib::INV libinst <> /digitallib::INV libinst /digitallib::BUF { <> begingate 0 1.00 -32 -40 -32 40 40 0 3 polygon 1 1.00 -32 0 -48 0 2 polygon 1 1.00 40 0 64 0 2 polygon 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -48 0 pinlabel 0.180 0.545 0.341 scb mark voltage strength ( %pA %pY BUFX) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -32 -112 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -32 -80 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-RomanISO cf} ctmk 21 0 0.50 -8 0 label mark strength {qS} (\327) {/Times-RomanISO cf} ctmk 16 0 0.50 8 24 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 16 0 0.60 24 -32 label endgate } def <> /digitallib::BUF libinst <> /digitallib::BUF libinst <> /digitallib::BUF libinst /digitallib::NAND2 { <> begingate 1 1.00 0 -48 -64 -48 -64 48 0 48 4 polygon 1 1.00 56 0 8 0.00 360.00 xcarc 1 1.00 0 0 48 -90.00 90.00 xcarc 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 -32 pinlabel sce 1 1.00 -64 -48 -64 48 2 polygon 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pY NAND2X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -128 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 -40 -8 label 0.180 0.545 0.341 scb mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -96 infolabel endgate } def <> /digitallib::NAND2 libinst /digitallib::NAND3 { <> begingate 1 1.00 0 -48 -64 -48 -64 48 0 48 4 polygon 1 1.00 56 0 8 0.00 360.00 xcarc 1 1.00 0 0 48 -90.00 90.00 xcarc 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (C) {/Times-Roman cf} 2 7 0 1.00 -64 -32 pinlabel sce 1 1.00 -64 -64 -64 64 2 polygon 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pC %pY NAND3X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -128 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -96 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 -40 -8 label endgate } def <> /digitallib::NAND3 libinst /digitallib::NAND4 { <> begingate 1 1.00 0 -64 -64 -64 -64 64 0 64 4 polygon 1 1.00 56 0 8 0.00 360.00 xcarc 1 1.00 0 0 48 64 -90.00 90.00 ellipse 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 48 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 16 pinlabel (C) {/Times-Roman cf} 2 7 0 1.00 -64 -16 pinlabel (D) {/Times-Roman cf} 2 7 0 1.00 -64 -48 pinlabel sce 1 1.00 -64 -80 -64 80 2 polygon 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pC %pD %pY NAND4X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -144 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -112 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 -40 -8 label endgate } def <> /digitallib::NAND4 libinst /digitallib::NOR2 { <> begingate 1 1.00 56 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 -32 pinlabel 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pY NOR2X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -128 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 -40 -8 label sce 1 1.00 -35 48 96 270.00 330.00 xcarc 1 1.00 -64 -48 -35 -48 2 polygon 1 1.00 -128 0 80 -37.00 37.00 xcarc 1 1.00 -35 -48 96 30.00 90.00 xcarc 1 1.00 -64 48 -35 48 2 polygon 1 1.00 -64 32 -56 32 2 polygon 1 1.00 -64 -32 -56 -32 2 polygon 0.180 0.545 0.341 scb mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -96 infolabel endgate } def <> /digitallib::NOR2 libinst /digitallib::NOR3 { <> begingate 1 1.00 56 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pC %pY NOR3X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -128 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -96 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 -40 -8 label sce 1 1.00 -35 48 96 270.00 330.00 xcarc 1 1.00 -64 -48 -35 -48 2 polygon 1 1.00 -128 0 80 -36.87 36.87 xcarc 1 1.00 -35 -48 96 30.00 90.00 xcarc 1 1.00 -64 48 -35 48 2 polygon 1 1.00 -64 32 -56 32 2 polygon 1 1.00 -64 -32 -56 -32 2 polygon 1 1.00 -48 0 -64 0 2 polygon 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 7 0 1.00 -64 -32 pinlabel sce 1 1.00 -64 48 -64 64 2 polygon 1 1.00 -64 -48 -64 -64 2 polygon endgate } def <> /digitallib::NOR3 libinst /digitallib::NOR4 { <> begingate 1 1.00 56 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 48 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 16 pinlabel 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pC %pD %pY NOR4X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -128 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -96 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 21 0 0.70 -8 -16 label sce 1 1.00 -64 48 -58 48 2 polygon 1 1.00 -64 -16 -48 -16 2 polygon 1 1.00 -48 16 -64 16 2 polygon 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 7 0 1.00 -64 -16 pinlabel sce 1 1.00 32 32 0 56 -40 56 48 0 spline 1 1.00 32 -32 0 -56 -40 -56 48 0 spline 1 1.00 -40 32 -40 -24 -64 -56 -64 56 spline 1 1.00 -64 56 -40 56 2 polygon 1 1.00 -64 -56 -40 -56 2 polygon 1.000 0.000 0.000 scb (D) {/Times-Roman cf} 2 7 0 1.00 -64 -48 pinlabel sce 1 1.00 -64 -48 -60 -48 2 polygon endgate } def <> /digitallib::NOR4 libinst /digitallib::OR2 { <> begingate 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 -32 pinlabel 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pY OR2X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -64 -128 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -64 -96 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.70 -40 -8 label sce 1 1.00 -35 48 96 270.00 330.00 xcarc 1 1.00 -64 -48 -35 -48 2 polygon 1 1.00 -128 0 80 -37.00 37.00 xcarc 1 1.00 -35 -48 96 30.00 90.00 xcarc 1 1.00 -64 48 -35 48 2 polygon 1 1.00 -64 32 -56 32 2 polygon 1 1.00 -64 -32 -56 -32 2 polygon 1 1.00 48 0 64 0 2 polygon endgate } def /digitallib::TBUF { <> begingate 0 1.00 -32 -40 -32 40 40 0 3 polygon 1 1.00 -32 0 -48 0 2 polygon 1 1.00 40 0 64 0 2 polygon 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 0 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -48 0 pinlabel 0.180 0.545 0.341 scb mark voltage strength ( %pA %pY %pEn TBUFX) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -176 -112 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -176 -80 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-RomanISO cf} ctmk 21 0 0.50 -8 0 label mark strength {qS} (\327) {/Times-RomanISO cf} ctmk 16 0 0.50 8 24 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 16 0 0.60 24 -32 label sce 1 1.00 0 24 0 48 2 polygon 1.000 0.000 0.000 scb (En) {/Times-Roman cf} 2 17 0 1.00 0 48 pinlabel endgate } def <> /digitallib::TBUF libinst /digitallib::MUX2 { <> begingate 1 1.00 -16 16 -32 16 2 polygon 1 1.00 48 -16 64 -16 2 polygon 1.000 0.000 0.000 scb (Y) {/Times-Roman cf} 2 4 0 1.00 64 -16 pinlabel (A) {/Times-Roman cf} 2 7 0 1.00 -32 16 pinlabel 0.180 0.545 0.341 scb mark voltage ( %pA %pB %pY %pS MUX2X1) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -128 -176 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -128 -144 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-RomanISO cf} ctmk 21 0 0.50 16 -16 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 28 0 0.60 24 -80 label sce 1 1.00 16 32 16 64 2 polygon 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 17 0 1.00 16 64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -32 -48 pinlabel sce 1 1.00 -32 -48 -16 -48 2 polygon 1 1.00 -16 48 48 16 48 -48 -16 -80 -16 48 5 polygon endgate } def <> /digitallib::MUX2 libinst /digitallib::LATCH { <> begingate 1.000 0.000 0.000 scb (Q) {/Times-Roman cf} 2 4 0 1.00 32 32 pinlabel (D) {/Times-Roman cf} 2 7 0 1.00 -64 32 pinlabel (CLK) {/Times-Roman cf} 2 13 0 1.00 -16 -48 pinlabel 0.180 0.545 0.341 scb mark voltage ( %pCLK %pD %pQ LATCH) gnd ( ) vdd ( ) @index (spice:X) {/Times-Roman cf} ctmk 16 360 0.70 -192 -160 infolabel mark (.cir) voltage (spice@1:%F$XCIRCUIT_LIB_DIR/standard_cells) {/Times-Roman cf} ctmk 16 0 0.70 -192 -128 infolabel 0.647 0.165 0.165 scb mark voltage {/Times-Roman cf} ctmk 21 0 0.70 -16 64 label 0.000 0.000 1.000 scb mark @index (U) {/Times-RomanISO cf} ctmk 17 0 0.70 -16 128 label sce 0 1.00 -64 -48 -64 112 32 112 32 -48 4 polygon 1 1.00 -32 -48 -16 -32 0 -48 3 polygon (D) {/Times-Roman cf} 2 21 0 0.70 -48 32 label (Q) {/Times-Roman cf} 2 21 0 0.70 16 32 label 0.000 0.000 1.000 scb (LATCH) {/Times-Roman cf} 2 29 0 0.70 -16 96 label endgate } def <> /digitallib::LATCH libinst % EndLib xcircuit-3.9.73/lib/cyrillic.enc0000664000175000001440000000433513066343734015246 0ustar timusers%%BeginResource: encoding ISO8859_5Encoding /ISO8859_5Encoding [ /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question % 100 /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /.notdef % 200 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space /afii10023 /afii10051 /afii10052 /afii10053 /afii10054 /afii10055 /afii10056 /afii10057 /afii10058 /afii10059 /afii10060 /afii10061 /.notdef /afii10062 /afii10145 /afii10017 /afii10018 /afii10019 /afii10020 /afii10021 /afii10022 /afii10024 /afii10025 /afii10026 /afii10027 /afii10028 /afii10029 /afii10030 /afii10031 /afii10032 /afii10033 % 300 /afii10034 /afii10035 /afii10036 /afii10037 /afii10038 /afii10039 /afii10040 /afii10041 /afii10042 /afii10043 /afii10044 /afii10045 /afii10046 /afii10047 /afii10048 /afii10049 /afii10065 /afii10066 /afii10067 /afii10068 /afii10069 /afii10070 /afii10072 /afii10073 /afii10074 /afii10075 /afii10076 /afii10077 /afii10078 /afii10079 /afii10080 /afii10081 /afii10082 /afii10083 /afii10084 /afii10085 /afii10086 /afii10087 /afii10088 /afii10089 /afii10090 /afii10091 /afii10092 /afii10093 /afii10094 /afii10095 /afii10096 /afii10097 /.notdef /afii10071 /afii10099 /afii10100 /afii10101 /afii10102 /afii10103 /afii10104 /afii10105 /afii10106 /afii10107 /afii10108 /afii10109 /.notdef /afii10110 /afii10193 ] def %%EndResource xcircuit-3.9.73/lib/fonts/0000775000175000001440000000000013213023722014053 5ustar timusersxcircuit-3.9.73/lib/fonts/courier.lps0000664000175000001440000006624112335667423016274 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Cr % Version: 2.0 % % % XCircuitLib library built-in objects /Cr::nullchar { % 0 0 24 32 bbox begingate 0 1.00 0 0 0 32 24 32 24 0 4 polygon endgate } def /Cr::space { % 0 0 24 26 bbox begingate endgate } def /Cr::exclam { % 10 1 14 22 bbox begingate 241 1.00 12 3 2 0.00 360.00 xcarc 0 1.00 13 23 12 8 11 23 3 polygon endgate } def /Cr::quote { % 9 21 15 7 bbox begingate 0 1.00 16 28 15 21 14 28 3 polygon 0 1.00 11 28 10 21 9 28 3 polygon endgate } def /Cr::pound { % 2 0 22 26 bbox begingate 1 1.00 4 17 21 17 2 polygon 1 1.00 12 0 19 26 2 polygon 1 1.00 4 0 11 26 2 polygon 1 1.00 2 9 19 9 2 polygon endgate } def /Cr::dollar { % 5 0 19 30 bbox begingate 1 1.00 5 8 7 6 11 4 15 4 19 6 21 8 21 10 19 12 7 18 5 20 5 22 7 24 11 26 15 26 19 24 21 22 16 polygon 1 1.00 13 0 13 4 2 polygon 1 1.00 5 9 5 6 2 polygon 1 1.00 21 25 21 21 2 polygon 1 1.00 13 26 13 30 2 polygon endgate } def /Cr::percent { % 4 4 20 18 bbox begingate 1 1.00 14 7 3 0.00 360.00 xcarc 1 1.00 7 19 3 0.00 360.00 xcarc 1 1.00 4 8 17 18 2 polygon endgate } def /Cr::ampersand { % 8 0 16 26 bbox % hidden begingate 1 1.00 24 0 10 20 10 24 12 26 16 26 18 24 6 polygon 1 1.00 24 10 22 6 19 1 16 0 13 0 10 2 8 5 8 10 10 13 13 15 10 polygon endgate } def /Cr::apostrophe { % 12 20 12 8 bbox begingate 0 1.00 12 20 16 28 14 28 3 polygon endgate } def /Cr::lparen { % 14 -4 10 32 bbox % hidden begingate 1 1.00 20 -4 16 1 14 7 14 17 16 23 20 28 6 polygon endgate } def /Cr::rparen { % 8 -5 16 32 bbox begingate 1 1.00 8 -5 12 0 14 6 14 16 12 22 8 27 6 polygon endgate } def /Cr::asterisk { % 8 13 16 7 bbox begingate 1 1.00 12 16 12 20 2 polygon 1 1.00 12 16 16 18 2 polygon 1 1.00 12 16 8 18 2 polygon 1 1.00 12 16 15 13 2 polygon 1 1.00 12 16 9 13 2 polygon endgate } def /Cr::plus { % 4 8 20 16 bbox begingate 1 1.00 12 8 12 24 2 polygon 1 1.00 4 16 20 16 2 polygon endgate } def /Cr::comma { % 10 -4 14 8 bbox begingate 0 1.00 12 4 10 -4 14 4 3 polygon endgate } def /Cr::minus { % 4 16 20 0 bbox begingate 1 1.00 4 16 20 16 2 polygon endgate } def /Cr::period { % 10 1 14 4 bbox begingate 241 1.00 12 3 2 0.00 360.00 xcarc endgate } def /Cr::slash { % 4 0 20 26 bbox begingate 1 1.00 4 0 20 26 2 polygon endgate } def /Cr::zero { % 6 0 18 26 bbox % hidden begingate 1 1.00 12 0 8 4 6 10 6 16 8 22 12 26 18 26 22 22 24 16 24 10 22 4 18 0 12 0 13 polygon endgate } def /Cr::one { % 8 0 16 26 bbox begingate 1 1.00 8 0 16 0 2 polygon 1 1.00 12 0 12 26 8 24 3 polygon endgate } def /Cr::two { % 4 0 20 26 bbox begingate 1 1.00 22 4 22 0 4 0 12 6 20 12 22 16 22 20 20 24 16 26 12 26 8 24 6 22 12 polygon endgate } def /Cr::three { % 4 0 20 26 bbox begingate 1 1.00 4 4 6 2 10 0 14 0 18 2 20 6 20 10 16 14 14 14 9 polygon 1 1.00 16 14 20 18 20 20 18 24 14 26 10 26 6 24 6 24 8 polygon endgate } def /Cr::four { % 4 0 20 26 bbox begingate 1 1.00 16 0 16 26 8 16 4 8 20 8 5 polygon 1 1.00 12 0 20 0 2 polygon endgate } def /Cr::five { % 4 0 20 26 bbox begingate 1 1.00 4 2 8 0 14 0 18 2 20 6 20 10 18 14 14 16 10 16 6 14 6 26 20 26 12 polygon endgate } def /Cr::six { % 3 0 21 28 bbox begingate 1 1.00 19 28 13 26 9 24 5 20 3 14 3 8 5 2 9 0 15 0 19 2 21 6 21 10 19 14 15 16 9 16 5 14 3 8 17 polygon endgate } def /Cr::seven { % 6 0 18 26 bbox begingate 1 1.00 10 0 20 26 6 26 6 24 4 polygon endgate } def /Cr::eight { % 5 0 19 26 bbox begingate 1 1.00 9 0 7 2 5 4 5 8 7 10 17 16 19 18 19 22 15 26 9 26 5 22 5 18 7 16 17 10 19 8 19 4 17 2 15 0 9 0 19 polygon endgate } def /Cr::nine { % 4 0 20 26 bbox begingate 1 1.00 6 0 10 0 14 2 18 6 20 12 20 18 18 24 14 26 10 26 6 24 4 20 4 16 6 12 10 10 14 10 18 12 20 16 17 polygon endgate } def /Cr::colon { % 10 6 14 14 bbox begingate 241 1.00 12 8 2 0.00 360.00 xcarc 241 1.00 12 18 2 0.00 360.00 xcarc endgate } def /Cr::semi { % 8 -4 16 20 bbox begingate 241 1.00 12 14 2 0.00 360.00 xcarc 0 1.00 12 2 8 -4 10 2 3 polygon endgate } def /Cr::less { % 4 6 20 12 bbox begingate 1 1.00 16 6 4 12 16 18 3 polygon endgate } def /Cr::equal { % 4 12 20 6 bbox begingate 1 1.00 4 12 20 12 2 polygon 1 1.00 4 18 20 18 2 polygon endgate } def /Cr::more { % 6 6 18 12 bbox begingate 1 1.00 6 6 18 12 6 18 3 polygon endgate } def /Cr::question { % 5 1 19 25 bbox begingate 241 1.00 11 3 2 0.00 360.00 xcarc 1 1.00 5 20 5 22 9 26 15 26 19 22 19 18 17 14 11 12 11 10 9 polygon endgate } def /Cr::at { % 4 0 20 26 bbox begingate 1 1.00 20 6 18 2 14 0 10 0 6 4 4 12 6 22 10 26 14 26 18 24 20 20 20 10 12 polygon 1 1.00 20 12 16 8 12 8 10 10 10 14 12 18 14 20 19 22 8 polygon endgate } def /Cr::V { % 2 0 22 26 bbox begingate 1 1.00 4 26 12 0 20 26 3 polygon 1 1.00 2 26 8 26 2 polygon 1 1.00 22 26 16 26 2 polygon endgate } def /Cr::A { % 4 0 20 26 bbox begingate 1 1.00 10 10 18 10 2 polygon 1 1.00 14 26 10 26 2 polygon 1.00 180 26 26 Cr::V endgate } def /Cr::B { % 4 0 20 26 bbox begingate 1 1.00 4 26 14 26 19 25 21 22 21 18 17 14 6 14 7 polygon 1 1.00 4 0 17 0 21 2 23 6 23 8 21 12 17 14 7 polygon 1 1.00 6 26 6 0 2 polygon endgate } def /Cr::C { % 2 0 22 26 bbox begingate 1 1.00 18 0 10 0 4 4 2 10 2 16 4 22 10 26 16 26 22 22 9 polygon 1 1.00 18 0 22 4 2 polygon 1 1.00 22 26 22 22 2 polygon endgate } def /Cr::D { % 3 0 21 26 bbox begingate 1 1.00 3 0 14 0 20 4 22 10 22 16 20 22 14 26 3 26 8 polygon 1 1.00 6 26 6 0 2 polygon endgate } def /Cr::F { % 4 0 20 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 6 14 14 14 2 polygon 1 1.00 14 17 14 11 2 polygon 1 1.00 4 26 20 26 20 22 3 polygon 1 1.00 4 0 10 0 2 polygon endgate } def /Cr::E { % 4 0 20 26 bbox begingate 1 1.00 20 4 20 0 10 0 3 polygon 1.00 0 0 0 Cr::F endgate } def /Cr::G { % 2 0 22 26 bbox begingate 1 1.00 14 0 8 0 4 4 2 10 2 16 4 22 8 26 14 26 20 22 9 polygon 1 1.00 14 0 18 2 20 4 3 polygon 1 1.00 20 26 20 22 2 polygon 1 1.00 20 12 20 2 2 polygon 1 1.00 22 12 14 12 2 polygon endgate } def /Cr::H { % 4 0 20 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 20 0 20 26 2 polygon 1 1.00 6 14 20 14 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 16 26 22 26 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 16 0 22 0 2 polygon endgate } def /Cr::I { % 6 0 18 26 bbox begingate 1 1.00 6 0 20 0 2 polygon 1 1.00 13 0 13 26 2 polygon 1 1.00 6 26 19 26 2 polygon endgate } def /Cr::J { % 4 0 20 26 bbox begingate 1 1.00 4 4 6 2 10 0 12 0 16 2 18 6 18 26 7 polygon 1 1.00 4 8 4 4 2 polygon 1 1.00 10 26 22 26 2 polygon endgate } def /Cr::K { % 4 0 20 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 20 26 6 10 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 22 26 16 26 2 polygon 1 1.00 10 14 12 12 18 2 20 0 22 0 5 polygon endgate } def /Cr::L { % 4 0 20 26 bbox begingate 1 1.00 8 26 8 0 2 polygon 1 1.00 4 26 12 26 2 polygon 1 1.00 4 0 20 0 20 6 3 polygon endgate } def /Cr::M { % 2 0 22 26 bbox begingate 1 1.00 4 0 6 26 12 8 18 26 20 0 5 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 16 0 22 0 2 polygon 1 1.00 2 26 6 26 2 polygon 1 1.00 18 26 22 26 2 polygon endgate } def /Cr::N { % 2 0 22 26 bbox begingate 1 1.00 4 0 4 26 20 0 20 26 4 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 22 26 16 26 2 polygon 1 1.00 4 26 2 26 2 polygon endgate } def /Cr::O { % 2 0 22 26 bbox begingate 1 1.00 15 0 9 0 4 4 2 10 2 16 4 22 9 26 15 26 20 22 22 16 22 10 20 4 15 0 13 polygon endgate } def /Cr::P { % 4 0 20 26 bbox begingate 1 1.00 8 0 8 26 2 polygon 1 1.00 4 0 12 0 2 polygon 1 1.00 8 12 17 12 21 14 23 17 23 20 21 24 17 26 4 26 8 polygon endgate } def /Cr::Q { % 3 -2 21 28 bbox begingate 1.00 0 0 0 Cr::O 1 1.00 8 -2 12 0 14 0 18 -2 20 -2 22 0 6 polygon endgate } def /Cr::R { % 2 0 22 26 bbox begingate 1.00 0 -2 0 Cr::P 1 1.00 14 12 16 10 20 0 22 0 4 polygon endgate } def /Cr::S { % 4 0 20 26 bbox begingate 1 1.00 4 4 6 2 10 0 16 0 20 2 22 6 22 8 18 12 6 14 4 18 4 20 6 24 10 26 14 26 18 24 20 22 16 polygon 1 1.00 20 26 20 22 2 polygon 1 1.00 4 4 4 0 2 polygon endgate } def /Cr::T { % 2 0 22 26 bbox begingate 1 1.00 12 0 12 26 2 polygon 1 1.00 2 20 2 26 22 26 22 20 4 polygon 1 1.00 8 0 16 0 2 polygon endgate } def /Cr::U { % 2 0 22 26 bbox begingate 1 1.00 4 26 4 7 5 4 7 1 10 0 14 0 17 1 19 4 20 7 20 26 10 polygon 1 1.00 2 26 8 26 2 polygon 1 1.00 22 26 16 26 2 polygon endgate } def /Cr::W { % 3 0 21 26 bbox begingate 1 1.00 5 26 8 0 13 18 18 0 21 26 5 polygon 1 1.00 17 26 23 26 2 polygon 1 1.00 3 26 9 26 2 polygon endgate } def /Cr::X { % 3 0 21 26 bbox begingate 1 1.00 5 0 21 26 2 polygon 1 1.00 5 26 21 0 2 polygon 1 1.00 3 0 9 0 2 polygon 1 1.00 23 0 17 0 2 polygon 1 1.00 23 26 17 26 2 polygon 1 1.00 3 26 9 26 2 polygon endgate } def /Cr::Y { % 3 0 21 26 bbox begingate 1 1.00 5 26 13 12 13 0 3 polygon 1 1.00 21 26 13 12 2 polygon 1 1.00 3 26 9 26 2 polygon 1 1.00 23 26 17 26 2 polygon 1 1.00 9 0 17 0 2 polygon endgate } def /Cr::Z { % 4 0 20 26 bbox begingate 1 1.00 4 20 4 26 20 26 4 0 20 0 20 6 6 polygon endgate } def /Cr::lbracket { % 12 -2 12 30 bbox begingate 1 1.00 18 -2 12 -2 12 28 18 28 4 polygon endgate } def /Cr::backslash { % 4 0 20 26 bbox begingate 1 1.00 20 0 4 26 2 polygon endgate } def /Cr::rbracket { % 10 -2 14 30 bbox begingate 1 1.00 10 -2 16 -2 16 28 10 28 4 polygon endgate } def /Cr::caret { % 7 24 17 6 bbox begingate 1 1.00 7 24 12 30 17 24 3 polygon endgate } def /Cr::underscore { % 2 0 22 0 bbox begingate 1 1.00 2 0 22 0 2 polygon endgate } def /Cr::a { % 3 0 21 18 bbox begingate 1 1.00 21 0 17 0 17 14 13 18 7 18 5 16 6 polygon 1 1.00 17 2 13 0 7 0 3 2 3 8 7 10 13 10 17 8 8 polygon endgate } def /Cr::b { % 2 0 22 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 6 2 10 0 16 0 20 2 22 6 22 12 20 16 16 18 10 18 6 14 10 polygon 1 1.00 2 26 6 26 2 polygon 1 1.00 6 0 2 0 2 polygon endgate } def /Cr::c { % 2 0 22 18 bbox begingate 1 1.00 18 2 14 0 8 0 4 2 2 6 2 12 4 16 8 18 14 18 18 14 10 polygon 1 1.00 18 18 18 14 2 polygon endgate } def /Cr::d { % 2 0 22 26 bbox begingate 1 1.00 18 2 14 0 8 0 4 2 2 6 2 12 4 16 8 18 14 18 18 14 10 polygon 1 1.00 18 0 18 26 2 polygon 1 1.00 18 0 22 0 2 polygon 1 1.00 18 26 14 26 2 polygon endgate } def /Cr::e { % 4 0 20 18 bbox begingate 1 1.00 20 4 18 2 14 0 10 0 6 2 4 6 4 12 6 16 10 18 14 18 18 16 20 12 20 10 4 10 14 polygon endgate } def /Cr::f { % 4 0 20 26 bbox begingate 1 1.00 4 0 18 0 2 polygon 1 1.00 8 0 8 24 11 26 16 26 20 24 5 polygon 1 1.00 4 16 18 16 2 polygon endgate } def /Cr::g { % 3 -7 21 25 bbox begingate 1 1.00 19 4 15 0 9 0 5 2 3 6 3 12 5 16 9 18 15 18 19 14 10 polygon 1 1.00 8 -6 11 -7 15 -7 19 -3 19 18 5 polygon 1 1.00 19 18 23 18 2 polygon endgate } def /Cr::h { % 2 0 22 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 6 14 10 18 16 18 20 14 20 0 5 polygon 1 1.00 22 0 16 0 2 polygon 1 1.00 2 26 6 26 2 polygon 1 1.00 2 0 8 0 2 polygon endgate } def /Cr::i { % 6 0 18 24 bbox begingate 1 1.00 6 0 18 0 2 polygon 1 1.00 12 24 12 23 2 polygon 1 1.00 12 0 12 18 8 18 3 polygon endgate } def /Cr::j { % 8 -6 14 30 bbox begingate 1 1.00 8 -6 11 -6 15 -4 16 0 16 16 8 16 6 polygon 1 1.00 16 24 16 23 2 polygon endgate } def /Cr::k { % 2 0 22 26 bbox begingate 1 1.00 6 8 18 18 2 polygon 1 1.00 20 0 10 10 2 polygon 1 1.00 2 0 6 0 6 26 2 26 4 polygon 1 1.00 14 18 20 18 2 polygon 1 1.00 16 0 22 0 2 polygon endgate } def /Cr::l { % 4 0 20 26 bbox begingate 1 1.00 4 0 18 0 2 polygon 1 1.00 12 0 12 26 6 26 3 polygon endgate } def /Cr::m { % 2 0 22 18 bbox begingate 1 1.00 2 0 6 0 2 polygon 1 1.00 4 16 6 18 10 18 12 16 12 0 14 0 6 polygon 1 1.00 12 16 14 18 17 18 20 15 20 0 22 0 6 polygon 1 1.00 2 18 4 18 4 0 3 polygon endgate } def /Cr::n { % 4 0 20 18 bbox begingate 1 1.00 6 0 6 18 2 polygon 1 1.00 6 16 10 18 14 18 18 14 18 0 5 polygon 1 1.00 4 18 6 18 2 polygon 1 1.00 4 0 8 0 2 polygon 1 1.00 16 0 20 0 2 polygon endgate } def /Cr::o { % 4 0 20 18 bbox begingate 1 1.00 10 0 6 2 4 6 4 12 6 16 10 18 14 18 18 16 20 12 20 6 18 2 14 0 10 0 13 polygon endgate } def /Cr::p { % 4 -6 20 24 bbox begingate 1 1.00 6 2 10 0 14 0 18 2 20 6 20 12 18 16 14 18 10 18 6 16 10 polygon 1 1.00 6 18 6 -6 2 polygon 1 1.00 6 18 4 18 2 polygon 1 1.00 4 -6 10 -6 2 polygon endgate } def /Cr::q { % 4 -6 20 24 bbox begingate 1.00 -1 24 0 Cr::p endgate } def /Cr::r { % 3 0 21 18 bbox begingate 1 1.00 4 0 16 0 2 polygon 1 1.00 8 0 8 18 3 18 3 polygon 1 1.00 8 14 14 18 18 18 3 polygon 1 1.00 18 18 20 16 2 polygon endgate } def /Cr::s { % 6 0 18 18 bbox begingate 1 1.00 6 4 10 0 16 0 20 2 20 6 18 8 8 10 6 12 6 16 10 18 16 18 20 14 12 polygon 1 1.00 20 18 20 14 2 polygon 1 1.00 6 4 6 0 2 polygon endgate } def /Cr::t { % 4 0 20 26 bbox begingate 1 1.00 4 18 20 18 2 polygon 1 1.00 10 26 10 2 13 0 16 0 22 3 5 polygon endgate } def /Cr::u { % 4 0 20 18 bbox begingate 1 1.00 20 0 20 0 20 18 16 18 4 polygon 1 1.00 4 18 6 18 6 4 10 0 16 0 20 2 6 polygon endgate } def /Cr::v { % 2 0 22 18 bbox begingate 1 1.00 4 18 12 0 20 18 3 polygon 1 1.00 2 18 8 18 2 polygon 1 1.00 16 18 22 18 2 polygon endgate } def /Cr::w { % 2 0 22 16 bbox begingate 1 1.00 4 18 8 0 12 12 16 0 20 18 5 polygon 1 1.00 2 18 8 18 2 polygon 1 1.00 16 18 22 18 2 polygon endgate } def /Cr::x { % 4 0 20 18 bbox begingate 1 1.00 6 0 20 18 2 polygon 1 1.00 6 18 20 0 2 polygon 1 1.00 4 18 10 18 2 polygon 1 1.00 16 18 22 18 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 16 0 22 0 2 polygon endgate } def /Cr::y { % 2 -6 22 24 bbox begingate 1 1.00 4 18 12 2 2 polygon 1 1.00 20 18 8 -6 2 polygon 1 1.00 2 18 8 18 2 polygon 1 1.00 16 18 22 18 2 polygon 1 1.00 4 -6 12 -6 2 polygon endgate } def /Cr::z { % 4 0 20 18 bbox begingate 1 1.00 4 14 4 18 20 18 4 0 20 0 20 4 6 polygon endgate } def /Cr::lbrace { % 6 -4 18 32 bbox begingate 1 1.00 14 -4 12 -4 10 -2 10 10 6 12 10 14 10 26 12 28 14 28 9 polygon endgate } def /Cr::vbar { % 12 -2 12 30 bbox begingate 1 1.00 12 -2 12 28 2 polygon endgate } def /Cr::rbrace { % 8 -4 16 32 bbox begingate 1 1.00 8 -4 10 -4 12 -2 12 10 16 12 12 14 12 26 10 28 8 28 9 polygon endgate } def /Cr::tilde { % 6 14 18 2 bbox begingate 1 1.00 6 14 8 16 10 16 14 14 16 14 18 16 6 polygon endgate } def /Cr::upexclam { % 10 1 14 22 bbox begingate 1.00 -181 0 24 Cr::exclam endgate } def /Cr::cent { % 4 -6 20 30 bbox begingate 1 1.00 12 18 12 24 2 polygon 1 1.00 12 0 12 -6 2 polygon 1.00 0 2 0 Cr::c endgate } def /Cr::lb { % 4 0 20 26 bbox begingate 1 1.00 20 2 18 0 16 0 10 2 8 2 5 polygon 1 1.00 6 14 18 14 2 polygon 1 1.00 4 0 8 2 10 6 10 12 8 18 8 22 12 26 16 26 20 24 9 polygon endgate } def /Cr::aslash { % 4 0 20 26 bbox begingate 1 1.00 4 0 18 26 2 polygon endgate } def /Cr::yen { % 3 0 21 26 bbox begingate 1 1.00 5 17 10 17 2 polygon 1 1.00 5 12 21 12 2 polygon 1 1.00 16 17 21 17 2 polygon 1.00 0 0 0 Cr::Y endgate } def /Cr::itf { % 0 -6 24 32 bbox begingate 1 1.00 6 18 16 18 2 polygon 1 1.00 0 -4 2 -6 6 -6 8 -4 12 24 14 26 18 26 20 24 8 polygon endgate } def /Cr::sy1 { % 4 -6 20 32 bbox begingate 1 1.00 18 0 20 2 20 6 8 16 6 20 8 24 12 26 18 26 18 22 9 polygon 1 1.00 6 20 4 18 4 14 16 4 18 0 16 -4 12 -6 6 -6 6 -2 9 polygon endgate } def /Cr::sy2 { % 2 2 22 16 bbox begingate 1 1.00 10 10 6 0.00 360.00 xcarc 1 1.00 2 18 5 15 2 polygon 1 1.00 18 18 15 15 2 polygon 1 1.00 18 2 15 5 2 polygon 1 1.00 2 2 5 5 2 polygon endgate } def /Cr::apos2 { % 10 24 14 8 bbox begingate 0 1.00 12 32 11 24 10 32 3 polygon endgate } def /Cr::lqt { % 6 24 18 8 bbox begingate 1.00 180 22 52 Cr::apostrophe 1.00 180 28 52 Cr::apostrophe endgate } def /Cr::lgqt { % 4 4 20 14 bbox begingate 1 1.00 10 4 4 11 10 18 3 polygon 1 1.00 16 4 10 11 16 18 3 polygon endgate } def /Cr::lsang { % 8 4 16 14 bbox begingate 1 1.00 14 4 8 11 14 18 3 polygon endgate } def /Cr::rsang { % 10 4 14 14 bbox begingate 1 1.00 10 4 16 11 10 18 3 polygon endgate } def /Cr::fi { % 2 0 22 26 bbox begingate 1 1.00 6 0 6 24 8 26 12 26 4 polygon 1 1.00 13 18 16 18 16 0 3 polygon 1 1.00 16 22 16 23 2 polygon 1 1.00 10 18 2 18 2 polygon 1 1.00 2 0 10 0 2 polygon 1 1.00 12 0 20 0 2 polygon endgate } def /Cr::fl { % 4 0 20 26 bbox begingate 1 1.00 8 0 8 24 10 26 18 26 4 polygon 1 1.00 18 26 18 0 2 polygon 1 1.00 4 18 12 18 2 polygon 1 1.00 4 0 12 0 2 polygon 1 1.00 14 0 22 0 2 polygon endgate } def /Cr::dag { % 6 2 18 22 bbox begingate 1 1.00 12 2 12 24 2 polygon 1 1.00 6 18 18 18 2 polygon endgate } def /Cr::ddag { % 6 0 18 24 bbox begingate 1 1.00 12 0 12 24 2 polygon 1 1.00 6 18 18 18 2 polygon 1 1.00 6 6 18 6 2 polygon endgate } def /Cr::dot { % 10 22 14 4 bbox begingate 241 1.00 12 24 2 0.00 360.00 xcarc endgate } def /Cr::para { % 5 2 19 24 bbox begingate 1 1.00 13 2 13 26 2 polygon 1 1.00 17 2 17 26 2 polygon 1 1.00 20 26 12 26 2 polygon 240 1.00 12 19 7 90.00 270.00 xcarc endgate } def /Cr::bullet { % 10 15 14 4 bbox begingate 1.00 0 0 -7 Cr::dot endgate } def /Cr::comma2 { % 10 -6 14 8 bbox begingate 1.00 0 0 -2 Cr::comma endgate } def /Cr::rqt2 { % 7 -7 17 8 bbox begingate 1.00 180 23 25 Cr::lqt endgate } def /Cr::rqt { % 6 22 18 8 bbox begingate 1.00 180 22 54 Cr::lqt endgate } def /Cr::rgqt { % 8 6 16 14 bbox begingate 1.00 -1 24 2 Cr::lgqt endgate } def /Cr::dots { % 2 1 22 4 bbox begingate 1.00 0 -8 0 Cr::period 1.00 0 0 0 Cr::period 1.00 0 8 0 Cr::period endgate } def /Cr::perzer { % 3 4 21 18 bbox begingate 1.00 0 -1 0 Cr::percent 1 1.00 22 7 3 0.00 360.00 xcarc endgate } def /Cr::uqest { % 6 3 18 25 bbox begingate 1.00 180 25 29 Cr::question endgate } def /Cr::grave { % 9 28 13 4 bbox begingate 0 1.00 9 32 19 28 9 30 3 polygon endgate } def /Cr::acute { % 6 28 18 4 bbox begingate 1.00 -1 25 0 Cr::grave endgate } def /Cr::hat { % 8 28 16 4 bbox begingate 1 1.00 8 28 12 32 16 28 3 polygon endgate } def /Cr::tilchar { % 6 29 18 2 bbox begingate 1.00 0 0 15 Cr::tilde endgate } def /Cr::bar { % 8 31 16 0 bbox begingate 1 1.00 8 31 16 31 2 polygon endgate } def /Cr::uu { % 6 29 18 3 bbox begingate 1 1.00 6 32 7 30 9 29 13 29 15 30 16 32 6 polygon endgate } def /Cr::umlaut { % 7 29 19 2 bbox begingate 1 1.00 8 30 1 0.00 360.00 xcarc 1 1.00 15 30 1 0.00 360.00 xcarc endgate } def /Cr::circ { % 9 25 15 6 bbox begingate 1 1.00 12 28 3 0.00 360.00 xcarc endgate } def /Cr::cedilla { % 10 -6 14 6 bbox begingate 1 1.00 12 0 10 -2 14 -4 12 -6 4 polygon endgate } def /Cr::uml2 { % 5 26 19 6 bbox begingate 0 1.00 11 32 5 26 9 32 3 polygon 0 1.00 17 32 11 26 15 32 3 polygon endgate } def /Cr::ced2 { % 8 -4 16 4 bbox begingate 1 1.00 12 0 8 -2 10 -4 12 -3 4 polygon endgate } def /Cr::vee { % 7 28 17 4 bbox begingate 1 1.00 7 32 11 28 15 32 3 polygon endgate } def /Cr::Oslash { % 1 0 23 26 bbox begingate 1 1.00 1 0 21 26 2 polygon 1.00 0 0 0 Cr::O endgate } def /Cr::osl { % 4 0 20 18 bbox begingate 1 1.00 5 0 20 17 2 polygon 1.00 0 0 0 Cr::o endgate } def /Cr::sset { % 4 0 20 26 bbox begingate 1 1.00 14 16 19 14 22 10 22 4 18 0 14 0 11 1 7 polygon 1 1.00 4 0 8 0 8 20 10 24 13 26 17 26 20 24 20 20 18 17 14 16 12 16 11 polygon endgate } def /Cr::Agrave { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 -2 2 Cr::grave endgate } def /Cr::Aacute { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 2 2 Cr::acute endgate } def /Cr::Acircum { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 2 2 Cr::hat endgate } def /Cr::Atilde { % 4 0 20 31 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 2 0 Cr::tilchar endgate } def /Cr::Adier { % 4 0 20 33 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 2 2 Cr::umlaut endgate } def /Cr::Aring { % 4 0 20 35 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 2 4 Cr::circ endgate } def /Cr::Egrave { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::E 1.00 0 -2 2 Cr::grave endgate } def /Cr::Eacute { % 0 0 24 28 bbox begingate 1.00 0 0 0 Cr::E 1.00 0 0 2 Cr::acute endgate } def /Cr::Ecircum { % 0 0 24 28 bbox begingate 1.00 0 0 0 Cr::E 1.00 0 0 2 Cr::hat endgate } def /Cr::Edier { % 6 0 18 31 bbox begingate 1.00 0 0 0 Cr::E 1.00 0 0 0 Cr::umlaut endgate } def /Cr::Ccedil { % 0 0 24 26 bbox begingate 1.00 0 0 0 Cr::C 1.00 0 3 0 Cr::cedilla endgate } def /Cr::Igrave { % 6 0 18 33 bbox begingate 1.00 0 0 0 Cr::I 1.00 0 -2 1 Cr::grave endgate } def /Cr::Iacute { % 10 0 14 33 bbox begingate 1.00 0 0 0 Cr::I 1.00 0 1 1 Cr::acute endgate } def /Cr::Icircum { % 10 0 14 34 bbox begingate 1.00 0 0 0 Cr::I 1.00 0 0 2 Cr::hat endgate } def /Cr::Idier { % 10 0 14 32 bbox begingate 1.00 0 0 0 Cr::I 1.00 0 1 1 Cr::umlaut endgate } def /Cr::Otilde { % 2 0 22 31 bbox begingate 1.00 0 0 0 Cr::O 1.00 0 0 0 Cr::tilchar endgate } def /Cr::Ugrave { % 2 0 22 34 bbox begingate 1.00 0 0 0 Cr::U 1.00 0 -2 2 Cr::grave endgate } def /Cr::Uacute { % 2 0 22 34 bbox begingate 1.00 0 0 0 Cr::U 1.00 0 2 2 Cr::acute endgate } def /Cr::Ucircum { % 2 0 22 34 bbox begingate 1.00 0 0 0 Cr::U 1.00 0 0 2 Cr::hat endgate } def /Cr::Udier { % 2 0 22 33 bbox begingate 1.00 0 0 0 Cr::U 1.00 0 0 2 Cr::umlaut endgate } def /Cr::Ograve { % 2 0 22 34 bbox begingate 1.00 0 0 0 Cr::O 1.00 0 -2 2 Cr::grave endgate } def /Cr::Oacute { % 2 0 22 34 bbox begingate 1.00 0 0 0 Cr::O 1.00 0 0 2 Cr::acute endgate } def /Cr::Ocircum { % 2 0 22 34 bbox begingate 1.00 0 0 0 Cr::O 1.00 0 0 2 Cr::hat endgate } def /Cr::Odier { % 2 0 22 33 bbox begingate 1.00 0 0 0 Cr::O 1.00 0 0 2 Cr::umlaut endgate } def /Cr::Ntilde { % 2 0 22 31 bbox begingate 1.00 0 0 0 Cr::N 1.00 0 0 0 Cr::tilchar endgate } def /Cr::AE { % 4 0 20 26 bbox begingate 1 1.00 16 26 6 0 2 polygon 1 1.00 16 10 10 10 2 polygon 1 1.00 16 26 16 0 2 polygon 1 1.00 12 26 24 26 24 22 3 polygon 1 1.00 13 0 24 0 24 6 3 polygon 1 1.00 16 13 22 13 2 polygon 1 1.00 22 16 22 10 2 polygon 1 1.00 4 0 9 0 2 polygon endgate } def /Cr::Eth { % 3 0 21 26 bbox begingate 1.00 0 0 0 Cr::D 1 1.00 11 13 3 13 2 polygon endgate } def /Cr::Yacute { % 3 0 21 34 bbox begingate 1.00 0 0 0 Cr::Y 1.00 0 2 2 Cr::acute endgate } def /Cr::agrave { % 3 0 21 25 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 -3 -7 Cr::grave endgate } def /Cr::aacute { % 3 0 21 25 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 0 -7 Cr::acute endgate } def /Cr::acircum { % 3 0 21 25 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 -1 -7 Cr::hat endgate } def /Cr::atilde { % 3 0 21 23 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 -2 -8 Cr::tilchar endgate } def /Cr::adier { % 3 0 21 24 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 -1 -7 Cr::umlaut endgate } def /Cr::aring { % 3 0 21 29 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 0 -2 Cr::circ endgate } def /Cr::ntilde { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::n 1.00 0 -1 -7 Cr::tilchar endgate } def /Cr::egrave { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::e 1.00 0 -2 -7 Cr::grave endgate } def /Cr::eacute { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::e 1.00 0 1 -7 Cr::acute endgate } def /Cr::ecircum { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::e 1.00 0 0 -7 Cr::hat endgate } def /Cr::edier { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::e 1.00 0 1 -7 Cr::umlaut endgate } def /Cr::ae { % 3 0 21 17 bbox begingate 1 1.00 12 2 9 0 6 0 3 2 3 6 6 9 12 9 7 polygon 1 1.00 4 15 6 17 10 17 12 15 4 polygon 1 1.00 12 13 12 5 13 2 15 0 18 0 21 2 6 polygon 1 1.00 12 13 13 16 15 17 18 17 20 16 21 13 21 9 12 9 8 polygon endgate } def /Cr::igrave { % 5 0 19 26 bbox begingate 1.00 0 -4 -6 Cr::grave 1 1.00 6 0 20 0 2 polygon 1 1.00 8 18 13 18 13 0 3 polygon endgate } def /Cr::iacute { % 6 0 18 26 bbox begingate 1.00 0 0 -6 Cr::acute 1 1.00 6 0 18 0 2 polygon 1 1.00 8 18 12 18 12 0 3 polygon endgate } def /Cr::icircum { % 6 0 18 26 bbox begingate 1.00 0 -2 -6 Cr::hat 1 1.00 6 0 18 0 2 polygon 1 1.00 8 18 12 18 12 0 3 polygon endgate } def /Cr::idier { % 4 0 20 25 bbox begingate 1.00 0 -2 -6 Cr::umlaut 1 1.00 6 18 10 18 10 0 3 polygon 1 1.00 4 0 16 0 2 polygon endgate } def /Cr::ydier { % 2 -6 22 31 bbox begingate 1.00 0 0 0 Cr::y 1.00 0 0 -6 Cr::umlaut endgate } def /Cr::yacute { % 2 -6 22 31 bbox begingate 1.00 0 0 0 Cr::y 1.00 0 0 -7 Cr::acute endgate } def /Cr::ograve { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::o 1.00 0 -2 -7 Cr::grave endgate } def /Cr::oacute { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::o 1.00 0 0 -7 Cr::acute endgate } def /Cr::ocircum { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::o 1.00 0 0 -6 Cr::hat endgate } def /Cr::otilde { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::o 1.00 0 0 -7 Cr::tilchar endgate } def /Cr::odier { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::o 1.00 0 0 -6 Cr::umlaut endgate } def /Cr::eth { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::o 1 1.00 18 16 12 24 6 26 3 polygon 1 1.00 14 26 8 22 2 polygon endgate } def /Cr::ugrave { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::u 1.00 0 -2 -6 Cr::grave endgate } def /Cr::uacute { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::u 1.00 0 0 -6 Cr::acute endgate } def /Cr::ucircum { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::u 1.00 0 0 -6 Cr::hat endgate } def /Cr::udier { % 4 0 20 25 bbox begingate 1.00 0 0 0 Cr::u 1.00 0 0 -6 Cr::umlaut endgate } def /Cr::ccedil { % 4 -6 20 24 bbox begingate 1.00 0 2 0 Cr::cedilla 1.00 0 2 0 Cr::c endgate } def /Cr::ordfem { % 5 20 19 10 bbox begingate 0.60 0 4 20 Cr::a endgate } def /Cr::Lslash { % 6 0 18 26 bbox begingate 1.00 0 4 0 Cr::L 1 1.00 18 19 6 11 2 polygon endgate } def /Cr::ordmasc { % 4 18 20 9 bbox begingate 0.60 0 2 18 Cr::o endgate } def /Cr::lslash { % 10 0 14 26 bbox begingate 1.00 0 6 0 Cr::l 1 1.00 21 16 15 12 2 polygon endgate } def /Cr::OE { % 4 0 20 26 bbox begingate 1 1.00 24 0 14 0 14 26 24 26 4 polygon 1 1.00 20 14 14 14 2 polygon 1 1.00 14 26 10 26 6 22 4 16 4 10 6 4 10 0 14 0 8 polygon 1 1.00 20 18 20 10 2 polygon 1 1.00 24 6 24 0 2 polygon 1 1.00 24 20 24 26 2 polygon endgate } def /Cr::oe { % 3 0 21 18 bbox begingate 1 1.00 24 4 23 2 21 0 17 0 15 2 14 6 14 12 15 16 17 18 21 18 23 16 24 12 24 10 14 10 14 polygon 1 1.00 14 12 13 16 11 18 7 18 5 16 3 12 3 6 5 2 7 0 11 0 13 2 14 6 12 polygon endgate } def /Cr::emdash { % 2 10 22 0 bbox begingate 1 1.00 2 10 22 10 2 polygon endgate } def /Cr::pm { % 4 10 20 17 bbox begingate 1.00 0 0 3 Cr::plus 1.00 0 0 -6 Cr::minus endgate } def /Cr::onesup { % 8 18 16 15 bbox begingate 0.60 0 4 18 Cr::one endgate } def /Cr::twosup { % 4 18 20 15 bbox begingate 0.60 0 2 18 Cr::two endgate } def /Cr::threesup { % 4 18 20 15 bbox begingate 0.60 0 2 18 Cr::three endgate } def /Cr::quarter { % 4 0 20 27 bbox begingate 0.60 0 10 0 Cr::four 0.60 0 0 12 Cr::one 1 1.00 4 0 20 24 2 polygon endgate } def /Cr::half { % 2 0 22 27 bbox begingate 0.60 0 -2 12 Cr::one 0.60 0 10 0 Cr::two 1 1.00 2 0 18 24 2 polygon endgate } def /Cr::threeq { % 2 0 22 27 bbox begingate 0.60 0 0 12 Cr::three 0.60 0 10 0 Cr::four 1 1.00 5 0 21 24 2 polygon endgate } def /Cr::copy { % 2 4 22 20 bbox begingate 0.50 0 5 7 Cr::C 1 1.00 12 14 10 0.00 360.00 xcarc endgate } def /Cr::regis { % 4 4 20 20 bbox begingate 0.48 0 8 8 Cr::R 1 1.00 14 14 10 0.00 360.00 xcarc endgate } def /Cr::mu { % 4 -8 20 26 bbox begingate 1.00 0 0 0 Cr::u 1 1.00 6 -8 6 4 2 polygon endgate } def /Cr::lognot { % 3 8 21 8 bbox begingate 1 1.00 3 16 19 16 19 8 3 polygon endgate } def /Cr::times { % 5 6 19 12 bbox begingate 1 1.00 5 6 17 18 2 polygon 1 1.00 5 18 17 6 2 polygon endgate } def /Cr::divide { % 5 4 19 16 bbox begingate 1 1.00 5 12 21 12 2 polygon 1.00 0 1 15 Cr::period 1.00 0 1 3 Cr::period endgate } def /Cr::thorn { % 2 -6 22 30 bbox begingate 1.00 0 -2 0 Cr::p 1 1.00 4 16 4 24 2 24 3 polygon endgate } def /Cr::Thorn { % 3 0 21 26 bbox begingate 1 1.00 6 7 14 7 18 9 19 13 18 17 14 19 6 19 7 polygon 1 1.00 3 0 10 0 2 polygon 1 1.00 6 0 6 26 2 polygon 1 1.00 3 26 10 26 2 polygon endgate } def /Cr::onesmall { % 9 4 15 19 bbox begingate 0.75 0 3 4 Cr::one endgate } def /Cr::dash { % 8 12 16 0 bbox begingate 1 1.00 8 12 16 12 2 polygon endgate } def % EndLib xcircuit-3.9.73/lib/fonts/times_romaniso5.xfe0000664000175000001440000000562412335667423017723 0ustar timusers% XCircuit Font encoding (XFE) file name: Times-RomanISO5 % file: times_roman.lps file: times_romaniso5.lps family: Times-Roman weight: normal shape: normal type: PostScript encoding: ISOLatin5 TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::space TR::exclam TR::quote TR::pound TR::dollar TR::percent TR::ampersand TR::apostrophe TR::lparen TR::rparen TR::asterisk TR::plus TR::comma TR::minus TR::period TR::slash TR::zero TR::one TR::two TR::three TR::four TR::five TR::six TR::seven TR::eight TR::nine TR::colon TR::semi TR::less TR::equal TR::more TR::question TR::at TR::A TR::B TR::C TR::D TR::E TR::F TR::G TR::H TR::I TR::J TR::K TR::L TR::M TR::N TR::O TR::P TR::Q TR::R TR::S TR::T TR::U TR::V TR::W TR::X TR::Y TR::Z TR::lbracket TR::backslash TR::rbracket TR::caret TR::underscore TR::apostrophe TR::a TR::b TR::c TR::d TR::e TR::f TR::g TR::h TR::i TR::j TR::k TR::l TR::m TR::n TR::o TR::p TR::q TR::r TR::s TR::t TR::u TR::v TR::w TR::x TR::y TR::z TR::lbrace TR::vbar TR::rbrace TR::tilde TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::onesmall TR::grave TR::acute TR::hat TR::tilde TR::bar TR::uu TR::dot TR::umlaut TR::nullchar TR::circ TR::cedilla TR::nullchar TR::uml2 TR::ced2 TR::vee TR::space TR::upexclam TR::cent TR::lb TR::sy2 TR::yen TR::vbar TR::sy1 TR::umlaut TR::copy TR::ordfem TR::lgqt TR::lognot TR::dash TR::regis TR::bar TR::circ TR::pm TR::twosup TR::threesup TR::acute TR::mu TR::para TR::dot TR::cedilla TR::onesup TR::ordmasc TR::rgqt TR::quarter TR::half TR::threeq TR::uqest TR::Agrave TR::Aacute TR::Acircum TR::Atilde TR::Adier TR::Aring TR::AE TR::Ccedil TR::Egrave TR::Eacute TR::Ecircum TR::Edier TR::Igrave TR::Iacute TR::Icircum TR::Idier TR::Guu TR::Ntilde TR::Ograve TR::Oacute TR::Ocircum TR::Otilde TR::Odier TR::times TR::Oslash TR::Ugrave TR::Uacute TR::Ucircum TR::Udier TR::Idot TR::Scedil TR::sset TR::agrave TR::aacute TR::acircum TR::atilde TR::adier TR::aring TR::ae TR::ccedil TR::egrave TR::eacute TR::ecircum TR::edier TR::igrave TR::iacute TR::icircum TR::idier TR::guu TR::ntilde TR::ograve TR::oacute TR::ocircum TR::otilde TR::odier TR::divide TR::osl TR::ugrave TR::uacute TR::ucircum TR::udier TR::dotlessi TR::scedil TR::ydier derived: Times-BoldISO5 bold normal PostScript derived: Times-ItalicISO5 normal italic PostScript derived: Times-BoldItalicISO5 bold italic PostScript xcircuit-3.9.73/lib/fonts/myfont.xfe0000664000175000001440000000667112335667423016125 0ustar timusers% XCircuit Font encoding (XFE) file name: MyFont % Font name file: myfont.lps % Font object file family: MyFont weight: normal shape: normal scale: 0.085 type: vectored % Font type (PostScript or vectored) encoding: special % Encoding (Standard, ISOLatin1, or special) my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::space my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::A my::B my::C my::D my::E my::F my::G my::H my::I my::J my::K my::L my::M my::N my::O my::P my::Q my::R my::S my::T my::U my::V my::W my::X my::Y my::Z my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::a my::b my::c my::d my::e my::f my::g my::h my::i my::j my::k my::l my::m my::n my::o my::p my::q my::r my::s my::t my::u my::v my::w my::x my::y my::z my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar my::nullchar derived: MyFont-Slant normal italic Special xcircuit-3.9.73/lib/fonts/courieriso5.xfe0000664000175000001440000000561212335667423017053 0ustar timusers% XCircuit Font encoding (XFE) file name: CourierISO5 % file: courier.lps file: courieriso5.lps family: Courier weight: normal shape: normal type: PostScript encoding: ISOLatin5 Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::space Cr::exclam Cr::quote Cr::pound Cr::dollar Cr::percent Cr::ampersand Cr::apostrophe Cr::lparen Cr::rparen Cr::asterisk Cr::plus Cr::comma Cr::minus Cr::period Cr::slash Cr::zero Cr::one Cr::two Cr::three Cr::four Cr::five Cr::six Cr::seven Cr::eight Cr::nine Cr::colon Cr::semi Cr::less Cr::equal Cr::more Cr::question Cr::at Cr::A Cr::B Cr::C Cr::D Cr::E Cr::F Cr::G Cr::H Cr::I Cr::J Cr::K Cr::L Cr::M Cr::N Cr::O Cr::P Cr::Q Cr::R Cr::S Cr::T Cr::U Cr::V Cr::W Cr::X Cr::Y Cr::Z Cr::lbracket Cr::backslash Cr::rbracket Cr::caret Cr::underscore Cr::apostrophe Cr::a Cr::b Cr::c Cr::d Cr::e Cr::f Cr::g Cr::h Cr::i Cr::j Cr::k Cr::l Cr::m Cr::n Cr::o Cr::p Cr::q Cr::r Cr::s Cr::t Cr::u Cr::v Cr::w Cr::x Cr::y Cr::z Cr::lbrace Cr::vbar Cr::rbrace Cr::tilde Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::onesmall Cr::grave Cr::acute Cr::hat Cr::tilde Cr::bar Cr::uu Cr::dot Cr::umlaut Cr::nullchar Cr::circ Cr::cedilla Cr::nullchar Cr::uml2 Cr::ced2 Cr::vee Cr::space Cr::upexclam Cr::cent Cr::lb Cr::sy2 Cr::yen Cr::vbar Cr::sy1 Cr::umlaut Cr::copy Cr::ordfem Cr::lgqt Cr::lognot Cr::dash Cr::regis Cr::bar Cr::circ Cr::pm Cr::twosup Cr::threesup Cr::acute Cr::mu Cr::para Cr::dot Cr::cedilla Cr::onesup Cr::ordmasc Cr::rgqt Cr::quarter Cr::half Cr::threeq Cr::uqest Cr::Agrave Cr::Aacute Cr::Acircum Cr::Atilde Cr::Adier Cr::Aring Cr::AE Cr::Ccedil Cr::Egrave Cr::Eacute Cr::Ecircum Cr::Edier Cr::Igrave Cr::Iacute Cr::Icircum Cr::Idier Cr::Guu Cr::Ntilde Cr::Ograve Cr::Oacute Cr::Ocircum Cr::Otilde Cr::Odier Cr::times Cr::Oslash Cr::Ugrave Cr::Uacute Cr::Ucircum Cr::Udier Cr::Idot Cr::Scedil Cr::sset Cr::agrave Cr::aacute Cr::acircum Cr::atilde Cr::adier Cr::aring Cr::ae Cr::ccedil Cr::egrave Cr::eacute Cr::ecircum Cr::edier Cr::igrave Cr::iacute Cr::icircum Cr::idier Cr::guu Cr::ntilde Cr::ograve Cr::oacute Cr::ocircum Cr::otilde Cr::odier Cr::divide Cr::osl Cr::ugrave Cr::uacute Cr::ucircum Cr::udier Cr::dotlessi Cr::scedil Cr::ydier derived: Courier-BoldISO5 bold normal PostScript derived: Courier-ItalicISO5 normal italic PostScript derived: Courier-BoldItalicISO5 bold italic PostScript xcircuit-3.9.73/lib/fonts/courier.xfe0000664000175000001440000000571412335667423016256 0ustar timusers% XCircuit Font encoding (XFE) file name: Courier file: courier.lps family: Courier weight: normal shape: normal type: PostScript encoding: Standard Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::space Cr::exclam Cr::quote Cr::pound Cr::dollar Cr::percent Cr::ampersand Cr::apostrophe Cr::lparen Cr::rparen Cr::asterisk Cr::plus Cr::comma Cr::minus Cr::period Cr::slash Cr::zero Cr::one Cr::two Cr::three Cr::four Cr::five Cr::six Cr::seven Cr::eight Cr::nine Cr::colon Cr::semi Cr::less Cr::equal Cr::more Cr::question Cr::at Cr::A Cr::B Cr::C Cr::D Cr::E Cr::F Cr::G Cr::H Cr::I Cr::J Cr::K Cr::L Cr::M Cr::N Cr::O Cr::P Cr::Q Cr::R Cr::S Cr::T Cr::U Cr::V Cr::W Cr::X Cr::Y Cr::Z Cr::lbracket Cr::backslash Cr::rbracket Cr::caret Cr::underscore Cr::apostrophe Cr::a Cr::b Cr::c Cr::d Cr::e Cr::f Cr::g Cr::h Cr::i Cr::j Cr::k Cr::l Cr::m Cr::n Cr::o Cr::p Cr::q Cr::r Cr::s Cr::t Cr::u Cr::v Cr::w Cr::x Cr::y Cr::z Cr::lbrace Cr::vbar Cr::rbrace Cr::tilde Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::upexclam Cr::cent Cr::lb Cr::aslash Cr::yen Cr::itf Cr::sy1 Cr::sy2 Cr::apos2 Cr::lqt Cr::lgqt Cr::lsang Cr::rsang Cr::fi Cr::fl Cr::nullchar Cr::minus Cr::dag Cr::ddag Cr::dot Cr::nullchar Cr::para Cr::bullet Cr::comma2 Cr::rqt2 Cr::rqt Cr::rgqt Cr::dots Cr::perzer Cr::nullchar Cr::uqest Cr::nullchar Cr::grave Cr::acute Cr::hat Cr::tilchar Cr::bar Cr::uu Cr::dot Cr::umlaut Cr::nullchar Cr::circ Cr::cedilla Cr::nullchar Cr::uml2 Cr::ced2 Cr::vee Cr::emdash Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::AE Cr::nullchar Cr::ordfem Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::Lslash Cr::Oslash Cr::OE Cr::ordmasc Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::ae Cr::nullchar Cr::nullchar Cr::nullchar Cr::onesup Cr::nullchar Cr::nullchar Cr::lslash Cr::osl Cr::oe Cr::sset Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar derived: Courier-Bold bold normal PostScript derived: Courier-Italic normal italic PostScript derived: Courier-BoldItalic bold italic PostScript xcircuit-3.9.73/lib/fonts/times_roman.xfe0000664000175000001440000000571712335667423017126 0ustar timusers% XCircuit Font encoding (XFE) file name: Times-Roman file: times_roman.lps family: Times-Roman weight: normal shape: normal type: PostScript encoding: Standard TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::space TR::exclam TR::quote TR::pound TR::dollar TR::percent TR::ampersand TR::apostrophe TR::lparen TR::rparen TR::asterisk TR::plus TR::comma TR::minus TR::period TR::slash TR::zero TR::one TR::two TR::three TR::four TR::five TR::six TR::seven TR::eight TR::nine TR::colon TR::semi TR::less TR::equal TR::more TR::question TR::at TR::A TR::B TR::C TR::D TR::E TR::F TR::G TR::H TR::I TR::J TR::K TR::L TR::M TR::N TR::O TR::P TR::Q TR::R TR::S TR::T TR::U TR::V TR::W TR::X TR::Y TR::Z TR::lbracket TR::backslash TR::rbracket TR::caret TR::underscore TR::apostrophe TR::a TR::b TR::c TR::d TR::e TR::f TR::g TR::h TR::i TR::j TR::k TR::l TR::m TR::n TR::o TR::p TR::q TR::r TR::s TR::t TR::u TR::v TR::w TR::x TR::y TR::z TR::lbrace TR::vbar TR::rbrace TR::tilde TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::upexclam TR::cent TR::lb TR::aslash TR::yen TR::itf TR::sy1 TR::sy2 TR::apos2 TR::lqt TR::lgqt TR::lsang TR::rsang TR::fi TR::fl TR::nullchar TR::minus TR::dag TR::ddag TR::dot TR::nullchar TR::para TR::bullet TR::comma2 TR::rqt2 TR::rqt TR::rgqt TR::dots TR::perzer TR::nullchar TR::uqest TR::nullchar TR::grave TR::acute TR::hat TR::tilchar TR::bar TR::uu TR::dot TR::umlaut TR::nullchar TR::circ TR::cedilla TR::nullchar TR::uml2 TR::ced2 TR::vee TR::emdash TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::AE TR::nullchar TR::ordfem TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::Lslash TR::Oslash TR::OE TR::ordmasc TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::ae TR::nullchar TR::nullchar TR::nullchar TR::onesup TR::nullchar TR::nullchar TR::lslash TR::osl TR::oe TR::sset TR::nullchar TR::nullchar TR::nullchar TR::nullchar derived: Times-Bold bold normal PostScript derived: Times-Italic normal italic PostScript derived: Times-BoldItalic bold italic PostScript xcircuit-3.9.73/lib/fonts/courieriso5.lps0000664000175000001440000000132412335667423017063 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Cr % Version: 2.0 % % % XCircuitLib library built-in objects /Cr::Guu { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::G 1.00 0 0 2 Cr::uu endgate } def /Cr::Idot { % 4 0 20 37 bbox begingate 1.00 0 0 0 Cr::I 1.00 0 1 12 Cr::dot endgate } def /Cr::Scedil { % 4 -6 20 32 bbox begingate 1.00 0 0 0 Cr::S 1.00 0 1 0 Cr::cedilla endgate } def /Cr::scedil { % 4 -6 20 22 bbox begingate 1.00 0 0 0 Cr::s 1.00 0 4 0 Cr::cedilla endgate } def /Cr::guu { % 4 -6 20 30 bbox begingate 1.00 0 0 0 Cr::g 1.00 0 2 -8 Cr::uu endgate } def /Cr::dotlessi { % 6 0 18 24 bbox begingate 1 1.00 6 0 18 0 2 polygon 1 1.00 12 0 12 18 8 18 3 polygon endgate } def % EndLib xcircuit-3.9.73/lib/fonts/helvetica.lps0000664000175000001440000005741112335667423016567 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Hv % Version: 2.0 % % % XCircuitLib library built-in objects /Hv::nullchar { % 0 0 24 32 bbox begingate 0 1.00 0 0 0 32 24 32 24 0 4 polygon endgate } def /Hv::space { % 0 0 14 26 bbox begingate endgate } def /Hv::exclam { % 5 -1 4 29 bbox begingate 1 1.00 6 0 1 0.00 360.00 xcarc 0 1.00 7 28 6 5 5 28 3 polygon endgate } def /Hv::quote { % 5 21 10 6 bbox begingate 0 1.00 5 27 6 21 7 27 3 polygon 0 1.00 10 27 11 21 12 27 3 polygon endgate } def /Hv::pound { % 3 0 19 26 bbox begingate 1 1.00 4 17 20 17 2 polygon 1 1.00 14 0 18 26 2 polygon 1 1.00 6 0 10 26 2 polygon 1 1.00 3 9 19 9 2 polygon endgate } def /Hv::dollar { % 3 -4 20 30 bbox begingate 1 1.00 4 4 5 2 9 0 13 0 17 2 19 4 19 7 17 10 6 12 3 15 3 18 5 20 9 22 13 22 17 20 18 18 16 polygon 1 1.00 11 -4 11 26 2 polygon endgate } def /Hv::percent { % 3 0 20 25 bbox begingate 1 1.00 13 0 11 2 11 6 13 8 15 8 17 6 17 2 15 0 13 0 9 polygon 1 1.00 3 0 17 25 2 polygon 1 1.00 5 17 3 19 3 23 5 25 7 25 9 23 9 19 7 17 5 17 9 polygon endgate } def /Hv::ampersand { % 3 0 20 26 bbox begingate 1 1.00 19 0 5 20 5 24 7 26 11 26 13 24 13 20 11 18 5 14 3 10 3 6 5 2 9 0 11 0 15 2 18 5 19 8 17 polygon endgate } def /Hv::period { % 4 0 6 3 bbox begingate 240 1.00 4 3 4 0 7 0 7 3 4 polygon endgate } def /Hv::apostrophe { % 3 20 8 7 bbox begingate 1 1.00 4 20 6 22 6 24 3 polygon 1.00 0 -1 24 Hv::period endgate } def /Hv::lparen { % 4 -5 7 32 bbox begingate 1 1.00 10 -5 6 0 4 6 4 16 6 22 10 27 6 polygon endgate } def /Hv::rparen { % 4 -5 10 32 bbox begingate 1 1.00 4 -5 8 0 10 6 10 16 8 22 4 27 6 polygon endgate } def /Hv::asterisk { % 3 14 12 18 bbox begingate 1 1.00 8 18 8 22 2 polygon 1 1.00 8 18 13 20 2 polygon 1 1.00 8 18 3 20 2 polygon 1 1.00 8 18 5 14 2 polygon 1 1.00 8 18 11 14 2 polygon endgate } def /Hv::plus { % 2 6 22 12 bbox begingate 1 1.00 10 4 10 20 2 polygon 1 1.00 2 12 18 12 2 polygon endgate } def /Hv::comma { % 8 -4 5 6 bbox begingate 1.00 0 4 -24 Hv::apostrophe endgate } def /Hv::minus { % 2 12 20 0 bbox begingate 1 1.00 4 12 16 12 2 polygon endgate } def /Hv::slash { % 4 0 10 26 bbox begingate 1 1.00 4 0 14 26 2 polygon endgate } def /Hv::zero { % 4 0 18 26 bbox begingate 1 1.00 10 0 6 4 4 10 4 16 6 22 10 26 16 26 20 22 22 16 22 10 20 4 16 0 10 0 13 polygon endgate } def /Hv::one { % 5 0 9 26 bbox begingate 1 1.00 10 0 10 26 8 22 5 20 4 polygon endgate } def /Hv::two { % 4 0 19 26 bbox begingate 1 1.00 22 0 4 0 8 4 20 12 22 16 22 20 20 24 16 26 12 26 8 24 6 22 11 polygon endgate } def /Hv::three { % 4 0 16 26 bbox begingate 1 1.00 4 4 6 2 10 0 14 0 18 2 20 6 20 10 16 14 12 14 9 polygon 1 1.00 16 14 20 18 20 20 18 24 14 26 10 26 6 24 4 22 8 polygon endgate } def /Hv::four { % 4 0 21 26 bbox begingate 1 1.00 20 0 20 26 4 8 22 8 4 polygon endgate } def /Hv::five { % 4 0 18 26 bbox begingate 1 1.00 4 2 8 0 14 0 18 2 20 6 20 12 18 16 14 18 8 18 4 16 6 26 18 26 12 polygon endgate } def /Hv::six { % 4 0 18 26 bbox begingate 1 1.00 20 24 16 26 10 26 6 22 4 16 4 10 6 4 10 0 16 0 20 2 22 6 22 12 20 16 16 18 10 18 6 16 4 14 17 polygon endgate } def /Hv::seven { % 4 0 16 26 bbox begingate 1 1.00 10 0 10 4 12 12 20 26 4 26 5 polygon endgate } def /Hv::eight { % 4 0 20 26 bbox begingate 1 1.00 10 0 6 2 4 4 4 8 8 12 18 16 20 20 20 22 16 26 10 26 6 22 6 20 8 16 18 12 22 8 22 4 20 2 16 0 10 0 19 polygon endgate } def /Hv::nine { % 4 0 18 26 bbox begingate 1 1.00 6 2 10 0 16 0 20 4 22 10 22 18 20 24 16 26 10 26 6 24 4 20 4 16 6 12 10 10 16 10 20 12 22 14 17 polygon endgate } def /Hv::colon { % 4 0 9 11 bbox begingate 1.00 0 2 14 Hv::period 1.00 0 2 0 Hv::period endgate } def /Hv::semi { % 4 -4 6 23 bbox begingate 1.00 0 0 16 Hv::period 1.00 0 1 -24 Hv::apostrophe endgate } def /Hv::less { % 4 6 20 12 bbox begingate 1 1.00 19 5 4 12 19 19 3 polygon endgate } def /Hv::equal { % 2 8 19 6 bbox begingate 1 1.00 4 8 20 8 2 polygon 1 1.00 4 14 20 14 2 polygon endgate } def /Hv::more { % 4 6 20 12 bbox begingate 1 1.00 4 5 20 12 4 19 3 polygon endgate } def /Hv::question { % 4 0 20 26 bbox begingate 1.00 0 4 0 Hv::period 1 1.00 4 22 8 26 14 26 18 22 18 18 16 14 12 12 10 10 10 8 9 polygon endgate } def /Hv::at { % 4 0 30 26 bbox begingate 1 1.00 26 2 18 0 14 0 10 2 6 6 4 10 4 16 6 20 10 24 14 26 20 26 24 24 28 20 30 16 30 12 28 8 26 6 24 5 21 5 20 8 22 20 21 polygon 1 1.00 21 16 20 19 17 20 14 19 11 15 11 10 14 7 17 6 20 7 9 polygon endgate } def /Hv::A { % 4 0 24 26 bbox begingate 1 1.00 4 0 14 26 24 0 3 polygon 1 1.00 8 10 20 10 2 polygon endgate } def /Hv::B { % 4 0 23 26 bbox begingate 1 1.00 4 0 4 26 14 26 19 24 21 20 21 18 17 14 4 14 8 polygon 1 1.00 4 0 17 0 21 2 23 6 23 8 21 12 17 14 7 polygon endgate } def /Hv::C { % 4 0 24 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 24 22 9 polygon 1 1.00 18 0 24 4 2 polygon endgate } def /Hv::D { % 4 0 24 26 bbox begingate 1 1.00 4 0 16 0 22 4 24 10 24 16 22 22 16 26 4 26 4 0 9 polygon endgate } def /Hv::E { % 4 0 22 26 bbox begingate 1 1.00 22 0 4 0 4 26 22 26 4 polygon 1 1.00 4 14 18 14 2 polygon endgate } def /Hv::F { % 4 0 20 26 bbox begingate 1 1.00 4 0 4 26 20 26 3 polygon 1 1.00 4 14 16 14 2 polygon endgate } def /Hv::G { % 4 0 26 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 24 22 9 polygon 1 1.00 18 0 24 2 26 6 26 12 18 12 5 polygon endgate } def /Hv::H { % 4 0 27 26 bbox begingate 1 1.00 4 0 4 26 2 polygon 1 1.00 23 0 23 26 2 polygon 1 1.00 4 14 23 14 2 polygon endgate } def /Hv::I { % 6 0 5 26 bbox begingate 1 1.00 6 0 6 26 2 polygon endgate } def /Hv::J { % 4 0 21 26 bbox begingate 1 1.00 4 6 6 2 10 0 12 0 16 2 18 6 18 26 7 polygon endgate } def /Hv::K { % 4 0 22 26 bbox begingate 1 1.00 4 0 4 26 2 polygon 1 1.00 22 26 4 10 2 polygon 1 1.00 22 0 10 14 2 polygon endgate } def /Hv::L { % 4 0 20 26 bbox begingate 1 1.00 4 26 4 0 20 0 3 polygon endgate } def /Hv::M { % 4 0 28 26 bbox begingate 1 1.00 4 0 4 26 16 0 28 26 28 0 5 polygon endgate } def /Hv::N { % 4 0 24 26 bbox begingate 1 1.00 4 0 4 26 24 0 24 26 4 polygon endgate } def /Hv::O { % 4 0 26 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 24 22 9 polygon 1 1.00 18 0 24 4 26 10 26 16 24 22 5 polygon endgate } def /Hv::P { % 4 0 21 26 bbox begingate 1 1.00 4 0 4 26 17 26 21 22 21 18 17 14 4 14 7 polygon endgate } def /Hv::Q { % 4 0 26 26 bbox begingate 1 1.00 23 0 14 6 2 polygon 1.00 0 0 0 Hv::O endgate } def /Hv::R { % 4 0 23 26 bbox begingate 1 1.00 4 0 4 26 17 26 21 22 21 18 17 14 4 14 7 polygon 1 1.00 12 14 23 0 2 polygon endgate } def /Hv::S { % 4 0 22 26 bbox begingate 1 1.00 4 6 6 2 10 0 16 0 20 2 22 6 22 8 18 12 6 18 4 20 4 22 6 24 10 26 16 26 20 24 15 polygon endgate } def /Hv::T { % 4 0 22 26 bbox begingate 1 1.00 13 0 13 26 2 polygon 1 1.00 4 26 22 26 2 polygon endgate } def /Hv::U { % 4 0 25 26 bbox begingate 1 1.00 4 26 4 8 6 4 8 2 12 0 17 0 21 2 23 4 25 8 25 26 10 polygon endgate } def /Hv::V { % 4 0 26 26 bbox begingate 1 1.00 4 26 15 0 26 26 3 polygon endgate } def /Hv::W { % 4 0 36 26 bbox begingate 1 1.00 4 26 12 0 20 26 28 0 36 26 5 polygon endgate } def /Hv::X { % 4 0 24 26 bbox begingate 1 1.00 4 0 24 26 2 polygon 1 1.00 4 26 24 0 2 polygon endgate } def /Hv::Y { % 4 0 24 26 bbox begingate 1 1.00 4 26 14 14 14 0 3 polygon 1 1.00 24 26 14 14 2 polygon endgate } def /Hv::Z { % 4 0 22 26 bbox begingate 1 1.00 4 26 22 26 4 0 22 0 4 polygon endgate } def /Hv::lbracket { % 4 -2 5 30 bbox begingate 1 1.00 10 -2 4 -2 4 28 10 28 4 polygon endgate } def /Hv::backslash { % 4 0 10 26 bbox begingate 1 1.00 14 0 4 26 2 polygon endgate } def /Hv::rbracket { % 4 -2 6 30 bbox begingate 1 1.00 4 -2 10 -2 10 28 4 28 4 polygon endgate } def /Hv::caret { % 4 20 12 6 bbox begingate 1 1.00 4 20 10 26 16 20 3 polygon endgate } def /Hv::underscore { % 4 0 20 0 bbox begingate 1 1.00 4 0 24 0 2 polygon endgate } def /Hv::a { % 4 0 18 16 bbox begingate 1 1.00 20 0 18 2 18 12 14 16 8 16 6 14 6 polygon 1 1.00 18 2 14 0 8 0 4 2 4 4 8 8 18 8 7 polygon endgate } def /Hv::b { % 4 0 16 26 bbox begingate 1 1.00 4 0 4 26 2 polygon 1 1.00 4 2 8 0 12 0 16 2 18 6 18 10 16 14 12 16 8 16 4 14 10 polygon endgate } def /Hv::c { % 4 0 16 16 bbox begingate 1 1.00 18 2 14 0 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 10 polygon endgate } def /Hv::d { % 4 0 16 26 bbox begingate 1 1.00 18 2 14 0 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 10 polygon 1 1.00 18 0 18 26 2 polygon endgate } def /Hv::e { % 4 0 18 16 bbox begingate 1 1.00 18 2 14 0 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 10 polygon 1 1.00 4 8 20 8 20 10 18 14 4 polygon endgate } def /Hv::f { % 4 0 12 26 bbox begingate 1 1.00 8 0 8 24 10 26 14 26 4 polygon 1 1.00 4 18 12 18 2 polygon endgate } def /Hv::g { % 4 -6 16 22 bbox begingate 1 1.00 18 2 14 0 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 10 polygon 1 1.00 6 -4 8 -6 14 -6 18 -4 18 16 5 polygon endgate } def /Hv::h { % 4 0 16 26 bbox begingate 1 1.00 4 0 4 26 2 polygon 1 1.00 4 14 8 16 14 16 18 12 18 0 5 polygon endgate } def /Hv::i { % 6 0 2 22 bbox begingate 1 1.00 6 0 6 16 2 polygon 1 1.00 6 21 6 22 2 polygon endgate } def /Hv::j { % 1 -6 10 28 bbox begingate 1 1.00 1 -6 4 -6 6 -4 6 16 4 polygon 1 1.00 6 21 6 22 2 polygon endgate } def /Hv::k { % 4 0 16 26 bbox begingate 1 1.00 4 0 4 26 2 polygon 1 1.00 4 8 16 16 2 polygon 1 1.00 18 0 8 10 2 polygon endgate } def /Hv::l { % 3 0 6 26 bbox begingate 1 1.00 3 0 3 26 2 polygon endgate } def /Hv::m { % 4 0 30 16 bbox begingate 1 1.00 4 0 4 16 2 polygon 1 1.00 4 14 9 16 14 16 17 14 17 0 5 polygon 1 1.00 17 14 22 16 27 16 30 14 30 0 5 polygon endgate } def /Hv::n { % 4 0 16 16 bbox begingate 1 1.00 4 0 4 16 2 polygon 1 1.00 4 14 8 16 14 16 18 12 18 0 5 polygon endgate } def /Hv::o { % 4 0 16 16 bbox begingate 1 1.00 10 0 6 2 4 6 4 10 6 14 10 16 12 16 16 14 18 10 18 6 16 2 12 0 10 0 13 polygon endgate } def /Hv::p { % 4 -6 16 22 bbox begingate 1 1.00 4 2 8 0 12 0 16 2 18 6 18 10 16 14 12 16 8 16 4 14 10 polygon 1 1.00 4 16 4 -6 2 polygon endgate } def /Hv::q { % 4 -6 17 22 bbox begingate 1 1.00 18 2 14 0 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 10 polygon 1 1.00 18 16 18 -6 2 polygon endgate } def /Hv::r { % 4 0 12 16 bbox begingate 1 1.00 4 0 4 16 2 polygon 1 1.00 4 14 8 16 12 16 14 14 4 polygon endgate } def /Hv::s { % 4 0 16 16 bbox begingate 1 1.00 4 2 8 0 14 0 18 2 18 4 16 6 6 10 4 12 4 14 8 16 14 16 18 14 12 polygon endgate } def /Hv::t { % 4 0 10 26 bbox begingate 1 1.00 4 18 12 18 2 polygon 1 1.00 8 26 8 2 10 0 12 0 4 polygon endgate } def /Hv::u { % 4 0 16 16 bbox begingate 1 1.00 4 16 4 4 8 0 14 0 18 2 5 polygon 1 1.00 18 0 18 16 2 polygon endgate } def /Hv::v { % 4 0 18 16 bbox begingate 1 1.00 4 16 12 0 20 16 3 polygon endgate } def /Hv::w { % 4 0 26 16 bbox begingate 1 1.00 4 16 10 0 16 16 22 0 28 16 5 polygon endgate } def /Hv::x { % 4 0 16 16 bbox begingate 1 1.00 4 0 18 16 2 polygon 1 1.00 4 16 18 0 2 polygon endgate } def /Hv::y { % 4 -6 16 22 bbox begingate 1 1.00 4 16 12 1 2 polygon 1 1.00 18 16 10 -4 8 -6 6 -6 4 polygon endgate } def /Hv::z { % 4 0 16 16 bbox begingate 1 1.00 4 16 18 16 4 0 18 0 4 polygon endgate } def /Hv::lbrace { % 4 -4 11 32 bbox begingate 1 1.00 10 -4 8 -4 6 -2 6 10 4 12 6 14 6 26 8 28 10 28 9 polygon endgate } def /Hv::vbar { % 6 -2 5 30 bbox begingate 1 1.00 6 -2 6 28 2 polygon endgate } def /Hv::rbrace { % 4 -4 9 32 bbox begingate 1 1.00 4 -4 6 -4 8 -2 8 10 10 12 8 14 8 26 6 28 4 28 9 polygon endgate } def /Hv::tilde { % 2 12 19 2 bbox begingate 1 1.00 4 12 6 14 10 14 14 12 18 12 20 14 6 polygon endgate } def /Hv::upexclam { % 5 0 8 29 bbox begingate 1.00 -181 0 28 Hv::exclam endgate } def /Hv::cent { % 4 -6 17 28 bbox begingate 1 1.00 4 -6 18 22 2 polygon 1.00 0 0 0 Hv::c endgate } def /Hv::lb { % 4 0 18 26 bbox begingate 1 1.00 22 2 20 0 17 0 12 2 7 2 4 0 6 polygon 1 1.00 5 14 15 14 2 polygon 1 1.00 7 2 10 4 11 9 9 18 9 21 12 25 16 26 18 25 20 23 9 polygon endgate } def /Hv::aslash { % 4 0 14 26 bbox begingate 1 1.00 4 0 18 26 2 polygon endgate } def /Hv::yen { % 2 0 20 26 bbox begingate 1.00 0 -2 0 Hv::Y 1 1.00 4 8 20 8 2 polygon 1 1.00 4 14 20 14 2 polygon endgate } def /Hv::itf { % 0 -6 18 32 bbox begingate 1 1.00 4 18 14 18 2 polygon 1 1.00 0 -6 4 -6 6 -4 10 24 12 26 14 26 16 24 7 polygon endgate } def /Hv::sy1 { % 4 -6 12 32 bbox begingate 1 1.00 4 -2 6 -6 10 -6 14 -2 14 0 6 8 4 12 4 14 8 18 9 polygon 1 1.00 12 2 16 6 16 8 14 12 6 20 6 22 10 26 14 26 16 22 9 polygon endgate } def /Hv::sy2 { % 4 0 16 16 bbox begingate 1 1.00 12 8 8 0.00 360.00 xcarc 1 1.00 4 16 6 14 2 polygon 1 1.00 18 2 20 0 2 polygon 1 1.00 4 0 6 2 2 polygon 1 1.00 18 14 20 16 2 polygon endgate } def /Hv::apos2 { % 8 24 2 8 bbox begingate 240 1.00 10 32 10 28 9 24 8 28 8 32 5 polygon endgate } def /Hv::lqt { % 6 22 12 7 bbox begingate 1.00 180 12 49 Hv::apostrophe 1.00 180 18 49 Hv::apostrophe endgate } def /Hv::lgqt { % 4 4 14 14 bbox begingate 1 1.00 10 4 4 11 10 18 3 polygon 1 1.00 16 4 10 11 16 18 3 polygon endgate } def /Hv::lsang { % 4 4 8 14 bbox begingate 1 1.00 10 4 4 11 10 18 3 polygon endgate } def /Hv::rsang { % 6 4 8 14 bbox begingate 1 1.00 6 4 12 11 6 18 3 polygon endgate } def /Hv::fi { % 2 0 26 26 bbox begingate 1.00 0 0 0 Hv::f 1.00 0 10 0 Hv::i endgate } def /Hv::fl { % 4 0 26 26 bbox begingate 1.00 0 0 0 Hv::f 1.00 0 12 0 Hv::l endgate } def /Hv::dag { % 4 0 12 24 bbox begingate 1 1.00 10 0 10 24 2 polygon 1 1.00 4 18 16 18 2 polygon endgate } def /Hv::ddag { % 4 0 12 24 bbox begingate 1 1.00 10 0 10 24 2 polygon 1 1.00 4 18 16 18 2 polygon 1 1.00 4 6 16 6 2 polygon endgate } def /Hv::dot { % 8 22 3 3 bbox begingate 1.00 0 4 22 Hv::period endgate } def /Hv::para { % 4 0 15 26 bbox begingate 1 1.00 11 0 11 26 2 polygon 1 1.00 16 0 16 26 2 polygon 1 1.00 11 26 19 26 2 polygon 240 1.00 11 19 7 90.00 270.00 xcarc endgate } def /Hv::bullet { % 4 11 8 8 bbox begingate 241 1.00 8 15 4 0.00 360.00 xcarc endgate } def /Hv::comma2 { % 6 -4 3 7 bbox begingate 1.00 0 3 -24 Hv::apostrophe endgate } def /Hv::rqt2 { % 6 -4 12 7 bbox begingate 1.00 0 3 -24 Hv::apostrophe 1.00 0 9 -24 Hv::apostrophe endgate } def /Hv::rqt { % 7 20 12 7 bbox begingate 1.00 0 1 24 Hv::rqt2 endgate } def /Hv::rgqt { % 4 4 14 14 bbox begingate 1 1.00 4 4 10 11 4 18 3 polygon 1 1.00 10 4 16 11 10 18 3 polygon endgate } def /Hv::dots { % 6 0 30 3 bbox begingate 1.00 0 2 0 Hv::period 1.00 0 14 0 Hv::period 1.00 0 26 0 Hv::period endgate } def /Hv::perzer { % 1 0 26 25 bbox begingate 1 1.00 20 0 18 2 18 6 20 8 22 8 24 6 24 2 22 0 20 0 9 polygon 1.00 0 -2 0 Hv::percent endgate } def /Hv::uqest { % 4 0 16 26 bbox begingate 1.00 180 22 26 Hv::question endgate } def /Hv::grave { % 6 27 8 5 bbox begingate 0 1.00 6 32 12 27 9 32 3 polygon endgate } def /Hv::acute { % 8 27 6 5 bbox begingate 1.00 -1 20 0 Hv::grave endgate } def /Hv::hat { % 6 28 8 4 bbox begingate 1 1.00 6 28 10 32 14 28 3 polygon endgate } def /Hv::tilchar { % 6 29 8 3 bbox begingate 1 1.00 6 29 8 32 9 32 11 29 12 29 14 32 6 polygon endgate } def /Hv::bar { % 6 30 8 0 bbox begingate 1 1.00 6 30 14 30 2 polygon endgate } def /Hv::uu { % 5 29 10 3 bbox begingate 1 1.00 5 32 7 30 10 29 13 30 15 32 5 polygon endgate } def /Hv::umlaut { % 5 29 11 3 bbox begingate 1.00 0 1 29 Hv::period 1.00 0 9 29 Hv::period endgate } def /Hv::circ { % 6 26 8 8 bbox begingate 1 1.00 10 30 4 0.00 360.00 xcarc endgate } def /Hv::cedilla { % 7 -6 4 6 bbox begingate 1 1.00 9 0 7 -2 11 -4 9 -6 4 polygon endgate } def /Hv::uml2 { % 4 27 12 5 bbox begingate 0 1.00 8 32 4 27 10 32 3 polygon 0 1.00 14 32 10 27 16 32 3 polygon endgate } def /Hv::ced2 { % 6 -5 4 5 bbox begingate 1 1.00 7 0 6 -3 8 -5 10 -4 4 polygon endgate } def /Hv::vee { % 6 28 8 4 bbox begingate 1 1.00 6 32 10 28 14 32 3 polygon endgate } def /Hv::Oslash { % 4 0 22 26 bbox begingate 1 1.00 4 0 24 26 2 polygon 1.00 0 0 0 Hv::O endgate } def /Hv::osl { % 4 0 14 16 bbox begingate 1 1.00 4 0 18 16 2 polygon 1.00 0 0 0 Hv::o endgate } def /Hv::sset { % 4 0 14 26 bbox begingate 1 1.00 4 0 4 20 6 25 9 26 13 26 16 24 17 21 16 18 12 15 9 polygon 1 1.00 12 15 16 12 18 8 18 3 14 0 10 0 7 3 7 polygon endgate } def /Hv::Agrave { % 4 0 20 33 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 1 Hv::grave endgate } def /Hv::Aacute { % 4 0 22 34 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 2 Hv::acute endgate } def /Hv::Acircum { % 4 0 22 33 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 1 Hv::hat endgate } def /Hv::Atilde { % 4 0 22 33 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 1 Hv::tilchar endgate } def /Hv::Adier { % 4 0 22 33 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 1 Hv::umlaut endgate } def /Hv::Aring { % 4 0 22 36 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 2 Hv::circ endgate } def /Hv::Egrave { % 4 0 20 34 bbox begingate 1.00 0 0 0 Hv::E 1.00 0 2 2 Hv::grave endgate } def /Hv::Eacute { % 4 0 20 34 bbox begingate 1.00 0 0 0 Hv::E 1.00 0 1 2 Hv::acute endgate } def /Hv::Ecircum { % 4 0 20 34 bbox begingate 1.00 0 0 0 Hv::E 1.00 0 3 2 Hv::hat endgate } def /Hv::Edier { % 4 0 20 33 bbox begingate 1.00 0 0 0 Hv::E 1.00 0 2 1 Hv::umlaut endgate } def /Hv::Ccedil { % 4 -6 24 32 bbox begingate 1.00 0 0 0 Hv::C 1.00 0 6 0 Hv::cedilla endgate } def /Hv::Igrave { % -8 0 30 34 bbox begingate 1.00 0 0 0 Hv::I 1.00 0 -4 2 Hv::grave endgate } def /Hv::Iacute { % -4 0 20 34 bbox begingate 1.00 0 4 0 Hv::I 1.00 0 -1 2 Hv::acute endgate } def /Hv::Icircum { % -4 0 20 33 bbox begingate 1.00 0 4 0 Hv::I 1.00 0 0 1 Hv::hat endgate } def /Hv::Idier { % -4 0 20 33 bbox begingate 1.00 0 4 0 Hv::I 1.00 0 -1 1 Hv::umlaut endgate } def /Hv::Otilde { % 4 0 24 33 bbox begingate 1.00 0 0 0 Hv::O 1.00 0 5 1 Hv::tilchar endgate } def /Hv::Ugrave { % 4 0 23 33 bbox begingate 1.00 0 0 0 Hv::U 1.00 0 5 1 Hv::grave endgate } def /Hv::Uacute { % 4 0 23 32 bbox begingate 1.00 0 0 0 Hv::U 1.00 0 4 0 Hv::acute endgate } def /Hv::Ucircum { % 5 0 23 33 bbox begingate 1.00 0 1 0 Hv::U 1.00 0 5 1 Hv::hat endgate } def /Hv::Udier { % 4 0 23 32 bbox begingate 1.00 0 0 0 Hv::U 1.00 0 4 0 Hv::umlaut endgate } def /Hv::Ograve { % 4 0 24 36 bbox begingate 1.00 0 0 0 Hv::O 1.00 0 4 4 Hv::grave endgate } def /Hv::Oacute { % 4 0 24 36 bbox begingate 1.00 0 0 0 Hv::O 1.00 0 4 4 Hv::acute endgate } def /Hv::Ocircum { % 4 0 24 34 bbox begingate 1.00 0 0 0 Hv::O 1.00 0 4 2 Hv::hat endgate } def /Hv::Odier { % 4 0 24 33 bbox begingate 1.00 0 0 0 Hv::O 1.00 0 5 1 Hv::umlaut endgate } def /Hv::Ntilde { % 4 0 22 32 bbox begingate 1.00 0 0 0 Hv::N 1.00 0 4 0 Hv::tilchar endgate } def /Hv::AE { % 4 0 36 26 bbox begingate 1.00 0 16 0 Hv::E 1 1.00 20 26 4 0 2 polygon 1 1.00 20 10 11 10 2 polygon endgate } def /Hv::Eth { % 4 0 26 26 bbox begingate 1.00 0 4 0 Hv::D 1 1.00 12 12 4 12 2 polygon endgate } def /Hv::Yacute { % 4 0 22 32 bbox begingate 1.00 0 0 0 Hv::Y 1.00 0 4 0 Hv::acute endgate } def /Hv::agrave { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -8 Hv::grave endgate } def /Hv::aacute { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -8 Hv::acute endgate } def /Hv::acircum { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -8 Hv::hat endgate } def /Hv::atilde { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -8 Hv::tilchar endgate } def /Hv::adier { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -8 Hv::umlaut endgate } def /Hv::aring { % 4 0 18 28 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -6 Hv::circ endgate } def /Hv::ntilde { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::n 1.00 0 0 -8 Hv::tilchar endgate } def /Hv::egrave { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::e 1.00 0 2 -8 Hv::grave endgate } def /Hv::eacute { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::e 1.00 0 2 -8 Hv::acute endgate } def /Hv::ecircum { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::e 1.00 0 2 -8 Hv::hat endgate } def /Hv::edier { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::e 1.00 0 2 -8 Hv::umlaut endgate } def /Hv::ae { % 4 0 30 16 bbox begingate 1.00 0 12 0 Hv::e 1 1.00 18 2 14 0 8 0 4 2 4 4 8 8 18 8 7 polygon 1 1.00 6 14 8 16 14 16 17 13 4 polygon endgate } def /Hv::igrave { % 2 0 8 24 bbox begingate 1.00 0 -4 -8 Hv::grave 1 1.00 6 16 6 0 2 polygon endgate } def /Hv::iacute { % -8 -8 20 26 bbox begingate 1.00 0 -8 -8 Hv::acute 1 1.00 2 16 2 0 2 polygon endgate } def /Hv::icircum { % -8 -8 20 26 bbox begingate 1.00 0 -8 -8 Hv::hat 1 1.00 2 16 2 0 2 polygon endgate } def /Hv::idier { % -8 -8 20 26 bbox begingate 1.00 0 -8 -8 Hv::umlaut 1 1.00 2 16 2 0 2 polygon endgate } def /Hv::ydier { % 4 -6 16 30 bbox begingate 1.00 0 0 0 Hv::y 1.00 0 0 -8 Hv::umlaut endgate } def /Hv::yacute { % 4 -6 16 30 bbox begingate 1.00 0 0 0 Hv::y 1.00 0 0 -8 Hv::acute endgate } def /Hv::ograve { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::o 1.00 0 2 -8 Hv::grave endgate } def /Hv::oacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::o 1.00 0 0 -8 Hv::acute endgate } def /Hv::ocircum { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::o 1.00 0 0 -8 Hv::hat endgate } def /Hv::otilde { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::o 1.00 0 0 -8 Hv::tilchar endgate } def /Hv::odier { % 4 0 16 22 bbox begingate 1.00 0 0 0 Hv::o 1.00 0 0 -10 Hv::umlaut endgate } def /Hv::eth { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::o 1 1.00 16 14 10 22 4 24 3 polygon 1 1.00 12 24 6 20 2 polygon endgate } def /Hv::ugrave { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::u 1.00 0 2 -8 Hv::grave endgate } def /Hv::uacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::u 1.00 0 0 -8 Hv::acute endgate } def /Hv::ucircum { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::u 1.00 0 0 -8 Hv::hat endgate } def /Hv::udier { % 4 0 16 22 bbox begingate 1.00 0 0 0 Hv::u 1.00 0 0 -10 Hv::umlaut endgate } def /Hv::ccedil { % 4 -6 16 22 bbox begingate 1.00 0 2 0 Hv::cedilla 1.00 0 0 0 Hv::c endgate } def /Hv::ordfem { % 6 20 13 9 bbox begingate 0.60 0 4 20 Hv::a endgate } def /Hv::Lslash { % 4 0 26 26 bbox begingate 1.00 0 4 0 Hv::L 1 1.00 16 20 4 12 2 polygon endgate } def /Hv::ordmasc { % 4 18 12 9 bbox begingate 0.60 0 2 18 Hv::o endgate } def /Hv::lslash { % 6 0 11 26 bbox begingate 1.00 0 6 0 Hv::l 1 1.00 12 16 6 12 2 polygon endgate } def /Hv::OE { % 6 0 34 26 bbox begingate 1 1.00 38 0 24 0 24 26 38 26 4 polygon 1 1.00 36 14 24 14 2 polygon 1.00 0 2 0 Hv::zero endgate } def /Hv::oe { % 8 0 34 16 bbox begingate 1.00 0 18 0 Hv::e 1.00 0 4 0 Hv::o endgate } def /Hv::emdash { % 2 10 30 0 bbox begingate 1 1.00 2 10 30 10 2 polygon endgate } def /Hv::pm { % 6 6 14 15 bbox begingate 1.00 0 2 3 Hv::plus 1.00 0 2 -6 Hv::minus endgate } def /Hv::onesup { % 7 18 5 15 bbox begingate 0.60 0 4 18 Hv::one endgate } def /Hv::twosup { % 4 18 13 15 bbox begingate 0.60 0 2 18 Hv::two endgate } def /Hv::threesup { % 4 18 12 15 bbox begingate 0.60 0 2 18 Hv::three endgate } def /Hv::quarter { % 5 0 24 27 bbox begingate 0.60 0 12 0 Hv::four 0.60 0 2 12 Hv::one 1 1.00 6 0 22 24 2 polygon endgate } def /Hv::half { % 3 0 28 27 bbox begingate 0.60 0 0 12 Hv::one 0.60 0 14 0 Hv::two 1 1.00 4 0 20 24 2 polygon endgate } def /Hv::threeq { % 4 0 27 27 bbox begingate 0.60 0 2 12 Hv::three 0.60 0 14 0 Hv::four 1 1.00 8 0 24 24 2 polygon endgate } def /Hv::copy { % 4 4 26 24 bbox begingate 0.60 0 7 8 Hv::C 1 1.00 16 16 12 0.00 360.00 xcarc endgate } def /Hv::regis { % 4 4 26 24 bbox begingate 0.55 0 9 9 Hv::R 1 1.00 16 16 12 0.00 360.00 xcarc endgate } def /Hv::mu { % 6 -8 18 24 bbox begingate 1.00 0 2 0 Hv::u 1 1.00 6 -8 6 4 2 polygon endgate } def /Hv::lognot { % 6 8 18 8 bbox begingate 1 1.00 6 16 22 16 22 8 3 polygon endgate } def /Hv::times { % 6 6 14 12 bbox begingate 1 1.00 6 6 18 18 2 polygon 1 1.00 6 18 18 6 2 polygon endgate } def /Hv::divide { % 5 5 18 14 bbox begingate 1 1.00 5 12 21 12 2 polygon 1.00 0 8 16 Hv::period 1.00 0 8 5 Hv::period endgate } def /Hv::thorn { % 4 -6 18 30 bbox begingate 1.00 0 0 0 Hv::p 1 1.00 4 16 4 24 2 polygon endgate } def /Hv::Thorn { % 4 0 15 26 bbox begingate 1.00 0 -2 0 Hv::I 1 1.00 4 8 12 8 16 10 17 14 16 18 12 20 4 20 7 polygon endgate } def /Hv::onesmall { % 7 4 6 19 bbox begingate 0.75 0 4 4 Hv::one endgate } def /Hv::dash { % 4 12 20 0 bbox begingate 1 1.00 4 12 18 12 2 polygon endgate } def % EndLib xcircuit-3.9.73/lib/fonts/helveticaiso2.xfe0000664000175000001440000000575312335667423017352 0ustar timusers% XCircuit Font encoding (XFE) file name: HelveticaISO2 % file: helvetica.lps file: helveticaiso2.lps family: Helvetica weight: normal shape: normal type: PostScript encoding: ISOLatin2 Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::space Hv::exclam Hv::quote Hv::pound Hv::dollar Hv::percent Hv::ampersand Hv::apostrophe Hv::lparen Hv::rparen Hv::asterisk Hv::plus Hv::comma Hv::minus Hv::period Hv::slash Hv::zero Hv::one Hv::two Hv::three Hv::four Hv::five Hv::six Hv::seven Hv::eight Hv::nine Hv::colon Hv::semi Hv::less Hv::equal Hv::more Hv::question Hv::at Hv::A Hv::B Hv::C Hv::D Hv::E Hv::F Hv::G Hv::H Hv::I Hv::J Hv::K Hv::L Hv::M Hv::N Hv::O Hv::P Hv::Q Hv::R Hv::S Hv::T Hv::U Hv::V Hv::W Hv::X Hv::Y Hv::Z Hv::lbracket Hv::backslash Hv::rbracket Hv::caret Hv::underscore Hv::apostrophe Hv::a Hv::b Hv::c Hv::d Hv::e Hv::f Hv::g Hv::h Hv::i Hv::j Hv::k Hv::l Hv::m Hv::n Hv::o Hv::p Hv::q Hv::r Hv::s Hv::t Hv::u Hv::v Hv::w Hv::x Hv::y Hv::z Hv::lbrace Hv::vbar Hv::rbrace Hv::tilde Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::Aogonek Hv::uu Hv::Lslash Hv::sy2 Hv::Lcaron Hv::Sacute Hv::sy1 Hv::umlaut Hv::Scaron Hv::Scedil Hv::Tcaron Hv::Zacute Hv::dash Hv::Zcaron Hv::Zdot Hv::circ Hv::aogonek Hv::ced2 Hv::lslash Hv::acute Hv::lcaron Hv::sacute Hv::vee Hv::cedilla Hv::scaron Hv::scedil Hv::tcaron Hv::zacute Hv::uml2 Hv::zcaron Hv::zdot Hv::Racute Hv::Aacute Hv::Acircum Hv::Abreve Hv::Adier Hv::Lacute Hv::Cacute Hv::Ccedil Hv::Ccaron Hv::Eacute Hv::Eogonek Hv::Edier Hv::Ecaron Hv::Iacute Hv::Icircum Hv::Dcaron Hv::Eth Hv::Nacute Hv::Ncaron Hv::Oacute Hv::Ocircum Hv::Ouml2 Hv::Odier Hv::times Hv::Rcaron Hv::Ucirc Hv::Uacute Hv::Uuml2 Hv::Udier Hv::Yacute Hv::Tcedil Hv::sset Hv::racute Hv::aacute Hv::acircum Hv::abreve Hv::adier Hv::lacute Hv::cacute Hv::ccedil Hv::ecaron Hv::eacute Hv::eogonek Hv::edier Hv::ecaron Hv::iacute Hv::icircum Hv::dcaron Hv::dbar Hv::nacute Hv::ncaron Hv::oacute Hv::ocircum Hv::ouml2 Hv::odier Hv::divide Hv::rcaron Hv::ucirc Hv::uacute Hv::uuml2 Hv::udier Hv::yacute Hv::togonek Hv::dotacc derived: Helvetica-BoldISO2 bold normal PostScript derived: Helvetica-ObliqueISO2 normal italic PostScript derived: Helvetica-BoldObliqueISO2 bold italic PostScript xcircuit-3.9.73/lib/fonts/times_roman.lps0000664000175000001440000006671612335667423017150 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: TR % Version: 2.0 % % % XCircuitLib library built-in objects /TR::nullchar { % 0 0 24 32 bbox begingate 0 1.00 0 0 0 32 24 32 24 0 4 polygon endgate } def /TR::space { % 0 0 14 26 bbox begingate endgate } def /TR::exclam { % 5 1 6 24 bbox begingate 1 1.00 6 2 1 0.00 360.00 xcarc 1 1.00 6 6 7 24 6 25 5 24 6 6 5 polygon endgate } def /TR::quote { % 6 23 9 7 bbox begingate 0 1.00 8 30 8 28 8 23 7 28 6 30 5 polygon 0 1.00 13 30 13 28 13 23 12 28 11 30 5 polygon endgate } def /TR::pound { % 5 0 18 26 bbox begingate 1 1.00 5 18 21 18 2 polygon 1 1.00 15 0 19 26 2 polygon 1 1.00 7 0 11 26 2 polygon 1 1.00 5 7 21 7 2 polygon endgate } def /TR::dollar { % 0 0 19 26 bbox begingate 1 1.00 8 0 8 26 2 polygon 1 1.00 0 8 0 5 5 2 10 2 14 4 16 6 16 8 14 10 2 16 0 18 0 20 2 22 6 24 11 24 16 21 16 18 16 polygon endgate } def /TR::percent { % 4 0 22 26 bbox begingate 1 1.00 18 0 16 2 16 6 18 8 20 8 22 6 22 2 20 0 18 0 9 polygon 1 1.00 6 0 20 26 2 polygon 1 1.00 6 18 4 20 4 24 6 26 8 26 10 24 10 20 8 18 6 18 9 polygon endgate } def /TR::ampersand { % 0 0 22 26 bbox begingate 1 1.00 9 7 3 19 3 24 5 26 9 26 11 24 12 21 10 18 5 15 1 12 0 8 0 4 4 0 8 0 12 3 14 6 16 10 17 polygon 1 1.00 9 7 14 0 16 0 18 2 4 polygon 1 1.00 13 10 18 10 2 polygon endgate } def /TR::apostrophe { % 6 24 8 8 bbox begingate 241 1.00 9 28 7 28 6 30 7 32 9 32 10 30 9 28 7 polygon 1 1.00 7 24 9 26 10 30 3 polygon endgate } def /TR::lparen { % 4 -5 7 32 bbox begingate 1 1.00 10 -5 6 0 4 6 4 16 6 22 10 27 6 polygon endgate } def /TR::rparen { % 4 -5 8 32 bbox begingate 1 1.00 4 -5 8 0 10 6 10 16 8 22 4 27 6 polygon endgate } def /TR::asterisk { % 4 12 14 12 bbox begingate 1 1.00 8 12 8 20 2 polygon 1 1.00 4 14 12 18 2 polygon 1 1.00 4 18 12 14 2 polygon endgate } def /TR::plus { % 4 4 16 16 bbox begingate 1 1.00 12 4 12 20 2 polygon 1 1.00 4 12 20 12 2 polygon endgate } def /TR::comma { % 6 -4 4 8 bbox begingate 1.00 0 0 -28 TR::apostrophe endgate } def /TR::minus { % 6 12 12 0 bbox begingate 1 1.00 6 12 18 12 2 polygon endgate } def /TR::period { % 5 0 5 2 bbox begingate 1 1.00 6 0 7 0 8 1 7 2 6 2 5 1 6 0 7 polygon endgate } def /TR::slash { % 4 0 10 26 bbox begingate 1 1.00 4 0 14 26 2 polygon endgate } def /TR::zero { % 4 0 22 26 bbox begingate 1 1.00 10 0 6 4 4 10 4 16 6 22 10 26 16 26 20 22 22 16 22 10 20 4 16 0 10 0 13 polygon endgate } def /TR::one { % 4 0 12 26 bbox begingate 1 1.00 8 0 8 26 4 22 3 polygon 1 1.00 4 0 12 0 2 polygon endgate } def /TR::two { % 4 0 22 26 bbox begingate 1 1.00 22 0 4 0 20 12 22 16 22 20 20 24 16 26 12 26 8 24 6 20 10 polygon 1 1.00 22 0 24 4 2 polygon endgate } def /TR::three { % 4 0 16 26 bbox begingate 1 1.00 4 3 7 1 10 0 14 0 18 2 20 6 19 11 16 14 13 13 9 polygon 1 1.00 16 14 19 16 20 20 18 24 14 26 11 26 8 25 6 23 8 polygon endgate } def /TR::four { % 6 0 16 26 bbox begingate 1 1.00 20 0 20 26 6 10 6 8 22 8 5 polygon endgate } def /TR::five { % 4 0 18 26 bbox begingate 1 1.00 4 2 8 0 14 0 18 2 20 6 20 10 18 14 14 16 10 17 5 18 8 26 20 26 12 polygon endgate } def /TR::six { % 4 0 20 26 bbox begingate 1 1.00 18 26 14 26 10 24 6 20 4 16 4 8 5 4 10 0 15 0 19 2 22 6 22 11 20 15 15 18 10 18 6 16 4 13 17 polygon endgate } def /TR::seven { % 4 0 18 26 bbox begingate 1 1.00 8 0 20 26 6 26 3 polygon 1 1.00 6 26 4 22 2 polygon endgate } def /TR::eight { % 5 0 19 26 bbox begingate 1 1.00 10 0 7 1 5 4 5 8 8 12 18 16 20 19 20 22 16 26 10 26 6 22 6 19 8 16 18 12 21 8 21 4 19 1 16 0 10 0 19 polygon endgate } def /TR::nine { % 0 0 20 26 bbox begingate 1 1.00 6 0 10 1 13 3 16 6 17 10 18 18 16 24 12 26 6 26 2 24 0 20 0 15 2 11 6 9 11 9 15 11 17 12 17 polygon endgate } def /TR::colon { % 9 0 4 14 bbox begingate 1.00 0 4 14 TR::period 1.00 0 4 0 TR::period endgate } def /TR::semi { % 8 -4 7 21 bbox begingate 1.00 0 3 13 TR::period 1.00 0 2 -28 TR::apostrophe endgate } def /TR::less { % 4 6 20 12 bbox begingate 1 1.00 22 5 4 12 22 19 3 polygon endgate } def /TR::equal { % 4 10 16 4 bbox begingate 1 1.00 4 9 18 9 2 polygon 1 1.00 4 15 18 15 2 polygon endgate } def /TR::more { % 6 6 20 12 bbox begingate 1 1.00 6 5 24 12 6 19 3 polygon endgate } def /TR::question { % 6 0 20 28 bbox begingate 1 1.00 6 24 10 28 16 28 20 24 20 20 18 16 14 14 12 11 12 8 9 polygon 1.00 0 5 0 TR::period endgate } def /TR::at { % 4 0 26 26 bbox begingate 1 1.00 24 2 17 0 12 0 8 2 5 6 4 10 4 16 6 20 10 24 14 26 19 26 24 24 27 20 28 16 27 12 25 8 23 6 20 5 18 8 22 20 20 polygon 1 1.00 21 17 18 20 14 20 11 18 8 14 9 8 12 6 16 6 18 8 9 polygon endgate } def /TR::A { % 2 0 24 26 bbox begingate 1 1.00 4 0 14 26 24 0 3 polygon 1 1.00 8 8 20 8 2 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 20 0 26 0 2 polygon endgate } def /TR::B { % 4 0 23 26 bbox begingate 1 1.00 8 0 8 26 2 polygon 1 1.00 4 0 19 0 23 2 25 6 25 8 23 12 19 14 7 polygon 1 1.00 4 26 16 26 21 24 23 20 23 18 19 14 8 14 7 polygon endgate } def /TR::C { % 4 0 22 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 23 23 9 polygon 1 1.00 18 0 24 4 2 polygon 1 1.00 23 26 24 21 2 polygon endgate } def /TR::D { % 4 0 24 26 bbox begingate 1 1.00 4 0 18 0 24 4 26 10 26 16 24 22 18 26 4 26 8 polygon 1 1.00 8 26 8 0 2 polygon endgate } def /TR::E { % 4 0 22 26 bbox begingate 1 1.00 8 14 18 14 2 polygon 1 1.00 8 0 8 26 2 polygon 1 1.00 18 17 18 11 2 polygon 1 1.00 24 4 22 0 4 0 3 polygon 1 1.00 4 26 22 26 24 24 3 polygon endgate } def /TR::F { % 6 0 19 26 bbox begingate 1 1.00 10 0 10 26 2 polygon 1 1.00 10 14 18 14 2 polygon 1 1.00 6 26 22 26 2 polygon 1 1.00 18 17 18 11 2 polygon 1 1.00 6 0 14 0 2 polygon 1 1.00 22 26 23 23 2 polygon endgate } def /TR::G { % 4 0 25 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 24 23 9 polygon 1 1.00 24 26 25 20 2 polygon 1 1.00 27 12 21 12 2 polygon 1 1.00 18 0 24 4 2 polygon 1 1.00 24 4 24 12 2 polygon endgate } def /TR::H { % 4 0 20 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 20 0 20 26 2 polygon 1 1.00 6 14 20 14 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 16 26 22 26 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 16 0 22 0 2 polygon endgate } def /TR::I { % 4 0 6 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 4 0 8 0 2 polygon 1 1.00 4 26 8 26 2 polygon endgate } def /TR::J { % 4 0 16 26 bbox begingate 1 1.00 4 4 5 2 8 0 11 0 13 2 15 6 15 26 7 polygon 1 1.00 12 26 18 26 2 polygon endgate } def /TR::K { % 4 0 22 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 22 26 6 10 2 polygon 1 1.00 22 0 9 13 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 18 26 24 26 2 polygon 1 1.00 18 0 24 0 2 polygon endgate } def /TR::L { % 4 0 16 26 bbox begingate 1 1.00 6 26 6 0 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 4 0 18 0 2 polygon 1 1.00 18 0 20 4 2 polygon endgate } def /TR::M { % 4 0 30 26 bbox begingate 1 1.00 6 0 6 26 18 0 30 26 30 0 5 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 26 0 32 0 2 polygon 1 1.00 30 26 32 26 2 polygon 1 1.00 6 26 4 26 2 polygon endgate } def /TR::N { % 4 0 26 26 bbox begingate 1 1.00 6 0 6 26 26 0 26 26 4 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 28 26 22 26 2 polygon 1 1.00 6 26 4 26 2 polygon endgate } def /TR::O { % 4 0 24 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 24 22 9 polygon 1 1.00 18 0 24 4 26 10 26 16 24 22 5 polygon endgate } def /TR::P { % 4 0 18 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 4 26 16 26 20 24 22 21 22 17 20 14 16 12 6 12 8 polygon 1 1.00 4 0 10 0 2 polygon endgate } def /TR::Q { % 6 -4 24 30 bbox begingate 1 1.00 19 0 23 -3 27 -4 3 polygon 1.00 0 2 0 TR::O endgate } def /TR::R { % 4 0 23 26 bbox begingate 1.00 0 0 0 TR::P 1 1.00 14 12 24 0 26 0 3 polygon endgate } def /TR::S { % 3 0 20 26 bbox begingate 1 1.00 4 4 6 2 10 0 16 0 20 2 22 5 22 8 18 12 7 16 4 19 4 22 6 24 10 26 16 26 20 24 15 polygon 1 1.00 20 26 21 22 2 polygon 1 1.00 3 7 4 1 2 polygon endgate } def /TR::T { % 5 0 20 26 bbox begingate 1 1.00 14 0 14 26 2 polygon 1 1.00 5 23 6 26 22 26 23 23 4 polygon 1 1.00 11 0 17 0 2 polygon endgate } def /TR::U { % 4 0 26 26 bbox begingate 1 1.00 6 26 6 8 8 4 10 2 14 0 19 0 23 2 25 4 27 8 27 26 10 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 24 26 30 26 2 polygon endgate } def /TR::V { % 4 0 28 26 bbox begingate 1 1.00 6 26 17 0 28 26 3 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 30 26 24 26 2 polygon endgate } def /TR::W { % 4 0 36 26 bbox begingate 1 1.00 6 26 14 0 21 22 3 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 38 26 32 26 2 polygon 1 1.00 20 26 28 0 36 26 3 polygon 1 1.00 16 26 24 26 2 polygon endgate } def /TR::X { % 4 0 26 26 bbox begingate 1 1.00 6 0 26 26 2 polygon 1 1.00 6 26 26 0 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 22 26 28 26 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 22 0 28 0 2 polygon endgate } def /TR::Y { % 4 0 26 26 bbox begingate 1 1.00 6 26 16 12 16 0 3 polygon 1 1.00 26 26 16 12 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 22 26 28 26 2 polygon 1 1.00 13 0 19 0 2 polygon endgate } def /TR::Z { % 5 0 20 26 bbox begingate 1 1.00 7 26 24 26 6 0 23 0 4 polygon 1 1.00 23 0 25 4 2 polygon 1 1.00 7 26 5 22 2 polygon endgate } def /TR::lbracket { % 4 -2 6 30 bbox begingate 1 1.00 10 -2 4 -2 4 28 10 28 4 polygon endgate } def /TR::backslash { % 4 0 10 26 bbox begingate 1 1.00 14 0 4 26 2 polygon endgate } def /TR::rbracket { % 4 -2 9 30 bbox begingate 1 1.00 4 -2 10 -2 10 28 4 28 4 polygon endgate } def /TR::caret { % 4 20 12 6 bbox begingate 1 1.00 4 20 10 26 16 20 3 polygon endgate } def /TR::underscore { % 4 0 20 0 bbox begingate 1 1.00 4 0 24 0 2 polygon endgate } def /TR::a { % 2 0 15 16 bbox begingate 1 1.00 16 0 14 2 14 14 11 16 7 16 4 14 6 polygon 1 1.00 14 2 12 0 6 0 3 2 2 6 6 9 14 11 7 polygon 1 1.00 16 0 18 1 2 polygon endgate } def /TR::b { % 2 0 19 26 bbox begingate 1 1.00 5 2 5 26 2 polygon 1 1.00 5 2 9 0 13 0 16 2 18 6 18 10 16 14 13 16 9 16 5 14 10 polygon 1 1.00 2 25 5 26 2 polygon endgate } def /TR::c { % 3 0 15 16 bbox begingate 1 1.00 17 2 13 0 9 0 5 2 3 6 3 10 5 14 9 16 13 16 16 13 15 12 11 polygon endgate } def /TR::d { % 3 0 17 26 bbox begingate 1 1.00 16 2 12 0 8 0 5 2 3 6 3 10 5 14 8 16 12 16 16 12 10 polygon 1 1.00 19 1 16 0 16 26 13 25 4 polygon endgate } def /TR::e { % 3 0 16 16 bbox begingate 1 1.00 18 5 16 2 13 0 9 0 5 2 3 6 3 10 5 14 9 16 12 16 16 14 18 10 4 10 13 polygon endgate } def /TR::f { % 2 0 12 26 bbox begingate 1 1.00 6 0 6 23 8 26 11 26 13 24 5 polygon 1 1.00 2 18 10 18 2 polygon 1 1.00 4 0 8 0 2 polygon endgate } def /TR::g { % 3 -8 18 24 bbox begingate 1 1.00 8 5 13 5 16 7 16 11 13 15 9 16 6 15 3 12 3 8 8 5 6 3 15 1 20 -1 20 -5 13 -8 7 -8 3 -5 3 -2 4 0 8 2 20 polygon 1 1.00 15 13 17 13 20 15 3 polygon endgate } def /TR::h { % 2 0 18 26 bbox begingate 1 1.00 5 0 5 26 2 polygon 1 1.00 5 13 9 16 13 16 16 14 17 10 17 0 6 polygon 1 1.00 2 24 5 26 2 polygon 1 1.00 3 0 8 0 2 polygon 1 1.00 14 0 19 0 2 polygon endgate } def /TR::i { % 3 0 7 22 bbox begingate 1 1.00 5 0 5 16 3 14 3 polygon 1 1.00 5 21 5 22 2 polygon 1 1.00 3 0 7 0 2 polygon endgate } def /TR::j { % 0 -6 7 28 bbox begingate 1 1.00 0 -5 2 -6 4 -6 6 -4 6 16 4 14 6 polygon 1 1.00 6 21 6 22 2 polygon endgate } def /TR::k { % 2 0 18 26 bbox begingate 1 1.00 5 0 5 26 2 polygon 1 1.00 5 8 16 16 2 polygon 1 1.00 17 0 9 10 2 polygon 1 1.00 2 24 5 26 2 polygon 1 1.00 3 0 8 0 2 polygon 1 1.00 14 0 19 0 2 polygon 1 1.00 13 16 19 16 2 polygon endgate } def /TR::l { % 4 0 5 26 bbox begingate 1 1.00 6 0 6 26 4 24 3 polygon 1 1.00 4 0 8 0 2 polygon endgate } def /TR::m { % 2 0 26 16 bbox begingate 1 1.00 5 0 5 16 2 polygon 1 1.00 5 14 8 16 12 16 15 13 15 0 5 polygon 1 1.00 15 14 18 16 22 16 25 13 25 0 5 polygon 1 1.00 2 14 5 16 2 polygon 1 1.00 3 0 8 0 2 polygon 1 1.00 12 0 18 0 2 polygon 1 1.00 22 0 27 0 2 polygon endgate } def /TR::n { % 2 0 17 16 bbox begingate 1 1.00 5 0 5 16 2 polygon 1 1.00 5 13 8 15 11 16 14 15 16 12 16 0 6 polygon 1 1.00 2 14 5 16 2 polygon 1 1.00 3 0 8 0 2 polygon 1 1.00 13 0 18 0 2 polygon endgate } def /TR::o { % 2 0 15 16 bbox begingate 1 1.00 8 0 4 2 2 6 2 10 4 14 8 16 10 16 14 14 16 10 16 6 14 2 10 0 8 0 13 polygon endgate } def /TR::p { % 2 -6 19 22 bbox begingate 1 1.00 5 2 9 0 13 0 16 2 18 6 18 11 16 14 13 16 9 16 5 14 10 polygon 1 1.00 5 16 5 -6 2 polygon 1 1.00 2 14 5 16 2 polygon 1 1.00 3 -6 8 -6 2 polygon endgate } def /TR::q { % 2 -6 16 22 bbox begingate 1 1.00 15 2 11 0 7 0 4 2 2 6 2 10 4 14 7 16 11 16 15 14 10 polygon 1 1.00 15 16 15 -6 2 polygon 1 1.00 17 -6 12 -6 2 polygon endgate } def /TR::r { % 2 0 14 16 bbox begingate 1 1.00 5 0 5 16 2 polygon 1 1.00 5 14 9 16 13 16 15 14 4 polygon 1 1.00 2 14 5 16 2 polygon 1 1.00 3 0 8 0 2 polygon endgate } def /TR::s { % 2 0 15 16 bbox begingate 1 1.00 3 2 6 0 12 0 16 2 16 5 13 8 5 9 3 11 3 14 6 16 12 16 15 14 12 polygon 1 1.00 15 16 16 13 2 polygon 1 1.00 2 4 3 0 2 polygon endgate } def /TR::t { % 2 0 10 24 bbox begingate 1 1.00 2 18 10 18 2 polygon 1 1.00 6 24 6 2 8 0 11 2 4 polygon 1 1.00 2 18 4 19 6 21 3 polygon endgate } def /TR::u { % 2 0 18 16 bbox begingate 1 1.00 5 16 5 4 7 1 10 0 13 0 16 2 6 polygon 1 1.00 16 0 16 16 2 polygon 1 1.00 16 0 19 2 2 polygon 1 1.00 16 16 13 16 2 polygon 1 1.00 5 16 2 16 2 polygon endgate } def /TR::v { % 2 0 20 16 bbox begingate 1 1.00 4 16 11 0 19 16 3 polygon 1 1.00 2 16 8 16 2 polygon 1 1.00 15 16 21 16 2 polygon endgate } def /TR::w { % 2 0 27 16 bbox begingate 1 1.00 4 16 10 0 15 12 3 polygon 1 1.00 2 16 8 16 2 polygon 1 1.00 14 16 20 0 26 16 3 polygon 1 1.00 28 16 22 16 2 polygon 1 1.00 12 16 18 16 2 polygon endgate } def /TR::x { % 2 0 19 16 bbox begingate 1 1.00 4 0 18 16 2 polygon 1 1.00 4 16 18 0 2 polygon 1 1.00 2 16 8 16 2 polygon 1 1.00 14 16 20 16 2 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 14 0 20 0 2 polygon endgate } def /TR::y { % 2 -6 19 22 bbox begingate 1 1.00 4 16 12 1 2 polygon 1 1.00 18 16 10 -4 7 -6 4 -6 4 polygon 1 1.00 2 16 8 16 2 polygon 1 1.00 14 16 20 16 2 polygon endgate } def /TR::z { % 2 0 15 16 bbox begingate 1 1.00 3 16 16 16 2 0 15 0 4 polygon 1 1.00 3 16 2 13 2 polygon 1 1.00 15 0 16 3 2 polygon endgate } def /TR::lbrace { % 6 -4 9 32 bbox begingate 1 1.00 12 -4 10 -3 8 0 8 10 6 12 8 14 8 24 10 27 12 28 9 polygon endgate } def /TR::vbar { % 6 -2 5 30 bbox begingate 1 1.00 6 -2 6 28 2 polygon endgate } def /TR::rbrace { % 4 -4 9 32 bbox begingate 1 1.00 4 -4 6 -3 8 0 8 10 10 12 8 14 8 24 6 27 4 28 9 polygon endgate } def /TR::tilde { % 4 12 18 2 bbox begingate 1 1.00 4 12 6 14 10 14 14 12 18 12 20 14 6 polygon endgate } def /TR::upexclam { % 7 1 6 24 bbox begingate 1.00 -181 2 26 TR::exclam endgate } def /TR::cent { % 6 -6 16 28 bbox begingate 1 1.00 6 -6 20 22 2 polygon 1.00 0 2 0 TR::c endgate } def /TR::lb { % 4 0 18 26 bbox begingate 1 1.00 22 2 20 0 18 0 8 4 6 4 4 2 6 0 8 0 12 6 12 10 10 20 10 22 12 26 16 26 20 24 15 polygon 1 1.00 5 14 17 14 2 polygon endgate } def /TR::aslash { % 4 0 14 26 bbox begingate 1 1.00 4 0 18 26 2 polygon endgate } def /TR::yen { % 6 0 24 26 bbox begingate 1.00 0 2 0 TR::Y 1 1.00 9 13 27 13 2 polygon 1 1.00 9 18 27 18 2 polygon endgate } def /TR::itf { % 2 -6 16 32 bbox begingate 1 1.00 2 -5 6 -6 8 -4 12 24 14 26 16 25 6 polygon 1 1.00 8 18 14 18 2 polygon endgate } def /TR::sy1 { % 4 -6 15 32 bbox begingate 1 1.00 4 -2 6 -6 10 -6 14 -3 14 0 6 7 4 11 4 14 8 18 9 polygon 1 1.00 12 2 16 6 16 9 14 13 6 20 6 23 10 26 14 26 16 22 9 polygon endgate } def /TR::sy2 { % 5 0 16 16 bbox begingate 1 1.00 13 8 8 0.00 360.00 xcarc 1 1.00 5 0 7 2 2 polygon 1 1.00 19 14 21 16 2 polygon 1 1.00 5 16 7 14 2 polygon 1 1.00 19 2 21 0 2 polygon endgate } def /TR::apos2 { % 9 24 2 8 bbox begingate 0 1.00 9 32 9 28 10 24 11 28 11 32 5 polygon endgate } def /TR::lqt { % 7 22 14 8 bbox begingate 1.00 180 17 54 TR::apostrophe 1.00 180 24 54 TR::apostrophe endgate } def /TR::lgqt { % 4 4 16 14 bbox begingate 1 1.00 10 4 4 11 10 18 3 polygon 1 1.00 16 4 10 11 16 18 3 polygon endgate } def /TR::lsang { % 4 4 10 14 bbox begingate 1 1.00 10 4 4 11 10 18 3 polygon endgate } def /TR::rsang { % 6 4 10 14 bbox begingate 1 1.00 6 4 12 11 6 18 3 polygon endgate } def /TR::fi { % 4 0 17 26 bbox begingate 1 1.00 8 0 8 24 10 26 14 26 4 polygon 1 1.00 4 18 16 18 16 0 3 polygon 1 1.00 14 26 18 24 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 14 0 18 0 2 polygon endgate } def /TR::fl { % 4 0 19 26 bbox begingate 1 1.00 4 18 18 18 2 polygon 1 1.00 8 0 8 24 10 26 14 26 18 24 5 polygon 1 1.00 6 0 12 0 2 polygon 1 1.00 18 26 18 0 2 polygon 1 1.00 16 0 20 0 2 polygon endgate } def /TR::dag { % 5 2 11 22 bbox begingate 241 1.00 9 24 10 23 9 22 9 20 11 20 12 21 13 20 12 19 11 20 9 20 9 18 10 17 9 16 8 17 9 18 9 20 7 20 6 19 5 20 6 21 7 20 9 20 9 22 8 23 9 24 25 polygon 1 1.00 9 17 9 2 2 polygon endgate } def /TR::ddag { % 5 0 13 24 bbox begingate 1 1.00 7 4 6 5 5 4 6 3 7 4 10 4 10 2 9 1 10 0 11 1 10 2 10 4 13 4 14 3 15 4 14 5 13 4 10 4 10 11 19 polygon 1 1.00 7 20 6 19 5 20 6 21 7 20 10 20 10 22 9 23 10 24 11 23 10 22 10 20 13 20 14 21 15 20 14 19 13 20 10 20 10 13 19 polygon endgate } def /TR::dot { % 8 25 2 2 bbox begingate 1 1.00 9 25 10 26 9 27 8 26 9 25 5 polygon endgate } def /TR::para { % 5 0 15 26 bbox begingate 1 1.00 14 0 14 26 2 polygon 1 1.00 18 0 18 26 2 polygon 240 1.00 11 20 6 90.00 270.00 xcarc 1 1.00 14 26 20 26 2 polygon 240 1.00 11 14 11 26 14 26 14 14 4 polygon endgate } def /TR::bullet { % 5 6 8 8 bbox begingate 241 1.00 9 10 4 0.00 360.00 xcarc endgate } def /TR::comma2 { % 6 -4 7 8 bbox begingate 1.00 0 0 -28 TR::apostrophe endgate } def /TR::rqt2 { % 5 -3 15 8 bbox begingate 1.00 0 -1 -27 TR::apostrophe 1.00 0 6 -27 TR::apostrophe endgate } def /TR::rqt { % 5 20 15 8 bbox begingate 1.00 0 -1 -4 TR::apostrophe 1.00 0 6 -4 TR::apostrophe endgate } def /TR::rgqt { % 6 4 16 14 bbox begingate 1 1.00 6 4 12 11 6 18 3 polygon 1 1.00 12 4 18 11 12 18 3 polygon endgate } def /TR::dots { % 5 0 30 2 bbox begingate 1.00 0 0 0 TR::period 1.00 0 12 0 TR::period 1.00 0 24 0 TR::period endgate } def /TR::perzer { % 8 0 32 26 bbox begingate 1 1.00 31 0 29 2 29 6 31 8 33 8 35 6 35 2 33 0 31 0 9 polygon 1.00 0 4 0 TR::percent endgate } def /TR::uqest { % 8 0 16 28 bbox begingate 1.00 180 28 28 TR::question endgate } def /TR::grave { % 8 26 4 6 bbox begingate 0 1.00 8 32 12 26 10 32 3 polygon endgate } def /TR::acute { % 10 26 4 6 bbox begingate 1.00 -1 22 0 TR::grave endgate } def /TR::hat { % 6 28 8 4 bbox begingate 1 1.00 6 28 10 32 14 28 3 polygon endgate } def /TR::tilchar { % 6 29 8 3 bbox begingate 1 1.00 6 29 8 32 9 32 11 29 12 29 14 32 6 polygon endgate } def /TR::bar { % 6 30 8 0 bbox begingate 1 1.00 6 30 14 30 2 polygon endgate } def /TR::uu { % 6 29 10 3 bbox begingate 1 1.00 6 32 7 30 10 29 12 29 15 30 16 32 6 polygon endgate } def /TR::umlaut { % 5 29 10 2 bbox begingate 1.00 0 0 29 TR::period 1.00 0 7 29 TR::period endgate } def /TR::circ { % 7 25 6 6 bbox begingate 1 1.00 10 28 3 0.00 360.00 xcarc endgate } def /TR::cedilla { % 8 -6 4 6 bbox begingate 1 1.00 10 0 8 -2 12 -4 10 -6 4 polygon endgate } def /TR::uml2 { % 6 26 10 6 bbox begingate 1.00 0 -4 0 TR::acute 1.00 0 2 0 TR::acute endgate } def /TR::ced2 { % 7 -5 5 5 bbox begingate 1 1.00 8 0 7 -3 10 -5 12 -4 4 polygon endgate } def /TR::vee { % 6 28 8 4 bbox begingate 1 1.00 6 32 10 28 14 32 3 polygon endgate } def /TR::Oslash { % 4 0 22 26 bbox begingate 1 1.00 4 0 24 26 2 polygon 1.00 0 0 0 TR::O endgate } def /TR::osl { % 4 0 14 16 bbox begingate 1 1.00 4 0 18 16 2 polygon 1.00 0 0 0 TR::o endgate } def /TR::sset { % 4 0 16 26 bbox begingate 1 1.00 4 0 6 0 6 22 8 25 12 26 15 26 18 23 18 20 16 18 12 16 16 14 19 11 20 8 20 3 16 0 11 0 9 2 17 polygon endgate } def /TR::Agrave { % 4 0 24 34 bbox begingate 1.00 0 2 0 TR::A 1.00 0 6 2 TR::grave endgate } def /TR::Aacute { % 4 0 24 34 bbox begingate 1.00 0 2 0 TR::A 1.00 0 4 2 TR::acute endgate } def /TR::Acircum { % 4 0 24 32 bbox begingate 1.00 0 2 0 TR::A 1.00 0 6 0 TR::hat endgate } def /TR::Atilde { % 6 0 24 32 bbox begingate 1.00 0 4 0 TR::A 1.00 0 8 0 TR::tilchar endgate } def /TR::Adier { % 4 0 24 31 bbox begingate 1.00 0 2 0 TR::A 1.00 0 6 0 TR::umlaut endgate } def /TR::Aring { % 2 0 24 34 bbox begingate 1.00 0 0 0 TR::A 1.00 0 4 3 TR::circ endgate } def /TR::Egrave { % 4 0 20 34 bbox begingate 1.00 0 0 0 TR::E 1.00 0 2 2 TR::grave endgate } def /TR::Eacute { % 4 0 20 34 bbox begingate 1.00 0 0 0 TR::E 1.00 0 2 2 TR::acute endgate } def /TR::Ecircum { % 4 0 20 34 bbox begingate 1.00 0 0 0 TR::E 1.00 0 4 2 TR::hat endgate } def /TR::Edier { % 4 0 20 31 bbox begingate 1.00 0 0 0 TR::E 1.00 0 4 0 TR::umlaut endgate } def /TR::Ccedil { % 4 -6 20 32 bbox begingate 1.00 0 0 0 TR::C 1.00 0 3 0 TR::cedilla endgate } def /TR::Igrave { % 6 0 4 34 bbox begingate 1.00 0 2 0 TR::I 1.00 0 -2 2 TR::grave endgate } def /TR::Iacute { % 6 0 4 34 bbox begingate 1.00 0 2 0 TR::I 1.00 0 -4 2 TR::acute endgate } def /TR::Icircum { % 4 0 8 34 bbox begingate 1.00 0 2 0 TR::I 1.00 0 -2 2 TR::hat endgate } def /TR::Idier { % 3 0 10 31 bbox begingate 1.00 0 2 0 TR::I 1.00 0 -2 0 TR::umlaut endgate } def /TR::Otilde { % 4 0 22 32 bbox begingate 1.00 0 0 0 TR::O 1.00 0 6 0 TR::tilchar endgate } def /TR::Ugrave { % 4 0 26 32 bbox begingate 1.00 0 0 0 TR::U 1.00 0 6 0 TR::grave endgate } def /TR::Uacute { % 4 0 26 32 bbox begingate 1.00 0 0 0 TR::U 1.00 0 6 0 TR::acute endgate } def /TR::Ucircum { % 4 0 26 33 bbox begingate 1.00 0 0 0 TR::U 1.00 0 7 1 TR::hat endgate } def /TR::Udier { % 4 0 26 31 bbox begingate 1.00 0 0 0 TR::U 1.00 0 7 0 TR::umlaut endgate } def /TR::Ograve { % 4 0 22 34 bbox begingate 1.00 0 0 0 TR::O 1.00 0 4 2 TR::grave endgate } def /TR::Oacute { % 4 0 22 35 bbox begingate 1.00 0 0 0 TR::O 1.00 0 3 3 TR::acute endgate } def /TR::Ocircum { % 4 0 22 34 bbox begingate 1.00 0 0 0 TR::O 1.00 0 5 2 TR::hat endgate } def /TR::Odier { % 4 0 22 32 bbox begingate 1.00 0 0 0 TR::O 1.00 0 5 1 TR::umlaut endgate } def /TR::Ntilde { % 4 0 24 32 bbox begingate 1.00 0 0 0 TR::N 1.00 0 4 0 TR::tilchar endgate } def /TR::AE { % 4 0 36 26 bbox begingate 1.00 0 16 0 TR::E 1 1.00 24 26 8 0 2 polygon 1 1.00 24 10 15 10 2 polygon 1 1.00 4 0 12 0 2 polygon endgate } def /TR::Eth { % 4 0 22 26 bbox begingate 1.00 0 0 0 TR::D 1 1.00 12 14 4 14 2 polygon endgate } def /TR::Yacute { % 4 0 24 32 bbox begingate 1.00 0 0 0 TR::Y 1.00 0 4 0 TR::acute endgate } def /TR::agrave { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::a 1.00 0 0 -8 TR::grave endgate } def /TR::aacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::a 1.00 0 -2 -8 TR::acute endgate } def /TR::acircum { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::a 1.00 0 0 -8 TR::hat endgate } def /TR::atilde { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::a 1.00 0 0 -8 TR::tilchar endgate } def /TR::adier { % 4 0 16 23 bbox begingate 1.00 0 0 0 TR::a 1.00 0 0 -8 TR::umlaut endgate } def /TR::aring { % 4 0 16 27 bbox begingate 1.00 0 0 0 TR::a 1.00 0 0 -4 TR::circ endgate } def /TR::ntilde { % 3 0 16 24 bbox begingate 1.00 0 0 0 TR::n 1.00 0 0 -8 TR::tilchar endgate } def /TR::egrave { % 4 0 15 24 bbox begingate 1.00 0 0 0 TR::e 1.00 0 0 -8 TR::grave endgate } def /TR::eacute { % 4 0 15 24 bbox begingate 1.00 0 0 0 TR::e 1.00 0 -2 -8 TR::acute endgate } def /TR::ecircum { % 4 0 15 24 bbox begingate 1.00 0 0 0 TR::e 1.00 0 0 -8 TR::hat endgate } def /TR::edier { % 4 0 15 23 bbox begingate 1.00 0 0 0 TR::e 1.00 0 0 -8 TR::umlaut endgate } def /TR::ae { % 5 0 26 16 bbox begingate 1.00 0 12 0 TR::e 1 1.00 18 2 14 0 8 0 5 2 5 6 8 9 16 10 7 polygon 1 1.00 6 14 8 16 14 16 17 13 4 polygon endgate } def /TR::igrave { % 4 0 6 26 bbox begingate 1.00 0 -4 -6 TR::grave 1 1.00 6 0 10 0 2 polygon 1 1.00 6 14 8 16 8 0 3 polygon endgate } def /TR::iacute { % 6 0 6 26 bbox begingate 1.00 0 -2 -6 TR::acute 1 1.00 8 0 8 16 6 14 3 polygon 1 1.00 6 0 10 0 2 polygon endgate } def /TR::icircum { % 4 0 8 24 bbox begingate 1.00 0 -2 -8 TR::hat 1 1.00 6 14 8 16 8 0 3 polygon 1 1.00 6 0 10 0 2 polygon endgate } def /TR::idier { % 5 0 10 23 bbox begingate 1.00 0 0 -8 TR::umlaut 1 1.00 8 14 10 16 10 0 3 polygon 1 1.00 8 0 12 0 2 polygon endgate } def /TR::ydier { % 6 -6 18 29 bbox begingate 1.00 0 0 0 TR::y 1.00 0 2 -8 TR::umlaut endgate } def /TR::yacute { % 6 -6 18 30 bbox begingate 1.00 0 0 0 TR::y 1.00 0 2 -8 TR::acute endgate } def /TR::ograve { % 4 0 14 24 bbox begingate 1.00 0 0 0 TR::o 1.00 0 -2 -8 TR::grave endgate } def /TR::oacute { % 4 0 14 24 bbox begingate 1.00 0 0 0 TR::o 1.00 0 -2 -8 TR::acute endgate } def /TR::ocircum { % 4 0 14 24 bbox begingate 1.00 0 0 0 TR::o 1.00 0 -1 -8 TR::hat endgate } def /TR::otilde { % 4 0 14 23 bbox begingate 1.00 0 0 0 TR::o 1.00 0 -1 -9 TR::tilchar endgate } def /TR::odier { % 4 0 14 21 bbox begingate 1.00 0 0 0 TR::o 1.00 0 -1 -10 TR::umlaut endgate } def /TR::eth { % 4 0 14 24 bbox begingate 1.00 0 0 0 TR::o 1 1.00 14 14 8 22 2 24 3 polygon 1 1.00 10 24 4 20 2 polygon endgate } def /TR::ugrave { % 4 0 17 24 bbox begingate 1.00 0 0 0 TR::u 1.00 0 -2 -8 TR::grave endgate } def /TR::uacute { % 4 0 17 24 bbox begingate 1.00 0 0 0 TR::u 1.00 0 -2 -8 TR::acute endgate } def /TR::ucircum { % 4 0 17 24 bbox begingate 1.00 0 0 0 TR::u 1.00 0 0 -8 TR::hat endgate } def /TR::udier { % 4 0 17 23 bbox begingate 1.00 0 0 0 TR::u 1.00 0 0 -8 TR::umlaut endgate } def /TR::ccedil { % 4 -6 14 22 bbox begingate 1.00 0 0 0 TR::cedilla 1.00 0 0 0 TR::c endgate } def /TR::ordfem { % 6 20 11 9 bbox begingate 0.60 0 4 20 TR::a endgate } def /TR::Lslash { % 4 0 24 26 bbox begingate 1.00 0 4 0 TR::L 1 1.00 16 20 4 12 2 polygon endgate } def /TR::ordmasc { % 4 18 10 9 bbox begingate 0.60 0 2 18 TR::o endgate } def /TR::lslash { % 9 0 9 26 bbox begingate 1.00 0 6 0 TR::l 1 1.00 15 16 9 12 2 polygon endgate } def /TR::OE { % 6 0 32 26 bbox begingate 1 1.00 38 0 24 0 24 26 38 26 4 polygon 1 1.00 36 14 24 14 2 polygon 1.00 0 2 0 TR::zero endgate } def /TR::oe { % 8 0 32 16 bbox begingate 1.00 0 18 0 TR::e 1.00 0 4 0 TR::o endgate } def /TR::emdash { % 2 10 32 0 bbox begingate 1 1.00 2 10 34 10 2 polygon endgate } def /TR::pm { % 6 6 12 15 bbox begingate 1.00 0 2 3 TR::plus 1.00 0 2 -6 TR::minus endgate } def /TR::onesup { % 7 18 3 15 bbox begingate 0.60 0 4 18 TR::one endgate } def /TR::twosup { % 4 18 11 15 bbox begingate 0.60 0 2 18 TR::two endgate } def /TR::threesup { % 4 18 10 15 bbox begingate 0.60 0 2 18 TR::three endgate } def /TR::quarter { % 5 0 20 27 bbox begingate 0.60 0 12 0 TR::four 0.60 0 2 12 TR::one 1 1.00 6 0 22 24 2 polygon endgate } def /TR::half { % 3 0 24 27 bbox begingate 0.60 0 0 12 TR::one 0.60 0 14 0 TR::two 1 1.00 4 0 20 24 2 polygon endgate } def /TR::threeq { % 4 0 23 27 bbox begingate 0.60 0 2 12 TR::three 0.60 0 14 0 TR::four 1 1.00 8 0 24 24 2 polygon endgate } def /TR::copy { % 4 4 24 24 bbox begingate 0.60 0 7 8 TR::C 1 1.00 16 16 12 0.00 360.00 xcarc endgate } def /TR::regis { % 4 4 24 24 bbox begingate 0.55 0 9 9 TR::R 1 1.00 16 16 12 0.00 360.00 xcarc endgate } def /TR::mu { % 6 -8 16 24 bbox begingate 1.00 0 2 0 TR::u 1 1.00 7 -8 7 4 2 polygon endgate } def /TR::lognot { % 6 8 16 8 bbox begingate 1 1.00 6 16 22 16 22 8 3 polygon endgate } def /TR::times { % 6 6 12 12 bbox begingate 1 1.00 6 6 18 18 2 polygon 1 1.00 6 18 18 6 2 polygon endgate } def /TR::divide { % 5 5 15 13 bbox begingate 1 1.00 5 12 20 12 2 polygon 1.00 0 6 16 TR::period 1.00 0 6 5 TR::period endgate } def /TR::thorn { % 2 -6 19 30 bbox begingate 1.00 0 0 0 TR::p 1 1.00 5 16 5 24 2 polygon 1 1.00 5 24 2 22 2 polygon endgate } def /TR::Thorn { % 4 0 13 26 bbox begingate 1.00 0 -2 0 TR::I 1 1.00 4 8 12 8 16 10 17 14 16 18 12 20 4 20 7 polygon endgate } def /TR::onesmall { % 7 4 4 19 bbox begingate 0.75 0 4 4 TR::one endgate } def /TR::dash { % 4 12 8 0 bbox begingate 1 1.00 4 12 12 12 2 polygon endgate } def % EndLib xcircuit-3.9.73/lib/fonts/fonttest.ps0000664000175000001440000000134412335667423016307 0ustar timusers%!Adobe-Postscript % % Print a list of all PostScript fonts resident on the printer % % To get the same list each printed in its own font, set "usefonts" to 1 below. % % Note: This is NOT an xcircuit file! The list of files returned may be % used to give xcircuit the proper name for a font when using the "Add New % Font" command. % /usefonts 0 def % /y 72 def /x 72 def /Times-Roman findfont 12 scalefont setfont FontDirectory {pop usefonts 1 eq {dup findfont 12 scalefont setfont} if 50 string cvs x y moveto show y 15 add dup 690 gt {pop /y 72 def /x 300 def} {/y exch def} ifelse } forall /Times-Roman findfont 14 scalefont setfont 305 700 moveto (Resident PostScript Fonts) dup stringwidth pop 2 div neg 0 rmoveto show showpage xcircuit-3.9.73/lib/fonts/times_romaniso2.xfe0000664000175000001440000000570712335667423017722 0ustar timusers% XCircuit Font encoding (XFE) file name: Times-RomanISO2 file: times_romaniso2.lps family: Times-Roman weight: normal shape: normal type: PostScript encoding: ISOLatin2 TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::space TR::exclam TR::quote TR::pound TR::dollar TR::percent TR::ampersand TR::apostrophe TR::lparen TR::rparen TR::asterisk TR::plus TR::comma TR::minus TR::period TR::slash TR::zero TR::one TR::two TR::three TR::four TR::five TR::six TR::seven TR::eight TR::nine TR::colon TR::semi TR::less TR::equal TR::more TR::question TR::at TR::A TR::B TR::C TR::D TR::E TR::F TR::G TR::H TR::I TR::J TR::K TR::L TR::M TR::N TR::O TR::P TR::Q TR::R TR::S TR::T TR::U TR::V TR::W TR::X TR::Y TR::Z TR::lbracket TR::backslash TR::rbracket TR::caret TR::underscore TR::apostrophe TR::a TR::b TR::c TR::d TR::e TR::f TR::g TR::h TR::i TR::j TR::k TR::l TR::m TR::n TR::o TR::p TR::q TR::r TR::s TR::t TR::u TR::v TR::w TR::x TR::y TR::z TR::lbrace TR::vbar TR::rbrace TR::tilde TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::Aogonek TR::uu TR::Lslash TR::sy2 TR::Lcaron TR::Sacute TR::sy1 TR::umlaut TR::Scaron TR::Scedil TR::Tcaron TR::Zacute TR::dash TR::Zcaron TR::Zdot TR::circ TR::aogonek TR::ced2 TR::lslash TR::acute TR::lcaron TR::sacute TR::vee TR::cedilla TR::scaron TR::scedil TR::tcaron TR::zacute TR::uml2 TR::zcaron TR::zdot TR::Racute TR::Aacute TR::Acircum TR::Abreve TR::Adier TR::Lacute TR::Cacute TR::Ccedil TR::Ccaron TR::Eacute TR::Eogonek TR::Edier TR::Ecaron TR::Iacute TR::Icircum TR::Dcaron TR::Eth TR::Nacute TR::Ncaron TR::Oacute TR::Ocircum TR::Ouml2 TR::Odier TR::times TR::Rcaron TR::Ucirc TR::Uacute TR::Uuml2 TR::Udier TR::Yacute TR::Tcedil TR::sset TR::racute TR::aacute TR::acircum TR::abreve TR::adier TR::lacute TR::cacute TR::ccedil TR::ecaron TR::eacute TR::eogonek TR::edier TR::ecaron TR::iacute TR::icircum TR::dcaron TR::dbar TR::nacute TR::ncaron TR::oacute TR::ocircum TR::ouml2 TR::odier TR::divide TR::rcaron TR::ucirc TR::uacute TR::uuml2 TR::udier TR::yacute TR::tcedil TR::dotacc derived: Times-BoldISO2 bold normal PostScript derived: Times-ItalicISO2 normal italic PostScript derived: Times-BoldItalicISO2 bold italic PostScript xcircuit-3.9.73/lib/fonts/symbol.lps0000664000175000001440000005765712335667423016144 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Sy % Version: 2.0 % % XCircuitLib library built-in objects /Sy::nullchar { % 0 0 26 32 bbox begingate 0 1.00 0 0 0 32 24 32 24 0 4 polygon endgate } def /Sy::space { % 0 0 16 26 bbox begingate endgate } def /Sy::exclam { % 4 1 5 25 bbox begingate 1 1.00 5 2 1 0.00 360.00 xcarc 241 1.00 7 25 5 7 4 25 5 26 6 26 7 25 6 polygon endgate } def /Sy::forall { % 3 0 24 26 bbox begingate 1 1.00 3 26 14 0 25 26 3 polygon 1 1.00 8 16 20 16 2 polygon endgate } def /Sy::pound { % 3 0 19 26 bbox begingate 1 1.00 4 17 20 17 2 polygon 1 1.00 13 0 17 26 2 polygon 1 1.00 6 0 10 26 2 polygon 1 1.00 3 9 19 9 2 polygon endgate } def /Sy::every { % 3 0 20 26 bbox begingate 1 1.00 3 0 21 0 21 26 3 26 4 polygon 1 1.00 5 14 21 14 2 polygon endgate } def /Sy::percent { % 3 0 17 26 bbox begingate 1 1.00 10 24 8 26 6 26 4 24 3 20 5 18 7 18 9 20 10 24 13 24 17 26 3 0 12 polygon 1 1.00 13 0 11 2 12 6 14 8 16 8 18 6 17 2 15 0 13 0 9 polygon endgate } def /Sy::ampersand { % 3 0 22 26 bbox begingate 1 1.00 13 6 7 20 8 24 11 26 14 26 16 24 16 20 14 18 6 14 3 10 3 4 6 1 11 0 14 1 18 4 20 8 21 12 17 polygon 1 1.00 23 12 19 12 2 polygon 1 1.00 13 6 16 2 19 0 21 0 23 2 5 polygon endgate } def /Sy::backe { % 3 0 16 18 bbox begingate 1 1.00 5 10 17 10 2 polygon 1 1.00 3 1 6 0 11 0 15 2 17 6 17 12 15 16 11 18 6 18 3 17 10 polygon endgate } def /Sy::lparen { % 4 -5 8 32 bbox begingate 1 1.00 10 -5 6 0 4 6 4 16 6 22 10 27 6 polygon endgate } def /Sy::rparen { % 4 -5 8 32 bbox begingate 1 1.00 4 -5 8 0 10 6 10 16 8 22 4 27 6 polygon endgate } def /Sy::asterisk { % 4 8 10 8 bbox begingate 1 1.00 8 8 8 16 2 polygon 1 1.00 4 10 12 14 2 polygon 1 1.00 4 14 12 10 2 polygon endgate } def /Sy::plus { % 4 4 18 16 bbox begingate 1 1.00 12 4 12 20 2 polygon 1 1.00 4 12 20 12 2 polygon endgate } def /Sy::comma { % 4 -4 6 8 bbox % hidden begingate 241 1.00 6 2 2 0.00 360.00 xcarc 1 1.00 8 2 8 0 7 -2 5 -4 4 polygon endgate } def /Sy::minus { % 4 12 20 0 bbox begingate 1 1.00 4 12 22 12 2 polygon endgate } def /Sy::period { % 4 0 6 4 bbox begingate 241 1.00 6 2 2 0.00 360.00 xcarc endgate } def /Sy::slash { % 4 0 12 26 bbox begingate 1 1.00 4 0 14 26 2 polygon endgate } def /Sy::zero { % 4 0 20 26 bbox begingate 1 1.00 10 0 6 4 4 10 4 16 6 22 10 26 16 26 20 22 22 16 22 10 20 4 16 0 10 0 13 polygon endgate } def /Sy::one { % 4 0 10 28 bbox begingate 1 1.00 8 0 8 28 4 24 3 polygon 1 1.00 4 0 12 0 2 polygon endgate } def /Sy::two { % 4 0 22 26 bbox begingate 1 1.00 22 0 4 0 20 12 22 16 22 20 20 24 16 26 12 26 8 24 6 22 10 polygon 1 1.00 22 0 24 4 2 polygon endgate } def /Sy::three { % 4 0 18 26 bbox begingate 1 1.00 4 4 6 2 10 0 14 0 18 2 20 6 20 10 16 15 12 14 9 polygon 1 1.00 16 15 18 16 20 20 18 24 14 26 10 26 6 24 7 polygon endgate } def /Sy::four { % 4 0 20 26 bbox begingate 1 1.00 18 0 18 26 4 8 4 6 22 6 5 polygon endgate } def /Sy::five { % 4 0 19 26 bbox begingate 1 1.00 4 2 8 0 13 0 17 2 19 6 19 10 17 14 13 16 9 17 5 17 7 26 21 26 12 polygon endgate } def /Sy::six { % 4 0 18 26 bbox begingate 1 1.00 18 26 14 26 10 24 6 20 4 14 4 6 6 2 10 0 14 0 18 2 20 6 20 12 18 16 14 18 10 18 6 16 4 14 17 polygon endgate } def /Sy::seven { % 3 0 17 26 bbox begingate 1 1.00 8 0 18 26 4 26 3 24 4 polygon endgate } def /Sy::eight { % 4 0 20 26 bbox % hidden begingate 1 1.00 10 0 6 2 4 4 4 8 8 12 18 16 20 20 20 22 16 26 10 26 6 22 6 20 8 16 18 12 22 8 22 4 20 2 16 0 10 0 19 polygon endgate } def /Sy::nine { % 4 0 20 26 bbox begingate 1 1.00 8 0 13 1 18 4 21 8 22 12 22 18 20 24 16 26 10 26 6 24 4 20 4 14 6 10 10 8 16 8 20 10 22 14 17 polygon endgate } def /Sy::colon { % 6 4 6 18 bbox begingate 241 1.00 8 20 2 0.00 360.00 xcarc 241 1.00 8 6 2 0.00 360.00 xcarc endgate } def /Sy::semi { % 6 -6 6 24 bbox begingate 241 1.00 8 16 2 0.00 360.00 xcarc 1.00 0 2 -2 Sy::comma endgate } def /Sy::less { % 4 6 18 12 bbox begingate 1 1.00 20 6 4 12 20 18 3 polygon endgate } def /Sy::equal { % 6 10 18 4 bbox begingate 1 1.00 6 10 22 10 2 polygon 1 1.00 6 14 22 14 2 polygon endgate } def /Sy::more { % 4 6 18 12 bbox begingate 1 1.00 4 6 20 12 4 18 3 polygon endgate } def /Sy::question { % 5 0 15 28 bbox begingate 1 1.00 5 25 8 28 14 28 18 24 18 20 12 14 10 10 10 8 8 polygon 241 1.00 10 2 2 0.00 360.00 xcarc 1 1.00 6 24 1 0.00 360.00 xcarc endgate } def /Sy::approx { % 4 10 18 10 bbox begingate 1 1.00 4 10 20 10 2 polygon 1 1.00 4 14 20 14 2 polygon 1 1.00 4 18 6 20 10 20 14 18 18 18 20 20 6 polygon endgate } def /Sy::Alpha { % 2 0 26 26 bbox begingate 1 1.00 4 0 14 26 24 0 3 polygon 1 1.00 8 8 20 8 2 polygon 1 1.00 2 0 6 0 2 polygon 1 1.00 20 0 26 0 2 polygon endgate } def /Sy::Beta { % 4 0 21 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 4 0 17 0 21 2 23 6 23 8 21 12 17 14 7 polygon 1 1.00 4 26 14 26 19 24 21 20 21 18 17 14 6 14 7 polygon endgate } def /Sy::Xi { % 2 0 26 26 bbox begingate 1 1.00 4 0 24 26 2 polygon 1 1.00 4 26 24 0 2 polygon 1 1.00 2 26 8 26 2 polygon 1 1.00 20 0 26 0 2 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 20 26 26 26 2 polygon endgate } def /Sy::Delta { % 4 0 22 26 bbox begingate 1 1.00 4 0 24 0 2 polygon 1 1.00 4 0 14 26 24 0 3 polygon endgate } def /Sy::Epsilon { % 4 0 20 26 bbox begingate 1 1.00 20 0 4 0 2 polygon 1 1.00 6 13 18 13 2 polygon 1 1.00 6 0 6 26 2 polygon 1 1.00 4 26 20 26 2 polygon 1 1.00 20 26 21 22 2 polygon 1 1.00 20 0 22 4 2 polygon 1 1.00 18 17 18 10 2 polygon endgate } def /Sy::Phi { % 4 0 26 26 bbox begingate 1 1.00 16 0 16 26 2 polygon 1 1.00 12 4 8 6 6 8 4 12 4 14 6 18 8 20 12 22 20 22 24 20 26 18 28 14 28 12 26 8 24 6 20 4 12 4 17 polygon 1 1.00 12 0 20 0 2 polygon 1 1.00 12 26 20 26 2 polygon endgate } def /Sy::Gamma { % 4 0 20 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 4 26 20 26 2 polygon 1 1.00 20 26 22 22 2 polygon 1 1.00 4 0 10 0 2 polygon endgate } def /Sy::Eta { % 4 0 22 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 22 0 22 26 2 polygon 1 1.00 6 14 22 14 2 polygon 1 1.00 4 26 10 26 2 polygon 1 1.00 4 0 10 0 2 polygon 1 1.00 24 26 18 26 2 polygon 1 1.00 24 0 18 0 2 polygon endgate } def /Sy::Iota { % 4 0 6 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 4 0 8 0 2 polygon 1 1.00 4 26 8 26 2 polygon endgate } def /Sy::altTheta { % 4 0 22 26 bbox begingate 1 1.00 4 18 6 16 6 8 8 4 12 0 16 0 20 2 22 8 22 20 20 24 16 26 12 26 10 24 10 22 12 20 18 20 22 18 24 16 18 polygon endgate } def /Sy::Kappa { % 2 0 24 26 bbox begingate 1 1.00 4 0 4 26 2 polygon 1 1.00 22 26 4 12 2 polygon 1 1.00 22 0 7 14 2 polygon 1 1.00 2 26 8 26 2 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 24 0 18 0 2 polygon 1 1.00 24 26 18 26 2 polygon endgate } def /Sy::Lambda { % 2 0 26 26 bbox begingate 1 1.00 4 0 14 26 24 0 3 polygon 1 1.00 20 0 26 0 2 polygon 1 1.00 2 0 8 0 2 polygon endgate } def /Sy::Mu { % 2 0 30 26 bbox begingate 1 1.00 4 0 4 26 16 0 28 26 28 0 5 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 30 0 24 0 2 polygon 1 1.00 28 26 30 26 2 polygon 1 1.00 2 26 4 26 2 polygon endgate } def /Sy::Nu { % 2 0 26 26 bbox begingate 1 1.00 4 0 4 26 24 0 24 26 4 polygon 1 1.00 2 0 8 0 2 polygon 1 1.00 26 26 20 26 2 polygon 1 1.00 2 26 4 26 2 polygon endgate } def /Sy::Omicron { % 4 0 28 26 bbox begingate 1 1.00 18 0 12 0 6 4 4 10 4 16 6 22 12 26 18 26 24 22 9 polygon 1 1.00 18 0 24 4 26 10 26 16 24 22 5 polygon endgate } def /Sy::Pi { % 4 0 24 26 bbox begingate 1 1.00 8 0 8 26 2 polygon 1 1.00 22 0 22 26 2 polygon 1 1.00 4 26 26 26 2 polygon 1 1.00 6 0 10 0 2 polygon 1 1.00 20 0 24 0 2 polygon endgate } def /Sy::Theta { % 4 0 33 26 bbox begingate 1 1.00 13 13 25 13 2 polygon 1.00 0 4 0 Sy::Omicron 1 1.00 13 15 13 11 2 polygon 1 1.00 25 15 25 11 2 polygon endgate } def /Sy::Rho { % 4 0 19 26 bbox begingate 1 1.00 6 0 6 26 2 polygon 1 1.00 4 26 17 26 21 22 21 18 17 14 6 14 6 polygon 1 1.00 4 0 10 0 2 polygon endgate } def /Sy::Sigma { % 4 0 22 26 bbox begingate 1 1.00 24 4 24 0 4 0 16 14 4 26 24 26 24 22 7 polygon endgate } def /Sy::Tau { % 4 0 20 26 bbox begingate 1 1.00 13 0 13 26 2 polygon 1 1.00 4 22 4 26 22 26 22 22 4 polygon 1 1.00 10 0 16 0 2 polygon endgate } def /Sy::GrY { % 2 0 26 26 bbox begingate 1 1.00 4 26 14 14 14 0 3 polygon 1 1.00 24 26 14 14 2 polygon 1 1.00 2 26 8 26 2 polygon 1 1.00 20 26 26 26 2 polygon 1 1.00 12 0 16 0 2 polygon endgate } def /Sy::altSigma { % 4 -6 18 24 bbox begingate 1 1.00 8 -4 12 -6 16 -6 18 -4 18 -2 16 0 10 0 6 2 4 6 4 10 6 14 10 16 16 16 20 18 14 polygon endgate } def /Sy::Omega { % 4 0 28 26 bbox begingate 1 1.00 6 2 7 0 14 0 14 3 10 4 6 8 4 12 4 16 6 20 10 24 14 26 20 26 24 24 28 20 30 16 30 12 28 8 24 4 20 3 20 0 27 0 28 2 22 polygon endgate } def /Sy::Chi { % 4 0 22 26 bbox begingate 1 1.00 4 0 24 0 2 polygon 1 1.00 4 26 24 26 2 polygon 1 1.00 8 14 20 14 2 polygon 1 1.00 8 16 8 12 2 polygon 1 1.00 20 16 20 12 2 polygon 1 1.00 4 4 4 0 2 polygon 1 1.00 24 4 24 0 2 polygon 1 1.00 24 26 24 22 2 polygon 1 1.00 4 26 4 22 2 polygon endgate } def /Sy::Psi { % 4 0 26 26 bbox begingate 1 1.00 16 0 16 26 2 polygon 1 1.00 4 26 6 24 6 20 4 16 4 14 6 10 10 8 22 8 26 10 28 14 28 16 26 20 26 24 28 26 14 polygon 1 1.00 14 26 18 26 2 polygon 1 1.00 14 0 18 0 2 polygon endgate } def /Sy::Zeta { % 4 0 20 26 bbox begingate 1 1.00 4 22 4 26 22 26 4 0 21 0 22 4 6 polygon endgate } def /Sy::lbracket { % 4 -2 8 30 bbox begingate 1 1.00 10 -2 4 -2 4 28 10 28 4 polygon endgate } def /Sy::therefore { % 3 7 16 12 bbox begingate 1 1.00 4 8 1 0.00 360.00 xcarc 1 1.00 16 8 1 0.00 360.00 xcarc 1 1.00 10 18 1 0.00 360.00 xcarc endgate } def /Sy::rbracket { % 4 -2 8 30 bbox begingate 1 1.00 4 -2 10 -2 10 28 4 28 4 polygon endgate } def /Sy::perp { % 4 8 18 14 bbox begingate 1 1.00 4 8 20 8 2 polygon 1 1.00 12 8 12 22 2 polygon endgate } def /Sy::underscore { % 2 0 24 0 bbox begingate 1 1.00 2 0 24 0 2 polygon endgate } def /Sy::upneg { % 22 32 20 0 bbox begingate 1 1.00 22 32 40 32 2 polygon endgate } def /Sy::alpha { % 4 0 21 16 bbox begingate 1 1.00 23 0 21 2 18 13 14 16 10 16 6 14 4 10 4 6 6 2 10 0 14 0 17 3 21 15 13 polygon endgate } def /Sy::beta { % 3 -6 17 32 bbox begingate 1 1.00 3 0 3 21 5 24 9 26 13 26 15 24 16 20 14 17 11 15 7 15 10 polygon 1 1.00 11 15 15 14 18 9 17 3 13 0 9 0 5 2 7 polygon 1 1.00 3 -6 3 0 2 polygon endgate } def /Sy::chi { % 0 -5 17 21 bbox begingate 1 1.00 0 -5 14 16 2 polygon 1 1.00 0 14 2 16 4 14 12 -4 14 -4 15 -2 6 polygon endgate } def /Sy::delta { % 3 0 17 26 bbox begingate 1 1.00 12 17 9 16 5 14 3 10 3 6 5 2 9 0 13 0 17 3 18 7 17 11 15 14 7 22 7 24 9 26 11 26 13 24 17 polygon endgate } def /Sy::epsilon { % 4 0 13 16 bbox begingate 1 1.00 15 3 14 2 11 0 7 0 4 2 4 6 6 8 11 8 6 9 4 12 4 14 7 16 11 16 14 14 14 polygon endgate } def /Sy::phi { % 4 -6 18 28 bbox begingate 1 1.00 12 -6 12 22 2 polygon 1 1.00 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 20 10 20 6 18 2 14 0 10 0 13 polygon endgate } def /Sy::gamma { % 4 -6 16 22 bbox begingate 1 1.00 4 14 6 16 8 16 10 12 14 0 14 -4 12 -6 12 -2 16 6 18 12 18 16 11 polygon endgate } def /Sy::eta { % 4 -6 17 22 bbox begingate 1 1.00 4 14 6 16 8 14 8 0 4 polygon 1 1.00 8 12 12 15 15 16 18 15 19 12 19 -6 6 polygon endgate } def /Sy::iota { % 4 0 6 16 bbox begingate 1 1.00 4 16 4 2 6 0 8 2 4 polygon endgate } def /Sy::altphi { % 6 -6 19 22 bbox begingate 1 1.00 14 -6 14 12 16 16 18 16 21 15 23 12 23 6 21 2 17 0 12 0 8 2 6 6 6 12 8 16 10 16 15 polygon endgate } def /Sy::kappa { % 3 0 18 16 bbox begingate 1 1.00 8 10 17 0 2 polygon 1 1.00 14 0 19 0 2 polygon 1 1.00 5 8 13 14 17 16 18 16 4 polygon 1 1.00 5 0 5 16 3 16 3 polygon endgate } def /Sy::lambda { % 4 0 19 26 bbox begingate 1 1.00 4 0 12 15 2 polygon 1 1.00 5 24 7 26 10 24 17 2 19 0 21 2 6 polygon endgate } def /Sy::mu { % 4 -6 18 22 bbox begingate 1 1.00 4 -6 4 16 2 polygon 1 1.00 4 2 8 0 12 0 16 4 4 polygon 1 1.00 16 16 16 2 18 0 20 2 4 polygon endgate } def /Sy::nu { % 4 0 18 16 bbox begingate 1 1.00 4 14 6 16 8 14 12 0 18 10 20 14 20 16 7 polygon endgate } def /Sy::omicron { % 4 0 18 16 bbox begingate 1 1.00 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 20 10 20 6 18 2 14 0 10 0 13 polygon endgate } def /Sy::pi { % 4 0 19 17 bbox begingate 1 1.00 16 16 16 2 18 0 20 2 4 polygon 1 1.00 4 1 6 0 8 4 8 16 4 polygon 1 1.00 4 15 5 16 20 16 21 17 4 polygon endgate } def /Sy::theta { % 4 0 18 26 bbox begingate 1 1.00 10 0 6 3 4 8 4 18 6 23 10 26 14 26 18 23 20 18 20 8 18 3 14 0 10 0 13 polygon 1 1.00 4 14 20 14 2 polygon endgate } def /Sy::rho { % 4 -6 16 22 bbox begingate 1 1.00 4 -6 4 10 6 14 10 16 14 16 16 14 18 10 18 6 16 2 12 0 8 0 4 4 12 polygon endgate } def /Sy::sigma { % 4 0 20 16 bbox begingate 1 1.00 10 0 6 2 4 6 4 10 6 14 10 16 14 16 18 14 20 10 20 6 18 2 14 0 10 0 13 polygon 1 1.00 14 16 19 15 2 polygon 1 1.00 20 15 22 16 2 polygon endgate } def /Sy::tau { % 4 0 16 17 bbox begingate 1 1.00 4 14 6 16 16 16 18 17 4 polygon 1 1.00 10 16 10 2 12 0 14 0 16 2 5 polygon endgate } def /Sy::upsilon { % 4 0 18 16 bbox begingate 1 1.00 4 14 6 16 8 14 8 4 10 0 16 0 18 2 20 6 20 12 18 16 10 polygon endgate } def /Sy::altomega { % 4 0 24 16 bbox begingate 1 1.00 4 14 6 16 26 16 3 polygon 1 1.00 10 16 6 10 6 6 8 2 10 0 14 0 16 4 16 8 8 polygon 1 1.00 16 4 20 0 24 0 26 4 26 10 24 16 6 polygon endgate } def /Sy::omega { % 4 0 22 16 bbox begingate 1 1.00 8 16 6 14 4 10 4 6 6 2 8 0 12 0 14 4 15 10 14 12 13 10 14 4 16 0 20 0 22 2 24 6 24 10 22 14 20 16 19 polygon endgate } def /Sy::xi { % 6 -6 16 32 bbox begingate 1 1.00 10 26 8 26 6 24 8 22 13 21 17 22 14 23 9 21 6 17 7 14 14 11 18 12 14 13 10 12 6 8 6 2 10 0 18 0 20 -2 20 -4 16 -6 10 -6 22 polygon endgate } def /Sy::psi { % 4 -6 21 28 bbox begingate 1 1.00 14 -6 14 22 2 polygon 1 1.00 4 14 6 16 8 14 8 12 6 8 6 4 10 0 18 0 21 2 23 6 22 12 20 15 12 polygon endgate } def /Sy::zeta { % 4 -6 16 32 bbox begingate 1 1.00 8 26 6 26 4 24 6 22 12 21 17 22 13 23 9 20 6 16 4 10 4 2 8 0 16 0 18 -2 18 -4 14 -6 8 -6 17 polygon endgate } def /Sy::lbrace { % 4 -4 8 32 bbox begingate 1 1.00 10 -4 8 -4 6 -2 6 10 4 12 6 14 6 26 8 28 10 28 9 polygon endgate } def /Sy::vbar { % 6 -2 0 30 bbox begingate 1 1.00 6 -2 6 28 2 polygon endgate } def /Sy::rbrace { % 4 -4 8 32 bbox begingate 1 1.00 4 -4 6 -4 8 -2 8 10 10 12 8 14 8 26 6 28 4 28 9 polygon endgate } def /Sy::tilde { % 4 12 18 2 bbox begingate 1 1.00 4 12 6 14 10 14 14 12 18 12 20 14 6 polygon endgate } def /Sy::Upsilon { % 4 0 22 26 bbox begingate 1 1.00 14 0 14 12 12 18 10 22 6 26 4 26 6 polygon 1 1.00 14 12 20 24 22 26 24 24 4 polygon 1 1.00 12 0 16 0 2 polygon endgate } def /Sy::prime { % 6 22 6 10 bbox begingate 0 1.00 10 32 6 22 8 32 3 polygon endgate } def /Sy::leq { % 4 4 18 14 bbox begingate 1 1.00 20 8 4 13 20 18 3 polygon 1 1.00 4 4 20 4 2 polygon endgate } def /Sy::aslash { % 4 0 16 26 bbox begingate 1 1.00 4 0 18 26 2 polygon endgate } def /Sy::infty { % 4 6 20 10 bbox begingate 1 1.00 20 6 16 6 10 16 6 16 4 12 4 10 6 6 10 6 16 16 20 16 10 polygon 1 1.00 20 16 22 12 22 10 20 6 4 polygon endgate } def /Sy::itf { % 2 -6 14 32 bbox begingate 1 1.00 2 -4 4 -6 6 -4 10 24 12 26 14 24 6 polygon 1 1.00 4 18 14 18 2 polygon endgate } def /Sy::rarrow { % 6 8 30 8 bbox begingate 1 1.00 6 12 34 12 2 polygon 1 1.00 24 8 34 12 24 16 3 polygon endgate } def /Sy::larrow { % 6 10 30 8 bbox begingate 1.00 -1 40 2 Sy::rarrow endgate } def /Sy::uarrow { % 6 2 10 28 bbox begingate 1.00 90 22 -4 Sy::rarrow endgate } def /Sy::lrarrow { % 6 12 34 8 bbox begingate 1.00 0 4 4 Sy::rarrow 1.00 -1 40 4 Sy::rarrow endgate } def /Sy::darrow { % 8 -2 10 28 bbox begingate 1.00 270 0 32 Sy::rarrow endgate } def /Sy::degree { % 8 20 10 8 bbox begingate 1 1.00 12 24 4 0.00 360.00 xcarc endgate } def /Sy::pm { % 4 6 18 10 bbox begingate 1 1.00 12 8 12 16 2 polygon 1 1.00 4 12 20 12 2 polygon 1 1.00 4 6 20 6 2 polygon endgate } def /Sy::dprime { % 5 22 12 10 bbox begingate 1.00 0 5 0 Sy::prime 1.00 0 -1 0 Sy::prime endgate } def /Sy::geq { % 8 6 18 14 bbox begingate 1.00 -1 28 2 Sy::leq endgate } def /Sy::times { % 4 6 14 12 bbox begingate 1 1.00 4 6 16 18 2 polygon 1 1.00 4 18 16 6 2 polygon endgate } def /Sy::prop { % 4 6 18 10 bbox begingate 1 1.00 20 6 16 6 10 16 6 16 4 12 4 10 6 6 10 6 16 16 20 16 10 polygon endgate } def /Sy::deriv { % 5 0 17 26 bbox begingate 1 1.00 9 24 12 26 16 25 19 22 20 16 20 6 18 2 14 0 11 0 7 2 5 6 5 10 8 14 12 16 15 16 18 14 20 10 17 polygon endgate } def /Sy::bullet { % 5 8 10 8 bbox begingate 241 1.00 9 12 4 0.00 360.00 xcarc endgate } def /Sy::div { % 4 4 18 16 bbox begingate 1 1.00 4 12 20 12 2 polygon 241 1.00 12 18 2 0.00 360.00 xcarc 241 1.00 12 6 2 0.00 360.00 xcarc endgate } def /Sy::neq { % 4 8 18 12 bbox begingate 1 1.00 4 8 20 20 2 polygon 1.00 0 -2 2 Sy::equal endgate } def /Sy::teq { % 4 6 18 8 bbox begingate 1 1.00 4 10 20 10 2 polygon 1 1.00 4 14 20 14 2 polygon 1 1.00 4 6 20 6 2 polygon endgate } def /Sy::sim { % 6 8 18 6 bbox begingate 1.00 0 2 0 Sy::tilde 1.00 0 2 -4 Sy::tilde endgate } def /Sy::dots { % 6 1 34 4 bbox begingate 1.00 0 2 1 Sy::period 1.00 0 16 1 Sy::period 1.00 0 30 1 Sy::period endgate } def /Sy::longvbar { % 10 -8 2 36 bbox begingate 1 1.00 10 -8 10 28 2 polygon endgate } def /Sy::lang { % 8 -4 10 30 bbox begingate 1 1.00 16 -4 8 11 16 26 3 polygon endgate } def /Sy::rang { % 8 -4 10 30 bbox begingate 1 1.00 8 -4 16 11 8 26 3 polygon endgate } def /Sy::int { % 8 -4 18 36 bbox begingate 1 1.00 8 0 8 -2 10 -4 12 -4 14 -2 16 0 16 26 18 30 20 32 22 32 24 30 24 28 12 polygon endgate } def /Sy::diamond { % 3 0 20 26 bbox begingate 241 1.00 12 0 3 13 12 26 21 13 12 0 5 polygon endgate } def /Sy::heart { % 4 0 26 24 bbox begingate 26 14 beginpath 22 18 6 -38.66 168.69 arc 10 18 6 11.31 219.81 arc 26 13 16 0 2 polyc 241 1.00 endpath endgate } def /Sy::club { % 5 0 27 25 bbox begingate 22 4 beginpath 25 9 5 -120.96 120.96 arc 21 17 18 11 2 polyc 17 20 5 -30.96 210.96 arc 13 13 17 11 2 polyc 10 9 5 59.04 300.96 arc 22 5 17 8 20 0 15 0 18 8 5 polyc 241 1.00 endpath endgate } def /Sy::spade { % 4 0 24 25 bbox begingate 5 12 beginpath 9 9 5 140.19 348.69 arc 16 8 15 8 17 0 13 0 15 8 5 polyc 21 9 5 191.31 398.66 arc 5 12 15 25 2 polyc 241 1.00 endpath endgate } def /Sy::del { % 6 0 22 26 bbox begingate 1.00 -181 2 26 Sy::Delta endgate } def /Sy::hbar { % 0 16 44 0 bbox begingate 1 1.00 0 16 44 16 2 polygon endgate } def /Sy::return { % 2 4 18 24 bbox begingate 1 1.00 20 28 20 8 2 8 3 polygon 1 1.00 2 8 12 12 2 polygon 1 1.00 2 8 12 4 2 polygon endgate } def /Sy::aleph { % 4 0 26 26 bbox begingate 1 1.00 4 26 6 22 22 5 24 0 4 polygon 1 1.00 4 0 8 1 6 4 5 8 5 11 7 14 10 16 7 polygon 1 1.00 14 14 19 18 21 20 3 polygon 1 1.00 18 26 19 23 23 19 3 polygon endgate } def /Sy::Ifraktur { % 3 0 22 27 bbox begingate 1 1.00 4 4 7 3 10 0 14 0 18 1 21 3 23 7 23 12 19 19 22 27 18 26 12 26 9 27 5 26 3 22 5 19 9 18 17 polygon endgate } def /Sy::Rfraktur { % 3 0 25 27 bbox begingate 1 1.00 4 2 5 0 7 0 9 2 10 13 9 23 7 27 5 27 3 24 3 21 5 19 6 17 12 polygon 1 1.00 9 23 14 27 17 26 22 21 10 13 5 polygon 1 1.00 13 15 16 13 18 8 21 2 23 0 26 2 6 polygon endgate } def /Sy::weiers { % 4 0 26 21 bbox begingate 1 1.00 12 21 7 18 5 14 5 11 8 4 8 1 6 0 4 2 4 4 6 8 10 15 15 18 20 20 23 19 24 16 22 11 16 6 12 5 10 6 10 8 11 10 21 polygon endgate } def /Sy::circmult { % 3 3 26 26 bbox begingate 1 1.00 16 16 13 0.00 360.00 xcarc 1.00 0 6 4 Sy::times endgate } def /Sy::circplus { % 3 3 26 26 bbox begingate 1 1.00 16 16 13 0.00 360.00 xcarc 1.00 0 4 4 Sy::plus endgate } def /Sy::circslash { % 3 3 26 26 bbox begingate 1 1.00 16 16 13 0.00 360.00 xcarc 1 1.00 3 3 29 29 2 polygon endgate } def /Sy::intersect { % 3 2 26 27 bbox begingate 1 1.00 16 16 13 0.00 180.00 xcarc 1 1.00 3 16 3 2 2 polygon 1 1.00 29 16 29 2 2 polygon endgate } def /Sy::union { % 3 2 26 27 bbox begingate 1.00 -181 0 31 Sy::intersect endgate } def /Sy::propsup { % 3 3 27 26 bbox begingate 1.00 270 1 32 Sy::intersect endgate } def /Sy::reflsup { % 3 0 27 30 bbox begingate 1 1.00 3 0 30 0 2 polygon 1.00 0 0 1 Sy::propsup endgate } def /Sy::notsub { % 2 0 27 32 bbox begingate 1.00 90 31 0 Sy::intersect 1 1.00 25 32 7 0 2 polygon endgate } def /Sy::propsub { % 2 3 27 26 bbox begingate 1.00 90 31 0 Sy::intersect endgate } def /Sy::reflsub { % 2 0 27 30 bbox begingate 1.00 0 0 1 Sy::propsub 1 1.00 2 0 29 0 2 polygon endgate } def /Sy::element { % 2 3 27 26 bbox begingate 1.00 0 0 0 Sy::propsub 1 1.00 2 16 29 16 2 polygon endgate } def /Sy::notelement { % 2 0 27 32 bbox begingate 1.00 0 0 0 Sy::element 1 1.00 23 32 10 0 2 polygon endgate } def /Sy::angle { % 2 0 23 23 bbox begingate 1 1.00 3 0 25 0 2 polygon 1 1.00 2 0 24 23 2 polygon endgate } def /Sy::copy { % 3 3 26 26 bbox begingate 1 1.00 16 16 13 0.00 360.00 xcarc 1 1.00 16 16 9 49.40 315.00 xcarc endgate } def /Sy::rights { % 3 3 26 26 bbox begingate 1 1.00 16 16 13 0.00 360.00 xcarc 1 1.00 11 8 11 25 15 25 3 polygon 1 1.00 11 15 16 15 21 8 3 polygon 1 1.00 15 20 5 270.00 450.00 xcarc endgate } def /Sy::trade { % 2 21 17 7 bbox begingate 1 1.00 2 28 8 28 2 polygon 1 1.00 5 28 5 21 2 polygon 1 1.00 11 28 11 21 2 polygon 1 1.00 11 28 15 21 19 28 19 21 4 polygon endgate } def /Sy::product { % 3 0 26 29 bbox begingate 1 1.00 3 29 29 29 2 polygon 1 1.00 6 28 6 0 2 polygon 1 1.00 3 0 9 0 2 polygon 1 1.00 26 29 26 0 2 polygon 1 1.00 23 0 29 0 2 polygon endgate } def /Sy::sqrt { % 2 0 20 30 bbox begingate 1 1.00 2 12 4 13 7 0 19 30 22 30 5 polygon endgate } def /Sy::sum { % 4 0 23 29 bbox begingate 1 1.00 27 4 25 0 4 0 14 14 4 29 25 29 27 25 7 polygon endgate } def /Sy::lozenge { % 4 0 18 30 bbox begingate 1.00 0 4 4 Sy::rang 1.00 0 -4 4 Sy::lang endgate } def /Sy::cdot { % 5 11 6 4 bbox begingate 1.00 0 1 11 Sy::period endgate } def /Sy::up { % 5 5 12 18 bbox begingate 1.00 270 -1 27 Sy::less endgate } def /Sy::down { % 5 5 12 18 bbox begingate 1.00 90 23 1 Sy::less endgate } def /Sy::lognot { % 4 11 16 5 bbox begingate 1 1.00 4 16 20 16 20 11 3 polygon endgate } def /Sy::dlarrow { % 3 9 24 10 bbox begingate 1 1.00 13 19 3 14 13 9 3 polygon 1 1.00 7 16 27 16 2 polygon 1 1.00 7 12 27 12 2 polygon endgate } def /Sy::drarrow { % 3 8 24 10 bbox begingate 1.00 -1 30 -1 Sy::dlarrow endgate } def /Sy::duparrow { % 4 2 10 24 bbox begingate 1.00 270 -5 29 Sy::dlarrow endgate } def /Sy::ddownarrow { % 4 2 10 24 bbox begingate 1.00 90 23 -1 Sy::dlarrow endgate } def /Sy::dlrarrow { % 2 11 28 10 bbox begingate 1 1.00 20 21 30 16 20 11 3 polygon 1.00 0 -1 2 Sy::dlarrow endgate } def /Sy::lparentop { % 6 -4 8 29 bbox begingate 1 1.00 6 -4 6 11 7 19 10 25 14 29 5 polygon endgate } def /Sy::lparenbot { % 6 3 8 29 bbox begingate 1.00 -181 0 32 Sy::lparentop endgate } def /Sy::lbracktop { % 6 -4 8 29 bbox begingate 1 1.00 6 -4 6 29 14 29 3 polygon endgate } def /Sy::lbrackbot { % 6 3 8 29 bbox begingate 1.00 -181 0 32 Sy::lbracktop endgate } def /Sy::lbracetop { % 6 -6 8 29 bbox begingate 1 1.00 6 -6 6 24 7 27 10 29 14 29 5 polygon endgate } def /Sy::lvbrace { % 2 -8 4 36 bbox begingate 1 1.00 6 36 6 15 4 13 2 12 4 11 6 9 6 -8 7 polygon endgate } def /Sy::lbracebot { % 6 3 8 36 bbox begingate 1.00 -181 0 26 Sy::lbracetop endgate } def /Sy::inttop { % 9 -4 10 30 bbox begingate 1 1.00 12 29 11 24 11 -4 9 -4 10 24 12 29 15 30 18 29 19 27 9 polygon 1 1.00 18 26 1 0.00 360.00 xcarc endgate } def /Sy::vint { % 9 -4 2 36 bbox begingate 240 1.00 9 -4 9 36 11 36 11 -4 4 polygon endgate } def /Sy::intbot { % 1 2 10 30 bbox begingate 1.00 180 20 32 Sy::inttop endgate } def /Sy::lvbar { % 6 -8 0 36 bbox begingate 1 1.00 6 -8 6 36 2 polygon endgate } def /Sy::rvbar { % -3 -4 28 36 bbox begingate 1.00 0 5 0 Sy::lvbar endgate } def /Sy::rbracktop { % 3 -2 8 29 bbox begingate 1.00 -1 17 0 Sy::lbracktop endgate } def /Sy::rbrackbot { % 3 3 8 29 bbox begingate 1.00 180 17 32 Sy::lbracktop endgate } def /Sy::rbracetop { % 3 0 8 29 bbox begingate 1.00 -1 12 0 Sy::lbracetop endgate } def /Sy::rvbrace { % -3 0 28 32 bbox begingate 1.00 -1 12 0 Sy::lvbrace endgate } def /Sy::rbracebot { % 3 3 8 29 bbox begingate 1.00 180 12 36 Sy::lbracetop endgate } def /Sy::rparentop { % 3 0 8 29 bbox begingate 1.00 -1 17 0 Sy::lparentop endgate } def /Sy::rparenbot { % 3 3 8 29 bbox begingate 1.00 180 17 32 Sy::lparentop endgate } def % EndLib xcircuit-3.9.73/lib/fonts/letters.ps0000664000175000001440000004341612335667423016131 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: examples/letters %%Creator: Xcircuit v2.0 %%CreationDate: Tue Nov 17 21:28:11 1998 %%Pages: 1 %%BoundingBox: 68 68 826 1150 %%DocumentNeededResources: %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 2.0 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--8/8/97 (tim@bach.ece.jhu.edu) % The Johns Hopkins University % %%BeginResource: procset XCIRCproc 2.0 2 % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /cf { dup type /realtype eq {40 mul /fscale exch def} if dup /xfont exch def findfont fscale scalefont setfont } def /Ss { gsave 0.67 dup scale gsave mty neg rmoveto glevel 1 add /glevel exch def } def /ss { gsave 0.67 dup scale gsave mty 0.5 mul rmoveto glevel 1 add /glevel exch def } def /ns { currentpoint transform % preserve x position! glevel {grestore} repeat /glevel 0 def itransform pop currentpoint pop sub 0 rmoveto } def /ul { showflag 1 eq { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } def /ol { showflag 1 eq { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } def /stW { gsave true charpath flattenpath pathbbox pop exch pop sub grestore } def /bs { stW 0 rmoveto } def /pspc 0 def /qS { (aa) stW (a a) stW sub 4 div 0 rmoveto } def /hS { qS qS } def /textx { dup 2 mul 1 add copy 0 exch { exch exec exch stringwidth pop add } repeat neg ns } def /mty { 0 topmat setmatrix (A) true charpath flattenpath pathbbox exch pop exch sub exch pop neg grestore } def /texty { gsave 2 copy pop exec mty } def /tcenter { textx grestore 0.5 mul 0 rmoveto } def /tright { textx grestore fspc sub 0 rmoveto } def /tmiddle { texty 0.5 mul rmoveto } def /ttop { texty fspc sub rmoveto } def /tshow { { exec show } repeat ns } def /label { gsave translate 0 0 moveto rotate /just exch def just 16 and 0 gt {0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup 0 eq {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse {-1 /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch 0 lt {-1 /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /glevel 0 def /showflag 0 def /fspc pspc def just 1 and 0 gt {gsave just 2 and 0 gt {tright}{tcenter} ifelse} {fspc 0 rmoveto} ifelse just 4 and 0 gt {just 8 and 0 gt {ttop}{tmiddle} ifelse} {0 fspc rmoveto} ifelse /showflag 1 def tshow grestore } def /pinlabel { /pspc 20 def label /pspc 0 def } def /pinglobal { pinlabel } def /begingate { gsave translate 0 0 moveto dup 0 lt {neg 1 sub -1 1 scale} if rotate dup scale /pinlabel { pop pop pop pop 2 mul {pop} repeat} def } bind def /beginparm { -1 1 {1 add -1 roll def} for begingate } bind def /endgate { grestore /pinlabel { /pspc 20 def label /pspc 0 def } def } bind def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 1 and 0 gt not {closepath} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if style dup 256 ge exch 480 lt and { gsave 1 setgray eofill grestore } if style 16 and 0 gt { gsave style 224 and -5 bitshift dup 7 lt {gar exch get ppaint} { pop eofill } ifelse grestore } if style 8 and 0 gt { newpath } { stroke } ifelse grestore } def /scb { gsave setrgbcolor } bind def /sce { grestore } bind def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 setgray } def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. /myA { % 0 0 256 320 bbox begingate 240 1.00 0 0 112 320 144 320 32 0 4 polygon 240 1.00 256 0 144 320 112 320 224 0 4 polygon 240 1.00 48 80 48 112 208 112 208 80 4 polygon endgate } def /myB { % 0 0 192 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 80 160 beginpath 80 240 80 270.00 450.00 arc 80 288 1 polyc 80 240 48 450.00 270.00 arcn 80 160 1 polyc 241 1.00 endpath 96 0 beginpath 96 96 96 270.00 450.00 arc 96 160 1 polyc 96 96 65 450.00 270.00 arcn 96 0 1 polyc 241 1.00 endpath 240 1.00 32 160 32 192 96 192 96 160 4 polygon 240 1.00 32 288 32 320 80 320 80 288 4 polygon 240 1.00 32 0 32 32 96 32 96 0 4 polygon endgate } def /myC { % 0 0 259 320 bbox begingate 241 61 beginpath 160 160 128 309.81 50.19 arcn 259 284 1 polyc 160 160 160 51.34 308.66 arc 240 1.00 endpath endgate } def /myD { % 0 0 256 320 bbox begingate 96 0 beginpath 96 160 160 270.00 450.00 arc 96 288 1 polyc 96 160 128 450.00 270.00 arcn 96 0 1 polyc 241 1.00 endpath 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 32 288 32 320 96 320 96 288 4 polygon 240 1.00 32 0 32 32 96 32 96 0 4 polygon endgate } def /myE { % 0 0 192 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 32 288 32 320 192 320 192 288 4 polygon 240 1.00 32 0 32 32 192 32 192 0 4 polygon 240 1.00 32 144 32 176 160 176 160 144 4 polygon endgate } def /myF { % 0 0 192 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 32 288 32 320 192 320 192 288 4 polygon 240 1.00 32 144 32 176 160 176 160 144 4 polygon endgate } def /myG { % 0 0 274 320 bbox begingate 240 1.00 162 144 162 176 274 176 274 144 4 polygon 240 1.00 240 48 240 144 274 144 274 48 4 polygon 241 61 beginpath 160 160 128 309.81 50.19 arcn 259 284 1 polyc 160 160 160 51.34 315.00 arc 240 1.00 endpath endgate } def /myH { % 0 0 224 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 192 0 192 320 224 320 224 0 4 polygon 240 1.00 32 144 32 176 192 176 192 144 4 polygon endgate } def /myI { % 0 0 32 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon endgate } def /myJ { % -4 0 132 320 bbox begingate 240 1.00 96 80 96 320 128 320 128 80 4 polygon 128 80 beginpath 48 80 80 360.00 229.40 arcn 14 47 1 polyc 48 80 48 225.00 360.00 arc 240 1.00 endpath endgate } def /myK { % 0 0 224 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 8 176 160 320 200 320 48 176 4 polygon 240 1.00 184 0 8 176 48 176 224 0 4 polygon endgate } def /myL { % 0 0 160 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 32 0 32 32 160 32 160 0 4 polygon endgate } def /myM { % 0 0 320 320 bbox begingate 240 1.00 144 0 288 320 320 320 176 0 4 polygon 240 1.00 176 0 32 320 0 320 144 0 4 polygon 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 288 0 288 320 320 320 320 0 4 polygon endgate } def /myN { % 0 0 224 320 bbox begingate 240 1.00 224 0 32 320 0 320 192 0 4 polygon 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 192 0 192 320 224 320 224 0 4 polygon endgate } def /myO { % 0 0 320 320 bbox begingate 288 160 beginpath 160 160 128 0.00 360.00 arc 320 160 1 polyc 160 160 160 0.00 360.00 arc 241 1.00 endpath endgate } def /myP { % 0 0 192 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 96 128 beginpath 96 224 96 270.00 450.00 arc 96 288 1 polyc 96 224 65 450.00 270.00 arcn 96 128 1 polyc 241 1.00 endpath 240 1.00 32 128 32 160 96 160 96 128 4 polygon 240 1.00 32 288 32 320 96 320 96 288 4 polygon endgate } def /myQ { % 0 0 320 320 bbox begingate 288 160 beginpath 160 160 128 0.00 360.00 arc 320 160 1 polyc 160 160 160 0.00 360.00 arc 241 1.00 endpath 240 1.00 280 0 184 96 224 96 320 0 4 polygon endgate } def /myR { % 0 0 208 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 96 128 beginpath 96 224 96 270.00 450.00 arc 96 288 1 polyc 96 224 65 450.00 270.00 arcn 96 128 1 polyc 241 1.00 endpath 240 1.00 32 128 32 160 96 160 96 128 4 polygon 240 1.00 32 288 32 320 96 320 96 288 4 polygon 240 1.00 168 0 80 144 120 144 208 0 4 polygon endgate } def /myS { % -1 -1 169 320 bbox begingate 13 29 beginpath 80 87 88 -139.33 65.80 arc 55 197 1 polyc 80 239 49 239.81 36.45 arcn 142 290 1 polyc 80 239 80 40.16 240.45 arc 102 139 1 polyc 80 87 56 66.80 -138.37 arcn 22 66 1 polyc -1 44 1 polyc 15 28 1 polyc 241 1.00 endpath endgate } def /myT { % 0 0 192 320 bbox begingate 240 1.00 0 288 0 320 192 320 192 288 4 polygon 240 1.00 80 0 80 320 112 320 112 0 4 polygon endgate } def /myU { % 0 0 256 320 bbox begingate 240 1.00 0 128 0 320 32 320 32 128 4 polygon 240 1.00 224 128 224 320 256 320 256 128 4 polygon 32 127 beginpath 128 128 96 180.00 360.00 arc 256 128 1 polyc 128 128 128 360.00 180.00 arcn 240 1.00 endpath endgate } def /myV { % 0 0 256 320 bbox begingate 240 1.00 112 0 224 320 256 320 144 0 4 polygon 240 1.00 144 0 32 320 0 320 112 0 4 polygon endgate } def /myW { % 0 0 352 320 bbox begingate 240 1.00 80 0 160 320 192 320 112 0 4 polygon 240 1.00 112 0 32 320 0 320 80 0 4 polygon 240 1.00 240 0 320 320 352 320 272 0 4 polygon 240 1.00 272 0 192 320 160 320 240 0 4 polygon endgate } def /myX { % 0 0 232 320 bbox begingate 240 1.00 0 0 192 320 232 320 40 0 4 polygon 240 1.00 192 0 0 320 40 320 232 0 4 polygon endgate } def /myY { % 0 0 256 320 bbox begingate 240 1.00 112 0 112 176 144 176 144 0 4 polygon 240 1.00 128 136 0 320 40 320 128 192 4 polygon 240 1.00 128 136 256 320 216 320 128 192 4 polygon endgate } def /myZ { % 0 0 192 320 bbox begingate 240 1.00 0 288 0 320 192 320 192 288 4 polygon 240 1.00 0 0 0 32 192 32 192 0 4 polygon 240 1.00 0 32 152 288 192 288 40 32 4 polygon endgate } def /mya { % 0 0 176 192 bbox begingate 240 1.00 144 0 144 192 176 192 176 0 4 polygon 153 67 beginpath 96 96 64 333.43 26.57 arcn 164 164 1 polyc 96 96 96 45.00 308.66 arc 240 1.00 endpath endgate } def /myb { % 0 0 176 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 22 67 beginpath 80 96 64 -153.43 153.43 arc 12 164 1 polyc 80 96 96 135.00 -128.66 arcn 240 1.00 endpath endgate } def /myc { % 0 0 156 192 bbox begingate 136 46 beginpath 96 96 64 309.81 50.19 arcn 156 171 1 polyc 96 96 96 51.34 308.66 arc 240 1.00 endpath endgate } def /myd { % 0 0 176 320 bbox begingate 240 1.00 144 0 144 320 176 320 176 0 4 polygon 153 67 beginpath 96 96 64 333.43 26.57 arcn 164 164 1 polyc 96 96 96 45.00 308.66 arc 240 1.00 endpath endgate } def /mye { % 0 0 192 192 bbox begingate 240 1.00 16 80 16 112 160 112 192 96 192 80 5 polygon 147 57 beginpath 96 96 64 323.13 0.00 arcn 192 96 1 polyc 96 96 96 0.00 324.46 arc 240 1.00 endpath endgate } def /myf { % 0 0 164 320 bbox begingate 240 1.00 80 256 80 0 48 0 48 256 4 polygon 240 1.00 0 176 0 208 128 208 128 176 4 polygon 138 273 beginpath 112 256 32 33.69 180.00 arc 48 256 1 polyc 112 256 64 180.00 35.54 arcn 240 1.00 endpath endgate } def /myg { % 0 -112 176 304 bbox begingate 153 67 beginpath 96 96 64 333.43 26.57 arcn 164 164 1 polyc 96 96 96 45.00 308.66 arc 240 1.00 endpath 240 1.00 144 -16 144 192 176 192 176 -16 4 polygon 36 -63 beginpath 80 -16 64 227.73 360.00 arc 176 -16 1 polyc 80 -16 96 360.00 225.00 arcn 240 1.00 endpath endgate } def /myh { % 0 0 160 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 128 0 128 112 160 112 160 0 4 polygon 3 133 beginpath 80 112 80 164.05 0.00 arcn 128 112 1 polyc 80 112 48 0.00 165.96 arc 240 1.00 endpath endgate } def /myi { % 0 0 32 256 bbox begingate 240 1.00 0 0 0 192 32 192 32 0 4 polygon 240 1.00 16 240 16 0.00 360.00 xcarc endgate } def /myj { % -84 -112 116 368 bbox begingate 240 1.00 0 -48 0 192 32 192 32 -48 4 polygon -58 -65 beginpath -32 -48 32 213.69 360.00 arc 32 -48 1 polyc -32 -48 64 360.00 215.54 arcn 240 1.00 endpath 240 1.00 16 240 16 0.00 360.00 xcarc endgate } def /myk { % 0 0 160 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon 240 1.00 16 96 104 192 144 192 56 96 4 polygon 240 1.00 160 0 48 112 8 112 120 0 4 polygon endgate } def /myl { % 0 0 32 320 bbox begingate 240 1.00 0 0 0 320 32 320 32 0 4 polygon endgate } def /mym { % 0 0 288 192 bbox begingate 240 1.00 256 0 256 112 288 112 288 0 4 polygon 240 1.00 128 0 128 112 160 112 160 0 4 polygon 240 1.00 0 0 0 192 32 192 32 0 4 polygon 3 133 beginpath 80 112 80 164.05 0.00 arcn 128 112 1 polyc 80 112 48 0.00 165.96 arc 240 1.00 endpath 131 133 beginpath 208 112 80 164.05 0.00 arcn 256 112 1 polyc 208 112 48 0.00 165.96 arc 240 1.00 endpath endgate } def /myn { % 0 0 160 192 bbox begingate 240 1.00 0 0 0 192 32 192 32 0 4 polygon 3 133 beginpath 80 112 80 164.05 0.00 arcn 128 112 1 polyc 80 112 48 0.00 165.96 arc 240 1.00 endpath 240 1.00 128 0 128 112 160 112 160 0 4 polygon endgate } def /myo { % 0 0 192 192 bbox begingate 192 96 beginpath 96 96 96 0.00 360.00 arc 160 96 1 polyc 96 96 64 0.00 360.00 arc 241 1.00 endpath endgate } def /myp { % 0 -112 176 304 bbox begingate 22 67 beginpath 80 96 64 -153.43 153.43 arc 12 164 1 polyc 80 96 96 135.00 -128.66 arcn 240 1.00 endpath 240 1.00 0 -112 0 192 32 192 32 -112 4 polygon endgate } def /myq { % 0 -112 176 304 bbox begingate 153 67 beginpath 96 96 64 333.43 26.57 arcn 164 164 1 polyc 96 96 96 45.00 308.66 arc 240 1.00 endpath 240 1.00 144 -112 144 192 176 192 176 -112 4 polygon endgate } def /myr { % 0 0 136 192 bbox begingate 136 168 beginpath 80 112 80 45.00 180.00 arc 32 112 1 polyc 80 112 48 180.00 26.57 arcn 240 1.00 endpath 240 1.00 0 0 0 192 32 192 32 0 4 polygon endgate } def /mys { % 0 -1 113 193 bbox begingate 106 161 beginpath 56 136 56 26.57 253.30 arc 62 79 1 polyc 56 56 24 433.30 198.43 arcn 4 34 1 polyc 56 56 57 -155.56 73.30 arc 49 114 1 polyc 56 136 24 253.30 18.43 arcn 240 1.00 endpath endgate } def /myt { % 0 0 164 320 bbox begingate 240 1.00 80 64 80 320 48 320 48 64 4 polygon 240 1.00 0 240 0 208 128 208 128 240 4 polygon 138 46 beginpath 112 64 32 326.31 180.00 arcn 48 64 1 polyc 112 64 64 180.00 324.46 arc 240 1.00 endpath endgate } def /myu { % 0 0 160 192 bbox begingate 240 1.00 160 192 160 0 128 0 128 192 4 polygon 156 58 beginpath 80 80 80 344.05 180.00 arcn 32 80 1 polyc 80 80 48 180.00 345.96 arc 240 1.00 endpath 240 1.00 32 192 32 80 0 80 0 192 4 polygon endgate } def /myv { % 0 0 192 192 bbox begingate 240 1.00 32 192 112 0 80 0 0 192 4 polygon 240 1.00 160 192 80 0 112 0 192 192 4 polygon endgate } def /myw { % 0 0 288 192 bbox begingate 240 1.00 32 192 96 0 64 0 0 192 4 polygon 240 1.00 128 192 64 0 96 0 160 192 4 polygon 240 1.00 160 192 224 0 192 0 128 192 4 polygon 240 1.00 256 192 192 0 224 0 288 192 4 polygon endgate } def /myx { % 0 0 200 192 bbox begingate 240 1.00 200 0 40 192 0 192 160 0 4 polygon 240 1.00 0 0 160 192 200 192 40 0 4 polygon endgate } def /myy { % 0 -112 192 304 bbox begingate 240 1.00 32 192 112 0 80 0 0 192 4 polygon 240 1.00 160 192 32 -112 64 -112 192 192 4 polygon endgate } def /myz { % 0 0 160 192 bbox begingate 240 1.00 0 32 120 160 160 160 40 32 4 polygon 240 1.00 0 192 0 160 160 160 160 192 4 polygon 240 1.00 0 32 0 0 160 0 160 32 4 polygon endgate } def %%Page: 1 1 %%PageOrientation: Portrait /pgsave save def bop % 768 2544 offsets 1.0000 inchscale 2.6000 setlinewidth 1.00 0 192 2736 myA 1.00 0 512 2736 myB 1.00 0 768 2736 myC 1.00 0 1088 2736 myD 1.00 0 1408 2736 myE 1.00 0 1664 2736 myF 1.00 0 1920 2736 myG 1.00 0 192 2352 myH 1.00 0 512 2352 myI 1.00 0 576 2352 myJ 1.00 0 768 2352 myK 1.00 0 1024 2352 myL 1.00 0 1216 2352 myM 1.00 0 1600 2352 myN 1.00 0 1856 2352 myO 1.00 0 192 1968 myP 1.00 0 448 1968 myQ 1.00 0 832 1968 myR 1.00 0 1088 1968 myS 1.00 0 1280 1968 myT 1.00 0 1536 1968 myU 1.00 0 1856 1968 myV 1.00 0 192 1520 myW 1.00 0 576 1520 myX 1.00 0 832 1520 myY 1.00 0 1152 1520 myZ 1.00 0 1408 1520 mya 1.00 0 1632 1520 myb 1.00 0 1856 1520 myc 1.00 0 192 1072 myd 1.00 0 416 1072 mye 1.00 0 608 1072 myf 1.00 0 736 1072 myg 1.00 0 960 1072 myh 1.00 0 1184 1072 myi 1.00 0 1312 1072 myj 1.00 0 1408 1072 myk 1.00 0 1600 1072 myl 1.00 0 1728 1072 mym 1.00 0 192 688 myn 1.00 0 384 688 myo 1.00 0 640 688 myp 1.00 0 864 688 myq 1.00 0 1088 688 myr 1.00 0 1280 688 mys 1.00 0 1408 688 myt 1.00 0 1600 688 myu 1.00 0 1824 688 myv 1.00 0 192 304 myw 1.00 0 512 304 myx 1.00 0 768 304 myy 1.00 0 1024 304 myz pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/lib/fonts/helveticaiso.xfe0000664000175000001440000000557312335667423017270 0ustar timusers% XCircuit Font encoding (XFE) file name: HelveticaISO % file: helvetica.lps family: Helvetica weight: normal shape: normal type: PostScript encoding: ISOLatin1 Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::space Hv::exclam Hv::quote Hv::pound Hv::dollar Hv::percent Hv::ampersand Hv::apostrophe Hv::lparen Hv::rparen Hv::asterisk Hv::plus Hv::comma Hv::minus Hv::period Hv::slash Hv::zero Hv::one Hv::two Hv::three Hv::four Hv::five Hv::six Hv::seven Hv::eight Hv::nine Hv::colon Hv::semi Hv::less Hv::equal Hv::more Hv::question Hv::at Hv::A Hv::B Hv::C Hv::D Hv::E Hv::F Hv::G Hv::H Hv::I Hv::J Hv::K Hv::L Hv::M Hv::N Hv::O Hv::P Hv::Q Hv::R Hv::S Hv::T Hv::U Hv::V Hv::W Hv::X Hv::Y Hv::Z Hv::lbracket Hv::backslash Hv::rbracket Hv::caret Hv::underscore Hv::apostrophe Hv::a Hv::b Hv::c Hv::d Hv::e Hv::f Hv::g Hv::h Hv::i Hv::j Hv::k Hv::l Hv::m Hv::n Hv::o Hv::p Hv::q Hv::r Hv::s Hv::t Hv::u Hv::v Hv::w Hv::x Hv::y Hv::z Hv::lbrace Hv::vbar Hv::rbrace Hv::tilde Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::onesmall Hv::grave Hv::acute Hv::hat Hv::tilde Hv::bar Hv::uu Hv::dot Hv::umlaut Hv::nullchar Hv::circ Hv::cedilla Hv::nullchar Hv::uml2 Hv::ced2 Hv::vee Hv::space Hv::upexclam Hv::cent Hv::lb Hv::sy2 Hv::yen Hv::vbar Hv::sy1 Hv::umlaut Hv::copy Hv::ordfem Hv::lgqt Hv::lognot Hv::dash Hv::regis Hv::bar Hv::circ Hv::pm Hv::twosup Hv::threesup Hv::acute Hv::mu Hv::para Hv::dot Hv::cedilla Hv::onesup Hv::ordmasc Hv::rgqt Hv::quarter Hv::half Hv::threeq Hv::uqest Hv::Agrave Hv::Aacute Hv::Acircum Hv::Atilde Hv::Adier Hv::Aring Hv::AE Hv::Ccedil Hv::Egrave Hv::Eacute Hv::Ecircum Hv::Edier Hv::Igrave Hv::Iacute Hv::Icircum Hv::Idier Hv::Eth Hv::Ntilde Hv::Ograve Hv::Oacute Hv::Ocircum Hv::Otilde Hv::Odier Hv::times Hv::Oslash Hv::Ugrave Hv::Uacute Hv::Ucircum Hv::Udier Hv::Yacute Hv::Thorn Hv::sset Hv::agrave Hv::aacute Hv::acircum Hv::atilde Hv::adier Hv::aring Hv::ae Hv::ccedil Hv::egrave Hv::eacute Hv::ecircum Hv::edier Hv::igrave Hv::iacute Hv::icircum Hv::idier Hv::eth Hv::ntilde Hv::ograve Hv::oacute Hv::ocircum Hv::otilde Hv::odier Hv::divide Hv::osl Hv::ugrave Hv::uacute Hv::ucircum Hv::udier Hv::yacute Hv::thorn Hv::ydier derived: Helvetica-BoldISO bold normal PostScript derived: Helvetica-ObliqueISO normal italic PostScript derived: Helvetica-BoldObliqueISO bold italic PostScript xcircuit-3.9.73/lib/fonts/myfont.lps0000664000175000001440000002676112335667423016143 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: my % Version: 2.0 % % % XCircuitLib library built-in objects /my::nullchar { % 0 0 256 320 bbox begingate 0 1.00 0 0 0 320 256 320 256 0 4 polygon endgate } def /my::space { % 0 0 256 320 bbox begingate endgate } def /my::A { % 32 0 256 320 bbox begingate 240 1.00 32 0 144 320 176 320 64 0 4 polygon 240 1.00 288 0 176 320 144 320 256 0 4 polygon 240 1.00 80 80 80 112 240 112 240 80 4 polygon endgate } def /my::B { % 32 0 192 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 112 160 beginpath 112 240 80 270.00 450.00 arc 112 288 1 polyc 112 240 48 450.00 270.00 arcn 112 160 1 polyc 241 1.00 endpath 128 0 beginpath 128 96 96 270.00 450.00 arc 128 160 1 polyc 128 96 65 450.00 270.00 arcn 128 0 1 polyc 241 1.00 endpath 240 1.00 64 160 64 192 128 192 128 160 4 polygon 240 1.00 64 288 64 320 112 320 112 288 4 polygon 240 1.00 64 0 64 32 128 32 128 0 4 polygon endgate } def /my::C { % 32 0 259 320 bbox begingate 273 61 beginpath 192 160 128 309.81 50.19 arcn 291 284 1 polyc 192 160 160 51.34 308.66 arc 240 1.00 endpath endgate } def /my::D { % 32 0 256 320 bbox begingate 128 0 beginpath 128 160 160 270.00 450.00 arc 128 288 1 polyc 128 160 128 450.00 270.00 arcn 128 0 1 polyc 241 1.00 endpath 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 64 288 64 320 128 320 128 288 4 polygon 240 1.00 64 0 64 32 128 32 128 0 4 polygon endgate } def /my::E { % 32 0 192 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 64 288 64 320 224 320 224 288 4 polygon 240 1.00 64 0 64 32 224 32 224 0 4 polygon 240 1.00 64 144 64 176 192 176 192 144 4 polygon endgate } def /my::F { % 32 0 192 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 64 288 64 320 224 320 224 288 4 polygon 240 1.00 64 144 64 176 192 176 192 144 4 polygon endgate } def /my::G { % 32 0 274 320 bbox begingate 240 1.00 194 144 194 176 306 176 306 144 4 polygon 240 1.00 272 48 272 144 306 144 306 48 4 polygon 273 61 beginpath 192 160 128 309.81 50.19 arcn 291 284 1 polyc 192 160 160 51.34 315.00 arc 240 1.00 endpath endgate } def /my::H { % 32 0 224 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 224 0 224 320 256 320 256 0 4 polygon 240 1.00 64 144 64 176 224 176 224 144 4 polygon endgate } def /my::I { % 64 0 32 320 bbox begingate 240 1.00 64 0 64 320 96 320 96 0 4 polygon endgate } def /my::J { % 43 0 133 320 bbox begingate 240 1.00 144 80 144 320 176 320 176 80 4 polygon 176 80 beginpath 96 80 80 360.00 229.40 arcn 62 47 1 polyc 96 80 48 225.00 360.00 arc 240 1.00 endpath endgate } def /my::K { % 32 0 224 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 40 176 192 320 232 320 80 176 4 polygon 240 1.00 216 0 40 176 80 176 256 0 4 polygon endgate } def /my::L { % 32 0 160 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 64 0 64 32 192 32 192 0 4 polygon endgate } def /my::M { % 32 0 320 320 bbox begingate 240 1.00 176 0 320 320 352 320 208 0 4 polygon 240 1.00 208 0 64 320 32 320 176 0 4 polygon 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 320 0 320 320 352 320 352 0 4 polygon endgate } def /my::N { % 32 0 224 320 bbox begingate 240 1.00 256 0 64 320 32 320 224 0 4 polygon 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 224 0 224 320 256 320 256 0 4 polygon endgate } def /my::O { % 32 0 320 320 bbox begingate 320 160 beginpath 192 160 128 0.00 360.00 arc 352 160 1 polyc 192 160 160 0.00 360.00 arc 241 1.00 endpath endgate } def /my::P { % 32 0 192 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 128 128 beginpath 128 224 96 270.00 450.00 arc 128 288 1 polyc 128 224 65 450.00 270.00 arcn 128 128 1 polyc 241 1.00 endpath 240 1.00 64 128 64 160 128 160 128 128 4 polygon 240 1.00 64 288 64 320 128 320 128 288 4 polygon endgate } def /my::Q { % 32 0 320 320 bbox begingate 320 160 beginpath 192 160 128 0.00 360.00 arc 352 160 1 polyc 192 160 160 0.00 360.00 arc 241 1.00 endpath 240 1.00 312 0 216 96 256 96 352 0 4 polygon endgate } def /my::R { % 32 0 208 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 128 128 beginpath 128 224 96 270.00 450.00 arc 128 288 1 polyc 128 224 65 450.00 270.00 arcn 128 128 1 polyc 241 1.00 endpath 240 1.00 64 128 64 160 128 160 128 128 4 polygon 240 1.00 64 288 64 320 128 320 128 288 4 polygon 240 1.00 200 0 112 144 152 144 240 0 4 polygon endgate } def /my::S { % 31 -1 169 320 bbox begingate 45 29 beginpath 112 87 88 -139.33 65.80 arc 87 197 1 polyc 112 239 49 239.81 36.45 arcn 174 290 1 polyc 112 239 80 40.16 240.45 arc 134 139 1 polyc 112 87 56 66.80 -138.37 arcn 54 66 1 polyc 31 44 1 polyc 47 28 1 polyc 241 1.00 endpath endgate } def /my::T { % 32 0 192 320 bbox begingate 240 1.00 32 288 32 320 224 320 224 288 4 polygon 240 1.00 112 0 112 320 144 320 144 0 4 polygon endgate } def /my::U { % 32 0 256 320 bbox begingate 240 1.00 32 128 32 320 64 320 64 128 4 polygon 240 1.00 256 128 256 320 288 320 288 128 4 polygon 64 127 beginpath 160 128 96 180.00 360.00 arc 288 128 1 polyc 160 128 128 360.00 180.00 arcn 240 1.00 endpath endgate } def /my::V { % 32 0 256 320 bbox begingate 240 1.00 144 0 256 320 288 320 176 0 4 polygon 240 1.00 176 0 64 320 32 320 144 0 4 polygon endgate } def /my::W { % 32 0 352 320 bbox begingate 240 1.00 112 0 192 320 224 320 144 0 4 polygon 240 1.00 144 0 64 320 32 320 112 0 4 polygon 240 1.00 272 0 352 320 384 320 304 0 4 polygon 240 1.00 304 0 224 320 192 320 272 0 4 polygon endgate } def /my::X { % 32 0 232 320 bbox begingate 240 1.00 32 0 224 320 264 320 72 0 4 polygon 240 1.00 224 0 32 320 72 320 264 0 4 polygon endgate } def /my::Y { % 32 0 256 320 bbox begingate 240 1.00 144 0 144 176 176 176 176 0 4 polygon 240 1.00 160 136 32 320 72 320 160 192 4 polygon 240 1.00 160 136 288 320 248 320 160 192 4 polygon endgate } def /my::Z { % 32 0 192 320 bbox begingate 240 1.00 32 288 32 320 224 320 224 288 4 polygon 240 1.00 32 0 32 32 224 32 224 0 4 polygon 240 1.00 32 32 184 288 224 288 72 32 4 polygon endgate } def /my::a { % 32 0 176 192 bbox begingate 240 1.00 176 0 176 192 208 192 208 0 4 polygon 185 67 beginpath 128 96 64 333.43 26.57 arcn 196 164 1 polyc 128 96 96 45.00 308.66 arc 240 1.00 endpath endgate } def /my::b { % 32 0 176 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 54 67 beginpath 112 96 64 -153.43 153.43 arc 44 164 1 polyc 112 96 96 135.00 -128.66 arcn 240 1.00 endpath endgate } def /my::c { % 32 0 156 192 bbox begingate 168 46 beginpath 128 96 64 309.81 50.19 arcn 188 171 1 polyc 128 96 96 51.34 308.66 arc 240 1.00 endpath endgate } def /my::d { % 32 0 176 320 bbox begingate 240 1.00 176 0 176 320 208 320 208 0 4 polygon 185 67 beginpath 128 96 64 333.43 26.57 arcn 196 164 1 polyc 128 96 96 45.00 308.66 arc 240 1.00 endpath endgate } def /my::e { % 32 0 192 192 bbox begingate 240 1.00 48 80 48 112 192 112 224 96 224 80 5 polygon 179 57 beginpath 128 96 64 323.13 0.00 arcn 224 96 1 polyc 128 96 96 0.00 324.46 arc 240 1.00 endpath endgate } def /my::f { % 32 0 164 320 bbox begingate 240 1.00 112 256 112 0 80 0 80 256 4 polygon 240 1.00 32 176 32 208 160 208 160 176 4 polygon 170 273 beginpath 144 256 32 33.69 180.00 arc 80 256 1 polyc 144 256 64 180.00 35.54 arcn 240 1.00 endpath endgate } def /my::g { % 32 -112 176 304 bbox begingate 185 67 beginpath 128 96 64 333.43 26.57 arcn 196 164 1 polyc 128 96 96 45.00 308.66 arc 240 1.00 endpath 240 1.00 176 -16 176 192 208 192 208 -16 4 polygon 68 -63 beginpath 112 -16 64 227.73 360.00 arc 208 -16 1 polyc 112 -16 96 360.00 225.00 arcn 240 1.00 endpath endgate } def /my::h { % 32 0 160 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 160 0 160 112 192 112 192 0 4 polygon 35 133 beginpath 112 112 80 164.05 0.00 arcn 160 112 1 polyc 112 112 48 0.00 165.96 arc 240 1.00 endpath endgate } def /my::i { % 64 0 32 256 bbox begingate 240 1.00 64 0 64 192 96 192 96 0 4 polygon 240 1.00 80 240 16 0.00 360.00 xcarc endgate } def /my::j { % -4 -112 116 368 bbox begingate 240 1.00 80 -48 80 192 112 192 112 -48 4 polygon 21 -65 beginpath 48 -48 32 213.69 360.00 arc 112 -48 1 polyc 48 -48 64 360.00 215.54 arcn 240 1.00 endpath 240 1.00 96 240 16 0.00 360.00 xcarc endgate } def /my::k { % 32 0 160 320 bbox begingate 240 1.00 32 0 32 320 64 320 64 0 4 polygon 240 1.00 48 96 136 192 176 192 88 96 4 polygon 240 1.00 192 0 80 112 40 112 152 0 4 polygon endgate } def /my::l { % 64 0 32 320 bbox begingate 240 1.00 64 0 64 320 96 320 96 0 4 polygon endgate } def /my::m { % 32 0 288 192 bbox begingate 240 1.00 288 0 288 112 320 112 320 0 4 polygon 240 1.00 160 0 160 112 192 112 192 0 4 polygon 240 1.00 32 0 32 192 64 192 64 0 4 polygon 35 133 beginpath 112 112 80 164.05 0.00 arcn 160 112 1 polyc 112 112 48 0.00 165.96 arc 240 1.00 endpath 163 133 beginpath 240 112 80 164.05 0.00 arcn 288 112 1 polyc 240 112 48 0.00 165.96 arc 240 1.00 endpath endgate } def /my::n { % 32 0 160 192 bbox begingate 240 1.00 32 0 32 192 64 192 64 0 4 polygon 35 133 beginpath 112 112 80 164.05 0.00 arcn 160 112 1 polyc 112 112 48 0.00 165.96 arc 240 1.00 endpath 240 1.00 160 0 160 112 192 112 192 0 4 polygon endgate } def /my::o { % 32 0 192 192 bbox begingate 224 96 beginpath 128 96 96 0.00 360.00 arc 192 96 1 polyc 128 96 64 0.00 360.00 arc 241 1.00 endpath endgate } def /my::p { % 32 -112 176 304 bbox begingate 54 67 beginpath 112 96 64 -153.43 153.43 arc 44 164 1 polyc 112 96 96 135.00 -128.66 arcn 240 1.00 endpath 240 1.00 32 -112 32 192 64 192 64 -112 4 polygon endgate } def /my::q { % 32 -112 176 304 bbox begingate 185 67 beginpath 128 96 64 333.43 26.57 arcn 196 164 1 polyc 128 96 96 45.00 308.66 arc 240 1.00 endpath 240 1.00 176 -112 176 192 208 192 208 -112 4 polygon endgate } def /my::r { % 32 0 136 192 bbox begingate 168 168 beginpath 112 112 80 45.00 180.00 arc 64 112 1 polyc 112 112 48 180.00 26.57 arcn 240 1.00 endpath 240 1.00 32 0 32 192 64 192 64 0 4 polygon endgate } def /my::s { % 32 -1 113 193 bbox begingate 138 161 beginpath 88 136 56 26.57 253.30 arc 94 79 1 polyc 88 56 24 433.30 198.43 arcn 36 34 1 polyc 88 56 57 -155.56 73.30 arc 81 114 1 polyc 88 136 24 253.30 18.43 arcn 240 1.00 endpath endgate } def /my::t { % 32 0 164 320 bbox begingate 240 1.00 112 64 112 320 80 320 80 64 4 polygon 240 1.00 32 240 32 208 160 208 160 240 4 polygon 170 46 beginpath 144 64 32 326.31 180.00 arcn 80 64 1 polyc 144 64 64 180.00 324.46 arc 240 1.00 endpath endgate } def /my::u { % 32 0 160 192 bbox begingate 240 1.00 192 192 192 0 160 0 160 192 4 polygon 188 58 beginpath 112 80 80 344.05 180.00 arcn 64 80 1 polyc 112 80 48 180.00 345.96 arc 240 1.00 endpath 240 1.00 64 192 64 80 32 80 32 192 4 polygon endgate } def /my::v { % 32 0 192 192 bbox begingate 240 1.00 64 192 144 0 112 0 32 192 4 polygon 240 1.00 192 192 112 0 144 0 224 192 4 polygon endgate } def /my::w { % 32 0 288 192 bbox begingate 240 1.00 64 192 128 0 96 0 32 192 4 polygon 240 1.00 160 192 96 0 128 0 192 192 4 polygon 240 1.00 192 192 256 0 224 0 160 192 4 polygon 240 1.00 288 192 224 0 256 0 320 192 4 polygon endgate } def /my::x { % 32 0 200 192 bbox begingate 240 1.00 232 0 72 192 32 192 192 0 4 polygon 240 1.00 32 0 192 192 232 192 72 0 4 polygon endgate } def /my::y { % 32 -112 192 304 bbox begingate 240 1.00 64 192 144 0 112 0 32 192 4 polygon 240 1.00 192 192 64 -112 96 -112 224 192 4 polygon endgate } def /my::z { % 32 0 160 192 bbox begingate 240 1.00 32 32 152 160 192 160 72 32 4 polygon 240 1.00 32 192 32 160 192 160 192 192 4 polygon 240 1.00 32 32 32 0 192 0 192 32 4 polygon endgate } def % EndLib xcircuit-3.9.73/lib/fonts/courier_cyrillic.xfe0000664000175000001440000000551413066337666020153 0ustar timusers% XCircuit Font encoding (XFE) file % (Note that there are no vector font Cyrillic characters here, % but it can be used with the Cairo graphics interface.) name: Courier-Cyrillic file: courier.lps family: Courier weight: normal shape: normal type: PostScript encoding: ISO8859-5 Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::space Cr::exclam Cr::quote Cr::pound Cr::dollar Cr::percent Cr::ampersand Cr::apostrophe Cr::lparen Cr::rparen Cr::asterisk Cr::plus Cr::comma Cr::minus Cr::period Cr::slash Cr::zero Cr::one Cr::two Cr::three Cr::four Cr::five Cr::six Cr::seven Cr::eight Cr::nine Cr::colon Cr::semi Cr::less Cr::equal Cr::more Cr::question Cr::at Cr::A Cr::B Cr::C Cr::D Cr::E Cr::F Cr::G Cr::H Cr::I Cr::J Cr::K Cr::L Cr::M Cr::N Cr::O Cr::P Cr::Q Cr::R Cr::S Cr::T Cr::U Cr::V Cr::W Cr::X Cr::Y Cr::Z Cr::lbracket Cr::backslash Cr::rbracket Cr::caret Cr::underscore Cr::apostrophe Cr::a Cr::b Cr::c Cr::d Cr::e Cr::f Cr::g Cr::h Cr::i Cr::j Cr::k Cr::l Cr::m Cr::n Cr::o Cr::p Cr::q Cr::r Cr::s Cr::t Cr::u Cr::v Cr::w Cr::x Cr::y Cr::z Cr::lbrace Cr::vbar Cr::rbrace Cr::tilde Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::upexclam Cr::cent Cr::lb Cr::aslash Cr::yen Cr::itf Cr::sy1 Cr::sy2 Cr::apos2 Cr::lqt Cr::lgqt Cr::lsang Cr::rsang Cr::fi Cr::fl Cr::x Cr::minus Cr::dag Cr::ddag Cr::dot Cr::x Cr::para Cr::bullet Cr::comma2 Cr::rqt2 Cr::rqt Cr::rgqt Cr::dots Cr::perzer Cr::x Cr::uqest Cr::x Cr::grave Cr::acute Cr::hat Cr::tilchar Cr::bar Cr::uu Cr::dot Cr::umlaut Cr::x Cr::circ Cr::cedilla Cr::x Cr::uml2 Cr::ced2 Cr::vee Cr::emdash Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::x Cr::AE Cr::x Cr::ordfem Cr::x Cr::x Cr::x Cr::x Cr::Lslash Cr::Oslash Cr::OE Cr::ordmasc Cr::x Cr::x Cr::x Cr::x Cr::x Cr::ae Cr::x Cr::x Cr::x Cr::onesup Cr::x Cr::x Cr::lslash Cr::osl Cr::oe Cr::sset Cr::x Cr::x Cr::x Cr::x derived: Courier-Bold-Cyrillic bold normal PostScript derived: Courier-Italic-Cyrillic normal italic PostScript derived: Courier-BoldItalic-Cyrillic bold italic PostScript xcircuit-3.9.73/lib/fonts/times_romaniso.xfe0000664000175000001440000000556212335667423017637 0ustar timusers% XCircuit Font encoding (XFE) file name: Times-RomanISO % file: times_roman.lps family: Times-Roman weight: normal shape: normal type: PostScript encoding: ISOLatin1 TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::space TR::exclam TR::quote TR::pound TR::dollar TR::percent TR::ampersand TR::apostrophe TR::lparen TR::rparen TR::asterisk TR::plus TR::comma TR::minus TR::period TR::slash TR::zero TR::one TR::two TR::three TR::four TR::five TR::six TR::seven TR::eight TR::nine TR::colon TR::semi TR::less TR::equal TR::more TR::question TR::at TR::A TR::B TR::C TR::D TR::E TR::F TR::G TR::H TR::I TR::J TR::K TR::L TR::M TR::N TR::O TR::P TR::Q TR::R TR::S TR::T TR::U TR::V TR::W TR::X TR::Y TR::Z TR::lbracket TR::backslash TR::rbracket TR::caret TR::underscore TR::apostrophe TR::a TR::b TR::c TR::d TR::e TR::f TR::g TR::h TR::i TR::j TR::k TR::l TR::m TR::n TR::o TR::p TR::q TR::r TR::s TR::t TR::u TR::v TR::w TR::x TR::y TR::z TR::lbrace TR::vbar TR::rbrace TR::tilde TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::onesmall TR::grave TR::acute TR::hat TR::tilde TR::bar TR::uu TR::dot TR::umlaut TR::nullchar TR::circ TR::cedilla TR::nullchar TR::uml2 TR::ced2 TR::vee TR::space TR::upexclam TR::cent TR::lb TR::sy2 TR::yen TR::vbar TR::sy1 TR::umlaut TR::copy TR::ordfem TR::lgqt TR::lognot TR::dash TR::regis TR::bar TR::circ TR::pm TR::twosup TR::threesup TR::acute TR::mu TR::para TR::dot TR::cedilla TR::onesup TR::ordmasc TR::rgqt TR::quarter TR::half TR::threeq TR::uqest TR::Agrave TR::Aacute TR::Acircum TR::Atilde TR::Adier TR::Aring TR::AE TR::Ccedil TR::Egrave TR::Eacute TR::Ecircum TR::Edier TR::Igrave TR::Iacute TR::Icircum TR::Idier TR::Eth TR::Ntilde TR::Ograve TR::Oacute TR::Ocircum TR::Otilde TR::Odier TR::times TR::Oslash TR::Ugrave TR::Uacute TR::Ucircum TR::Udier TR::Yacute TR::Thorn TR::sset TR::agrave TR::aacute TR::acircum TR::atilde TR::adier TR::aring TR::ae TR::ccedil TR::egrave TR::eacute TR::ecircum TR::edier TR::igrave TR::iacute TR::icircum TR::idier TR::eth TR::ntilde TR::ograve TR::oacute TR::ocircum TR::otilde TR::odier TR::divide TR::osl TR::ugrave TR::uacute TR::ucircum TR::udier TR::yacute TR::thorn TR::ydier derived: Times-BoldISO bold normal PostScript derived: Times-ItalicISO normal italic PostScript derived: Times-BoldItalicISO bold italic PostScript xcircuit-3.9.73/lib/fonts/helvetica_cyrillic.xfe0000664000175000001440000000553313066337666020450 0ustar timusers% XCircuit Font encoding (XFE) file % (Note that there are no vector font Cyrillic characters here, % but it can be used with the Cairo graphics interface.) name: Helvetica-Cyrillic file: helvetica.lps family: Helvetica weight: normal shape: normal type: PostScript encoding: ISO8859-5 Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::space Hv::exclam Hv::quote Hv::pound Hv::dollar Hv::percent Hv::ampersand Hv::apostrophe Hv::lparen Hv::rparen Hv::asterisk Hv::plus Hv::comma Hv::minus Hv::period Hv::slash Hv::zero Hv::one Hv::two Hv::three Hv::four Hv::five Hv::six Hv::seven Hv::eight Hv::nine Hv::colon Hv::semi Hv::less Hv::equal Hv::more Hv::question Hv::at Hv::A Hv::B Hv::C Hv::D Hv::E Hv::F Hv::G Hv::H Hv::I Hv::J Hv::K Hv::L Hv::M Hv::N Hv::O Hv::P Hv::Q Hv::R Hv::S Hv::T Hv::U Hv::V Hv::W Hv::X Hv::Y Hv::Z Hv::lbracket Hv::backslash Hv::rbracket Hv::caret Hv::underscore Hv::apostrophe Hv::a Hv::b Hv::c Hv::d Hv::e Hv::f Hv::g Hv::h Hv::i Hv::j Hv::k Hv::l Hv::m Hv::n Hv::o Hv::p Hv::q Hv::r Hv::s Hv::t Hv::u Hv::v Hv::w Hv::x Hv::y Hv::z Hv::lbrace Hv::vbar Hv::rbrace Hv::tilde Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::upexclam Hv::cent Hv::lb Hv::aslash Hv::yen Hv::itf Hv::sy1 Hv::sy2 Hv::apos2 Hv::lqt Hv::lgqt Hv::lsang Hv::rsang Hv::fi Hv::fl Hv::x Hv::dash Hv::dag Hv::ddag Hv::dot Hv::x Hv::para Hv::bullet Hv::comma2 Hv::rqt2 Hv::rqt Hv::rgqt Hv::dots Hv::perzer Hv::x Hv::uqest Hv::x Hv::grave Hv::acute Hv::hat Hv::tilchar Hv::bar Hv::uu Hv::dot Hv::umlaut Hv::x Hv::circ Hv::cedilla Hv::x Hv::uml2 Hv::ced2 Hv::vee Hv::emdash Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::x Hv::AE Hv::x Hv::ordfem Hv::x Hv::x Hv::x Hv::x Hv::Lslash Hv::Oslash Hv::OE Hv::ordmasc Hv::x Hv::x Hv::x Hv::x Hv::x Hv::ae Hv::x Hv::x Hv::x Hv::onesup Hv::x Hv::x Hv::lslash Hv::osl Hv::oe Hv::sset Hv::x Hv::x Hv::x Hv::x derived: Helvetica-Bold-Cyrillic bold normal PostScript derived: Helvetica-Oblique-Cyrillic normal italic PostScript derived: Helvetica-BoldOblique-Cyrillic bold italic PostScript xcircuit-3.9.73/lib/fonts/testtest.ps0000664000175000001440000002257513213023722016311 0ustar timusers%!PS-Adobe-3.0 EPSF-3.0 %%Title: testtest.ps %%Creator: XCircuit v3.9 rev63 %%CreationDate: Mon Sep 25 21:09:24 2017 %%Pages: 1 %%BoundingBox: 68 68 694 604 %%DocumentNeededResources: font Times-Roman %%EndComments %%BeginProlog % % PostScript prolog for output from xcircuit % Version: 3.9 % % Electrical circuit (and otherwise general) drawing program % % Written by Tim Edwards 8/5/93--4/12/16 (tim@opencircuitdesign.com) % The Johns Hopkins University (1993-2004) % MultiGiG, Inc. (2004-2012) % Open Circuit Design (2012-2016) % %%BeginResource: procset XCIRCproc 3.9 1 % % supporting definitions --- these are the primary xcircuit types. /XCIRCsave save def /topmat matrix currentmatrix def /fontslant { /slant exch def [1 0 slant 1 0 0] exch findfont exch makefont dup length dict /ndict exch def { 1 index /FID ne { ndict 3 1 roll put } { pop pop } ifelse } forall ndict definefont pop} def /ul { count 0 gt { dup type /stringtype eq showflag 1 eq and { gsave currentpoint topmat setmatrix 0 0 moveto 2 index stringwidth pop (_) false charpath flattenpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint 3 -1 roll add moveto 0 rlineto stroke moveto } if } if } def /ol { count 0 gt { dup type /stringtype eq showflag 1 eq and { gsave gsave currentpoint topmat setmatrix 2 index stringwidth pop 3 index true charpath flattenpath pathbbox grestore exch pop exch pop topmat setmatrix (_) true charpath pathbbox grestore exch pop 1 index sub setlinewidth exch pop currentpoint exch 4 1 roll exch sub add moveto pop 0 rlineto stroke moveto } if } if } def /stW { gsave currentpoint newpath moveto true charpath flattenpath pathbbox pop exch pop sub grestore } def /Ts {mark Tabs aload pop counttomark 1 add array astore /Tabs exch def Tabs 0 currentpoint pop put} def /Tbn {mark Tabs aload pop counttomark dup 2 add 1 roll cleartomark 1 sub} def /Tb { 0 1 Tbn {Tabs exch get dup currentpoint pop lt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /Tf { Tbn -1 0 {Tabs exch get dup currentpoint pop gt {currentpoint exch pop moveto exit} {pop} ifelse } for } def /qS { (aa) stW (a a) stW sub 4 div 0 Kn } def /hS { qS qS } def /pspc 0 def /cf0 { scalefont setfont } bind def /Kn { dup kY add /kY exch def rmoveto } bind def /ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.33 mul neg Kn} def /Ss { /fscale fscale 0.67 mul def currentfont 0.67 cf0 0 fscale0 fscale mul 0.67 mul Kn } def /ns { 0 kY neg Kn /kY 0 def /fscale 1.0 def xfont0 1.0 cf0 } def /MR { /twidth exch def } def /CRx { } def /CR { ns 0 /Bline Bline fscale0 neg add def Bline moveto CRx } def /cf { dup type /realtype ne {1.0} if exch findfont exch kY 0 eq { 40 mul dup /fscale0 exch def cf0 /xfont0 currentfont def} {fscale0 mul fscale mul cf0} ifelse } def /ctmk { counttomark dup 2 add -1 roll pop } bind def /label { gsave translate 0 0 moveto dup scale neg /rotval exch def /twidth 100000 def /just exch def just 128 and 0 gt {/mshow {pop} def} {/mshow {show} def} ifelse just 16 and 0 gt {gsave rotval rotate 0 1 dtransform gsave pagemat setmatrix idtransform exch grestore 1 0 dtransform gsave pagemat setmatrix idtransform exch grestore dup abs 1e-9 lt {pop mul 0 gt} {3 1 roll pop pop 0 lt} ifelse grestore {-1 /rotval rotval neg def /just just dup 3 and 1 ne {3 xor} if def} {1} ifelse exch -1e-9 lt {-1 /rotval rotval neg def /just just dup 12 and 4 ne {12 xor} if def} {1} ifelse scale } if /showflag 0 def /fspc pspc def /Bline 0 def /numlines 0 def /padding 0 array def /Tabs 0 array def /fscale 1.0 def /kY 0 def gsave /CRx { linewid padding aload pop numlines 1 add dup /numlines exch def array astore /padding exch def /linewid 0 def } def dup 1 add copy dup 1 0 dtransform exch atan rotate {exch dup type /stringtype eq {gsave dup gsave newpath 0 0 moveto true charpath flattenpath pathbbox pop exch pop exch pop grestore currentpoint pop add dup /linewid exch def twidth ge {grestore CR exch 1 add dup 2 add {CR} exch 1 roll exch} {grestore} ifelse true charpath flattenpath} {dup type /arraytype eq {exec} {12 string cvs true charpath flattenpath} ifelse} ifelse} repeat CRx /CRx {padding aload pop just 1280 and 0 gt {blockwid exch sub just 1024 and 0 gt {0.5 mul} if} {pop 0} ifelse 0 rmoveto numlines 1 sub dup /numlines exch def array astore /padding exch def} def exch pop pathbbox grestore 4 copy pop exch pop exch sub /blockwid exch def 3 -1 roll pop 3 1 roll just 1 and 0 gt {just 2 and 0 gt {exch pop neg fspc sub} {exch sub 0.5 mul neg} ifelse} {pop neg fspc add} ifelse exch Bline exch just 4 and 0 gt {just 8 and 0 gt {exch pop neg fspc sub} {add 0.5 mul neg} ifelse} {pop neg fspc add} ifelse rotval rotate Kn currentpoint translate /showflag 1 def /Bline 0 def /Tabs 0 array def /fscale 1.0 def /kY 0 def CRx {dup type /stringtype eq {mshow} {dup type /arraytype eq {exec} {12 string cvs mshow} ifelse} ifelse} repeat grestore endclip} def /pinlabel { 4 index 32 and 0 ne hlevel 0 eq or { /pspc 10 def label /pspc 0 def } { pop pop pop pop pop {pop} repeat } ifelse } def /pinglobal { pinlabel } def /infolabel { pinlabel } def /graphic { gsave 4 index cvx exec /DataSource get resetfile translate 0 0 moveto neg rotate dup scale cvx exec image grestore endclip} def /scb { setrgbcolor } bind def /sce { defColor aload pop scb } bind def /cRedef {/defColor currentcolor 3 array astore def} def /begingate {dup type /dicttype ne {1 dict} if begin % default params dup type /dicttype ne {1 dict} if begin % instanced params /hlevel hlevel 1 add def /defColor currentcolor sce 3 array astore def gsave sce translate 0 0 moveto neg rotate dup type /nametype eq not { dup abs currentlinewidth exch div setlinewidth } { pop } ifelse dup abs scale clipped 1 and 1 eq {/clipped clipped 1 add def} if} bind def /endgate { /hlevel hlevel 1 sub def grestore defColor aload pop cRedef scb end end endclip} bind def /hlevel 0 def /endclip {clipped 1 and 1 eq {grestore /clipped clipped 1 sub def} if} def /tmpa [1 0 0 1 0 0] def /gar {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {<30 70 60 02 03 07 06 20>} imagemask} bind {8 8 true tmpa {<0c 1e 1e 0c c0 e1 e1 c0>} imagemask} bind {8 8 true tmpa {<0f 0f 0f 0f f0 f0 f0 f0>} imagemask} bind {8 8 true tmpa {<3f f3 e1 e1 f3 3f 1e 1e>} imagemask} bind {8 8 true tmpa {} imagemask} bind {8 8 true tmpa {} imagemask} bind 7 array astore def /ppaint { gsave clip tmpa dup setmatrix pathbbox neg exch neg 4 2 roll neg 4 -1 roll 2 copy gt {exch} if 8 div ceiling 8 mul 4 2 roll neg 2 copy gt {exch} if 8 div ceiling 8 mul 3 -1 roll -8 5 -1 roll { 3 index exch 5 exch put dup -8 3 index { 3 index exch 4 exch put 3 index exec } for } for pop pop pop pop grestore } bind def /setstyles { currentlinewidth mul setlinewidth /style exch def style 2048 and 0 gt clipped 1 and 0 eq and {clip newpath /clipped clipped 1 add def} { style 1 and 0 gt not {closepath} if style 1024 and 0 gt {2 setlinecap 0 setlinejoin} if style 2 and 0 gt {currentlinewidth 4 mul dup 2 array astore 0 setdash} if style 4 and 0 gt {0.5 currentlinewidth 4 mul 2 array astore 0 setdash} if gsave style 16 and 0 gt { style 224 and -5 bitshift style 256 and 0 gt { 7 exch sub 8 div dup 1 exch sub currentrgbcolor 3 array astore {3 copy mul add 4 1 roll pop} forall pop pop setrgbcolor eofill} {dup 7 lt {gar exch get ppaint} {pop eofill} ifelse} ifelse} {style 256 and 0 gt {1 setgray eofill} if} ifelse grestore style 8 and 0 gt style 512 eq or {newpath} {stroke} ifelse grestore endclip} ifelse} def /addtoy {exch dup dup 2 mul 3 add 1 roll -1 1 { 4 1 roll dup 4 1 roll add 4 -1 roll 2 mul 1 add index 2 mul 2 add 2 roll} for pop} def /addtoy1 {1 exch addtoy pop} def /addtoy3 {3 exch addtoy pop} def /addtoy4 {4 exch addtoy pop} def /addtox {exch dup dup 2 mul 3 add 1 roll -1 1 { 4 1 roll dup 4 1 roll 3 -1 roll add exch 4 -1 roll 2 mul 1 add index 2 mul 2 add 2 roll} for pop} def /addtox1 {1 exch addtox pop} def /addtox3 {3 exch addtox pop} def /addtox4 {4 exch addtox pop} def /polygon { gsave /num exch def moveto num 1 sub {lineto} repeat setstyles } def /xcarc { gsave newpath arc setstyles } def /elb { matrix currentmatrix 7 -1 roll 7 -1 roll translate 5 1 roll 4 -1 roll 3 index div 1 scale } def /ele { 0 4 1 roll 0 4 1 roll } bind def /ellipse { gsave elb newpath ele arc setmatrix setstyles } def /pellip { elb ele arc setmatrix } def /nellip { elb ele arcn setmatrix } def /spline { gsave moveto curveto setstyles } def /polyc { {lineto} repeat } bind def /beginpath { gsave moveto } bind def /endpath { setstyles } bind def /bop { 1 setlinecap 2 setlinejoin 6 setmiterlimit 0 0 0 scb cRedef /clipped 0 def} def /psinsertion {/PSobj save def /showpage {} def /setpagedevice {pop} def bop rotate translate dup scale} def /end_insert {PSobj restore} def /setpagemat {/pagemat matrix currentmatrix def} def /inchscale {setpagemat 0.375 mul dup scale} def /cmscale {setpagemat 0.35433071 mul dup scale} def %%EndResource %%EndProlog % XCircuit output starts here. %%BeginSetup %%EndSetup %%Page: testtest 1 %%PageOrientation: Portrait %%PageBoundingBox: 72 72 690 600 /pgsave save def bop 1.0000 inchscale 2.6000 setlinewidth 992 896 translate 0.679 1.000 0.184 scb 512 1.000 -800 -704 -800 704 848 704 848 -704 4 polygon sce (this page has a bounding box.) {/Times-Roman cf} 2 16 0.000 0.700 -336 288 label pgsave restore showpage %%Trailer XCIRCsave restore %%EOF xcircuit-3.9.73/lib/fonts/helveticaiso2.lps0000664000175000001440000001146312335667423017361 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Hv % Version: 2.0 % % XCircuitLib font library /Hv::Aogonek { % 4 -5 24 31 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 16 0 Hv::ced2 endgate } def /Hv::Lcaron { % 4 0 20 27 bbox begingate 1.00 0 12 0 Hv::apostrophe 1.00 0 0 0 Hv::L endgate } def /Hv::Scedil { % 4 -6 22 32 bbox begingate 1.00 0 0 0 Hv::S 1.00 0 4 0 Hv::cedilla endgate } def /Hv::Sacute { % 4 0 22 36 bbox begingate 1.00 0 0 0 Hv::S 1.00 0 4 4 Hv::acute endgate } def /Hv::Scaron { % 4 0 22 34 bbox begingate 1.00 0 0 0 Hv::S 1.00 0 4 2 Hv::vee endgate } def /Hv::Zacute { % 4 0 22 34 bbox begingate 1.00 0 0 0 Hv::Z 1.00 0 2 2 Hv::acute endgate } def /Hv::Zcaron { % 4 0 22 34 bbox begingate 1.00 0 4 2 Hv::vee 1.00 0 0 0 Hv::Z endgate } def /Hv::Zdot { % 4 0 22 35 bbox begingate 1.00 0 0 0 Hv::Z 1.00 0 8 32 Hv::period endgate } def /Hv::aogonek { % 4 -5 19 21 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 13 0 Hv::ced2 endgate } def /Hv::lcaron { % 3 0 7 27 bbox begingate 1.00 0 0 0 Hv::l 1.00 0 4 0 Hv::apostrophe endgate } def /Hv::sacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::s 1.00 0 0 -8 Hv::acute endgate } def /Hv::zacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::z 1.00 0 0 -8 Hv::acute endgate } def /Hv::zcaron { % 4 0 16 24 bbox begingate 1.00 0 0 -8 Hv::vee 1.00 0 0 0 Hv::z endgate } def /Hv::zdot { % 4 0 16 25 bbox begingate 1.00 0 6 22 Hv::period 1.00 0 0 0 Hv::z endgate } def /Hv::tcaron { % 4 0 14 27 bbox begingate 1.00 0 0 0 Hv::t 1.00 0 12 0 Hv::apostrophe endgate } def /Hv::scedil { % 4 -6 16 22 bbox begingate 1.00 0 2 0 Hv::cedilla 1.00 0 0 0 Hv::s endgate } def /Hv::Rcaron { % 4 0 23 34 bbox begingate 1.00 0 0 0 Hv::R 1.00 0 2 2 Hv::vee endgate } def /Hv::Racute { % 4 0 23 36 bbox begingate 1.00 0 0 0 Hv::R 1.00 0 0 4 Hv::acute endgate } def /Hv::Abreve { % 4 0 24 32 bbox begingate 1.00 0 0 0 Hv::A 1.00 0 4 0 Hv::uu endgate } def /Hv::Lacute { % 4 0 20 36 bbox begingate 1.00 0 0 0 Hv::L 1.00 0 -4 4 Hv::acute endgate } def /Hv::Cacute { % 4 0 24 36 bbox begingate 1.00 0 0 0 Hv::C 1.00 0 8 4 Hv::acute endgate } def /Hv::Ccaron { % 4 0 24 34 bbox begingate 1.00 0 0 0 Hv::C 1.00 0 4 2 Hv::vee endgate } def /Hv::Eogonek { % 4 -5 22 31 bbox begingate 1.00 0 0 0 Hv::E 1.00 0 14 0 Hv::ced2 endgate } def /Hv::Ecaron { % 4 0 22 34 bbox begingate 1.00 0 0 0 Hv::E 1.00 0 4 2 Hv::vee endgate } def /Hv::Dcaron { % 4 0 24 34 bbox begingate 1.00 0 0 0 Hv::D 1.00 0 2 2 Hv::vee endgate } def /Hv::Ncaron { % 4 0 24 32 bbox begingate 1.00 0 0 0 Hv::N 1.00 0 4 0 Hv::vee endgate } def /Hv::Nacute { % 4 0 24 32 bbox begingate 1.00 0 0 0 Hv::N 1.00 0 4 0 Hv::acute endgate } def /Hv::Ouml2 { % 4 0 26 34 bbox begingate 1.00 0 0 0 Hv::O 1.00 0 8 2 Hv::uml2 endgate } def /Hv::Ucirc { % 4 0 25 38 bbox begingate 1.00 0 0 0 Hv::U 1.00 0 4 4 Hv::circ endgate } def /Hv::Uuml2 { % 4 0 25 34 bbox begingate 1.00 0 0 0 Hv::U 1.00 0 6 2 Hv::uml2 endgate } def /Hv::Tcedil { % 4 -6 22 32 bbox begingate 1.00 0 0 0 Hv::T 1.00 0 4 0 Hv::cedilla endgate } def /Hv::racute { % 4 0 12 24 bbox begingate 1.00 0 0 0 Hv::r 1.00 0 0 -8 Hv::acute endgate } def /Hv::rcaron { % 4 0 12 24 bbox begingate 1.00 0 0 0 Hv::r 1.00 0 0 -8 Hv::vee endgate } def /Hv::abreve { % 4 0 18 23 bbox begingate 1.00 0 0 0 Hv::a 1.00 0 2 -9 Hv::uu endgate } def /Hv::lacute { % 3 0 7 36 bbox begingate 1.00 0 0 0 Hv::l 1.00 0 -4 4 Hv::acute endgate } def /Hv::cacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::c 1.00 0 4 -8 Hv::acute endgate } def /Hv::ccaron { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::c 1.00 0 2 -8 Hv::vee endgate } def /Hv::eogonek { % 4 -5 18 21 bbox begingate 1.00 0 6 0 Hv::ced2 1.00 0 0 0 Hv::e endgate } def /Hv::ecaron { % 4 0 18 24 bbox begingate 1.00 0 0 0 Hv::e 1.00 0 2 -8 Hv::vee endgate } def /Hv::dcaron { % 4 0 22 27 bbox begingate 1.00 0 0 0 Hv::d 1.00 0 20 0 Hv::apostrophe endgate } def /Hv::dbar { % 4 0 18 26 bbox begingate 1.00 0 0 0 Hv::d 1.00 0 8 -8 Hv::bar endgate } def /Hv::ncaron { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::n 1.00 0 0 -8 Hv::vee endgate } def /Hv::nacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::n 1.00 0 2 -8 Hv::acute endgate } def /Hv::ucirc { % 4 0 16 26 bbox begingate 1.00 0 0 0 Hv::u 1.00 0 2 -8 Hv::circ endgate } def /Hv::uuml2 { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::u 1.00 0 4 -8 Hv::uml2 endgate } def /Hv::tcedil { % 4 -6 11 32 bbox begingate 1.00 0 0 0 Hv::t 1.00 0 4 0 Hv::cedilla endgate } def /Hv::togonek { % 4 -5 11 31 bbox begingate 1.00 0 0 0 Hv::t 1.00 0 5 0 Hv::ced2 endgate } def /Hv::ouml2 { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::o 1.00 0 4 -8 Hv::uml2 endgate } def /Hv::scaron { % 4 0 16 24 bbox begingate 1.00 0 0 0 Hv::s 1.00 0 0 -8 Hv::vee endgate } def /Hv::Tcaron { % 4 0 22 33 bbox begingate 1.00 0 0 0 Hv::T 1.00 0 3 1 Hv::vee endgate } def /Hv::dotacc { % 8 30 3 3 bbox begingate 1.00 0 4 30 Hv::period endgate } def % EndLib xcircuit-3.9.73/lib/fonts/courieriso2.xfe0000664000175000001440000000573012335667423017051 0ustar timusers% XCircuit Font encoding (XFE) file name: CourierISO2 % file: courier.lps file: courieriso2.lps family: Courier weight: normal shape: normal type: PostScript encoding: ISOLatin2 Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::space Cr::exclam Cr::quote Cr::pound Cr::dollar Cr::percent Cr::ampersand Cr::apostrophe Cr::lparen Cr::rparen Cr::asterisk Cr::plus Cr::comma Cr::minus Cr::period Cr::slash Cr::zero Cr::one Cr::two Cr::three Cr::four Cr::five Cr::six Cr::seven Cr::eight Cr::nine Cr::colon Cr::semi Cr::less Cr::equal Cr::more Cr::question Cr::at Cr::A Cr::B Cr::C Cr::D Cr::E Cr::F Cr::G Cr::H Cr::I Cr::J Cr::K Cr::L Cr::M Cr::N Cr::O Cr::P Cr::Q Cr::R Cr::S Cr::T Cr::U Cr::V Cr::W Cr::X Cr::Y Cr::Z Cr::lbracket Cr::backslash Cr::rbracket Cr::caret Cr::underscore Cr::apostrophe Cr::a Cr::b Cr::c Cr::d Cr::e Cr::f Cr::g Cr::h Cr::i Cr::j Cr::k Cr::l Cr::m Cr::n Cr::o Cr::p Cr::q Cr::r Cr::s Cr::t Cr::u Cr::v Cr::w Cr::x Cr::y Cr::z Cr::lbrace Cr::vbar Cr::rbrace Cr::tilde Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::Aogonek Cr::uu Cr::Lslash Cr::sy2 Cr::Lcaron Cr::Sacute Cr::sy1 Cr::umlaut Cr::Scaron Cr::Scedil Cr::Tcaron Cr::Zacute Cr::dash Cr::Zcaron Cr::Zdot Cr::circ Cr::aogonek Cr::ced2 Cr::lslash Cr::acute Cr::lcaron Cr::sacute Cr::vee Cr::cedilla Cr::scaron Cr::scedil Cr::tcaron Cr::zacute Cr::uml2 Cr::zcaron Cr::zdot Cr::Racute Cr::Aacute Cr::Acircum Cr::Abreve Cr::Adier Cr::Lacute Cr::Cacute Cr::Ccedil Cr::Ccaron Cr::Eacute Cr::Eogonek Cr::Edier Cr::Ecaron Cr::Iacute Cr::Icircum Cr::Dcaron Cr::Eth Cr::Nacute Cr::Ncaron Cr::Oacute Cr::Ocircum Cr::Ouml2 Cr::Odier Cr::times Cr::Rcaron Cr::Ucirc Cr::Uacute Cr::Uuml2 Cr::Udier Cr::Yacute Cr::Tcedil Cr::sset Cr::racute Cr::aacute Cr::acircum Cr::abreve Cr::adier Cr::lacute Cr::cacute Cr::ccedil Cr::ecaron Cr::eacute Cr::eogonek Cr::edier Cr::ecaron Cr::iacute Cr::icircum Cr::dcaron Cr::dbar Cr::nacute Cr::ncaron Cr::oacute Cr::ocircum Cr::ouml2 Cr::odier Cr::divide Cr::rcaron Cr::ucirc Cr::uacute Cr::uuml2 Cr::udier Cr::yacute Cr::togonek Cr::dotacc derived: Courier-BoldISO2 bold normal PostScript derived: Courier-ItalicISO2 normal italic PostScript derived: Courier-BoldItalicISO2 bold italic PostScript xcircuit-3.9.73/lib/fonts/courieriso2.lps0000664000175000001440000001146412335667423017066 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Cr % Version: 2.0 % % XCircuitLib font library /Cr::Aogonek { % 4 -5 20 31 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 12 0 Cr::ced2 endgate } def /Cr::Lcaron { % 4 0 20 27 bbox begingate 1.00 0 12 0 Cr::apostrophe 1.00 0 0 0 Cr::L endgate } def /Cr::Scedil { % 4 -6 20 32 bbox begingate 1.00 0 0 0 Cr::S 1.00 0 4 0 Cr::cedilla endgate } def /Cr::Sacute { % 4 0 20 36 bbox begingate 1.00 0 0 0 Cr::S 1.00 0 4 4 Cr::acute endgate } def /Cr::Scaron { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::S 1.00 0 4 2 Cr::vee endgate } def /Cr::Zacute { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::Z 1.00 0 2 2 Cr::acute endgate } def /Cr::Zcaron { % 4 0 20 34 bbox begingate 1.00 0 4 2 Cr::vee 1.00 0 0 0 Cr::Z endgate } def /Cr::Zdot { % 4 0 20 35 bbox begingate 1.00 0 0 0 Cr::Z 1.00 0 8 32 Cr::period endgate } def /Cr::aogonek { % 4 -5 20 21 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 8 0 Cr::ced2 endgate } def /Cr::lcaron { % 3 0 21 27 bbox begingate 1.00 0 0 0 Cr::l 1.00 0 4 0 Cr::apostrophe endgate } def /Cr::sacute { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::s 1.00 0 0 -8 Cr::acute endgate } def /Cr::zacute { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::z 1.00 0 0 -8 Cr::acute endgate } def /Cr::zcaron { % 4 0 20 24 bbox begingate 1.00 0 0 -8 Cr::vee 1.00 0 0 0 Cr::z endgate } def /Cr::zdot { % 4 0 20 25 bbox begingate 1.00 0 2 22 Cr::period 1.00 0 0 0 Cr::z endgate } def /Cr::tcaron { % 4 0 20 27 bbox begingate 1.00 0 0 0 Cr::t 1.00 0 12 0 Cr::apostrophe endgate } def /Cr::scedil { % 4 -6 20 22 bbox begingate 1.00 0 2 0 Cr::cedilla 1.00 0 0 0 Cr::s endgate } def /Cr::Rcaron { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::R 1.00 0 2 2 Cr::vee endgate } def /Cr::Racute { % 4 0 20 36 bbox begingate 1.00 0 0 0 Cr::R 1.00 0 0 4 Cr::acute endgate } def /Cr::Abreve { % 4 0 20 32 bbox begingate 1.00 0 0 0 Cr::A 1.00 0 4 0 Cr::uu endgate } def /Cr::Lacute { % 4 0 20 36 bbox begingate 1.00 0 0 0 Cr::L 1.00 0 -4 4 Cr::acute endgate } def /Cr::Cacute { % 4 0 20 36 bbox begingate 1.00 0 0 0 Cr::C 1.00 0 8 4 Cr::acute endgate } def /Cr::Ccaron { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::C 1.00 0 4 2 Cr::vee endgate } def /Cr::Eogonek { % 4 -5 20 31 bbox begingate 1.00 0 0 0 Cr::E 1.00 0 8 0 Cr::ced2 endgate } def /Cr::Ecaron { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::E 1.00 0 4 2 Cr::vee endgate } def /Cr::Dcaron { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::D 1.00 0 2 2 Cr::vee endgate } def /Cr::Ncaron { % 4 0 20 32 bbox begingate 1.00 0 0 0 Cr::N 1.00 0 0 0 Cr::vee endgate } def /Cr::Nacute { % 4 0 20 32 bbox begingate 1.00 0 0 0 Cr::N 1.00 0 4 0 Cr::acute endgate } def /Cr::Ouml2 { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::O 1.00 0 2 2 Cr::uml2 endgate } def /Cr::Ucirc { % 4 0 20 38 bbox begingate 1.00 0 0 0 Cr::U 1.00 0 4 4 Cr::circ endgate } def /Cr::Uuml2 { % 4 0 20 34 bbox begingate 1.00 0 0 0 Cr::U 1.00 0 6 2 Cr::uml2 endgate } def /Cr::Tcedil { % 4 -6 20 32 bbox begingate 1.00 0 0 0 Cr::T 1.00 0 4 0 Cr::cedilla endgate } def /Cr::racute { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::r 1.00 0 0 -8 Cr::acute endgate } def /Cr::rcaron { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::r 1.00 0 0 -8 Cr::vee endgate } def /Cr::abreve { % 4 0 20 23 bbox begingate 1.00 0 0 0 Cr::a 1.00 0 2 -9 Cr::uu endgate } def /Cr::lacute { % 3 0 21 36 bbox begingate 1.00 0 0 0 Cr::l 1.00 0 -4 4 Cr::acute endgate } def /Cr::cacute { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::c 1.00 0 4 -8 Cr::acute endgate } def /Cr::ccaron { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::c 1.00 0 2 -8 Cr::vee endgate } def /Cr::eogonek { % 4 -5 20 21 bbox begingate 1.00 0 2 0 Cr::ced2 1.00 0 0 0 Cr::e endgate } def /Cr::ecaron { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::e 1.00 0 2 -8 Cr::vee endgate } def /Cr::dcaron { % 4 0 20 27 bbox begingate 1.00 0 0 0 Cr::d 1.00 0 10 0 Cr::apostrophe endgate } def /Cr::dbar { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::d 1.00 0 8 -8 Cr::bar endgate } def /Cr::ncaron { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::n 1.00 0 0 -8 Cr::vee endgate } def /Cr::nacute { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::n 1.00 0 2 -8 Cr::acute endgate } def /Cr::ucirc { % 4 0 20 26 bbox begingate 1.00 0 0 0 Cr::u 1.00 0 2 -8 Cr::circ endgate } def /Cr::uuml2 { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::u 1.00 0 4 -8 Cr::uml2 endgate } def /Cr::tcedil { % 4 -6 20 32 bbox begingate 1.00 0 0 0 Cr::t 1.00 0 4 0 Cr::cedilla endgate } def /Cr::togonek { % 4 -5 20 31 bbox begingate 1.00 0 0 0 Cr::t 1.00 0 5 0 Cr::ced2 endgate } def /Cr::ouml2 { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::o 1.00 0 4 -8 Cr::uml2 endgate } def /Cr::scaron { % 4 0 20 24 bbox begingate 1.00 0 0 0 Cr::s 1.00 0 0 -8 Cr::vee endgate } def /Cr::Tcaron { % 4 0 20 33 bbox begingate 1.00 0 0 0 Cr::T 1.00 0 3 1 Cr::vee endgate } def /Cr::dotacc { % 8 30 16 3 bbox begingate 1.00 0 4 30 Cr::period endgate } def % EndLib xcircuit-3.9.73/lib/fonts/times_romaniso2.lps0000664000175000001440000001146412335667423017733 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: TR % Version: 2.0 % % XCircuitLib font library /TR::Aogonek { % 4 -5 24 31 bbox begingate 1.00 0 0 0 TR::A 1.00 0 16 0 TR::ced2 endgate } def /TR::Lcaron { % 4 0 20 27 bbox begingate 1.00 0 9 -4 TR::apostrophe 1.00 0 0 0 TR::L endgate } def /TR::Scedil { % 4 -6 22 32 bbox begingate 1.00 0 0 0 TR::S 1.00 0 4 0 TR::cedilla endgate } def /TR::Sacute { % 4 0 22 36 bbox begingate 1.00 0 0 0 TR::S 1.00 0 4 4 TR::acute endgate } def /TR::Scaron { % 4 0 22 34 bbox begingate 1.00 0 0 0 TR::S 1.00 0 4 2 TR::vee endgate } def /TR::Zacute { % 4 0 22 34 bbox begingate 1.00 0 0 0 TR::Z 1.00 0 2 2 TR::acute endgate } def /TR::Zcaron { % 4 0 22 34 bbox begingate 1.00 0 4 2 TR::vee 1.00 0 0 0 TR::Z endgate } def /TR::Zdot { % 4 0 22 35 bbox begingate 1.00 0 0 0 TR::Z 1.00 0 8 32 TR::period endgate } def /TR::aogonek { % 4 -5 19 21 bbox begingate 1.00 0 0 0 TR::a 1.00 0 9 0 TR::ced2 endgate } def /TR::lcaron { % 3 0 7 27 bbox begingate 1.00 0 0 0 TR::l 1.00 0 4 -4 TR::apostrophe endgate } def /TR::sacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::s 1.00 0 0 -8 TR::acute endgate } def /TR::zacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::z 1.00 0 0 -8 TR::acute endgate } def /TR::zcaron { % 4 0 16 24 bbox begingate 1.00 0 0 -8 TR::vee 1.00 0 0 0 TR::z endgate } def /TR::zdot { % 4 0 16 25 bbox begingate 1.00 0 4 22 TR::period 1.00 0 0 0 TR::z endgate } def /TR::tcaron { % 4 0 14 27 bbox begingate 1.00 0 0 0 TR::t 1.00 0 8 -4 TR::apostrophe endgate } def /TR::scedil { % 4 -6 16 22 bbox begingate 1.00 0 2 0 TR::cedilla 1.00 0 0 0 TR::s endgate } def /TR::Rcaron { % 4 0 23 34 bbox begingate 1.00 0 0 0 TR::R 1.00 0 2 2 TR::vee endgate } def /TR::Racute { % 4 0 23 36 bbox begingate 1.00 0 0 0 TR::R 1.00 0 0 4 TR::acute endgate } def /TR::Abreve { % 4 0 24 32 bbox begingate 1.00 0 0 0 TR::A 1.00 0 4 0 TR::uu endgate } def /TR::Lacute { % 4 0 20 36 bbox begingate 1.00 0 0 0 TR::L 1.00 0 -4 4 TR::acute endgate } def /TR::Cacute { % 4 0 24 36 bbox begingate 1.00 0 0 0 TR::C 1.00 0 8 4 TR::acute endgate } def /TR::Ccaron { % 4 0 24 34 bbox begingate 1.00 0 0 0 TR::C 1.00 0 4 2 TR::vee endgate } def /TR::Eogonek { % 4 -5 22 31 bbox begingate 1.00 0 0 0 TR::E 1.00 0 14 0 TR::ced2 endgate } def /TR::Ecaron { % 4 0 22 34 bbox begingate 1.00 0 0 0 TR::E 1.00 0 4 2 TR::vee endgate } def /TR::Dcaron { % 4 0 24 34 bbox begingate 1.00 0 0 0 TR::D 1.00 0 2 2 TR::vee endgate } def /TR::Ncaron { % 4 0 24 32 bbox begingate 1.00 0 0 0 TR::N 1.00 0 4 0 TR::vee endgate } def /TR::Nacute { % 4 0 24 32 bbox begingate 1.00 0 0 0 TR::N 1.00 0 4 0 TR::acute endgate } def /TR::Ouml2 { % 4 0 26 34 bbox begingate 1.00 0 0 0 TR::O 1.00 0 8 2 TR::uml2 endgate } def /TR::Ucirc { % 4 0 25 38 bbox begingate 1.00 0 0 0 TR::U 1.00 0 7 4 TR::circ endgate } def /TR::Uuml2 { % 4 0 25 34 bbox begingate 1.00 0 0 0 TR::U 1.00 0 6 2 TR::uml2 endgate } def /TR::Tcedil { % 4 -6 22 32 bbox begingate 1.00 0 0 0 TR::T 1.00 0 4 0 TR::cedilla endgate } def /TR::racute { % 4 0 12 24 bbox begingate 1.00 0 0 0 TR::r 1.00 0 0 -8 TR::acute endgate } def /TR::rcaron { % 4 0 12 24 bbox begingate 1.00 0 0 0 TR::r 1.00 0 0 -8 TR::vee endgate } def /TR::abreve { % 4 0 18 23 bbox begingate 1.00 0 0 0 TR::a 1.00 0 2 -9 TR::uu endgate } def /TR::lacute { % 3 0 7 36 bbox begingate 1.00 0 0 0 TR::l 1.00 0 -4 4 TR::acute endgate } def /TR::cacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::c 1.00 0 4 -8 TR::acute endgate } def /TR::ccaron { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::c 1.00 0 2 -8 TR::vee endgate } def /TR::eogonek { % 4 -5 18 21 bbox begingate 1.00 0 6 0 TR::ced2 1.00 0 0 0 TR::e endgate } def /TR::ecaron { % 4 0 18 24 bbox begingate 1.00 0 0 0 TR::e 1.00 0 2 -8 TR::vee endgate } def /TR::dcaron { % 4 0 22 27 bbox begingate 1.00 0 0 0 TR::d 1.00 0 14 -4 TR::apostrophe endgate } def /TR::dbar { % 4 0 18 26 bbox begingate 1.00 0 0 0 TR::d 1.00 0 6 -8 TR::bar endgate } def /TR::ncaron { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::n 1.00 0 0 -8 TR::vee endgate } def /TR::nacute { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::n 1.00 0 2 -8 TR::acute endgate } def /TR::ucirc { % 4 0 16 26 bbox begingate 1.00 0 0 0 TR::u 1.00 0 0 -8 TR::circ endgate } def /TR::uuml2 { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::u 1.00 0 0 -8 TR::uml2 endgate } def /TR::tcedil { % 4 -6 11 32 bbox begingate 1.00 0 0 0 TR::t 1.00 0 0 0 TR::cedilla endgate } def /TR::togonek { % 4 -5 11 31 bbox begingate 1.00 0 0 0 TR::t 1.00 0 5 0 TR::ced2 endgate } def /TR::ouml2 { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::o 1.00 0 0 -8 TR::uml2 endgate } def /TR::scaron { % 4 0 16 24 bbox begingate 1.00 0 0 0 TR::s 1.00 0 0 -8 TR::vee endgate } def /TR::Tcaron { % 4 0 22 33 bbox begingate 1.00 0 0 0 TR::T 1.00 0 3 1 TR::vee endgate } def /TR::dotacc { % 8 30 3 3 bbox begingate 1.00 0 4 30 TR::period endgate } def % EndLib xcircuit-3.9.73/lib/fonts/helvetica.xfe0000664000175000001440000000573312335667423016553 0ustar timusers% XCircuit Font encoding (XFE) file name: Helvetica file: helvetica.lps family: Helvetica weight: normal shape: normal type: PostScript encoding: Standard Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::space Hv::exclam Hv::quote Hv::pound Hv::dollar Hv::percent Hv::ampersand Hv::apostrophe Hv::lparen Hv::rparen Hv::asterisk Hv::plus Hv::comma Hv::minus Hv::period Hv::slash Hv::zero Hv::one Hv::two Hv::three Hv::four Hv::five Hv::six Hv::seven Hv::eight Hv::nine Hv::colon Hv::semi Hv::less Hv::equal Hv::more Hv::question Hv::at Hv::A Hv::B Hv::C Hv::D Hv::E Hv::F Hv::G Hv::H Hv::I Hv::J Hv::K Hv::L Hv::M Hv::N Hv::O Hv::P Hv::Q Hv::R Hv::S Hv::T Hv::U Hv::V Hv::W Hv::X Hv::Y Hv::Z Hv::lbracket Hv::backslash Hv::rbracket Hv::caret Hv::underscore Hv::apostrophe Hv::a Hv::b Hv::c Hv::d Hv::e Hv::f Hv::g Hv::h Hv::i Hv::j Hv::k Hv::l Hv::m Hv::n Hv::o Hv::p Hv::q Hv::r Hv::s Hv::t Hv::u Hv::v Hv::w Hv::x Hv::y Hv::z Hv::lbrace Hv::vbar Hv::rbrace Hv::tilde Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::upexclam Hv::cent Hv::lb Hv::aslash Hv::yen Hv::itf Hv::sy1 Hv::sy2 Hv::apos2 Hv::lqt Hv::lgqt Hv::lsang Hv::rsang Hv::fi Hv::fl Hv::nullchar Hv::dash Hv::dag Hv::ddag Hv::dot Hv::nullchar Hv::para Hv::bullet Hv::comma2 Hv::rqt2 Hv::rqt Hv::rgqt Hv::dots Hv::perzer Hv::nullchar Hv::uqest Hv::nullchar Hv::grave Hv::acute Hv::hat Hv::tilchar Hv::bar Hv::uu Hv::dot Hv::umlaut Hv::nullchar Hv::circ Hv::cedilla Hv::nullchar Hv::uml2 Hv::ced2 Hv::vee Hv::emdash Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::AE Hv::nullchar Hv::ordfem Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::Lslash Hv::Oslash Hv::OE Hv::ordmasc Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::ae Hv::nullchar Hv::nullchar Hv::nullchar Hv::onesup Hv::nullchar Hv::nullchar Hv::lslash Hv::osl Hv::oe Hv::sset Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar derived: Helvetica-Bold bold normal PostScript derived: Helvetica-Oblique normal italic PostScript derived: Helvetica-BoldOblique bold italic PostScript xcircuit-3.9.73/lib/fonts/symbol.xfe0000664000175000001440000000577512335667423016122 0ustar timusers% XCircuit Font encoding (XFE) file name: Symbol file: symbol.lps family: Symbol weight: normal shape: normal type: PostScript encoding: Standard Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::space Sy::exclam Sy::forall Sy::pound Sy::every Sy::percent Sy::ampersand Sy::backe Sy::lparen Sy::rparen Sy::asterisk Sy::plus Sy::comma Sy::minus Sy::period Sy::slash Sy::zero Sy::one Sy::two Sy::three Sy::four Sy::five Sy::six Sy::seven Sy::eight Sy::nine Sy::colon Sy::semi Sy::less Sy::equal Sy::more Sy::question Sy::approx Sy::Alpha Sy::Beta Sy::Xi Sy::Delta Sy::Epsilon Sy::Phi Sy::Gamma Sy::Eta Sy::Iota Sy::altTheta Sy::Kappa Sy::Lambda Sy::Mu Sy::Nu Sy::Omicron Sy::Pi Sy::Theta Sy::Rho Sy::Sigma Sy::Tau Sy::GrY Sy::altSigma Sy::Omega Sy::Chi Sy::Psi Sy::Zeta Sy::lbracket Sy::therefore Sy::rbracket Sy::perp Sy::underscore Sy::upneg Sy::alpha Sy::beta Sy::chi Sy::delta Sy::epsilon Sy::phi Sy::gamma Sy::eta Sy::iota Sy::altphi Sy::kappa Sy::lambda Sy::mu Sy::nu Sy::omicron Sy::pi Sy::theta Sy::rho Sy::sigma Sy::tau Sy::upsilon Sy::altomega Sy::omega Sy::xi Sy::psi Sy::zeta Sy::lbrace Sy::vbar Sy::rbrace Sy::tilde Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::nullchar Sy::Upsilon Sy::prime Sy::leq Sy::aslash Sy::infty Sy::itf Sy::club Sy::diamond Sy::heart Sy::spade Sy::lrarrow Sy::larrow Sy::uarrow Sy::rarrow Sy::darrow Sy::degree Sy::pm Sy::dprime Sy::geq Sy::times Sy::prop Sy::deriv Sy::bullet Sy::div Sy::neq Sy::teq Sy::sim Sy::dots Sy::lvbar Sy::hbar Sy::return Sy::aleph Sy::Ifraktur Sy::Rfraktur Sy::weiers Sy::circmult Sy::circplus Sy::circslash Sy::intersect Sy::union Sy::propsup Sy::reflsup Sy::notsub Sy::propsub Sy::reflsub Sy::element Sy::notelement Sy::angle Sy::del Sy::rights Sy::copy Sy::trade Sy::product Sy::sqrt Sy::cdot Sy::lognot Sy::up Sy::down Sy::dlrarrow Sy::dlarrow Sy::duparrow Sy::drarrow Sy::ddownarrow Sy::lozenge Sy::lang Sy::rights Sy::copy Sy::trade Sy::sum Sy::lparentop Sy::lvbar Sy::lparenbot Sy::lbracktop Sy::lvbar Sy::lbrackbot Sy::lbracetop Sy::lvbrace Sy::lbracebot Sy::lvbar Sy::nullchar Sy::rang Sy::int Sy::inttop Sy::vint Sy::intbot Sy::rparentop Sy::rvbar Sy::rparenbot Sy::rbracktop Sy::rvbar Sy::rbrackbot Sy::rbracetop Sy::rvbrace Sy::rbracebot Sy::nullchar derived: Symbol-Oblique normal italic Special xcircuit-3.9.73/lib/fonts/times_roman_cyrillic.xfe0000664000175000001440000000551713066337666021023 0ustar timusers% XCircuit Font encoding (XFE) file % (Note that there are no vector font Cyrillic characters here, % but it can be used with the Cairo graphics interface.) name: Times-Roman-Cyrillic file: times_roman.lps family: Times-Roman weight: normal shape: normal type: PostScript encoding: ISO8859-5 TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::space TR::exclam TR::quote TR::pound TR::dollar TR::percent TR::ampersand TR::apostrophe TR::lparen TR::rparen TR::asterisk TR::plus TR::comma TR::minus TR::period TR::slash TR::zero TR::one TR::two TR::three TR::four TR::five TR::six TR::seven TR::eight TR::nine TR::colon TR::semi TR::less TR::equal TR::more TR::question TR::at TR::A TR::B TR::C TR::D TR::E TR::F TR::G TR::H TR::I TR::J TR::K TR::L TR::M TR::N TR::O TR::P TR::Q TR::R TR::S TR::T TR::U TR::V TR::W TR::X TR::Y TR::Z TR::lbracket TR::backslash TR::rbracket TR::caret TR::underscore TR::apostrophe TR::a TR::b TR::c TR::d TR::e TR::f TR::g TR::h TR::i TR::j TR::k TR::l TR::m TR::n TR::o TR::p TR::q TR::r TR::s TR::t TR::u TR::v TR::w TR::x TR::y TR::z TR::lbrace TR::vbar TR::rbrace TR::tilde TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::nullchar TR::upexclam TR::cent TR::lb TR::aslash TR::yen TR::itf TR::sy1 TR::sy2 TR::apos2 TR::lqt TR::lgqt TR::lsang TR::rsang TR::fi TR::fl TR::x TR::minus TR::dag TR::ddag TR::dot TR::x TR::para TR::bullet TR::comma2 TR::rqt2 TR::rqt TR::rgqt TR::dots TR::perzer TR::x TR::uqest TR::x TR::grave TR::acute TR::hat TR::tilchar TR::bar TR::uu TR::dot TR::umlaut TR::x TR::circ TR::cedilla TR::x TR::uml2 TR::ced2 TR::vee TR::emdash TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::x TR::AE TR::x TR::ordfem TR::x TR::x TR::x TR::x TR::Lslash TR::Oslash TR::OE TR::ordmasc TR::x TR::x TR::x TR::x TR::x TR::ae TR::x TR::x TR::x TR::onesup TR::x TR::x TR::lslash TR::osl TR::oe TR::sset TR::x TR::x TR::x TR::x derived: Times-Bold-Cyrillic bold normal PostScript derived: Times-Italic-Cyrillic normal italic PostScript derived: Times-BoldItalic-Cyrillic bold italic PostScript xcircuit-3.9.73/lib/fonts/helveticaiso5.lps0000664000175000001440000000126112335667423017357 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: Hv % Version: 2.0 % % % XCircuitLib library built-in objects /Hv::Guu { % 4 0 26 34 bbox begingate 1.00 0 0 0 Hv::G 1.00 0 4 2 Hv::uu endgate } def /Hv::Idot { % 4 0 7 37 bbox begingate 1.00 0 0 0 Hv::I 1.00 0 -4 12 Hv::dot endgate } def /Hv::Scedil { % 4 -6 22 32 bbox begingate 1.00 0 0 0 Hv::S 1.00 0 4 0 Hv::cedilla endgate } def /Hv::scedil { % 4 -6 16 22 bbox begingate 1.00 0 0 0 Hv::s 1.00 0 4 0 Hv::cedilla endgate } def /Hv::guu { % 4 -6 16 30 bbox begingate 1.00 0 0 0 Hv::g 1.00 0 2 -8 Hv::uu endgate } def /Hv::dotlessi { % 6 0 4 16 bbox begingate 1 1.00 6 0 6 16 2 polygon endgate } def % EndLib xcircuit-3.9.73/lib/fonts/courieriso.xfe0000664000175000001440000000555412335667423016773 0ustar timusers% XCircuit Font encoding (XFE) file name: CourierISO % file: courier.lps family: Courier weight: normal shape: normal type: PostScript encoding: ISOLatin1 Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::space Cr::exclam Cr::quote Cr::pound Cr::dollar Cr::percent Cr::ampersand Cr::apostrophe Cr::lparen Cr::rparen Cr::asterisk Cr::plus Cr::comma Cr::minus Cr::period Cr::slash Cr::zero Cr::one Cr::two Cr::three Cr::four Cr::five Cr::six Cr::seven Cr::eight Cr::nine Cr::colon Cr::semi Cr::less Cr::equal Cr::more Cr::question Cr::at Cr::A Cr::B Cr::C Cr::D Cr::E Cr::F Cr::G Cr::H Cr::I Cr::J Cr::K Cr::L Cr::M Cr::N Cr::O Cr::P Cr::Q Cr::R Cr::S Cr::T Cr::U Cr::V Cr::W Cr::X Cr::Y Cr::Z Cr::lbracket Cr::backslash Cr::rbracket Cr::caret Cr::underscore Cr::apostrophe Cr::a Cr::b Cr::c Cr::d Cr::e Cr::f Cr::g Cr::h Cr::i Cr::j Cr::k Cr::l Cr::m Cr::n Cr::o Cr::p Cr::q Cr::r Cr::s Cr::t Cr::u Cr::v Cr::w Cr::x Cr::y Cr::z Cr::lbrace Cr::vbar Cr::rbrace Cr::tilde Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::nullchar Cr::onesmall Cr::grave Cr::acute Cr::hat Cr::tilde Cr::bar Cr::uu Cr::dot Cr::umlaut Cr::nullchar Cr::circ Cr::cedilla Cr::nullchar Cr::uml2 Cr::ced2 Cr::vee Cr::space Cr::upexclam Cr::cent Cr::lb Cr::sy2 Cr::yen Cr::vbar Cr::sy1 Cr::umlaut Cr::copy Cr::ordfem Cr::lgqt Cr::lognot Cr::dash Cr::regis Cr::bar Cr::circ Cr::pm Cr::twosup Cr::threesup Cr::acute Cr::mu Cr::para Cr::dot Cr::cedilla Cr::onesup Cr::ordmasc Cr::rgqt Cr::quarter Cr::half Cr::threeq Cr::uqest Cr::Agrave Cr::Aacute Cr::Acircum Cr::Atilde Cr::Adier Cr::Aring Cr::AE Cr::Ccedil Cr::Egrave Cr::Eacute Cr::Ecircum Cr::Edier Cr::Igrave Cr::Iacute Cr::Icircum Cr::Idier Cr::Eth Cr::Ntilde Cr::Ograve Cr::Oacute Cr::Ocircum Cr::Otilde Cr::Odier Cr::times Cr::Oslash Cr::Ugrave Cr::Uacute Cr::Ucircum Cr::Udier Cr::Yacute Cr::Thorn Cr::sset Cr::agrave Cr::aacute Cr::acircum Cr::atilde Cr::adier Cr::aring Cr::ae Cr::ccedil Cr::egrave Cr::eacute Cr::ecircum Cr::edier Cr::igrave Cr::iacute Cr::icircum Cr::idier Cr::eth Cr::ntilde Cr::ograve Cr::oacute Cr::ocircum Cr::otilde Cr::odier Cr::divide Cr::osl Cr::ugrave Cr::uacute Cr::ucircum Cr::udier Cr::yacute Cr::thorn Cr::ydier derived: Courier-BoldISO bold normal PostScript derived: Courier-ItalicISO normal italic PostScript derived: Courier-BoldItalicISO bold italic PostScript xcircuit-3.9.73/lib/fonts/helveticaiso5.xfe0000664000175000001440000000563512335667423017354 0ustar timusers% XCircuit Font encoding (XFE) file name: HelveticaISO5 % file: helvetica.lps file: helveticaiso5.lps family: Helvetica weight: normal shape: normal type: PostScript encoding: ISOLatin5 Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::space Hv::exclam Hv::quote Hv::pound Hv::dollar Hv::percent Hv::ampersand Hv::apostrophe Hv::lparen Hv::rparen Hv::asterisk Hv::plus Hv::comma Hv::minus Hv::period Hv::slash Hv::zero Hv::one Hv::two Hv::three Hv::four Hv::five Hv::six Hv::seven Hv::eight Hv::nine Hv::colon Hv::semi Hv::less Hv::equal Hv::more Hv::question Hv::at Hv::A Hv::B Hv::C Hv::D Hv::E Hv::F Hv::G Hv::H Hv::I Hv::J Hv::K Hv::L Hv::M Hv::N Hv::O Hv::P Hv::Q Hv::R Hv::S Hv::T Hv::U Hv::V Hv::W Hv::X Hv::Y Hv::Z Hv::lbracket Hv::backslash Hv::rbracket Hv::caret Hv::underscore Hv::apostrophe Hv::a Hv::b Hv::c Hv::d Hv::e Hv::f Hv::g Hv::h Hv::i Hv::j Hv::k Hv::l Hv::m Hv::n Hv::o Hv::p Hv::q Hv::r Hv::s Hv::t Hv::u Hv::v Hv::w Hv::x Hv::y Hv::z Hv::lbrace Hv::vbar Hv::rbrace Hv::tilde Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::nullchar Hv::onesmall Hv::grave Hv::acute Hv::hat Hv::tilde Hv::bar Hv::uu Hv::dot Hv::umlaut Hv::nullchar Hv::circ Hv::cedilla Hv::nullchar Hv::uml2 Hv::ced2 Hv::vee Hv::space Hv::upexclam Hv::cent Hv::lb Hv::sy2 Hv::yen Hv::vbar Hv::sy1 Hv::umlaut Hv::copy Hv::ordfem Hv::lgqt Hv::lognot Hv::dash Hv::regis Hv::bar Hv::circ Hv::pm Hv::twosup Hv::threesup Hv::acute Hv::mu Hv::para Hv::dot Hv::cedilla Hv::onesup Hv::ordmasc Hv::rgqt Hv::quarter Hv::half Hv::threeq Hv::uqest Hv::Agrave Hv::Aacute Hv::Acircum Hv::Atilde Hv::Adier Hv::Aring Hv::AE Hv::Ccedil Hv::Egrave Hv::Eacute Hv::Ecircum Hv::Edier Hv::Igrave Hv::Iacute Hv::Icircum Hv::Idier Hv::Guu Hv::Ntilde Hv::Ograve Hv::Oacute Hv::Ocircum Hv::Otilde Hv::Odier Hv::times Hv::Oslash Hv::Ugrave Hv::Uacute Hv::Ucircum Hv::Udier Hv::Idot Hv::Scedil Hv::sset Hv::agrave Hv::aacute Hv::acircum Hv::atilde Hv::adier Hv::aring Hv::ae Hv::ccedil Hv::egrave Hv::eacute Hv::ecircum Hv::edier Hv::igrave Hv::iacute Hv::icircum Hv::idier Hv::guu Hv::ntilde Hv::ograve Hv::oacute Hv::ocircum Hv::otilde Hv::odier Hv::divide Hv::osl Hv::ugrave Hv::uacute Hv::ucircum Hv::udier Hv::dotlessi Hv::scedil Hv::ydier derived: Helvetica-BoldISO5 bold normal PostScript derived: Helvetica-ObliqueISO5 normal italic PostScript derived: Helvetica-BoldObliqueISO5 bold italic PostScript xcircuit-3.9.73/lib/fonts/times_romaniso5.lps0000664000175000001440000000132112335667423017725 0ustar timusers%! PostScript set of library objects for XCircuit % Library name is: TR % Version: 2.0 % % % XCircuitLib library built-in objects /TR::Guu { % 4 0 26 34 bbox begingate 1.00 0 0 0 TR::G 1.00 0 4 2 TR::uu endgate } def /TR::Idot { % 4 0 7 37 bbox begingate 1.00 0 0 0 TR::I 1.00 0 -3 12 TR::dot endgate } def /TR::Scedil { % 4 -6 22 32 bbox begingate 1.00 0 0 0 TR::S 1.00 0 4 0 TR::cedilla endgate } def /TR::scedil { % 4 -6 16 22 bbox begingate 1.00 0 0 0 TR::s 1.00 0 2 0 TR::cedilla endgate } def /TR::guu { % 4 -6 19 30 bbox begingate 1.00 0 0 0 TR::g 1.00 0 -2 -8 TR::uu endgate } def /TR::dotlessi { % 3 0 7 22 bbox begingate 1 1.00 5 0 5 16 3 14 3 polygon 1 1.00 3 0 7 0 2 polygon endgate } def % EndLib xcircuit-3.9.73/lib/isolatin2.enc0000664000175000001440000000407013066774071015336 0ustar timusers%%BeginResource: encoding ISOLatin2Encoding /ISOLatin2Encoding [ /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question % 100 /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /.notdef % 200 /.notdef /emdash /AE /ordfeminine /Oslash /OE /ordmasculine /ae /dotlessi /oslash /oe /threesuperior /thorn /twosuperior /threequarters /Eth /trademark /registered /onequarter /Thorn /logicalnot /plusminus /minus /onesuperior /copyright /mu /eth /brokenbar /onehalf /dotlessj /Euro /.notdef /space /Aogonek /breve /Lslash /currency /Lcaron /Sacute /section /dieresis /Scaron /Scedilla /Tcaron /Zacute /hyphen /Zcaron /Zdotaccent /degree /aogonek /ogonek /lslash /acute /lcaron /sacute /caron /cedilla /scaron /scedilla /tcaron /zacute /hungarumlaut /zcaron /zdotaccent % 300 /Racute /Aacute /Acircumflex /Abreve /Adieresis /Lacute /Cacute /Ccedilla /Ccaron /Eacute /Eogonek /Edieresis /Ecaron /Iacute /Icircumflex /Dcaron /Eth /Nacute /Ncaron /Oacute /Ocircumflex /Ohungarumlaut /Odieresis /multiply /Rcaron /Uring /Uacute /Uhungarumlaut /Udieresis /Yacute /Tcedilla /germandbls /racute /aacute /acircumflex /abreve /adieresis /lacute /cacute /ccedilla /ccaron /eacute /eogonek /edieresis /ecaron /iacute /icircumflex /dcaron /dbar /nacute /ncaron /oacute /ocircumflex /ohungarumlaut /odieresis /divide /rcaron /uring /uacute /uhungarumlaut /udieresis /yacute /tcedilla /dotaccent ] def %%EndResource xcircuit-3.9.73/lib/signal.lps0000664000175000001440000000174612335667423014747 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: signal % Author: R. Timothy Edwards % % Depend sum circle2 % Depend times circle2 % Depend delta square % Depend integrate square % Depend integ2 square % XCircuitLib library objects /triangle { begingate 0 1.35 -32 36 32 0 -32 -36 3 polygon endgate } def /square { begingate 0 1.35 -32 -32 -32 32 32 32 32 -32 4 polygon endgate } def /circle2 { begingate 1 1.35 0 0 32 0.00 360.00 xcarc endgate } def /sum { begingate (S) {/Symbol cf} 2 21 0 1.30 0 0 label 1.00 0 0 0 circle2 endgate } def /times { begingate 1.00 0 0 0 circle2 (\264) {/Symbol cf} 2 21 0 1.75 2 4 label endgate } def /delta { begingate 1.00 0 0 0 square (D) {/Symbol cf} 2 21 0 1.30 0 0 label endgate } def /integrate { begingate 1.00 0 0 0 square (s) {/Symbol cf} 2 21 0 1.30 0 0 label endgate } def /integ2 { begingate 1.00 0 0 0 square (\362) {/Symbol cf} 2 21 0 1.30 0 -2 label endgate } def % EndLib xcircuit-3.9.73/lib/series74xx.lps0000664000175000001440000147367012335667423015531 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: series74xx % Author: R. Timothy Edwards % % XCircuitLib library objects /Template8 { % hidden <> begingate 0 1.00 -224 176 -224 464 224 464 224 176 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 336 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 384 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 496 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin5 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin6 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin7 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin8 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 256 label endgate } def /Template14 { % hidden <> begingate 0 1.00 -224 0 -224 448 224 448 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 272 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 320 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 464 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin8 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin9 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin10 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin11 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin12 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label endgate } def /Template16 { % hidden <> begingate 0 1.00 -224 0 -224 512 224 512 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 272 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 320 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 544 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin9 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin10 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin11 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin12 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label endgate } def /Template20 { % hidden <> begingate 0 1.00 -224 0 -224 640 224 640 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 400 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 448 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 656 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 608 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 544 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin11 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin12 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin17 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin18 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark pin19 {/Helvetica cf} ctmk 23 0 1.00 208 544 label mark pin20 {/Helvetica cf} ctmk 23 0 1.00 208 608 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label endgate } def /Template24 { % hidden <> begingate 0 1.00 -224 0 -224 768 224 768 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 528 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 576 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 784 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 736 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 672 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 608 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 544 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin11 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin12 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin13 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin14 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin17 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin18 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin19 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin20 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark pin21 {/Helvetica cf} ctmk 23 0 1.00 208 544 label mark pin22 {/Helvetica cf} ctmk 23 0 1.00 208 608 label mark pin23 {/Helvetica cf} ctmk 23 0 1.00 208 672 label mark pin24 {/Helvetica cf} ctmk 23 0 1.00 208 736 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label endgate } def /Template28 { % hidden <> begingate 0 1.00 -224 0 -224 896 224 896 224 0 4 polygon mark title {/Helvetica-Bold cf} ctmk 29 0 1.00 0 592 label mark gate {/Helvetica-Bold cf} ctmk 21 0 1.00 0 640 label mark @index (U) {/Helvetica cf} ctmk 17 0 1.00 0 912 label mark pin1 {/Helvetica cf} ctmk 20 0 1.00 -208 864 label mark pin2 {/Helvetica cf} ctmk 20 0 1.00 -208 800 label mark pin3 {/Helvetica cf} ctmk 20 0 1.00 -208 736 label mark pin4 {/Helvetica cf} ctmk 20 0 1.00 -208 672 label mark pin5 {/Helvetica cf} ctmk 20 0 1.00 -208 608 label mark pin6 {/Helvetica cf} ctmk 20 0 1.00 -208 544 label mark pin7 {/Helvetica cf} ctmk 20 0 1.00 -208 480 label mark pin8 {/Helvetica cf} ctmk 20 0 1.00 -208 416 label mark pin9 {/Helvetica cf} ctmk 20 0 1.00 -208 352 label mark pin10 {/Helvetica cf} ctmk 20 0 1.00 -208 288 label mark pin11 {/Helvetica cf} ctmk 20 0 1.00 -208 224 label mark pin12 {/Helvetica cf} ctmk 20 0 1.00 -208 160 label mark pin13 {/Helvetica cf} ctmk 20 0 1.00 -208 96 label mark pin14 {/Helvetica cf} ctmk 20 0 1.00 -208 32 label mark pin15 {/Helvetica cf} ctmk 23 0 1.00 208 32 label mark pin16 {/Helvetica cf} ctmk 23 0 1.00 208 96 label mark pin17 {/Helvetica cf} ctmk 23 0 1.00 208 160 label mark pin18 {/Helvetica cf} ctmk 23 0 1.00 208 224 label mark pin19 {/Helvetica cf} ctmk 23 0 1.00 208 288 label mark pin20 {/Helvetica cf} ctmk 23 0 1.00 208 352 label mark pin21 {/Helvetica cf} ctmk 23 0 1.00 208 416 label mark pin22 {/Helvetica cf} ctmk 23 0 1.00 208 480 label mark pin23 {/Helvetica cf} ctmk 23 0 1.00 208 544 label mark pin24 {/Helvetica cf} ctmk 23 0 1.00 208 608 label mark pin25 {/Helvetica cf} ctmk 23 0 1.00 208 672 label mark pin26 {/Helvetica cf} ctmk 23 0 1.00 208 736 label mark pin27 {/Helvetica cf} ctmk 23 0 1.00 208 800 label mark pin28 {/Helvetica cf} ctmk 23 0 1.00 208 864 label mark (\)) pkg (\() {/Helvetica cf} ctmk 21 0 1.00 0 64 label endgate } def % Depend dil_7400 Template14 /dil_7400 { <> begingate 1.00 0 0 0 << /gate (7400) /title {(4 dual-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3B) /pin10 (3A) /pin11 (4Y) /pin12 (4B) /pin13 (4A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7401 Template14 /dil_7401 { <> begingate 1.00 0 0 0 << /gate (7401) /title {(OC) {CR} (4 dual-NAND)} /@index @index /pkg pkg /pin1 (1Y) /pin2 (1A) /pin3 (1B) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4A) /pin12 (4B) /pin13 (4Y) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7402 Template14 /dil_7402 { <> begingate 1.00 0 0 0 << /gate (7402) /title {(4 dual-NOR)} /@index @index /pkg pkg /pin1 (1Y) /pin2 (1A) /pin3 (1B) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4A) /pin12 (4B) /pin13 (4Y) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7403 Template14 /dil_7403 { <> begingate 1.00 0 0 0 << /gate (7403) /title {(OC) {CR} (4 dual-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7404 Template14 /dil_7404 { <> begingate 1.00 0 0 0 << /gate (7404) /title {(6 inverters)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7405 Template14 /dil_7405 { <> begingate 1.00 0 0 0 << /gate (7405) /title {(OC) {CR} (6 inverters)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7406 Template14 /dil_7406 { <> begingate 1.00 0 0 0 << /gate (7406) /title {(voltage) {CR} (OC high-) {CR} (6 inverters)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7407 Template14 /dil_7407 { <> begingate 1.00 0 0 0 << /gate (7407) /title {(6 buffers OC)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7408 Template14 /dil_7408 { <> begingate 1.00 0 0 0 << /gate (7408) /title {(4 dual-AND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7409 Template14 /dil_7409 { <> begingate 1.00 0 0 0 << /gate (7409) /title {(OC) {CR} (4 dual-AND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7410 Template14 /dil_7410 { <> begingate 1.00 0 0 0 << /gate (7410) /title {(NAND) {CR} (3 triple-)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (A2) /pin4 (B2) /pin5 (C2) /pin6 (Y2) /pin7 (Gnd) /pin8 (Y3) /pin9 (A3) /pin10 (B3) /pin11 (C3) /pin12 (Y1) /pin13 (C1) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7411 Template14 /dil_7411 { <> begingate 1.00 0 0 0 << /gate (7411) /title {(3 triple-AND)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (A2) /pin4 (B2) /pin5 (C2) /pin6 (Y2) /pin7 (Gnd) /pin8 (Y3) /pin9 (A3) /pin10 (B3) /pin11 (C3) /pin12 (Y1) /pin13 (C1) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7412 Template14 /dil_7412 { <> begingate 1.00 0 0 0 << /gate (7412) /title {(NAND OC) {CR} (3 triple-)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (A2) /pin4 (B2) /pin5 (C2) /pin6 (Y2) /pin7 (Gnd) /pin8 (Y3) /pin9 (A3) /pin10 (B3) /pin11 (C3) /pin12 (Y1) /pin13 (C1) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7413 Template14 /dil_7413 { <> begingate 1.00 0 0 0 << /gate (7413) /title {(trigger) {CR} (Schmitt) {CR} (NAND) {CR} (2 quad-input)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7414 Template14 /dil_7414 { <> begingate 1.00 0 0 0 << /gate (7414) /title {(inverter) {CR} (trigger) {CR} (6 Schmitt)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7415 Template14 /dil_7415 { <> begingate 1.00 0 0 0 << /gate (7415) /title {(OC) {CR} (3 triple-AND)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (A2) /pin4 (B2) /pin5 (C2) /pin6 (Y2) /pin7 (Gnd) /pin8 (Y3) /pin9 (A3) /pin10 (B3) /pin11 (C3) /pin12 (Y1) /pin13 (C1) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7416 Template14 /dil_7416 { <> begingate 1.00 0 0 0 << /gate (7416) /title {(voltage) {CR} (OC high-) {CR} (6 inverters)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7418 Template14 /dil_7418 { <> begingate 1.00 0 0 0 << /gate (7418) /title {(trigger) {CR} (Schmitt) {CR} (2 quad-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7419 Template14 /dil_7419 { <> begingate 1.00 0 0 0 << /gate (7419) /title {(trigger) {CR} (Schmitt) {CR} (6 inverter)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3Y) /pin7 (Gnd) /pin8 (4Y) /pin9 (4A) /pin10 (5Y) /pin11 (5A) /pin12 (6Y) /pin13 (6A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7420 Template14 /dil_7420 { <> begingate 1.00 0 0 0 << /gate (7420) /title {(2 quad-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7421 Template14 /dil_7421 { <> begingate 1.00 0 0 0 << /gate (7421) /title {(2 quad-AND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7422 Template14 /dil_7422 { <> begingate 1.00 0 0 0 << /gate (7422) /title {(OC) {CR} (2 quad-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7423 Template16 /dil_7423 { <> begingate 1.00 0 0 0 << /gate (7423) /title {(with strobe) {CR} (2 quad-NOR)} /@index @index /pkg pkg /pin1 (1X) /pin2 (1A) /pin3 (1B) /pin4 (1G) /pin5 (1C) /pin6 (1D) /pin7 (1Y) /pin8 (Gnd) /pin9 (2Y) /pin10 (2A) /pin11 (2B) /pin12 (2G) /pin13 (2C) /pin14 (2D) /pin15 {(X) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7424 Template14 /dil_7424 { <> begingate 1.00 0 0 0 << /gate (7424) /title {(trigger) {CR} (Schmitt) {CR} (4 dual-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7425 Template14 /dil_7425 { <> begingate 1.00 0 0 0 << /gate (7425) /title {(w. strobe) {CR} (2 quad-NOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1G) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (2G) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7426 Template14 /dil_7426 { <> begingate 1.00 0 0 0 << /gate (7426) /title {(voltage) {CR} (high-) {CR} (4 dual NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7427 Template14 /dil_7427 { <> begingate 1.00 0 0 0 << /gate (7427) /title {(3 triple-NOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (2A) /pin4 (2B) /pin5 (2C) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (3C) /pin12 (1Y) /pin13 (1C) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7428 Template14 /dil_7428 { <> begingate 1.00 0 0 0 << /gate (7428) /title {(buffer) {CR} (4 dual-NOR)} /@index @index /pkg pkg /pin1 (1Y) /pin2 (1A) /pin3 (1B) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4A) /pin12 (4B) /pin13 (4Y) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7430 Template14 /dil_7430 { <> begingate 1.00 0 0 0 << /gate (7430) /title (octal-NAND) /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (C) /pin4 (D) /pin5 (E) /pin6 (F) /pin7 (Gnd) /pin8 (Y) /pin9 (NC) /pin10 (NC) /pin11 (G) /pin12 (H) /pin13 (NC) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7431 Template16 /dil_7431 { <> begingate 1.00 0 0 0 << /gate (7431) /title {(elements) {CR} (delay)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1Y) /pin3 (2A) /pin4 (2Y) /pin5 (3A) /pin6 (3B) /pin7 (3Y) /pin8 (Gnd) /pin9 (4Y) /pin10 (4A) /pin11 (4B) /pin12 (5Y) /pin13 (5A) /pin14 (6Y) /pin15 (6A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7432 Template14 /dil_7432 { <> begingate 1.00 0 0 0 << /gate (7432) /title {(4 dual-OR)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (Y1) /pin4 (A2) /pin5 (B2) /pin6 (Y2) /pin7 (Gnd) /pin8 (Y3) /pin9 (A3) /pin10 (B3) /pin11 (Y4) /pin12 (A4) /pin13 (B4) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7433 Template14 /dil_7433 { <> begingate 1.00 0 0 0 << /gate (7433) /title {(buffer OC) {CR} (4 dual-NOR)} /@index @index /pkg pkg /pin1 (1Y) /pin2 (1A) /pin3 (1B) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4A) /pin12 (4B) /pin13 (4Y) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7437 Template14 /dil_7437 { <> begingate 1.00 0 0 0 << /gate (7437) /title {(buffer) {CR} (4 dual-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7438 Template14 /dil_7438 { <> begingate 1.00 0 0 0 << /gate (7438) /title {(buffer OC) {CR} (4 dual-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7439 Template14 /dil_7439 { <> begingate 1.00 0 0 0 << /gate (7439) /title {(buffer OC) {CR} (4 dual-NAND)} /@index @index /pkg pkg /pin1 (1Y) /pin2 (1A) /pin3 (1B) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4A) /pin12 (4B) /pin13 (4Y) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7440 Template14 /dil_7440 { <> begingate 1.00 0 0 0 << /gate (7440) /title {(buffer) {CR} (2 quad-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7442 Template16 /dil_7442 { <> begingate 1.00 0 0 0 << /gate (7442) /title {(decoder) {CR} (4-to-10)} /@index @index /pkg pkg /pin1 (0) /pin2 (1) /pin3 (2) /pin4 (3) /pin5 (4) /pin6 (5) /pin7 (6) /pin8 (Gnd) /pin9 (7) /pin10 (8) /pin11 (9) /pin12 (D) /pin13 (C) /pin14 (B) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7445 Template16 /dil_7445 { <> begingate 1.00 0 0 0 << /gate (7445) /title {(driver) {CR} (decoder/) {CR} (decimal) {CR} (BCD to)} /@index @index /pkg pkg /pin1 (0) /pin2 (1) /pin3 (2) /pin4 (3) /pin5 (4) /pin6 (5) /pin7 (6) /pin8 (Gnd) /pin9 (7) /pin10 (8) /pin11 (9) /pin12 (D) /pin13 (C) /pin14 (B) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7446 Template16 /dil_7446 { <> begingate 1.00 0 0 0 << /gate (7446) /title {(driver OC) {CR} (segment) {CR} (BCD to 7-)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 {(LT) {ol}} /pin4 {(RBO) {ol} (BI-) {ol}} /pin5 {(RBI) {ol}} /pin6 (D) /pin7 (A) /pin8 (Gnd) /pin9 (e) /pin10 (d) /pin11 (c) /pin12 (b) /pin13 (a) /pin14 (g) /pin15 (f) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7447 Template16 /dil_7447 { <> begingate 1.00 0 0 0 << /gate (7447) /title {(driver OC) {CR} (segment) {CR} (BCD to 7-)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 {(LT) {ol}} /pin4 {(RBO) {ol} (BI-) {ol}} /pin5 {(RBI) {ol}} /pin6 (D) /pin7 (A) /pin8 (Gnd) /pin9 (e) /pin10 (d) /pin11 (c) /pin12 (b) /pin13 (a) /pin14 (g) /pin15 (f) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7448 Template16 /dil_7448 { <> begingate 1.00 0 0 0 << /gate (7448) /title {(pullup) {CR} (driver w.) {CR} (segment) {CR} (BCD to 7-)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 {(LT) {ol}} /pin4 {(RBO) {ol} (BI-) {ol}} /pin5 {(RBI) {ol}} /pin6 (D) /pin7 (A) /pin8 (Gnd) /pin9 (e) /pin10 (d) /pin11 (c) /pin12 (b) /pin13 (a) /pin14 (g) /pin15 (f) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7449 Template14 /dil_7449 { <> begingate 1.00 0 0 0 << /gate (7449) /title {(input) {CR} (w. blanking) {CR} (driver OC) {CR} (segment) {CR} (BCD to 7-)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 {(BI) {ol}} /pin4 (D) /pin5 (A) /pin6 (e) /pin7 (Gnd) /pin8 (d) /pin9 (c) /pin10 (b) /pin11 (a) /pin12 (g) /pin13 (f) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7450 Template14 /dil_7450 { <> begingate 1.00 0 0 0 << /gate (7450) /title {(inputs\)) {CR} (\(2x2) {CR} (inverters) {CR} (2 AND-OR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (2A) /pin3 (2B) /pin4 (2C) /pin5 (2D) /pin6 (2Y) /pin7 (Gnd) /pin8 (1Y) /pin9 (1C) /pin10 (1D) /pin11 (1X) /pin12 (1/X) /pin13 (1B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7451L Template14 /dil_7451L { <> begingate 1.00 0 0 0 << /gate (7451L) /title {(inputs\)) {CR} (\(2x2,2x3) {CR} (inverters) {CR} (2 AND-OR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (2A) /pin3 (2B) /pin4 (2C) /pin5 (2D) /pin6 (2Y) /pin7 (Gnd) /pin8 (1Y) /pin9 (1D) /pin10 (1E) /pin11 (1F) /pin12 (1B) /pin13 (1C) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7451S Template14 /dil_7451S { <> begingate 1.00 0 0 0 << /gate (7451S) /title {(inputs\)) {CR} (\(2x2) {CR} (inverters) {CR} (2 AND-OR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (2A) /pin3 (2B) /pin4 (2C) /pin5 (2D) /pin6 (2Y) /pin7 (Gnd) /pin8 (1Y) /pin9 (1C) /pin10 (1D) /pin11 (NC) /pin12 (NC) /pin13 (1B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7453 Template14 /dil_7453 { <> begingate 1.00 0 0 0 << /gate (7453) /title {(inputs\)) {CR} (\(4x2) {CR} (inverter) {CR} (AND-OR)} /@index @index /pkg pkg /pin1 (A) /pin2 (C) /pin3 (D) /pin4 (E) /pin5 (F) /pin6 (NC) /pin7 (Gnd) /pin8 (Y) /pin9 (G) /pin10 (H) /pin11 (X) /pin12 {(X) {ol}} /pin13 (B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7454 Template14 /dil_7454 { <> begingate 1.00 0 0 0 << /gate (7454) /title {(inputs\)) {CR} (\(4x2) {CR} (inverter) {CR} (AND-OR)} /@index @index /pkg pkg /pin1 (A) /pin2 (C) /pin3 (D) /pin4 (E) /pin5 (F) /pin6 (NC) /pin7 (Gnd) /pin8 (Y) /pin9 (G) /pin10 (H) /pin11 (NC) /pin12 (NC) /pin13 (B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7455 Template14 /dil_7455 { <> begingate 1.00 0 0 0 << /gate (7455) /title {(inputs\)) {CR} (\(2x4) {CR} (inverter) {CR} (AND-OR)} /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (C) /pin4 (D) /pin5 (NC) /pin6 (NC) /pin7 (Gnd) /pin8 (Y) /pin9 (NC) /pin10 (E) /pin11 (F) /pin12 (G) /pin13 (H) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7457 Template8 /dil_7457 { <> begingate 1.00 0 0 -240 << /gate (7457) /title {(divider) {CR} (frequency)} /@index @index /pkg pkg /pin1 (ClkB) /pin2 (Vcc) /pin3 (Qa) /pin4 (Gnd) /pin5 (ClkA) /pin6 (Clr) /pin7 (Qb) /pin8 (Qc) >> Template8 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (6) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (7) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 128 infolabel sce endgate } def % Depend dil_7464 Template14 /dil_7464 { <> begingate 1.00 0 0 0 << /gate (7464) /title {(inputs\)) {CR} (\(4-2-3-2) {CR} (inverter) {CR} (AND-OR)} /@index @index /pkg pkg /pin1 (A) /pin2 (E) /pin3 (F) /pin4 (G) /pin5 (H) /pin6 (I) /pin7 (Gnd) /pin8 (Y) /pin9 (J) /pin10 (K) /pin11 (B) /pin12 (C) /pin13 (D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7465 Template14 /dil_7465 { <> begingate 1.00 0 0 0 << /gate (7465) /title {(inputs\)) {CR} (\(4-2-3-2) {CR} (inverter OC) {CR} (AND-OR)} /@index @index /pkg pkg /pin1 (A) /pin2 (E) /pin3 (F) /pin4 (G) /pin5 (H) /pin6 (I) /pin7 (Gnd) /pin8 (Y) /pin9 (J) /pin10 (K) /pin11 (B) /pin12 (C) /pin13 (D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7468 Template16 /dil_7468 { <> begingate 1.00 0 0 0 << /gate (7468) /title {(counter) {CR} (decade) {CR} (2 4bit)} /@index @index /pkg pkg /pin1 (1ClkA) /pin2 (1Qb) /pin3 (1Qd) /pin4 {(1Clr) {ol}} /pin5 (2Qc) /pin6 (NC) /pin7 (2Qa) /pin8 (Gnd) /pin9 (2Clk) /pin10 (2Qb) /pin11 {(2Clr) {ol}} /pin12 (2Qd) /pin13 (1Qc) /pin14 (1Qa) /pin15 (1ClkB) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7469 Template16 /dil_7469 { <> begingate 1.00 0 0 0 << /gate (7469) /title {(counter) {CR} (binary) {CR} (2 4bit)} /@index @index /pkg pkg /pin1 (1ClkA) /pin2 (1Qb) /pin3 (1Qd) /pin4 {(1Clr) {ol}} /pin5 (2Qc) /pin6 (NC) /pin7 (2Qa) /pin8 (Gnd) /pin9 (2Clk) /pin10 (2Qb) /pin11 {(2Clr) {ol}} /pin12 (2Qd) /pin13 (1Qc) /pin14 (1Qa) /pin15 (1ClkB) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7470 Template14 /dil_7470 { <> begingate 1.00 0 0 0 << /gate (7470) /title {(clear) {CR} (w. preset/) {CR} (pos-edge-FF) {CR} (AND-gated JK)} /@index @index /pkg pkg /pin1 (NC) /pin2 {(Clr) {ol}} /pin3 (J1) /pin4 (J2) /pin5 {(J) {ol}} /pin6 {(Q) {ol}} /pin7 (Gnd) /pin8 (Q) /pin9 {(K) {ol}} /pin10 (K1) /pin11 (K2) /pin12 (Clk) /pin13 {(Pre) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7472 Template14 /dil_7472 { <> begingate 1.00 0 0 0 << /gate (7472) /title {(clear) {CR} (preset/) {CR} (FF w.) {CR} (AND-gated MS-)} /@index @index /pkg pkg /pin1 (NC) /pin2 {(Clr) {ol}} /pin3 (J1) /pin4 (J2) /pin5 (J3) /pin6 {(Q) {ol}} /pin7 (Gnd) /pin8 (Q) /pin9 (K1) /pin10 (K2) /pin11 (K3) /pin12 (Clk) /pin13 {(Pre) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7473 Template14 /dil_7473 { <> begingate 1.00 0 0 0 << /gate (7473) /title {(clear) {CR} (2 JK FF w.)} /@index @index /pkg pkg /pin1 (1Clk) /pin2 {(1Clr) {ol}} /pin3 (1K) /pin4 (Vcc) /pin5 (2Clk) /pin6 {(2Clr) {ol}} /pin7 (2J) /pin8 {(2Q) {ol}} /pin9 (2Q) /pin10 (2K) /pin11 (Gnd) /pin12 (1Q) /pin13 {(1Q) {ol}} /pin14 (1J) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7474 Template14 /dil_7474 { <> begingate 1.00 0 0 0 << /gate (7474) /title {(clear) {CR} (preset/) {CR} (edge FF w.) {CR} (2 D-type pos-)} /@index @index /pkg pkg /pin1 {(1Clr) {ol}} /pin2 (1D) /pin3 (1Clk) /pin4 {(1Pre) {ol}} /pin5 (1Q) /pin6 {(1Q) {ol}} /pin7 (Gnd) /pin8 {(2Q) {ol}} /pin9 (2Q) /pin10 {(2Pre) {ol}} /pin11 (2Clk) /pin12 (2D) /pin13 {(2Clr) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7475 Template16 /dil_7475 { <> begingate 1.00 0 0 0 << /gate (7475) /title {(outputs) {CR} (compl.) {CR} (latch w.) {CR} (stable) {CR} (4bit bi-)} /@index @index /pkg pkg /pin1 {(1Q) {ol}} /pin2 (1D) /pin3 (2D) /pin4 (3C-4C) /pin5 (Vcc) /pin6 (3D) /pin7 (4D) /pin8 {(4Q) {ol}} /pin9 (4Q) /pin10 (3Q) /pin11 {(3Q) {ol}} /pin12 (Gnd) /pin13 (1C-2C) /pin14 {(2Q) {ol}} /pin15 (2Q) /pin16 (1Q) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7476 Template16 /dil_7476 { <> begingate 1.00 0 0 0 << /gate (7476) /title {(clear) {CR} (preset/) {CR} (2 JK FF w.)} /@index @index /pkg pkg /pin1 (1Clk) /pin2 {(1Pre) {ol}} /pin3 {(1Clr) {ol}} /pin4 (1J) /pin5 (Vcc) /pin6 (2Clk) /pin7 {(2Pre) {ol}} /pin8 {(2Clr) {ol}} /pin9 (2J) /pin10 {(2Q) {ol}} /pin11 (2Q) /pin12 (2K) /pin13 (Gnd) /pin14 {(1Q) {ol}} /pin15 (1Q) /pin16 (1K) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7478 Template14 /dil_7478 { <> begingate 1.00 0 0 0 << /gate (7478) /title {(Clr) {CR} (common Clk/) {CR} (preset and) {CR} (2 JK FF w.)} /@index @index /pkg pkg /pin1 (Clk) /pin2 {(1Pre) {ol}} /pin3 (1J) /pin4 (Vcc) /pin5 {(Clr) {ol}} /pin6 {(2Pre) {ol}} /pin7 (2K) /pin8 (2Q) /pin9 {(2Q) {ol}} /pin10 (2J) /pin11 (Gnd) /pin12 {(1Q) {ol}} /pin13 (1Q) /pin14 (1K) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7483 Template16 /dil_7483 { <> begingate 1.00 0 0 0 << /gate (7483) /title {(fast carry) {CR} (adder w.) {CR} (4bit binary)} /@index @index /pkg pkg /pin1 (A4) /pin2 (Sum3) /pin3 (A3) /pin4 (B3) /pin5 (Vcc) /pin6 (Sum2) /pin7 (B2) /pin8 (A2) /pin9 (Sum1) /pin10 (A1) /pin11 (B1) /pin12 (Gnd) /pin13 (C0) /pin14 (C4) /pin15 (Sum4) /pin16 (B4) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7485 Template16 /dil_7485 { <> begingate 1.00 0 0 0 << /gate (7485) /title {(comperator) {CR} (magnitude) {CR} (4bit)} /@index @index /pkg pkg /pin1 (B3) /pin2 {(A\Bin)} /pin5 {(A\>Bout)} /pin6 (A=Bout) /pin7 {(A\> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7486 Template14 /dil_7486 { <> begingate 1.00 0 0 0 << /gate (7486) /title {(4 dual-XOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7490 Template14 /dil_7490 { <> begingate 1.00 0 0 0 << /gate (7490) /title {(to-9) {CR} (clear/set-) {CR} (counter w.) {CR} (decade)} /@index @index /pkg pkg /pin1 (ClkB) /pin2 {(R0\(1\))} /pin3 {(R0\(2\))} /pin4 (NC) /pin5 (Vcc) /pin6 {(R9\(1\))} /pin7 {(R9\(2\))} /pin8 (Qc) /pin9 (Qb) /pin10 (Gnd) /pin11 (Qd) /pin12 (Qa) /pin13 (NC) /pin14 (ClkA) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7491 Template14 /dil_7491 { <> begingate 1.00 0 0 0 << /gate (7491) /title {(register) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (NC) /pin2 (NC) /pin3 (NC) /pin4 (NC) /pin5 (Vcc) /pin6 (NC) /pin7 (NC) /pin8 (NC) /pin9 (Clk) /pin10 (Gnd) /pin11 (B) /pin12 (A) /pin13 (Q) /pin14 {(Q) {ol}} >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7492 Template14 /dil_7492 { <> begingate 1.00 0 0 0 << /gate (7492) /title {(clear) {CR} (counter w.) {CR} (divide by 12)} /@index @index /pkg pkg /pin1 (ClkB) /pin2 (NC) /pin3 (NC) /pin4 (NC) /pin5 (Vcc) /pin6 {(R0\(1\))} /pin7 {(R0\(2\))} /pin8 (Qd) /pin9 (Qc) /pin10 (Gnd) /pin11 (Qb) /pin12 (Qa) /pin13 (NC) /pin14 (ClkA) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7493 Template14 /dil_7493 { <> begingate 1.00 0 0 0 << /gate (7493) /title {(clear) {CR} (counter w.) {CR} (4bit binary)} /@index @index /pkg pkg /pin1 (ClkB) /pin2 {(R0\(1\))} /pin3 {(R0\(2\))} /pin4 (NC) /pin5 (Vcc) /pin6 (NC) /pin7 (NC) /pin8 (Qc) /pin9 (Qb) /pin10 (Gnd) /pin11 (Qd) /pin12 (Qa) /pin13 (NC) /pin14 (ClkA) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7495 Template14 /dil_7495 { <> begingate 1.00 0 0 0 << /gate (7495) /title {(register) {CR} (shift) {CR} (access) {CR} (parallel-) {CR} (4bit)} /@index @index /pkg pkg /pin1 (Ser) /pin2 (A) /pin3 (B) /pin4 (C) /pin5 (D) /pin6 (Mode) /pin7 (Gnd) /pin8 (Clk2) /pin9 (Clk1) /pin10 (Qd) /pin11 (Qc) /pin12 (Qb) /pin13 (Qa) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_7496 Template16 /dil_7496 { <> begingate 1.00 0 0 0 << /gate (7496) /title {(register) {CR} (5bit shift)} /@index @index /pkg pkg /pin1 (Clk) /pin2 (A) /pin3 (B) /pin4 (C) /pin5 (Vcc) /pin6 (D) /pin7 (E) /pin8 (Pre) /pin9 (Ser) /pin10 (Qe) /pin11 (Qd) /pin12 (Gnd) /pin13 (Qc) /pin14 (Qb) /pin15 (Qa) /pin16 {(Clr) {ol}} >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_7497 Template16 /dil_7497 { <> begingate 1.00 0 0 0 << /gate (7497) /title {(multiplier) {CR} (rate) {CR} (6bit binary) {CR} (syncronous)} /@index @index /pkg pkg /pin1 (B1) /pin2 (B4) /pin3 (B5) /pin4 (B0) /pin5 (Z) /pin6 (Y) /pin7 (ENout) /pin8 (Gnd) /pin9 (Clk) /pin10 (StrB) /pin11 (ENin) /pin12 (Unity/CAS) /pin13 (Clr) /pin14 (B2) /pin15 (B3) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74107 Template14 /dil_74107 { <> begingate 1.00 0 0 0 << /gate (74107) /title {(clear) {CR} (2 JK FF w.)} /@index @index /pkg pkg /pin1 (1J) /pin2 {(1Q) {ol}} /pin3 (1Q) /pin4 (1K) /pin5 (2Q) /pin6 {(2Q) {ol}} /pin7 (Gnd) /pin8 (2J) /pin9 (2Clk) /pin10 {(2Clr) {ol}} /pin11 (2K) /pin12 (1Clk) /pin13 {(1Clr) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74109 Template16 /dil_74109 { <> begingate 1.00 0 0 0 << /gate (74109) /title {(clear) {CR} (preset/) {CR} (edge FF w.) {CR} (K pos-) {ol} (2 J-)} /@index @index /pkg pkg /pin1 {(1Clr) {ol}} /pin2 (1J) /pin3 {(1K) {ol}} /pin4 (1Clk) /pin5 {(1Pre) {ol}} /pin6 (1Q) /pin7 {(1Q) {ol}} /pin8 (Gnd) /pin9 {(2Q) {ol}} /pin10 (2Q) /pin11 {(2Pre) {ol}} /pin12 (2Clk) /pin13 {(2K) {ol}} /pin14 (2J) /pin15 {(2Clr) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74111 Template16 /dil_74111 { <> begingate 1.00 0 0 0 << /gate (74111) /title {(lockout) {CR} (w. data) {CR} (2 JK-MS FF)} /@index @index /pkg pkg /pin1 (1K) /pin2 {(1Pre) {ol}} /pin3 {(1Clr) {ol}} /pin4 (1J) /pin5 (1Clk) /pin6 {(1Q) {ol}} /pin7 (1Q) /pin8 (Gnd) /pin9 (2Q) /pin10 {(2Q) {ol}} /pin11 (2Clk) /pin12 (2J) /pin13 {(2Clr) {ol}} /pin14 {(2Pre) {ol}} /pin15 (2K) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74112 Template16 /dil_74112 { <> begingate 1.00 0 0 0 << /gate (74112) /title {(clear) {CR} (w. preset/) {CR} (2 JK edge FF)} /@index @index /pkg pkg /pin1 (1Clk) /pin2 (1K) /pin3 (1J) /pin4 {(1Pre) {ol}} /pin5 (1Q) /pin6 {(1Q) {ol}} /pin7 {(2Q) {ol}} /pin8 (Gnd) /pin9 (2Q) /pin10 {(2Pre) {ol}} /pin11 (2J) /pin12 (2K) /pin13 (2Clk) /pin14 {(2Clr) {ol}} /pin15 {(1Clr) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74113 Template14 /dil_74113 { <> begingate 1.00 0 0 0 << /gate (74113) /title {(w. preset) {CR} (2 JK edge FF)} /@index @index /pkg pkg /pin1 (1Clk) /pin2 (1K) /pin3 (1J) /pin4 {(1Pre) {ol}} /pin5 (1Q) /pin6 {(1Q) {ol}} /pin7 (Gnd) /pin8 {(2Q) {ol}} /pin9 (2Q) /pin10 {(2Pre) {ol}} /pin11 (2J) /pin12 (2K) /pin13 (2Clk) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74114 Template14 /dil_74114 { <> begingate 1.00 0 0 0 << /gate (74114) /title {(Clr/Clk) {CR} (and common) {CR} (w. preset) {CR} (2 JK edge FF)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (1K) /pin3 (1J) /pin4 {(1Pre) {ol}} /pin5 (1Q) /pin6 {(1Q) {ol}} /pin7 (Gnd) /pin8 {(2Q) {ol}} /pin9 (2Q) /pin10 {(2Pre) {ol}} /pin11 (2J) /pin12 (2K) /pin13 (Clk) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74116 Template24 /dil_74116 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74116) /title {(clear) {CR} (lacthes w.) {CR} (2 4bit)} /@index @index /pkg pkg /pin1 {(1Clr) {ol}} /pin2 {(1C1) {ol}} /pin3 {(1C2) {ol}} /pin4 (1D1) /pin5 (1Q1) /pin6 (1D2) /pin7 (1Q2) /pin8 (1D3) /pin9 (1Q3) /pin10 (1D4) /pin11 (1Q4) /pin12 (Gnd) /pin13 {(2Clr) {ol}} /pin14 {(2C1) {ol}} /pin15 {(2C2) {ol}} /pin16 (2D1) /pin17 (2Q1) /pin18 (2D2) /pin19 (2Q2) /pin20 (2D3) /pin21 (2Q3) /pin22 (2D4) /pin23 (2Q4) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74120 Template16 /dil_74120 { <> begingate 1.00 0 0 0 << /gate (74120) /title {(driver) {CR} (synchronizer/) {CR} (2 pulse)} /@index @index /pkg pkg /pin1 (1M) /pin2 {(1S1) {ol}} /pin3 {(1S2) {ol}} /pin4 {(1R) {ol}} /pin5 (1C) /pin6 (1Y) /pin7 {(1Y) {ol}} /pin8 (Gnd) /pin9 {(2Y) {ol}} /pin10 (2Y) /pin11 (2C) /pin12 {(2R) {ol}} /pin13 {(2S1) {ol}} /pin14 {(2S2) {ol}} /pin15 (2M) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74121 Template14 /dil_74121 { <> begingate 1.00 0 0 0 << /gate (74121) /title {(input) {CR} (trigger) {CR} (w. Schmitt) {CR} (multivibrator) {CR} (monostable)} /@index @index /pkg pkg /pin1 {(Q) {ol}} /pin2 (NC) /pin3 (A1) /pin4 (A2) /pin5 (B) /pin6 (Q) /pin7 (Gnd) /pin8 (NC) /pin9 (Rint) /pin10 (Cext) /pin11 (Rext-Cext) /pin12 (NC) /pin13 (NC) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74122 Template14 /dil_74122 { <> begingate 1.00 0 0 0 << /gate (74122) /title {(resistors) {CR} (w. internal) {CR} (multivibrator) {CR} (monostable) {CR} (retriggerable)} /@index @index /pkg pkg /pin1 (A1) /pin2 (A2) /pin3 (B1) /pin4 (B2) /pin5 {(Clr) {ol}} /pin6 {(Q) {ol}} /pin7 (Gnd) /pin8 (Q) /pin9 (Rint) /pin10 (NC) /pin11 (Cext) /pin12 (NC) /pin13 (Rext-Cext) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74123 Template16 /dil_74123 { <> begingate 1.00 0 0 0 << /gate (74123) /title {(multivibrator) {CR} (monostable) {CR} (retriggerable)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 {(1Clr) {ol}} /pin4 {(1Q) {ol}} /pin5 (2Q) /pin6 (2Cext) /pin7 (2Rext-Cext) /pin8 (Gnd) /pin9 (2A) /pin10 (2B) /pin11 {(2Clr) {ol}} /pin12 {(2Q) {ol}} /pin13 (1Q) /pin14 (1Cext) /pin15 (1Rext-Cext) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74124 Template16 /dil_74124 { <> begingate 1.00 0 0 0 << /gate (74124) /title {(oszillators) {CR} (controlled) {CR} (2 voltage)} /@index @index /pkg pkg /pin1 (2FC) /pin2 (1FC) /pin3 (1Rng) /pin4 (1CX1) /pin5 (1CX2) /pin6 {(1En) {ol}} /pin7 (1Y) /pin8 (Osc-Gnd) /pin9 (Gnd) /pin10 (2Y) /pin11 {(2En) {ol}} /pin12 (2CX1) /pin13 (2CX2) /pin14 (2Rng) /pin15 (Osc-Vcc) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74125 Template14 /dil_74125 { <> begingate 1.00 0 0 0 << /gate (74125) /title {(control) {CR} (inverted) {CR} (state) {CR} (buffers 3-) {CR} (4 bus)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (1A) /pin3 (1Y) /pin4 {(2G) {ol}} /pin5 (2A) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 {(3G) {ol}} /pin11 (4Y) /pin12 (4A) /pin13 {(4G) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74126 Template14 /dil_74126 { <> begingate 1.00 0 0 0 << /gate (74126) /title {(control) {CR} (positive) {CR} (state) {CR} (4 buffers 3-)} /@index @index /pkg pkg /pin1 (1G) /pin2 (1A) /pin3 (1Y) /pin4 (2G) /pin5 (2A) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3G) /pin11 (4Y) /pin12 (4A) /pin13 (4G) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74128 Template14 /dil_74128 { <> begingate 1.00 0 0 0 << /gate (74128) /title {(drivers) {CR} (4 line)} /@index @index /pkg pkg /pin1 (1Y) /pin2 (1A) /pin3 (1B) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4A) /pin12 (4B) /pin13 (4Y) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74132 Template14 /dil_74132 { <> begingate 1.00 0 0 0 << /gate (74132) /title {(trigger) {CR} (Schmitt) {CR} (4 dual NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74133 Template16 /dil_74133 { <> begingate 1.00 0 0 0 << /gate (74133) /title {(NAND) {CR} (13 input)} /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (C) /pin4 (D) /pin5 (E) /pin6 (F) /pin7 (G) /pin8 (Gnd) /pin9 (Y) /pin10 (H) /pin11 (I) /pin12 (J) /pin13 (K) /pin14 (L) /pin15 (M) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74134 Template16 /dil_74134 { <> begingate 1.00 0 0 0 << /gate (74134) /title {(state) {CR} (NAND 3-) {CR} (12 input)} /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (C) /pin4 (D) /pin5 (E) /pin6 (F) /pin7 (G) /pin8 (Gnd) /pin9 (Y) /pin10 (H) /pin11 (I) /pin12 (J) /pin13 (K) /pin14 (L) /pin15 {(OC) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74135 Template16 /dil_74135 { <> begingate 1.00 0 0 0 << /gate (74135) /title {(XNOR) {CR} (4 dual-XOR-)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (1C-2C) /pin5 (2A) /pin6 (2B) /pin7 (2Y) /pin8 (Gnd) /pin9 (3Y) /pin10 (3A) /pin11 (3B) /pin12 (3c-4c) /pin13 (4Y) /pin14 (4A) /pin15 (4B) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74136 Template14 /dil_74136 { <> begingate 1.00 0 0 0 << /gate (74136) /title {(OC) {CR} (4 dual-XOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2Y) /pin7 (Gnd) /pin8 (3Y) /pin9 (3A) /pin10 (3B) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74137 Template16 /dil_74137 { <> begingate 1.00 0 0 0 << /gate (74137) /title {(latch) {CR} (address) {CR} (decoder w.) {CR} (3-to-8)} /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (C) /pin4 {(GL) {ol}} /pin5 {(G2) {ol}} /pin6 (G1) /pin7 (Y7) /pin8 (Gnd) /pin9 (Y6) /pin10 (Y5) /pin11 (Y4) /pin12 (Y3) /pin13 (Y2) /pin14 (Y1) /pin15 (Y0) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74138 Template16 /dil_74138 { <> begingate 1.00 0 0 0 << /gate (74138) /title {(decoder) {CR} (3-to-8)} /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (C) /pin4 {(G2A) {ol}} /pin5 {(G2B) {ol}} /pin6 (G1) /pin7 (Y7) /pin8 (Gnd) /pin9 (Y6) /pin10 (Y5) /pin11 (Y4) /pin12 (Y3) /pin13 (Y2) /pin14 (Y1) /pin15 (Y0) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74139 Template16 /dil_74139 { <> begingate 1.00 0 0 0 << /gate (74139) /title {(decoder) {CR} (2 2-to-4)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (A1) /pin3 (B1) /pin4 (Y10) /pin5 (Y11) /pin6 (Y12) /pin7 (Y13) /pin8 (Gnd) /pin9 (Y23) /pin10 (Y22) /pin11 (Y21) /pin12 (Y20) /pin13 (B2) /pin14 (A2) /pin15 {(G2) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74140 Template14 /dil_74140 { <> begingate 1.00 0 0 0 << /gate (74140) /title {(driver) {CR} (50Ohm) {CR} (2 quad-NAND)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (NC) /pin4 (1C) /pin5 (1D) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2A) /pin10 (2B) /pin11 (NC) /pin12 (2C) /pin13 (2D) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74143 Template24 /dil_74143 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74143) /title {(driver) {CR} (segment) {CR} (latch 7-) {CR} (4bit counter/)} /@index @index /pkg pkg /pin1 {(SCEI) {ol}} /pin2 (Clk) /pin3 {(Clr) {ol}} /pin4 {(RBI) {ol}} /pin5 (BI) /pin6 {(RBO) {ol} (BI-) {ol}} /pin7 (Dp) /pin8 (dp) /pin9 (d) /pin10 (f) /pin11 (e) /pin12 (Gnd) /pin13 (g) /pin14 (c) /pin15 (a) /pin16 (b) /pin17 (Qa) /pin18 (Qb) /pin19 (Qc) /pin20 (Qd) /pin21 {(StrB) {ol}} /pin22 (Max) /pin23 {(PECI) {ol}} /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74145 Template16 /dil_74145 { <> begingate 1.00 0 0 0 << /gate (74145) /title {(decoder) {CR} (decimal) {CR} (BCD to)} /@index @index /pkg pkg /pin1 (0) /pin2 (1) /pin3 (2) /pin4 (3) /pin5 (4) /pin6 (5) /pin7 (6) /pin8 (Gnd) /pin9 (7) /pin10 (8) /pin11 (9) /pin12 (D) /pin13 (C) /pin14 (B) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74147 Template16 /dil_74147 { <> begingate 1.00 0 0 0 << /gate (74147) /title {(encoder) {CR} (10-to-4)} /@index @index /pkg pkg /pin1 (4) /pin2 (5) /pin3 (6) /pin4 (7) /pin5 (8) /pin6 (C) /pin7 (B) /pin8 (Gnd) /pin9 (A) /pin10 (9) /pin11 (1) /pin12 (2) /pin13 (3) /pin14 (D) /pin15 (NC) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74148 Template16 /dil_74148 { <> begingate 1.00 0 0 0 << /gate (74148) /title {(encoder) {CR} (8-to-3)} /@index @index /pkg pkg /pin1 (4) /pin2 (5) /pin3 (6) /pin4 (7) /pin5 {(Ei) {ol}} /pin6 (A2) /pin7 (A1) /pin8 (Gnd) /pin9 (A0) /pin10 (0) /pin11 (1) /pin12 (2) /pin13 (3) /pin14 {(Gs) {ol}} /pin15 {(Eo) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74150 Template24 /dil_74150 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74150) /title {(selector) {CR} (1-of-16)} /@index @index /pkg pkg /pin1 (E7) /pin2 (E6) /pin3 (E5) /pin4 (E4) /pin5 (E3) /pin6 (E2) /pin7 (E1) /pin8 (E0) /pin9 {(G) {ol}} /pin10 (W) /pin11 (D) /pin12 (Gnd) /pin13 (C) /pin14 (B) /pin15 (A) /pin16 (E15) /pin17 (E14) /pin18 (E13) /pin19 (E12) /pin20 (E11) /pin21 (E10) /pin22 (E9) /pin23 (E8) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74151 Template16 /dil_74151 { <> begingate 1.00 0 0 0 << /gate (74151) /title {(selector) {CR} (1-of-8)} /@index @index /pkg pkg /pin1 (D3) /pin2 (D2) /pin3 (D1) /pin4 (D0) /pin5 (Y) /pin6 (W) /pin7 {(G) {ol}} /pin8 (Gnd) /pin9 (C) /pin10 (B) /pin11 (A) /pin12 (D7) /pin13 (D6) /pin14 (D5) /pin15 (D4) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74153 Template16 /dil_74153 { <> begingate 1.00 0 0 0 << /gate (74153) /title {(selectors) {CR} (2 4-to-1)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (B) /pin3 (1C3) /pin4 (1C2) /pin5 (1C1) /pin6 (1C0) /pin7 (1Y) /pin8 (Gnd) /pin9 (2Y) /pin10 (2C0) /pin11 (2C1) /pin12 (2C2) /pin13 (2C3) /pin14 (A) /pin15 {(2G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74154 Template24 /dil_74154 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74154) /title {(decoder) {CR} (4-to-16)} /@index @index /pkg pkg /pin1 (0) /pin2 (1) /pin3 (2) /pin4 (3) /pin5 (4) /pin6 (5) /pin7 (6) /pin8 (7) /pin9 (8) /pin10 (9) /pin11 (10) /pin12 (Gnd) /pin13 (11) /pin14 (12) /pin15 (13) /pin16 (14) /pin17 (15) /pin18 {(G1) {ol}} /pin19 {(G2) {ol}} /pin20 (D) /pin21 (C) /pin22 (B) /pin23 (A) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74155 Template16 /dil_74155 { <> begingate 1.00 0 0 0 << /gate (74155) /title {(decoder) {CR} (2 2-to-4)} /@index @index /pkg pkg /pin1 (1C) /pin2 {(1G) {ol}} /pin3 (B) /pin4 (1Y3) /pin5 (1Y2) /pin6 (1Y1) /pin7 (1Y0) /pin8 (Gnd) /pin9 (2Y0) /pin10 (2Y1) /pin11 (2Y2) /pin12 (2Y3) /pin13 (A) /pin14 {(2G) {ol}} /pin15 {(2C) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74156 Template16 /dil_74156 { <> begingate 1.00 0 0 0 << /gate (74156) /title {(decoder OC) {CR} (2 2-to-4)} /@index @index /pkg pkg /pin1 (1C) /pin2 {(1G) {ol}} /pin3 (B) /pin4 (1Y3) /pin5 (1Y2) /pin6 (1Y1) /pin7 (1Y0) /pin8 (Gnd) /pin9 (2Y0) /pin10 (2Y1) /pin11 (2Y2) /pin12 (2Y3) /pin13 (A) /pin14 {(2G) {ol}} /pin15 {(2C) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74157 Template16 /dil_74157 { <> begingate 1.00 0 0 0 << /gate (74157) /title {(selector) {CR} (4 2-to-1)} /@index @index /pkg pkg /pin1 {(A-B) {ol}} /pin2 (1A) /pin3 (1B) /pin4 (1Y) /pin5 (2A) /pin6 (2B) /pin7 (2Y) /pin8 (Gnd) /pin9 (3Y) /pin10 (3B) /pin11 (3A) /pin12 (4Y) /pin13 (4Y) /pin14 (4A) /pin15 {(G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74158 Template16 /dil_74158 { <> begingate 1.00 0 0 0 << /gate (74158) /title {(output) {CR} (inverted) {CR} (selector) {CR} (4 2-to-1)} /@index @index /pkg pkg /pin1 {(A-B) {ol}} /pin2 (1A) /pin3 (1B) /pin4 {(1Y) {ol}} /pin5 (2A) /pin6 (2B) /pin7 {(2Y) {ol}} /pin8 (Gnd) /pin9 {(3Y) {ol}} /pin10 (3B) /pin11 (3A) /pin12 (4Y) /pin13 {(4Y) {ol}} /pin14 (4A) /pin15 {(G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74159 Template24 /dil_74159 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74159) /title {(decoder OC) {CR} (4-to-16)} /@index @index /pkg pkg /pin1 (0) /pin2 (1) /pin3 (2) /pin4 (3) /pin5 (4) /pin6 (5) /pin7 (6) /pin8 (7) /pin9 (8) /pin10 (9) /pin11 (10) /pin12 (Gnd) /pin13 (11) /pin14 (12) /pin15 (13) /pin16 (14) /pin17 (15) /pin18 {(G1) {ol}} /pin19 {(G2) {ol}} /pin20 (D) /pin21 (C) /pin22 (B) /pin23 (A) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74160 Template16 /dil_74160 { <> begingate 1.00 0 0 0 << /gate (74160) /title {(clear) {CR} (async.) {CR} (counter w.) {CR} (decade) {CR} (syncronous)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 (ENT) /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 (RCO) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74161 Template16 /dil_74161 { <> begingate 1.00 0 0 0 << /gate (74161) /title {(clear) {CR} (async.) {CR} (counter w.) {CR} (4bit binary) {CR} (syncronous)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 (ENT) /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 (RCO) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74162 Template16 /dil_74162 { <> begingate 1.00 0 0 0 << /gate (74162) /title {(sync. clear) {CR} (counter w.) {CR} (decade) {CR} (syncronous)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 (ENT) /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 (RCO) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74163 Template16 /dil_74163 { <> begingate 1.00 0 0 0 << /gate (74163) /title {(sync. clear) {CR} (counter w.) {CR} (4bit binary) {CR} (syncronous)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 (ENT) /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 (RCO) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74164 Template14 /dil_74164 { <> begingate 1.00 0 0 0 << /gate (74164) /title {(register) {CR} (out shift) {CR} (parallel-) {CR} (8bit)} /@index @index /pkg pkg /pin1 (A) /pin2 (B) /pin3 (Qa) /pin4 (Qb) /pin5 (Qc) /pin6 (Qd) /pin7 (Gnd) /pin8 (Clk) /pin9 {(Clr) {ol}} /pin10 (Qe) /pin11 (Qf) /pin12 (Qg) /pin13 (Qh) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74165 Template16 /dil_74165 { <> begingate 1.00 0 0 0 << /gate (74165) /title {(register) {CR} (shift) {CR} (load 8bit) {CR} (parallel-)} /@index @index /pkg pkg /pin1 {(LD) {ol} (SH-)} /pin2 (Clk) /pin3 (E) /pin4 (F) /pin5 (G) /pin6 (H) /pin7 {(Qh) {ol}} /pin8 (Gnd) /pin9 (Qh) /pin10 (SER) /pin11 (A) /pin12 (B) /pin13 (C) /pin14 (D) /pin15 (Clk_Inh) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74166 Template16 /dil_74166 { <> begingate 1.00 0 0 0 << /gate (74166) /title {(register) {CR} (shift) {CR} (load 8bit) {CR} (parallel-)} /@index @index /pkg pkg /pin1 (SER) /pin2 (A) /pin3 (B) /pin4 (C) /pin5 (D) /pin6 (Clk_Inh) /pin7 (Clk) /pin8 (Gnd) /pin9 {(Clr) {ol}} /pin10 (E) /pin11 (F) /pin12 (G) /pin13 (Qh) /pin14 (H) /pin15 {(LD) {ol} (SH-)} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74167 Template16 /dil_74167 { <> begingate 1.00 0 0 0 << /gate (74167) /title {(multiplier) {CR} (decade rate) {CR} (syncronous)} /@index @index /pkg pkg /pin1 (NC) /pin2 (B2) /pin3 (B3) /pin4 (Set-to-9) /pin5 (Z) /pin6 (Y) /pin7 (ENout) /pin8 (Gnd) /pin9 (Clk) /pin10 (StrB) /pin11 (ENin) /pin12 (Unity-CAS) /pin13 (Clr) /pin14 (Bo) /pin15 (B1) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74169 Template16 /dil_74169 { <> begingate 1.00 0 0 0 << /gate (74169) /title {(counter) {CR} (up/down) {CR} (sync. 4bit)} /@index @index /pkg pkg /pin1 {(D) {ol} (U-)} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(ENP) {ol}} /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 {(ENT) {ol}} /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 {(RCO) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74170 Template16 /dil_74170 { <> begingate 1.00 0 0 0 << /gate (74170) /title {(files OC) {CR} (register) {CR} (4-by-4)} /@index @index /pkg pkg /pin1 (D2) /pin2 (D3) /pin3 (D4) /pin4 (Rb) /pin5 (Ra) /pin6 (Q4) /pin7 (Q3) /pin8 (Gnd) /pin9 (Q2) /pin10 (Q1) /pin11 {(Gr) {ol}} /pin12 {(Gw) {ol}} /pin13 (Wb) /pin14 (Wa) /pin15 (D1) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74171 Template16 /dil_74171 { <> begingate 1.00 0 0 0 << /gate (74171) /title {(w. clear) {CR} (4 D-type FF)} /@index @index /pkg pkg /pin1 {(1Q) {ol}} /pin2 {(2Q) {ol}} /pin3 (2Q) /pin4 (2D) /pin5 (3D) /pin6 (3Q) /pin7 {(3Q) {ol}} /pin8 (Gnd) /pin9 {(4Q) {ol}} /pin10 (4Q) /pin11 (4D) /pin12 (Clk) /pin13 {(Clr) {ol}} /pin14 (1D) /pin15 (1Q) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74172 Template24 /dil_74172 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74172) /title {(state) {CR} (file 3-) {CR} (register) {CR} (port) {CR} (multiple-) {CR} (16bit)} /@index @index /pkg pkg /pin1 (1W1) /pin2 (1W0) /pin3 {(1Gw) {ol}} /pin4 (1DB) /pin5 (2DB) /pin6 (Clk) /pin7 (1R2) /pin8 (1R1) /pin9 (1R0) /pin10 (1Qb) /pin11 (2Qb) /pin12 (Gnd) /pin13 (2Qa) /pin14 (1Qa) /pin15 {(1Gr) {ol}} /pin16 {(2Gr) {ol}} /pin17 (2W-R0) /pin18 (2W-R1) /pin19 (2W-R2) /pin20 {(2Gw) {ol}} /pin21 (2Da) /pin22 (1Da) /pin23 (1W2) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74173 Template16 /dil_74173 { <> begingate 1.00 0 0 0 << /gate (74173) /title {(state) {CR} (register 3-) {CR} (4bit D-type)} /@index @index /pkg pkg /pin1 (M) /pin2 (N) /pin3 (1Q) /pin4 (2Q) /pin5 (3Q) /pin6 (4Q) /pin7 (Clk) /pin8 (Gnd) /pin9 {(G1) {ol}} /pin10 {(G2) {ol}} /pin11 (4D) /pin12 (3D) /pin13 (2D) /pin14 (1D) /pin15 (Clr) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74174 Template16 /dil_74174 { <> begingate 1.00 0 0 0 << /gate (74174) /title {(output) {CR} (single-rail) {CR} (6 D-type FF)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (1Q) /pin3 (1D) /pin4 (2D) /pin5 (2Q) /pin6 (3D) /pin7 (3Q) /pin8 (Gnd) /pin9 (Clk) /pin10 (4Q) /pin11 (4D) /pin12 (5Q) /pin13 (5D) /pin14 (6D) /pin15 (6Q) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74175 Template16 /dil_74175 { <> begingate 1.00 0 0 0 << /gate (74175) /title {(output) {CR} (double-rail) {CR} (4 D-type FF)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (1Q) /pin3 {(1Q) {ol}} /pin4 (1D) /pin5 (2D) /pin6 {(2Q) {ol}} /pin7 (2Q) /pin8 (Gnd) /pin9 (Clk) /pin10 (3Q) /pin11 {(3Q) {ol}} /pin12 (3D) /pin13 (4D) /pin14 {(4Q) {ol}} /pin15 (4Q) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74176 Template14 /dil_74176 { <> begingate 1.00 0 0 0 << /gate (74176) /title {(2/5\)) {CR} (\(divide by) {CR} (latch) {CR} (counter/) {CR} (decade) {CR} (presettable)} /@index @index /pkg pkg /pin1 {(Load) {ol}} /pin2 (Qc) /pin3 (C) /pin4 (A) /pin5 (Qa) /pin6 (Clk2) /pin7 (Gnd) /pin8 (Clk1) /pin9 (Qb) /pin10 (B) /pin11 (D) /pin12 (Qd) /pin13 {(Clr) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74177 Template14 /dil_74177 { <> begingate 1.00 0 0 0 << /gate (74177) /title {(2/8\)) {CR} (\(divide by) {CR} (latch) {CR} (counter/) {CR} (binary) {CR} (presettable)} /@index @index /pkg pkg /pin1 {(Load) {ol}} /pin2 (Qc) /pin3 (C) /pin4 (A) /pin5 (Qa) /pin6 (Clk2) /pin7 (Gnd) /pin8 (Clk1) /pin9 (Qb) /pin10 (B) /pin11 (D) /pin12 (Qd) /pin13 {(Clr) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74178 Template14 /dil_74178 { <> begingate 1.00 0 0 0 << /gate (74178) /title {(register) {CR} (shift) {CR} (access) {CR} (parallel-) {CR} (4bit)} /@index @index /pkg pkg /pin1 (B) /pin2 (A) /pin3 (SER) /pin4 (Qa) /pin5 (Clk) /pin6 (Qb) /pin7 (Gnd) /pin8 (Qc) /pin9 (Load) /pin10 (Qd) /pin11 (Shift) /pin12 (D) /pin13 (C) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74180 Template14 /dil_74180 { <> begingate 1.00 0 0 0 << /gate (74180) /title {(checker) {CR} (generator/) {CR} (odd parity) {CR} (even/) {ol} (9bit )} /@index @index /pkg pkg /pin1 (G) /pin2 (H) /pin3 (Even) /pin4 (Odd) /pin5 (SumEven) /pin6 (SumOdd) /pin7 (Gnd) /pin8 (A) /pin9 (B) /pin10 (C) /pin11 (D) /pin12 (E) /pin13 (F) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74181 Template24 /dil_74181 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74181) /title {(generator) {CR} (ALU function)} /@index @index /pkg pkg /pin1 {(B0) {ol}} /pin2 {(A0) {ol}} /pin3 (S3) /pin4 (S2) /pin5 (S1) /pin6 (S0) /pin7 (Cn) /pin8 (M) /pin9 {(F0) {ol}} /pin10 {(F1) {ol}} /pin11 {(F2) {ol}} /pin12 (Gnd) /pin13 {(F3) {ol}} /pin14 (A=B) /pin15 {(P) {ol}} /pin16 {(Cn+4) {ol}} /pin17 {(G) {ol}} /pin18 {(B3) {ol}} /pin19 {(A3) {ol}} /pin20 {(B2) {ol}} /pin21 {(A2) {ol}} /pin22 {(B1) {ol}} /pin23 {(A1) {ol}} /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74182 Template16 /dil_74182 { <> begingate 1.00 0 0 0 << /gate (74182) /title {(generator) {CR} (carry) {CR} (look-ahead)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 {(P1) {ol}} /pin3 {(G0) {ol}} /pin4 {(P0) {ol}} /pin5 {(G3) {ol}} /pin6 {(P3) {ol}} /pin7 {(P) {ol}} /pin8 (Gnd) /pin9 (Cn+Z) /pin10 {(G) {ol}} /pin11 (Cn+Y) /pin12 (Cn+X) /pin13 (Cn) /pin14 {(G2) {ol}} /pin15 {(P2) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74183 Template14 /dil_74183 { <> begingate 1.00 0 0 0 << /gate (74183) /title {(full adders) {CR} (2 carry-save)} /@index @index /pkg pkg /pin1 (1A) /pin2 (NC) /pin3 (1B) /pin4 (1Cn) /pin5 (1Cn+1) /pin6 (1Sum) /pin7 (Gnd) /pin8 (2Sum) /pin9 (NC) /pin10 (2Cn+1) /pin11 (2Cn) /pin12 (2B) /pin13 (2A) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74190 Template16 /dil_74190 { <> begingate 1.00 0 0 0 << /gate (74190) /title {(counter) {CR} (down) {CR} (4bit BCD up/) {CR} (syncronous)} /@index @index /pkg pkg /pin1 (B) /pin2 (Qb) /pin3 (Qa) /pin4 {(CTEN) {ol}} /pin5 {(U) {ol} (D-)} /pin6 (Qc) /pin7 (Qd) /pin8 (Gnd) /pin9 (D) /pin10 (C) /pin11 {(Load) {ol}} /pin12 (Max-Min) /pin13 {(RCO) {ol}} /pin14 (Clk) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74191 Template16 /dil_74191 { <> begingate 1.00 0 0 0 << /gate (74191) /title {(counter) {CR} (up/down) {CR} (4bit binary) {CR} (syncronous)} /@index @index /pkg pkg /pin1 (B) /pin2 (Qb) /pin3 (Qa) /pin4 {(CTEN) {ol}} /pin5 {(U) {ol} (D-)} /pin6 (Qc) /pin7 (Qd) /pin8 (Gnd) /pin9 (D) /pin10 (C) /pin11 {(Load) {ol}} /pin12 (Max-Min) /pin13 {(RCO) {ol}} /pin14 (Clk) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74192 Template16 /dil_74192 { <> begingate 1.00 0 0 0 << /gate (74192) /title {(and clear) {CR} (dual-clock) {CR} (counter w.) {CR} (down) {CR} (4bit BCD up/) {CR} (syncronous)} /@index @index /pkg pkg /pin1 (B) /pin2 (Qb) /pin3 (Qa) /pin4 (Down) /pin5 (Up) /pin6 (Qc) /pin7 (Qd) /pin8 (Gnd) /pin9 (D) /pin10 (C) /pin11 {(Load) {ol}} /pin12 {(CO) {ol}} /pin13 {(BO) {ol}} /pin14 (Clr) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74193 Template16 /dil_74193 { <> begingate 1.00 0 0 0 << /gate (74193) /title {(and clear) {CR} (dual-clock) {CR} (counter w.) {CR} (up/down) {CR} (4bit binary) {CR} (syncronous)} /@index @index /pkg pkg /pin1 (B) /pin2 (Qb) /pin3 (Qa) /pin4 (Down) /pin5 (Up) /pin6 (Qc) /pin7 (Qd) /pin8 (Gnd) /pin9 (D) /pin10 (C) /pin11 {(Load) {ol}} /pin12 {(CO) {ol}} /pin13 {(BO) {ol}} /pin14 (Clr) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74194 Template16 /dil_74194 { <> begingate 1.00 0 0 0 << /gate (74194) /title {(register) {CR} (shift) {CR} (directional) {CR} (4bit bi-)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (SRSer) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (SLSer) /pin8 (Gnd) /pin9 (S0) /pin10 (S1) /pin11 (Clk) /pin12 (Qd) /pin13 (Qc) /pin14 (Qb) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74195 Template16 /dil_74195 { <> begingate 1.00 0 0 0 << /gate (74195) /title {(register) {CR} (shift) {CR} (access) {CR} (parallel-) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (J) /pin3 {(K) {ol}} /pin4 (A) /pin5 (B) /pin6 (C) /pin7 (D) /pin8 (Gnd) /pin9 {(Ld) {ol} (SH-)} /pin10 (Clk) /pin11 {(Qd) {ol}} /pin12 (Qd) /pin13 (Qc) /pin14 (Qb) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74196 Template14 /dil_74196 { <> begingate 1.00 0 0 0 << /gate (74196) /title {(2/5\)) {CR} (\(divide by) {CR} (latch) {CR} (counter/) {CR} (decade) {CR} (presettable)} /@index @index /pkg pkg /pin1 {(Load) {ol}} /pin2 (Qc) /pin3 (C) /pin4 (A) /pin5 (Qa) /pin6 (Clk2) /pin7 (Gnd) /pin8 (Clk1) /pin9 (Qb) /pin10 (B) /pin11 (D) /pin12 (Qd) /pin13 {(Clr) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74197 Template14 /dil_74197 { <> begingate 1.00 0 0 0 << /gate (74197) /title {(2/8\)) {CR} (\(divide by) {CR} (latch) {CR} (counter/) {CR} (binary) {CR} (presettable)} /@index @index /pkg pkg /pin1 {(Load) {ol}} /pin2 (Qc) /pin3 (C) /pin4 (A) /pin5 (Qa) /pin6 (Clk2) /pin7 (Gnd) /pin8 (Clk1) /pin9 (Qb) /pin10 (B) /pin11 (D) /pin12 (Qd) /pin13 {(Clr) {ol}} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74198 Template24 /dil_74198 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74198) /title {(register) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (S0) /pin2 (SPSer) /pin3 (A) /pin4 (Qa) /pin5 (B) /pin6 (Qb) /pin7 (C) /pin8 (Qc) /pin9 (D) /pin10 (Qd) /pin11 (Clk) /pin12 (Gnd) /pin13 {(Clr) {ol}} /pin14 (Qe) /pin15 (E) /pin16 (Qf) /pin17 (F) /pin18 (Qg) /pin19 (G) /pin20 (Qh) /pin21 (H) /pin22 (SLSer) /pin23 (S1) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74199 Template24 /dil_74199 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74199) /title {(input) {CR} (output/JK-) {CR} (input/) {CR} (parallel) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 {(K) {ol}} /pin2 (J) /pin3 (A) /pin4 (Qa) /pin5 (B) /pin6 (Qb) /pin7 (C) /pin8 (Qc) /pin9 (D) /pin10 (Qd) /pin11 (ClkInh) /pin12 (Gnd) /pin13 (Clk) /pin14 {(Clr) {ol}} /pin15 (Qe) /pin16 (E) /pin17 (Qf) /pin18 (F) /pin19 (Qg) /pin20 (G) /pin21 (Qh) /pin22 (H) /pin23 {(LD) {ol} (SH-)} /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74221 Template16 /dil_74221 { <> begingate 1.00 0 0 0 << /gate (74221) /title {(input) {CR} (trigger) {CR} (w. Schmitt) {CR} (multivibrator) {CR} (2 monostable)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1A) /pin3 {(1Clr) {ol}} /pin4 {(1Q) {ol}} /pin5 (2Q) /pin6 (2Cext) /pin7 (2Rext-Cext) /pin8 (Gnd) /pin9 (2A) /pin10 (2B) /pin11 {(2Clr) {ol}} /pin12 {(2Q) {ol}} /pin13 (1Q) /pin14 (1Cext) /pin15 (1Rext-Cext) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74240 Template20 /dil_74240 { <> begingate 1.00 0 0 0 << /gate (74240) /title {(output) {CR} (inverted) {CR} (state w.) {CR} (driver 3-) {CR} (8 buffer/)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (1A1) /pin3 (2Y4) /pin4 (1A2) /pin5 (2Y3) /pin6 (1A3) /pin7 (2Y2) /pin8 (1A4) /pin9 (2Y1) /pin10 (Gnd) /pin11 (2A1) /pin12 (1Y4) /pin13 (2A2) /pin14 (1Y3) /pin15 (2A3) /pin16 (1Y2) /pin17 (2A4) /pin18 (1Y1) /pin19 {(2G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74241 Template20 /dil_74241 { <> begingate 1.00 0 0 0 << /gate (74241) /title {(enable) {CR} (pos/neg) {CR} (state w.) {CR} (driver 3-) {CR} (8 buffer/)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (1A1) /pin3 (2Y4) /pin4 (1A2) /pin5 (2Y3) /pin6 (1A3) /pin7 (2Y2) /pin8 (1A4) /pin9 (2Y1) /pin10 (Gnd) /pin11 (2A1) /pin12 (1Y4) /pin13 (2A2) /pin14 (1Y3) /pin15 (2A3) /pin16 (1Y2) /pin17 (2A4) /pin18 (1Y1) /pin19 {(2G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74242 Template14 /dil_74242 { <> begingate 1.00 0 0 0 << /gate (74242) /title {(tranceiver) {CR} (4 bus)} /@index @index /pkg pkg /pin1 {(Gab) {ol}} /pin2 (NC) /pin3 (A1) /pin4 (A2) /pin5 (A3) /pin6 (A4) /pin7 (Gnd) /pin8 (B4) /pin9 (B3) /pin10 (B2) /pin11 (B1) /pin12 (NC) /pin13 (Gba) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74243 Template14 /dil_74243 { <> begingate 1.00 0 0 0 << /gate (74243) /title {(outputs) {CR} (inverting) {CR} (w.) {CR} (tranceiver) {CR} (4 bus)} /@index @index /pkg pkg /pin1 {(Gab) {ol}} /pin2 (NC) /pin3 (A1) /pin4 (A2) /pin5 (A3) /pin6 (A4) /pin7 (Gnd) /pin8 (B4) /pin9 (B3) /pin10 (B2) /pin11 (B1) /pin12 (NC) /pin13 (Gba) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74244 Template20 /dil_74244 { <> begingate 1.00 0 0 0 << /gate (74244) /title {(state) {CR} (driver 3-) {CR} (8 buffer/)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (1A1) /pin3 (2Y4) /pin4 (1A2) /pin5 (2Y3) /pin6 (1A3) /pin7 (2Y2) /pin8 (1A4) /pin9 (2Y1) /pin10 (Gnd) /pin11 (2A1) /pin12 (1Y4) /pin13 (2A2) /pin14 (1Y3) /pin15 (2A3) /pin16 (1Y2) /pin17 (2A4) /pin18 (1Y1) /pin19 {(2G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74245 Template20 /dil_74245 { <> begingate 1.00 0 0 0 << /gate (74245) /title {(3-state) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (Dir) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74247 Template16 /dil_74247 { <> begingate 1.00 0 0 0 << /gate (74247) /title {(driver OC) {CR} (decoder/) {CR} (segment) {CR} (BCD to 7-)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 {(LT) {ol}} /pin4 {(RBO) {ol} (BI-) {ol}} /pin5 {(RBI) {ol}} /pin6 (D) /pin7 (A) /pin8 (Gnd) /pin9 (e) /pin10 (d) /pin11 (c) /pin12 (b) /pin13 (a) /pin14 (g) /pin15 (f) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74248 Template16 /dil_74248 { <> begingate 1.00 0 0 0 << /gate (74248) /title {(up) {CR} (output pull-) {CR} (driver w.) {CR} (decoder/) {CR} (segment) {CR} (BCD to 7-)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 {(LT) {ol}} /pin4 {(RBO) {ol} (BI-) {ol}} /pin5 {(RBI) {ol}} /pin6 (D) /pin7 (A) /pin8 (Gnd) /pin9 (e) /pin10 (d) /pin11 (c) /pin12 (b) /pin13 (a) /pin14 (g) /pin15 (f) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74251 Template16 /dil_74251 { <> begingate 1.00 0 0 0 << /gate (74251) /title {(3-state) {CR} (multiplexor) {CR} (selector/) {CR} (data)} /@index @index /pkg pkg /pin1 (D3) /pin2 (D2) /pin3 (D1) /pin4 (D0) /pin5 (Y) /pin6 (W) /pin7 {(G) {ol}} /pin8 (Gnd) /pin9 (C) /pin10 (B) /pin11 (A) /pin12 (D7) /pin13 (D6) /pin14 (D5) /pin15 (D4) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74253 Template16 /dil_74253 { <> begingate 1.00 0 0 0 << /gate (74253) /title {(3-state) {CR} (multiplexor) {CR} (selector/) {CR} (2 4-to-1)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (N) /pin3 (1C3) /pin4 (1C2) /pin5 (1C1) /pin6 (1C0) /pin7 (1Y) /pin8 (Gnd) /pin9 (2Y) /pin10 (2C0) /pin11 (2C1) /pin12 (2C2) /pin13 (2C3) /pin14 (A) /pin15 {(2G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74257 Template16 /dil_74257 { <> begingate 1.00 0 0 0 << /gate (74257) /title {(demultiplexors) {CR} (selectors/) {CR} (4 2-to-1)} /@index @index /pkg pkg /pin1 {(A-B) {ol}} /pin2 (1A) /pin3 (1B) /pin4 (1Y) /pin5 (2A) /pin6 (2B) /pin7 (2Y) /pin8 (Gnd) /pin9 (3Y) /pin10 (3B) /pin11 (3A) /pin12 (4Y) /pin13 (4B) /pin14 (4A) /pin15 {(G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74258 Template16 /dil_74258 { <> begingate 1.00 0 0 0 << /gate (74258) /title {(outputs) {CR} (inverting) {CR} (w.) {CR} (demultiplexors) {CR} (selectors/) {CR} (4 2-to-1)} /@index @index /pkg pkg /pin1 {(A-B) {ol}} /pin2 (1A) /pin3 (1B) /pin4 (1Y) /pin5 (2A) /pin6 (2B) /pin7 (2Y) /pin8 (Gnd) /pin9 (3Y) /pin10 (3B) /pin11 (3A) /pin12 (4Y) /pin13 (4B) /pin14 (4A) /pin15 {(G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74259 Template16 /dil_74259 { <> begingate 1.00 0 0 0 << /gate (74259) /title {(latches) {CR} (addressable) {CR} (8bit)} /@index @index /pkg pkg /pin1 (S0) /pin2 (S1) /pin3 (S2) /pin4 (Q0) /pin5 (Q1) /pin6 (Q2) /pin7 (Q3) /pin8 (Gnd) /pin9 (Q4) /pin10 (Q5) /pin11 (Q6) /pin12 (Q7) /pin13 (D) /pin14 {(G) {ol}} /pin15 {(Clr) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74260 Template14 /dil_74260 { <> begingate 1.00 0 0 0 << /gate (74260) /title {(2 pent-NOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1C) /pin4 (2A) /pin5 (1Y) /pin6 (2Y) /pin7 (Gnd) /pin8 (2B) /pin9 (2C) /pin10 (2D) /pin11 (2E) /pin12 (1D) /pin13 (1E) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74261 Template16 /dil_74261 { <> begingate 1.00 0 0 0 << /gate (74261) /title {(multiplexors) {CR} (binary) {CR} (parallel) {CR} (2bit by 4bit)} /@index @index /pkg pkg /pin1 (B3) /pin2 (B4) /pin3 (C) /pin4 (M2) /pin5 {(Q4) {ol}} /pin6 (Q3) /pin7 (Q2) /pin8 (Gnd) /pin9 (Q1) /pin10 (Q0) /pin11 (M0) /pin12 (M1) /pin13 (B0) /pin14 (B1) /pin15 (B2) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74265 Template16 /dil_74265 { <> begingate 1.00 0 0 0 << /gate (74265) /title {(gates) {CR} (output) {CR} (complementary) {CR} (4)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1W) /pin3 (1Y) /pin4 (2A) /pin5 (2B) /pin6 (2W) /pin7 (2Y) /pin8 (Gnd) /pin9 (3Y) /pin10 (3W) /pin11 (3A) /pin12 (3B) /pin13 (4Y) /pin14 (4W) /pin15 (4A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74266 Template14 /dil_74266 { <> begingate 1.00 0 0 0 << /gate (74266) /title {(OC) {CR} (4 dual-XOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74273 Template20 /dil_74273 { <> begingate 1.00 0 0 0 << /gate (74273) /title {(w. clear) {CR} (8 D-type FF)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (1Q) /pin3 (1D) /pin4 (2D) /pin5 (2Q) /pin6 (3Q) /pin7 (3D) /pin8 (4D) /pin9 (4Q) /pin10 (Gnd) /pin11 (Clk) /pin12 (5Q) /pin13 (5D) /pin14 (6D) /pin15 (6Q) /pin16 (7Q) /pin17 (7D) /pin18 (8D) /pin19 (8Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74276 Template20 /dil_74276 { <> begingate 1.00 0 0 0 << /gate (74276) /title {(K FF) {ol} (4 J-)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (1J) /pin3 (1Clk) /pin4 {(1K) {ol}} /pin5 (1Q) /pin6 (2Q) /pin7 {(2K) {ol}} /pin8 (2Clk) /pin9 (2J) /pin10 (Gnd) /pin11 {(Pre) {ol}} /pin12 (3J) /pin13 (3Clk) /pin14 {(3K) {ol}} /pin15 (3Q) /pin16 (4Q) /pin17 {(4K) {ol}} /pin18 (4Clk) /pin19 (4J) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74278 Template14 /dil_74278 { <> begingate 1.00 0 0 0 << /gate (74278) /title {(registers) {CR} (priority) {CR} (cascadable) {CR} (4bit)} /@index @index /pkg pkg /pin1 (Strb) /pin2 (D3) /pin3 (D4) /pin4 (P0) /pin5 (P1) /pin6 (Y4) /pin7 (Gnd) /pin8 (Y3) /pin9 (Y2) /pin10 (Y1) /pin11 (NC) /pin12 (D1) /pin13 (D2) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74279 Template16 /dil_74279 { <> begingate 1.00 0 0 0 << /gate (74279) /title {(latches) {CR} (R) {ol} (S-) {ol} (4 )} /@index @index /pkg pkg /pin1 {(1R) {ol}} /pin2 {(1S1) {ol}} /pin3 {(1S2) {ol}} /pin4 (1Q) /pin5 {(2R) {ol}} /pin6 {(2S) {ol}} /pin7 (2Q) /pin8 (Gnd) /pin9 (3Q) /pin10 {(3R) {ol}} /pin11 {(3S1) {ol}} /pin12 {(3S2) {ol}} /pin13 (4Q) /pin14 {(4R) {ol}} /pin15 {(4S) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74280 Template14 /dil_74280 { <> begingate 1.00 0 0 0 << /gate (74280) /title {(checker) {CR} (generator/) {CR} (even parity) {CR} (9bit odd/)} /@index @index /pkg pkg /pin1 (G) /pin2 (H) /pin3 (NC) /pin4 (I) /pin5 (SumEven) /pin6 (SumOdd) /pin7 (Gnd) /pin8 (A) /pin9 (B) /pin10 (C) /pin11 (D) /pin12 (E) /pin13 (F) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74283 Template16 /dil_74283 { <> begingate 1.00 0 0 0 << /gate (74283) /title {(carry) {CR} (w. fast) {CR} (full adders) {CR} (4bit binary)} /@index @index /pkg pkg /pin1 (Sum2) /pin2 (B2) /pin3 (A2) /pin4 (Sum1) /pin5 (A1) /pin6 (B1) /pin7 (C0) /pin8 (Gnd) /pin9 (C4) /pin10 (Sum4) /pin11 (B4) /pin12 (A4) /pin13 (Sum3) /pin14 (A3) /pin15 (B3) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74285 Template16 /dil_74285 { <> begingate 1.00 0 0 0 << /gate (74285) /title {(multipliers) {CR} (binary) {CR} (parallel) {CR} (4bit by 4bit)} /@index @index /pkg pkg /pin1 (2C) /pin2 (2B) /pin3 (2A) /pin4 (1D) /pin5 (1A) /pin6 (1B) /pin7 (1C) /pin8 (Gnd) /pin9 (Y3) /pin10 (Y2) /pin11 (Y1) /pin12 (Y0) /pin13 {(GB) {ol}} /pin14 {(GA) {ol}} /pin15 (2D) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74290 Template14 /dil_74290 { <> begingate 1.00 0 0 0 << /gate (74290) /title {(to-9) {CR} (clear/set-) {CR} (counter w.) {CR} (decade)} /@index @index /pkg pkg /pin1 {(R9\(1\))} /pin2 (NC) /pin3 {(R9\(2\))} /pin4 (Qc) /pin5 (Qb) /pin6 (NC) /pin7 (Gnd) /pin8 (Qd) /pin9 (Qa) /pin10 (CKA) /pin11 (CKB) /pin12 {(R0\(1\))} /pin13 {(R0\(2\))} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74292 Template16 /dil_74292 { <> begingate 1.00 0 0 0 << /gate (74292) /title {(power 31\)) {CR} (timer \(2) {CR} (divider/) {CR} (programmable)} /@index @index /pkg pkg /pin1 (B) /pin2 (E) /pin3 (Tp1) /pin4 (Clk1) /pin5 (Clk2) /pin6 (Tp2) /pin7 (Q) /pin8 (Gnd) /pin9 (NC) /pin10 (A) /pin11 {(Clr) {ol}} /pin12 (NC) /pin13 (Tp3) /pin14 (D) /pin15 (C) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74293 Template14 /dil_74293 { <> begingate 1.00 0 0 0 << /gate (74293) /title {(clear) {CR} (counter w.) {CR} (4bit binary)} /@index @index /pkg pkg /pin1 (NC) /pin2 (NC) /pin3 (NC) /pin4 (Qc) /pin5 (Qb) /pin6 (NC) /pin7 (Gnd) /pin8 (Qd) /pin9 (Qa) /pin10 (CKA) /pin11 (CKB) /pin12 {(R0\(1\))} /pin13 {(R0\(2\))} /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74294 Template16 /dil_74294 { <> begingate 1.00 0 0 0 << /gate (74294) /title {(power 15\)) {CR} (timer \(2) {CR} (divider/) {CR} (programmable)} /@index @index /pkg pkg /pin1 (B) /pin2 (A) /pin3 (Tp) /pin4 (Clk1) /pin5 (Clk2) /pin6 (NC) /pin7 (Q) /pin8 (Gnd) /pin9 (NC) /pin10 (NC) /pin11 {(Clr) {ol}} /pin12 (NC) /pin13 (NC) /pin14 (D) /pin15 (C) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74295 Template14 /dil_74295 { <> begingate 1.00 0 0 0 << /gate (74295) /title {(state) {CR} (registers 3-) {CR} (right-shift) {CR} (4bit left/)} /@index @index /pkg pkg /pin1 (Ser) /pin2 (A) /pin3 (B) /pin4 (C) /pin5 (D) /pin6 {(SH) {ol} (LD-)} /pin7 (Gnd) /pin8 (OC) /pin9 (Clk) /pin10 (Qd) /pin11 (Qc) /pin12 (Qb) /pin13 (Qa) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74297 Template16 /dil_74297 { <> begingate 1.00 0 0 0 << /gate (74297) /title {(filters) {CR} (digital PLL)} /@index @index /pkg pkg /pin1 (B) /pin2 (A) /pin3 (ENCTR) /pin4 (K-Clk) /pin5 (I-D-Clk) /pin6 {(U) {ol} (d-)} /pin7 (I-D-Out) /pin8 (Gnd) /pin9 (Phase-A1) /pin10 (Phase-B) /pin11 (XORPD-Out) /pin12 (ECPD-Out) /pin13 (Pahse-A2) /pin14 (D) /pin15 (C) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74298 Template16 /dil_74298 { <> begingate 1.00 0 0 0 << /gate (74298) /title {(w. storage) {CR} (multiplexors) {CR} (4 dual-input)} /@index @index /pkg pkg /pin1 (B2) /pin2 (A2) /pin3 (A1) /pin4 (B1) /pin5 (C2) /pin6 (D2) /pin7 (D1) /pin8 (Gnd) /pin9 (C1) /pin10 (WS) /pin11 (Clk) /pin12 (Qd) /pin13 (Qc) /pin14 (Qb) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74299 Template20 /dil_74299 { <> begingate 1.00 0 0 0 << /gate (74299) /title {(registers) {CR} (storage) {CR} (shift/) {CR} (universal) {CR} (8bit)} /@index @index /pkg pkg /pin1 (S0) /pin2 {(G1) {ol}} /pin3 {(G2) {ol}} /pin4 (G-Qg) /pin5 (E-Qe) /pin6 (C-Qc) /pin7 (A-Qa) /pin8 (Qa2) /pin9 {(Clr) {ol}} /pin10 (Gnd) /pin11 (SR) /pin12 (Clk) /pin13 (B-Qb) /pin14 (D-Qd) /pin15 (F-Qf) /pin16 (H-Qh) /pin17 (Qh2) /pin18 (SL) /pin19 (S1) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74320 Template16 /dil_74320 { <> begingate 1.00 0 0 0 << /gate (74320) /title {(oscillator) {CR} (controlled) {CR} (crystal-)} /@index @index /pkg pkg /pin1 (Tank1) /pin2 (Tank2) /pin3 (Gnd1) /pin4 (FFQ) /pin5 (FFD) /pin6 (NC) /pin7 (F) /pin8 (Gnd2) /pin9 {(F+) {ol}} /pin10 (F+) /pin11 (Vcc+) /pin12 {(F) {ol}} /pin13 (NC) /pin14 (Xtal1) /pin15 (Xtal2) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74321 Template16 /dil_74321 { <> begingate 1.00 0 0 0 << /gate (74321) /title {(outputs) {CR} (w. F/2,F/4) {CR} (oscillator) {CR} (controlled) {CR} (crystal-)} /@index @index /pkg pkg /pin1 (Tank1) /pin2 (Tank2) /pin3 (Gnd1) /pin4 (FFQ) /pin5 (FFD) /pin6 (F/4) /pin7 (F) /pin8 (Gnd2) /pin9 {(F+) {ol}} /pin10 (F+) /pin11 (Vcc+) /pin12 {(F) {ol}} /pin13 (F/2) /pin14 (Xtal1) /pin15 (Xtal2) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74322 Template20 /dil_74322 { <> begingate 1.00 0 0 0 << /gate (74322) /title {(sign extend) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 {(G) {ol}} /pin2 {(P) {ol} (S-)} /pin3 (D0) /pin4 (a-Qa) /pin5 (C-Qc) /pin6 (E-Qe) /pin7 (G-Qg) /pin8 {(OE) {ol}} /pin9 {(Clr) {ol}} /pin10 (Gnd) /pin11 (Clk) /pin12 (Qh+) /pin13 (H-Qh) /pin14 (F-Qf) /pin15 (D-Qd) /pin16 (B-Qb) /pin17 (D1) /pin18 {(SE) {ol}} /pin19 (DS) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74323 Template20 /dil_74323 { <> begingate 1.00 0 0 0 << /gate (74323) /title {(register) {CR} (storage) {CR} (shift/) {CR} (universal) {CR} (8bit)} /@index @index /pkg pkg /pin1 (S0) /pin2 {(G1) {ol}} /pin3 {(G2) {ol}} /pin4 (G-Qg) /pin5 (E-Qe) /pin6 (C-Qc) /pin7 (A-Qa) /pin8 (Qa+) /pin9 {(Clr) {ol}} /pin10 (Gnd) /pin11 (SR) /pin12 (Clk) /pin13 (B-Qb) /pin14 (D-Qd) /pin15 (F-Qf) /pin16 (H-Qh) /pin17 (Qh+) /pin18 (SL) /pin19 (S1) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74348 Template16 /dil_74348 { <> begingate 1.00 0 0 0 << /gate (74348) /title {(state) {CR} (encode 3-) {CR} (priority) {CR} (8-to-3)} /@index @index /pkg pkg /pin1 (4) /pin2 (5) /pin3 (6) /pin4 (7) /pin5 (W1) /pin6 (A2) /pin7 (A1) /pin8 (Gnd) /pin9 (A0) /pin10 (0) /pin11 (1) /pin12 (2) /pin13 (3) /pin14 (GS) /pin15 (E0) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74352 Template16 /dil_74352 { <> begingate 1.00 0 0 0 << /gate (74352) /title {(multiplexor) {CR} (selector/) {CR} (data) {CR} (2 4-to-1)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (B) /pin3 (1C3) /pin4 (1C2) /pin5 (1C1) /pin6 (1C0) /pin7 (1Y) /pin8 (Gnd) /pin9 (2Y) /pin10 (2C0) /pin11 (2C1) /pin12 (2C2) /pin13 (2C3) /pin14 (A) /pin15 {(2G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74353 Template16 /dil_74353 { <> begingate 1.00 0 0 0 << /gate (74353) /title {(3-state) {CR} (multiplexor) {CR} (selector/) {CR} (data) {CR} (2 4-to-1)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (B) /pin3 (1C3) /pin4 (1C2) /pin5 (1C1) /pin6 (1C0) /pin7 (1Y) /pin8 (Gnd) /pin9 (2Y) /pin10 (2C0) /pin11 (2C1) /pin12 (2C2) /pin13 (2C3) /pin14 (A) /pin15 {(2G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74354 Template20 /dil_74354 { <> begingate 1.00 0 0 0 << /gate (74354) /title {(3-state) {CR} (transparent) {CR} (register) {CR} (multiplexor/) {CR} (selector/) {CR} (8-to-1 data)} /@index @index /pkg pkg /pin1 (D7) /pin2 (D6) /pin3 (D5) /pin4 (D4) /pin5 (D3) /pin6 (D2) /pin7 (D1) /pin8 (D0) /pin9 {(DC) {ol}} /pin10 (Gnd) /pin11 {(SC) {ol}} /pin12 (S2) /pin13 (S1) /pin14 (S0) /pin15 {(G1) {ol}} /pin16 {(G2) {ol}} /pin17 (G3) /pin18 (W) /pin19 (Y) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74355 Template20 /dil_74355 { <> begingate 1.00 0 0 0 << /gate (74355) /title {(OC) {CR} (transparent) {CR} (register) {CR} (multiplexor/) {CR} (selector/) {CR} (8-to-1 data)} /@index @index /pkg pkg /pin1 (D7) /pin2 (D6) /pin3 (D5) /pin4 (D4) /pin5 (D3) /pin6 (D2) /pin7 (D1) /pin8 (D0) /pin9 {(DC) {ol}} /pin10 (Gnd) /pin11 {(SC) {ol}} /pin12 (S2) /pin13 (S1) /pin14 (S0) /pin15 {(G1) {ol}} /pin16 {(G2) {ol}} /pin17 (G3) /pin18 (W) /pin19 (Y) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74356 Template20 /dil_74356 { <> begingate 1.00 0 0 0 << /gate (74356) /title {(state) {CR} (triggered 3-) {CR} (edge-) {CR} (register) {CR} (multiplexor/) {CR} (selector/) {CR} (8-to-1 data)} /@index @index /pkg pkg /pin1 (D7) /pin2 (D6) /pin3 (D5) /pin4 (D4) /pin5 (D3) /pin6 (D2) /pin7 (D1) /pin8 (D0) /pin9 (Clk) /pin10 (Gnd) /pin11 {(SC) {ol}} /pin12 (S2) /pin13 (S1) /pin14 (S0) /pin15 {(G1) {ol}} /pin16 {(G2) {ol}} /pin17 (G3) /pin18 (W) /pin19 (Y) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74365 Template16 /dil_74365 { <> begingate 1.00 0 0 0 << /gate (74365) /title {(drivers OC) {CR} (6 bus)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (1A) /pin3 (1Y) /pin4 (2A) /pin5 (2Y) /pin6 (3A) /pin7 (3Y) /pin8 (Gnd) /pin9 (4Y) /pin10 (4A) /pin11 (5Y) /pin12 (5A) /pin13 (6Y) /pin14 (6A) /pin15 {(G2) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74366 Template16 /dil_74366 { <> begingate 1.00 0 0 0 << /gate (74366) /title {(output) {CR} (inverting) {CR} (w.) {CR} (drivers OC) {CR} (6 bus)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (1A) /pin3 (1Y) /pin4 (2A) /pin5 (2Y) /pin6 (3A) /pin7 (3Y) /pin8 (Gnd) /pin9 (4Y) /pin10 (4A) /pin11 (5Y) /pin12 (5A) /pin13 (6Y) /pin14 (6A) /pin15 {(G2) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74367 Template16 /dil_74367 { <> begingate 1.00 0 0 0 << /gate (74367) /title {(drivers OC) {CR} (6 bus)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (1A1) /pin3 (1Y1) /pin4 (1A2) /pin5 (1Y2) /pin6 (1A3) /pin7 (1Y3) /pin8 (Gnd) /pin9 (1Y4) /pin10 (1A4) /pin11 (2Y1) /pin12 (2A1) /pin13 (2Y2) /pin14 (2A2) /pin15 {(G2) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74368 Template16 /dil_74368 { <> begingate 1.00 0 0 0 << /gate (74368) /title {(output) {CR} (inverting) {CR} (w.) {CR} (drivers OC) {CR} (6 bus)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (1A1) /pin3 (1Y1) /pin4 (1A2) /pin5 (1Y2) /pin6 (1A3) /pin7 (1Y3) /pin8 (Gnd) /pin9 (1Y4) /pin10 (1A4) /pin11 (2Y1) /pin12 (2A1) /pin13 (2Y2) /pin14 (2A2) /pin15 {(G2) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74373 Template20 /dil_74373 { <> begingate 1.00 0 0 0 << /gate (74373) /title {(state) {CR} (latches 3-) {CR} (transparent) {CR} (8 D-type)} /@index @index /pkg pkg /pin1 {(OC) {ol}} /pin2 (1Q) /pin3 (1D) /pin4 (2D) /pin5 (2Q) /pin6 (3Q) /pin7 (3D) /pin8 (4D) /pin9 (4Q) /pin10 (Gnd) /pin11 (C) /pin12 (5Q) /pin13 (5D) /pin14 (6D) /pin15 (6Q) /pin16 (7Q) /pin17 (7D) /pin18 (8D) /pin19 (8Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74374 Template20 /dil_74374 { <> begingate 1.00 0 0 0 << /gate (74374) /title {(state) {CR} (8 edge FF 3-)} /@index @index /pkg pkg /pin1 {(OC) {ol}} /pin2 (1Q) /pin3 (1D) /pin4 (2D) /pin5 (2Q) /pin6 (3Q) /pin7 (3D) /pin8 (4D) /pin9 (4Q) /pin10 (Gnd) /pin11 (C) /pin12 (5Q) /pin13 (5D) /pin14 (6D) /pin15 (6Q) /pin16 (7Q) /pin17 (7D) /pin18 (8D) /pin19 (8Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74375 Template16 /dil_74375 { <> begingate 1.00 0 0 0 << /gate (74375) /title {(latch) {CR} (bistable) {CR} (4bit)} /@index @index /pkg pkg /pin1 (1D) /pin2 {(1Q) {ol}} /pin3 (1Q) /pin4 (1C-2C) /pin5 (2Q) /pin6 {(2Q) {ol}} /pin7 (2D) /pin8 (Gnd) /pin9 (3D) /pin10 {(3Q) {ol}} /pin11 (3Q) /pin12 (3C-4C) /pin13 (4Q) /pin14 {(4Q) {ol}} /pin15 (4D) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74376 Template16 /dil_74376 { <> begingate 1.00 0 0 0 << /gate (74376) /title {(4 JK FF)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (1J) /pin3 {(1K) {ol}} /pin4 (1Q) /pin5 (2Q) /pin6 {(2K) {ol}} /pin7 (2J) /pin8 (Gnd) /pin9 (Clk) /pin10 (3J) /pin11 {(3K) {ol}} /pin12 (3Q) /pin13 (4Q) /pin14 {(4K) {ol}} /pin15 (4J) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74377 Template20 /dil_74377 { <> begingate 1.00 0 0 0 << /gate (74377) /title {(output) {CR} (single rail) {CR} (8 FF w.)} /@index @index /pkg pkg /pin1 {(G) {ol}} /pin2 (1Q) /pin3 (1D) /pin4 (2D) /pin5 (2Q) /pin6 (3Q) /pin7 (3D) /pin8 (4D) /pin9 (4Q) /pin10 (Gnd) /pin11 (Clk) /pin12 (5Q) /pin13 (5D) /pin14 (6D) /pin15 (6Q) /pin16 (7Q) /pin17 (7D) /pin18 (8D) /pin19 (8Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74378 Template16 /dil_74378 { <> begingate 1.00 0 0 0 << /gate (74378) /title {(output) {CR} (single rail) {CR} (6 FF w.)} /@index @index /pkg pkg /pin1 {(G) {ol}} /pin2 (1Q) /pin3 (1D) /pin4 (2D) /pin5 (2Q) /pin6 (3D) /pin7 (3Q) /pin8 (Gnd) /pin9 (Clk) /pin10 (4Q) /pin11 (4D) /pin12 (5Q) /pin13 (5D) /pin14 (6D) /pin15 (6Q) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74379 Template16 /dil_74379 { <> begingate 1.00 0 0 0 << /gate (74379) /title {(output) {CR} (double rail) {CR} (4 FF w.)} /@index @index /pkg pkg /pin1 {(G) {ol}} /pin2 (1Q) /pin3 {(1Q) {ol}} /pin4 (1D) /pin5 (2D) /pin6 {(2Q) {ol}} /pin7 (2Q) /pin8 (Gnd) /pin9 (Clk) /pin10 (3Q) /pin11 {(3Q) {ol}} /pin12 (3D) /pin13 (4D) /pin14 {(4Q) {ol}} /pin15 (4Q) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74381 Template20 /dil_74381 { <> begingate 1.00 0 0 0 << /gate (74381) /title {(ahead carry) {CR} (w. look-) {CR} (generator) {CR} (ALU function)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (A0) /pin4 (B0) /pin5 (S0) /pin6 (S1) /pin7 (S2) /pin8 (F0) /pin9 (F1) /pin10 (Gnd) /pin11 (F2) /pin12 (F3) /pin13 {(G) {ol}} /pin14 {(P) {ol}} /pin15 (Cn) /pin16 (B3) /pin17 (A3) /pin18 (B2) /pin19 (A2) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74382 Template20 /dil_74382 { <> begingate 1.00 0 0 0 << /gate (74382) /title {(carry) {CR} (ripple-) {CR} (w. overflow/) {CR} (generator) {CR} (ALU function)} /@index @index /pkg pkg /pin1 (A1) /pin2 (B1) /pin3 (A0) /pin4 (B0) /pin5 (S0) /pin6 (S1) /pin7 (S2) /pin8 (F0) /pin9 (F1) /pin10 (Gnd) /pin11 (F2) /pin12 (F3) /pin13 (Ovr) /pin14 (Cn+4) /pin15 (Cn) /pin16 (B3) /pin17 (A3) /pin18 (B2) /pin19 (A2) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74384 Template16 /dil_74384 { <> begingate 1.00 0 0 0 << /gate (74384) /title {(multiplier) {CR} (complement) {CR} (twos-) {CR} (8bit by 1bit)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (X3) /pin3 (X2) /pin4 (X1) /pin5 (X0) /pin6 (Prod) /pin7 (Clk) /pin8 (Gnd) /pin9 (Mode) /pin10 (K) /pin11 (X7) /pin12 (X6) /pin13 (X5) /pin14 (X4) /pin15 (Y) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74385 Template20 /dil_74385 { <> begingate 1.00 0 0 0 << /gate (74385) /title {(substractor) {CR} (adder/) {CR} (4 serial)} /@index @index /pkg pkg /pin1 (Clk) /pin2 (1Sum) /pin3 {(A) {ol} (1S-)} /pin4 (1B) /pin5 (1A) /pin6 (2A) /pin7 (2B) /pin8 {(A) {ol} (2S-)} /pin9 (2Sum) /pin10 (Gnd) /pin11 (Clr) /pin12 (3Sum) /pin13 {(A) {ol} (3S-)} /pin14 (3B) /pin15 (3A) /pin16 (4A) /pin17 (4B) /pin18 {(A) {ol} (4S-)} /pin19 (4Sum) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74386 Template14 /dil_74386 { <> begingate 1.00 0 0 0 << /gate (74386) /title {(4 dual-XOR)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 (1Y) /pin4 (2Y) /pin5 (2A) /pin6 (2B) /pin7 (Gnd) /pin8 (3A) /pin9 (3B) /pin10 (3Y) /pin11 (4Y) /pin12 (4A) /pin13 (4B) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74390 Template16 /dil_74390 { <> begingate 1.00 0 0 0 << /gate (74390) /title {(2/5\)) {CR} (\(divide by) {CR} (clear) {CR} (clocks/) {CR} (individual) {CR} (counter w.) {CR} (2 decade)} /@index @index /pkg pkg /pin1 (1ClkA) /pin2 (1Clr) /pin3 (1Qa) /pin4 (1ClkB) /pin5 (1Qb) /pin6 (1Qc) /pin7 (1Qd) /pin8 (Gnd) /pin9 (2Qd) /pin10 (2Qc) /pin11 (2Qb) /pin12 (2ClkB) /pin13 (2Qa) /pin14 (2Clr) /pin15 (2ClkA) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74393 Template14 /dil_74393 { <> begingate 1.00 0 0 0 << /gate (74393) /title {(clear) {CR} (clocks/) {CR} (individual) {CR} (counter w.) {CR} (binary) {CR} (2 4bit)} /@index @index /pkg pkg /pin1 (1Clk) /pin2 (1Clr) /pin3 (1Qa) /pin4 (1Qb) /pin5 (1Qc) /pin6 (1Qd) /pin7 (Gnd) /pin8 (2Qd) /pin9 (2Qc) /pin10 (2Qb) /pin11 (2Qa) /pin12 (2Clr) /pin13 (2Clk) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74395 Template16 /dil_74395 { <> begingate 1.00 0 0 0 << /gate (74395) /title {(state) {CR} (register 3-) {CR} (shift) {CR} (cascadable) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(Clr) {ol}} /pin2 (Ser) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(Sh) {ol} (Ld-)} /pin8 (Gnd) /pin9 {(OC) {ol}} /pin10 (Clk) /pin11 (Qd+) /pin12 (Qd) /pin13 (Qc) /pin14 (Qb) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74396 Template16 /dil_74396 { <> begingate 1.00 0 0 0 << /gate (74396) /title {(register) {CR} (8 storage)} /@index @index /pkg pkg /pin1 (2Q1) /pin2 (1Q1) /pin3 (D1) /pin4 (2Q2) /pin5 (1Q2) /pin6 (D2) /pin7 (Clk) /pin8 (Gnd) /pin9 (D3) /pin10 (1Q3) /pin11 (2Q3) /pin12 (D4) /pin13 (1Q4) /pin14 (2Q4) /pin15 {(G) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74399 Template16 /dil_74399 { <> begingate 1.00 0 0 0 << /gate (74399) /title {(w. storage) {CR} (multiplexor) {CR} (4 dual-input)} /@index @index /pkg pkg /pin1 (WS) /pin2 (Qa) /pin3 (A1) /pin4 (A2) /pin5 (B2) /pin6 (B1) /pin7 (Qb) /pin8 (Gnd) /pin9 (Clk) /pin10 (Qc) /pin11 (C1) /pin12 (C2) /pin13 (D2) /pin14 (D1) /pin15 (Qd) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74422 Template14 /dil_74422 { <> begingate 1.00 0 0 0 << /gate (74422) /title {(resistor) {CR} (w. internal) {CR} (multivibrator) {CR} (monostable) {CR} (retriggerable)} /@index @index /pkg pkg /pin1 (A1) /pin2 (A2) /pin3 (B1) /pin4 (B2) /pin5 {(Clr) {ol}} /pin6 {(Q) {ol}} /pin7 (Gnd) /pin8 (Q) /pin9 (Rint) /pin10 (NC) /pin11 (Cext) /pin12 (NC) /pin13 (Rext-Cext) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74423 Template16 /dil_74423 { <> begingate 1.00 0 0 0 << /gate (74423) /title {(multivibrator) {CR} (monostable) {CR} (retriggerable)} /@index @index /pkg pkg /pin1 (1A) /pin2 (1B) /pin3 {(1Clr) {ol}} /pin4 {(1Q) {ol}} /pin5 (2Q) /pin6 (2Cext) /pin7 (2Rext-Cext) /pin8 (Gnd) /pin9 (2A) /pin10 (2B) /pin11 {(2Clr) {ol}} /pin12 {(2Q) {ol}} /pin13 (1Q) /pin14 (1Cext) /pin15 (1Rext-Cext) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74440 Template20 /dil_74440 { <> begingate 1.00 0 0 0 << /gate (74440) /title {(OC) {CR} (tranceiver) {CR} (bus) {CR} (tridirectional) {CR} (4)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (B1) /pin3 (C1) /pin4 (C2) /pin5 (B2) /pin6 (B3) /pin7 (C3) /pin8 (C4) /pin9 (B4) /pin10 (Gnd) /pin11 (S0) /pin12 (S1) /pin13 (A4) /pin14 (A3) /pin15 (A2) /pin16 (A1) /pin17 {(GA) {ol}} /pin18 {(GB) {ol}} /pin19 {(GC) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74441 Template20 /dil_74441 { <> begingate 1.00 0 0 0 << /gate (74441) /title {(OC) {CR} (tranceiver) {CR} (bus) {CR} (inverting) {CR} (tridirectional) {CR} (4)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (B1) /pin3 (C1) /pin4 (C2) /pin5 (B2) /pin6 (B3) /pin7 (C3) /pin8 (C4) /pin9 (B4) /pin10 (Gnd) /pin11 (S0) /pin12 (S1) /pin13 (A4) /pin14 (A3) /pin15 (A2) /pin16 (A1) /pin17 {(GA) {ol}} /pin18 {(GB) {ol}} /pin19 {(GC) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74442 Template20 /dil_74442 { <> begingate 1.00 0 0 0 << /gate (74442) /title {(3-state) {CR} (tranceiver) {CR} (bus) {CR} (tridirectional) {CR} (4)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (B1) /pin3 (C1) /pin4 (C2) /pin5 (B2) /pin6 (B3) /pin7 (C3) /pin8 (C4) /pin9 (B4) /pin10 (Gnd) /pin11 (S0) /pin12 (S1) /pin13 (A4) /pin14 (A3) /pin15 (A2) /pin16 (A1) /pin17 {(GA) {ol}} /pin18 {(GB) {ol}} /pin19 {(GC) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74443 Template20 /dil_74443 { <> begingate 1.00 0 0 0 << /gate (74443) /title {(3-state) {CR} (tranceiver) {CR} (bus) {CR} (inverting) {CR} (tridirectional) {CR} (4)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (B1) /pin3 (C1) /pin4 (C2) /pin5 (B2) /pin6 (B3) /pin7 (C3) /pin8 (C4) /pin9 (B4) /pin10 (Gnd) /pin11 (S0) /pin12 (S1) /pin13 (A4) /pin14 (A3) /pin15 (A2) /pin16 (A1) /pin17 {(GA) {ol}} /pin18 {(GB) {ol}} /pin19 {(GC) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74444 Template20 /dil_74444 { <> begingate 1.00 0 0 0 << /gate (74444) /title {(3-state) {CR} (tranceiver) {CR} (bus) {CR} (inverting) {CR} (true/) {CR} (tridirectional) {CR} (4)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (B1) /pin3 (C1) /pin4 (C2) /pin5 (B2) /pin6 (B3) /pin7 (C3) /pin8 (C4) /pin9 (B4) /pin10 (Gnd) /pin11 (S0) /pin12 (S1) /pin13 (A4) /pin14 (A3) /pin15 (A2) /pin16 (A1) /pin17 {(GA) {ol}} /pin18 {(GB) {ol}} /pin19 {(GC) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74446 Template16 /dil_74446 { <> begingate 1.00 0 0 0 << /gate (74446) /title {(control) {CR} (direction) {CR} (individual) {CR} (w.) {CR} (tranceiver) {CR} (bus) {CR} (4 inverting)} /@index @index /pkg pkg /pin1 {(GBA) {ol}} /pin2 (A1) /pin3 (Dir2) /pin4 (A2) /pin5 (A3) /pin6 (Dir3) /pin7 (A4) /pin8 (Gnd) /pin9 (B4) /pin10 (Dir4) /pin11 (B3) /pin12 (B2) /pin13 (Dir1) /pin14 (B1) /pin15 {(GAB) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74449 Template16 /dil_74449 { <> begingate 1.00 0 0 0 << /gate (74449) /title {(control) {CR} (direction) {CR} (individual) {CR} (w.) {CR} (tranceiver) {CR} (4 bus)} /@index @index /pkg pkg /pin1 {(GBA) {ol}} /pin2 (A1) /pin3 (Dir2) /pin4 (A2) /pin5 (A3) /pin6 (Dir3) /pin7 (A4) /pin8 (Gnd) /pin9 (B4) /pin10 (Dir4) /pin11 (B3) /pin12 (B2) /pin13 (Dir1) /pin14 (B1) /pin15 {(GAB) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74465 Template20 /dil_74465 { <> begingate 1.00 0 0 0 << /gate (74465) /title {(state) {CR} (8 buffer 3-)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (A1) /pin3 (Y1) /pin4 (A2) /pin5 (Y2) /pin6 (A3) /pin7 (Y3) /pin8 (A4) /pin9 (Y4) /pin10 (Gnd) /pin11 (Y5) /pin12 (A5) /pin13 (Y6) /pin14 (A6) /pin15 (Y7) /pin16 (A7) /pin17 (Y8) /pin18 (A8) /pin19 {(G2) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74466 Template20 /dil_74466 { <> begingate 1.00 0 0 0 << /gate (74466) /title {(state) {CR} (buffer 3-) {CR} (8 invering)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (A1) /pin3 (Y1) /pin4 (A2) /pin5 (Y2) /pin6 (A3) /pin7 (Y3) /pin8 (A4) /pin9 (Y4) /pin10 (Gnd) /pin11 (Y5) /pin12 (A5) /pin13 (Y6) /pin14 (A6) /pin15 (Y7) /pin16 (A7) /pin17 (Y8) /pin18 (A8) /pin19 {(G2) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74467 Template20 /dil_74467 { <> begingate 1.00 0 0 0 << /gate (74467) /title {(signals) {CR} (enable) {CR} (seperate) {CR} (state w.) {CR} (8 buffer 3-)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (1A1) /pin3 (1Y1) /pin4 (1A2) /pin5 (1Y2) /pin6 (1A3) /pin7 (1Y3) /pin8 (1A4) /pin9 (1Y4) /pin10 (Gnd) /pin11 (2Y1) /pin12 (2A1) /pin13 (2Y2) /pin14 (2A2) /pin15 (2Y3) /pin16 (2A3) /pin17 (2Y4) /pin18 (2A4) /pin19 {(2G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74468 Template20 /dil_74468 { <> begingate 1.00 0 0 0 << /gate (74468) /title {(signals) {CR} (enable) {CR} (seperate) {CR} (state w.) {CR} (buffer 3-) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 {(1G) {ol}} /pin2 (1A1) /pin3 (1Y1) /pin4 (1A2) /pin5 (1Y2) /pin6 (1A3) /pin7 (1Y3) /pin8 (1A4) /pin9 (1Y4) /pin10 (Gnd) /pin11 (2Y1) /pin12 (2A1) /pin13 (2Y2) /pin14 (2A2) /pin15 (2Y3) /pin16 (2A3) /pin17 (2Y4) /pin18 (2A4) /pin19 {(2G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74490 Template16 /dil_74490 { <> begingate 1.00 0 0 0 << /gate (74490) /title {(counter) {CR} (decade) {CR} (4 4bit)} /@index @index /pkg pkg /pin1 (1Clk) /pin2 (1Clr) /pin3 (1Qa) /pin4 (1Set9) /pin5 (1Qb) /pin6 (1Qc) /pin7 (1Qd) /pin8 (Gnd) /pin9 (2Qd) /pin10 (2Qc) /pin11 (2Qb) /pin12 (2Set9) /pin13 (2Qa) /pin14 (2Clr) /pin15 (2Clk) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74518 Template20 /dil_74518 { <> begingate 1.00 0 0 0 << /gate (74518) /title {(pull-up) {CR} (OC w. input) {CR} (comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(OEN) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 (P=Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74519 Template20 /dil_74519 { <> begingate 1.00 0 0 0 << /gate (74519) /title {(OC) {CR} (comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(OEN) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 (P=Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74520 Template20 /dil_74520 { <> begingate 1.00 0 0 0 << /gate (74520) /title {(pull-up) {CR} (w. input) {CR} (comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(OEN) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74521 Template20 /dil_74521 { <> begingate 1.00 0 0 0 << /gate (74521) /title {(comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(OEN) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74522 Template20 /dil_74522 { <> begingate 1.00 0 0 0 << /gate (74522) /title {(pull-up) {CR} (OC w. input) {CR} (comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(OEN) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74538 Template20 /dil_74538 { <> begingate 1.00 0 0 0 << /gate (74538) /title {(state) {CR} (decoder 3-) {CR} (3-to-8)} /@index @index /pkg pkg /pin1 (Y2) /pin2 (Y1) /pin3 (Y0) /pin4 {(OE1) {ol}} /pin5 {(OE2) {ol}} /pin6 (A) /pin7 (B) /pin8 (Y5) /pin9 (Y6) /pin10 (Gnd) /pin11 (Y7) /pin12 (AL) /pin13 (G1) /pin14 (G2) /pin15 {(G3) {ol}} /pin16 {(G4) {ol}} /pin17 (C) /pin18 (Y4) /pin19 (Y3) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74540 Template20 /dil_74540 { <> begingate 1.00 0 0 0 << /gate (74540) /title {(state) {CR} (driver 3-) {CR} (buffer/) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (Y8) /pin12 (Y7) /pin13 (Y6) /pin14 (Y5) /pin15 (Y4) /pin16 (Y3) /pin17 (Y2) /pin18 (Y1) /pin19 {(G2) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74541 Template20 /dil_74541 { <> begingate 1.00 0 0 0 << /gate (74541) /title {(state) {CR} (driver 3-) {CR} (8 buffer/)} /@index @index /pkg pkg /pin1 {(G1) {ol}} /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (Y8) /pin12 (Y7) /pin13 (Y6) /pin14 (Y5) /pin15 (Y4) /pin16 (Y3) /pin17 (Y2) /pin18 (Y1) /pin19 {(G2) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74573 Template20 /dil_74573 { <> begingate 1.00 0 0 0 << /gate (74573) /title {(state) {CR} (latch 3-) {CR} (transparent) {CR} (8 D-type)} /@index @index /pkg pkg /pin1 {(Oe) {ol}} /pin2 (1D) /pin3 (2D) /pin4 (3D) /pin5 (4D) /pin6 (5D) /pin7 (6D) /pin8 (7D) /pin9 (8D) /pin10 (Gnd) /pin11 (Le) /pin12 (8Q) /pin13 (7Q) /pin14 (6Q) /pin15 (5Q) /pin16 (4Q) /pin17 (3Q) /pin18 (2Q) /pin19 (1Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74574 Template20 /dil_74574 { <> begingate 1.00 0 0 0 << /gate (74574) /title {(state) {CR} (edge FF 3-) {CR} (8 D-type)} /@index @index /pkg pkg /pin1 {(Oe) {ol}} /pin2 (1D) /pin3 (2D) /pin4 (3D) /pin5 (4D) /pin6 (5D) /pin7 (6D) /pin8 (7D) /pin9 (8D) /pin10 (Gnd) /pin11 (Clk) /pin12 (8Q) /pin13 (7Q) /pin14 (6Q) /pin15 (5Q) /pin16 (4Q) /pin17 (3Q) /pin18 (2Q) /pin19 (1Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74575 Template20 /dil_74575 { <> begingate 1.00 0 0 0 << /gate (74575) /title {(sync. clear) {CR} (state w.) {CR} (edge FF 3-) {CR} (8 D-type)} /@index @index /pkg pkg /pin1 {(Oe) {ol}} /pin2 (1D) /pin3 (2D) /pin4 (3D) /pin5 (4D) /pin6 (5D) /pin7 (6D) /pin8 (7D) /pin9 (8D) /pin10 (Gnd) /pin11 (Clk) /pin12 (8Q) /pin13 (7Q) /pin14 (6Q) /pin15 (5Q) /pin16 (4Q) /pin17 (3Q) /pin18 (2Q) /pin19 (1Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74580 Template20 /dil_74580 { <> begingate 1.00 0 0 0 << /gate (74580) /title {(output) {CR} (inverted) {CR} (state w.) {CR} (latch 3-) {CR} (transparent) {CR} (8 D-type)} /@index @index /pkg pkg /pin1 {(Oe) {ol}} /pin2 (1D) /pin3 (2D) /pin4 (3D) /pin5 (4D) /pin6 (5D) /pin7 (6D) /pin8 (7D) /pin9 (8D) /pin10 (Gnd) /pin11 (Le) /pin12 (8Q) /pin13 (7Q) /pin14 (6Q) /pin15 (5Q) /pin16 (4Q) /pin17 (3Q) /pin18 (2Q) /pin19 (1Q) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74590 Template16 /dil_74590 { <> begingate 1.00 0 0 0 << /gate (74590) /title {(state) {CR} (register 3-) {CR} (output) {CR} (counter w.) {CR} (8bit binary)} /@index @index /pkg pkg /pin1 (Qb) /pin2 (Qc) /pin3 (Qd) /pin4 (Qe) /pin5 (Qf) /pin6 (Qg) /pin7 (Qh) /pin8 (Gnd) /pin9 {(RCO) {ol}} /pin10 {(CClr) {ol}} /pin11 (CCK) /pin12 {(CCKEn) {ol}} /pin13 (RCK) /pin14 {(G) {ol}} /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74591 Template16 /dil_74591 { <> begingate 1.00 0 0 0 << /gate (74591) /title {(register OC) {CR} (output) {CR} (counter w.) {CR} (8bit binary)} /@index @index /pkg pkg /pin1 (Qb) /pin2 (Qc) /pin3 (Qd) /pin4 (Qe) /pin5 (Qf) /pin6 (Qg) /pin7 (Qh) /pin8 (Gnd) /pin9 {(RCO) {ol}} /pin10 {(CClr) {ol}} /pin11 (CCK) /pin12 {(CCKEn) {ol}} /pin13 (RCK) /pin14 {(G) {ol}} /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74592 Template16 /dil_74592 { <> begingate 1.00 0 0 0 << /gate (74592) /title {(clear) {CR} (w. load/) {CR} (8bit counter)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 (D) /pin4 (E) /pin5 (F) /pin6 (G) /pin7 (H) /pin8 (Gnd) /pin9 {(Rc0) {ol}} /pin10 {(Clr) {ol}} /pin11 (Clk) /pin12 {(ClkEn) {ol}} /pin13 (RClk) /pin14 {(Load) {ol}} /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74593 Template20 /dil_74593 { <> begingate 1.00 0 0 0 << /gate (74593) /title {(IO) {CR} (and 3-state) {CR} (load/clear) {CR} (counter w.) {CR} (8bit binary)} /@index @index /pkg pkg /pin1 (A-Qa) /pin2 (B-Qb) /pin3 (C-Qc) /pin4 (D-Qd) /pin5 (E-Qe) /pin6 (F-Qf) /pin7 (G-Qf) /pin8 (H-Qh) /pin9 {(CLoad) {ol}} /pin10 (Gnd) /pin11 {(RCO) {ol}} /pin12 {(CClr) {ol}} /pin13 (CCK) /pin14 {(CCKEn) {ol}} /pin15 (CCKEn) /pin16 (RCK) /pin17 {(RCKEn) {ol}} /pin18 {(G) {ol}} /pin19 (G) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74594 Template16 /dil_74594 { <> begingate 1.00 0 0 0 << /gate (74594) /title {(latch) {CR} (output) {CR} (buffered) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (Qb) /pin2 (Qc) /pin3 (Qd) /pin4 (Qe) /pin5 (Qf) /pin6 (Qg) /pin7 (Qh) /pin8 (Gnd) /pin9 (Qh+) /pin10 {(SRClr) {ol}} /pin11 {(SRCK) {ol}} /pin12 (RCK) /pin13 {(RClr) {ol}} /pin14 (SER) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74595 Template16 /dil_74595 { <> begingate 1.00 0 0 0 << /gate (74595) /title {(state) {CR} (latch 3-) {CR} (output) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (Qb) /pin2 (Qc) /pin3 (Qd) /pin4 (Qe) /pin5 (Qf) /pin6 (Qg) /pin7 (Qh) /pin8 (Gnd) /pin9 (Qh+) /pin10 {(SRClr) {ol}} /pin11 (SRCK) /pin12 (RCK) /pin13 {(G) {ol}} /pin14 (SER) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74596 Template16 /dil_74596 { <> begingate 1.00 0 0 0 << /gate (74596) /title {(latch OC) {CR} (output) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (Qb) /pin2 (Qc) /pin3 (Qd) /pin4 (Qe) /pin5 (Qf) /pin6 (Qg) /pin7 (Qh) /pin8 (Gnd) /pin9 (Qh+) /pin10 {(SRClr) {ol}} /pin11 (SRCK) /pin12 (RCK) /pin13 {(G) {ol}} /pin14 (SER) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74597 Template16 /dil_74597 { <> begingate 1.00 0 0 0 << /gate (74597) /title {(input latch) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (B) /pin2 (C) /pin3 (D) /pin4 (E) /pin5 (F) /pin6 (G) /pin7 (H) /pin8 (Gnd) /pin9 (Qh+) /pin10 {(SRClr) {ol}} /pin11 (SRCK) /pin12 (RCK) /pin13 {(SRLoad) {ol}} /pin14 (SER) /pin15 (A) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74598 Template20 /dil_74598 { <> begingate 1.00 0 0 0 << /gate (74598) /title {(state IO) {CR} (parallel 3-) {CR} (register/) {CR} (input) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (A-Qa) /pin2 (B-Qb) /pin3 (C-Qc) /pin4 (D-Qd) /pin5 (E-Qe) /pin6 (F-Qf) /pin7 (G-Qg) /pin8 (H-Qh) /pin9 {(SRLoad) {ol}} /pin10 (Gnd) /pin11 (Qh+) /pin12 {(SRClr) {ol}} /pin13 (SRCK) /pin14 {(SRCKEn) {ol}} /pin15 (RCK) /pin16 {(G) {ol}} /pin17 (Ser1) /pin18 (Ser0) /pin19 (DS) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74599 Template16 /dil_74599 { <> begingate 1.00 0 0 0 << /gate (74599) /title {(latch OC) {CR} (output) {CR} (register w.) {CR} (8bit shift)} /@index @index /pkg pkg /pin1 (Qb) /pin2 (Qc) /pin3 (Qd) /pin4 (Qe) /pin5 (Qf) /pin6 (Qg) /pin7 (Qh) /pin8 (Gnd) /pin9 (Qh+) /pin10 {(SRClr) {ol}} /pin11 {(SRCK) {ol}} /pin12 (RCK) /pin13 {(RClr) {ol}} /pin14 (SER) /pin15 (Qa) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74604 Template28 /dil_74604 { <> begingate 1.00 0 0 0 << /gate (74604) /title {(state) {CR} (latch 3-) {CR} (multiplexed) {CR} (speed) {CR} (maximum) {CR} (8 2-input)} /@index @index /pkg pkg /pin1 (Clk) /pin2 {(B) {ol} (A-)} /pin3 (A1) /pin4 (B1) /pin5 (A2) /pin6 (B2) /pin7 (A3) /pin8 (B3) /pin9 (A4) /pin10 (B4) /pin11 (Y4) /pin12 (Y3) /pin13 (Y2) /pin14 (Gnd) /pin15 (Y1) /pin16 (Y5) /pin17 (Y6) /pin18 (Y7) /pin19 (Y8) /pin20 (B8) /pin21 (A8) /pin22 (B7) /pin23 (A7) /pin24 (B6) /pin25 (A6) /pin26 (B5) /pin27 (A5) /pin28 (Vcc) >> Template28 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 864 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 800 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 224 800 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 224 864 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74606 Template28 /dil_74606 { <> begingate 1.00 0 0 0 << /gate (74606) /title {(state) {CR} (latch 3-) {CR} (multiplexed) {CR} (glitch-free) {CR} (8 2-input)} /@index @index /pkg pkg /pin1 (Clk) /pin2 {(B) {ol} (A-)} /pin3 (A1) /pin4 (B1) /pin5 (A2) /pin6 (B2) /pin7 (A3) /pin8 (B3) /pin9 (A4) /pin10 (B4) /pin11 (Y4) /pin12 (Y3) /pin13 (Y2) /pin14 (Gnd) /pin15 (Y1) /pin16 (Y5) /pin17 (Y6) /pin18 (Y7) /pin19 (Y8) /pin20 (B8) /pin21 (A8) /pin22 (B7) /pin23 (A7) /pin24 (B6) /pin25 (A6) /pin26 (B5) /pin27 (A5) /pin28 (Vcc) >> Template28 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 864 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 800 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 224 800 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 224 864 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74607 Template28 /dil_74607 { <> begingate 1.00 0 0 0 << /gate (74607) /title {(latch OC) {CR} (multiplexed) {CR} (glitch-free) {CR} (8 2-input)} /@index @index /pkg pkg /pin1 (Clk) /pin2 {(B) {ol} (A-)} /pin3 (A1) /pin4 (B1) /pin5 (A2) /pin6 (B2) /pin7 (A3) /pin8 (B3) /pin9 (A4) /pin10 (B4) /pin11 (Y4) /pin12 (Y3) /pin13 (Y2) /pin14 (Gnd) /pin15 (Y1) /pin16 (Y5) /pin17 (Y6) /pin18 (Y7) /pin19 (Y8) /pin20 (B8) /pin21 (A8) /pin22 (B7) /pin23 (A7) /pin24 (B6) /pin25 (A6) /pin26 (B5) /pin27 (A5) /pin28 (Vcc) >> Template28 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 864 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 800 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 224 800 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 224 864 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74620 Template20 /dil_74620 { <> begingate 1.00 0 0 0 << /gate (74620) /title {(3-state) {CR} (tranceivers) {CR} (bus) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 (GAB) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(GBA) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74621 Template20 /dil_74621 { <> begingate 1.00 0 0 0 << /gate (74621) /title {(OC) {CR} (tranceivers) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (GAB) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(GBA) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74623 Template20 /dil_74623 { <> begingate 1.00 0 0 0 << /gate (74623) /title {(3-state) {CR} (tranceivers) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (GAB) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(GBA) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74624 Template14 /dil_74624 { <> begingate 1.00 0 0 0 << /gate (74624) /title {(output) {CR} (complement) {CR} (and) {CR} (w. enable) {CR} (oscillator) {CR} (controlled) {CR} (voltage)} /@index @index /pkg pkg /pin1 (Osc-Gnd) /pin2 (RNG) /pin3 (CX1) /pin4 (CX2) /pin5 {(En) {ol}} /pin6 (Y) /pin7 (Gnd) /pin8 (Z) /pin9 (Vcc) /pin10 (NC) /pin11 (NC) /pin12 (NC) /pin13 (FreqCont) /pin14 (Osc-Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74625 Template16 /dil_74625 { <> begingate 1.00 0 0 0 << /gate (74625) /title {(output) {CR} (complement) {CR} (w.) {CR} (oscillator) {CR} (controlled) {CR} (2 voltage)} /@index @index /pkg pkg /pin1 (Gnd) /pin2 (1Z) /pin3 (1Y) /pin4 (1CX1) /pin5 (1CX2) /pin6 (1FC) /pin7 (1Osc-Vcc) /pin8 (1Osc-Gnd) /pin9 (2Osc-Gnd) /pin10 (2Osc-Vcc) /pin11 (2FC) /pin12 (2CX2) /pin13 (2CX1) /pin14 (2Y) /pin15 (2Z) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74626 Template16 /dil_74626 { <> begingate 1.00 0 0 0 << /gate (74626) /title {(output) {CR} (complement) {CR} (and) {CR} (w. enable) {CR} (oscillator) {CR} (controlled) {CR} (2 voltage)} /@index @index /pkg pkg /pin1 (Gnd) /pin2 (1Z) /pin3 (1Y) /pin4 {(1EN) {ol}} /pin5 (1CX1) /pin6 (1CX2) /pin7 (Osc-Vcc) /pin8 (Osc-Gnd) /pin9 (1FC) /pin10 (2FC) /pin11 (2CX2) /pin12 (2CX1) /pin13 {(2EN) {ol}} /pin14 (2Y) /pin15 (2Z) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74627 Template14 /dil_74627 { <> begingate 1.00 0 0 0 << /gate (74627) /title {(oscillator) {CR} (controlled) {CR} (2 voltage)} /@index @index /pkg pkg /pin1 (1Osc-Vcc) /pin2 (1FC) /pin3 (1CX1) /pin4 (1CX2) /pin5 (1Osc-Gnd) /pin6 (1Y) /pin7 (Gnd) /pin8 (2Y) /pin9 (2Osc-Gnd) /pin10 (2CX2) /pin11 (2CX1) /pin12 (2FC) /pin13 (2Osc-Vcc) /pin14 (Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74628 Template14 /dil_74628 { <> begingate 1.00 0 0 0 << /gate (74628) /title {(output) {CR} (complement) {CR} (and) {CR} (w. enable) {CR} (oscillator) {CR} (controlled) {CR} (voltage)} /@index @index /pkg pkg /pin1 (Osc-Gnd) /pin2 (RNG) /pin3 (CX1) /pin4 (CX2) /pin5 {(EN) {ol}} /pin6 (Y) /pin7 (Gnd) /pin8 (Z) /pin9 (Vcc) /pin10 (NC) /pin11 (RX) /pin12 (RX) /pin13 (FC) /pin14 (Osc-Vcc) >> Template14 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (8) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel endgate } def % Depend dil_74629 Template16 /dil_74629 { <> begingate 1.00 0 0 0 << /gate (74629) /title {(w. enable) {CR} (oscillator) {CR} (2 controlled)} /@index @index /pkg pkg /pin1 (2FC) /pin2 (1FC) /pin3 (1RNG) /pin4 (1CX1) /pin5 (1CX2) /pin6 {(1EN) {ol}} /pin7 (1Y) /pin8 (Osc-Gnd) /pin9 (Gnd) /pin10 (2Y) /pin11 {(2EN) {ol}} /pin12 (2CX1) /pin13 (2CX2) /pin14 (2RNG) /pin15 (Osc-Vcc) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74630 Template28 /dil_74630 { <> begingate 1.00 0 0 0 << /gate (74630) /title {(3-state) {CR} (correction) {CR} (detection/) {CR} (error) {CR} (parallel) {CR} (16bit)} /@index @index /pkg pkg /pin1 (DEF) /pin2 (DB0) /pin3 (DB1) /pin4 (DB2) /pin5 (DB3) /pin6 (DB4) /pin7 (DB5) /pin8 (DB6) /pin9 (DB7) /pin10 (DB8) /pin11 (DB9) /pin12 (DB10) /pin13 (DB11) /pin14 (Gnd) /pin15 (DB12) /pin16 (DB13) /pin17 (DB14) /pin18 (DB15) /pin19 (CB5) /pin20 (CB4) /pin21 (CB3) /pin22 (CB2) /pin23 (CB1) /pin24 (CB0) /pin25 (S0) /pin26 (S1) /pin27 (SEF) /pin28 (Vcc) >> Template28 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 864 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 800 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 224 800 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 224 864 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74631 Template28 /dil_74631 { <> begingate 1.00 0 0 0 << /gate (74631) /title {(OC) {CR} (correction) {CR} (detection/) {CR} (error) {CR} (parallel) {CR} (16bit)} /@index @index /pkg pkg /pin1 (DEF) /pin2 (DB0) /pin3 (DB1) /pin4 (DB2) /pin5 (DB3) /pin6 (DB4) /pin7 (DB5) /pin8 (DB6) /pin9 (DB7) /pin10 (DB8) /pin11 (DB9) /pin12 (DB10) /pin13 (DB11) /pin14 (Gnd) /pin15 (DB12) /pin16 (DB13) /pin17 (DB14) /pin18 (DB15) /pin19 (CB5) /pin20 (CB4) /pin21 (CB3) /pin22 (CB2) /pin23 (CB1) /pin24 (CB0) /pin25 (S0) /pin26 (S1) /pin27 (SEF) /pin28 (Vcc) >> Template28 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 864 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 800 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (13) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (14) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (25) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (26) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel (27) {/Helvetica cf} 2 20 0 1.00 224 800 pinlabel (28) {/Helvetica cf} 2 20 0 1.00 224 864 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74636 Template20 /dil_74636 { <> begingate 1.00 0 0 0 << /gate (74636) /title {(3-state) {CR} (correction) {CR} (detection/) {CR} (error) {CR} (parallel) {CR} (8bit)} /@index @index /pkg pkg /pin1 (DEF) /pin2 (DB0) /pin3 (DB1) /pin4 (DB2) /pin5 (DB3) /pin6 (DB4) /pin7 (DB5) /pin8 (DB6) /pin9 (Db7) /pin10 (Gnd) /pin11 (CB4) /pin12 (NC) /pin13 (CB3) /pin14 (CB2) /pin15 (CB1) /pin16 (CB0) /pin17 (S0) /pin18 (S1) /pin19 (SEF) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74637 Template20 /dil_74637 { <> begingate 1.00 0 0 0 << /gate (74637) /title {(OC) {CR} (correction) {CR} (detection/) {CR} (error) {CR} (parallel) {CR} (8bit)} /@index @index /pkg pkg /pin1 (DEF) /pin2 (DB0) /pin3 (DB1) /pin4 (DB2) /pin5 (DB3) /pin6 (DB4) /pin7 (DB5) /pin8 (DB6) /pin9 (Db7) /pin10 (Gnd) /pin11 (CB4) /pin12 (NC) /pin13 (CB3) /pin14 (CB2) /pin15 (CB1) /pin16 (CB0) /pin17 (S0) /pin18 (S1) /pin19 (SEF) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74638 Template20 /dil_74638 { <> begingate 1.00 0 0 0 << /gate (74638) /title {(output) {CR} (state B-) {CR} (output, 3-) {CR} (OC A-) {CR} (tranceiver) {CR} (bus) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74639 Template20 /dil_74639 { <> begingate 1.00 0 0 0 << /gate (74639) /title {(output) {CR} (state B-) {CR} (output, 3-) {CR} (OC A-) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(G) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74640 Template20 /dil_74640 { <> begingate 1.00 0 0 0 << /gate (74640) /title {(logic) {CR} (inverting) {CR} (3-state w.) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(EN) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74641 Template20 /dil_74641 { <> begingate 1.00 0 0 0 << /gate (74641) /title {(OC) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(EN) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74642 Template20 /dil_74642 { <> begingate 1.00 0 0 0 << /gate (74642) /title {(logic) {CR} (inverting) {CR} (OC w.) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(EN) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74644 Template20 /dil_74644 { <> begingate 1.00 0 0 0 << /gate (74644) /title {(logic) {CR} (normal) {CR} (inverting/) {CR} (OC w.) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(EN) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74645 Template20 /dil_74645 { <> begingate 1.00 0 0 0 << /gate (74645) /title {(3-state) {CR} (tranceiver) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (DIR) /pin2 (A1) /pin3 (A2) /pin4 (A3) /pin5 (A4) /pin6 (A5) /pin7 (A6) /pin8 (A7) /pin9 (A8) /pin10 (Gnd) /pin11 (B8) /pin12 (B7) /pin13 (B6) /pin14 (B5) /pin15 (B4) /pin16 (B3) /pin17 (B2) /pin18 (B1) /pin19 {(EN) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74646 Template24 /dil_74646 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74646) /title {(state) {CR} (register 3-) {CR} (tranceiver/) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (DIR) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(G) {ol}} /pin22 (SBA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74647 Template24 /dil_74647 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74647) /title {(register OC) {CR} (tranceiver/) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (DIR) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(G) {ol}} /pin22 (SBA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74648 Template24 /dil_74648 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74648) /title {(state) {CR} (register 3-) {CR} (tranceiver/) {CR} (bus) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (DIR) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(G) {ol}} /pin22 (SBA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74649 Template24 /dil_74649 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74649) /title {(register OC) {CR} (tranceiver/) {CR} (bus) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (DIR) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(G) {ol}} /pin22 (SBA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74651 Template24 /dil_74651 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74651) /title {(output) {CR} (state B-) {CR} (output, 3-) {CR} (state A-) {CR} (register 3-) {CR} (tranceiver/) {CR} (bus) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (GAB) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(GBA) {ol}} /pin22 (SA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74652 Template24 /dil_74652 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74652) /title {(output) {CR} (state B-) {CR} (output, 3-) {CR} (state A-) {CR} (register 3-) {CR} (tranceiver/) {CR} (8 bus)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (GAB) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(GBA) {ol}} /pin22 (SA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74653 Template24 /dil_74653 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74653) /title {(output) {CR} (state B-) {CR} (A-output, 3-) {CR} (register OC) {CR} (tranceiver/) {CR} (bus) {CR} (8 inverting)} /@index @index /pkg pkg /pin1 (CAB) /pin2 (SAB) /pin3 (GAB) /pin4 (A1) /pin5 (A2) /pin6 (A3) /pin7 (A4) /pin8 (A5) /pin9 (A6) /pin10 (A7) /pin11 (A8) /pin12 (Gnd) /pin13 (B8) /pin14 (B7) /pin15 (B6) /pin16 (B5) /pin17 (B4) /pin18 (B3) /pin19 (B2) /pin20 (B1) /pin21 {(GBA) {ol}} /pin22 (SA) /pin23 (CBA) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74668 Template16 /dil_74668 { <> begingate 1.00 0 0 0 << /gate (74668) /title {(counter) {CR} (down) {CR} (decade up/) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(D) {ol} (U-)} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(ENP) {ol}} /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 {(ENT) {ol}} /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 {(RCO) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74669 Template16 /dil_74669 { <> begingate 1.00 0 0 0 << /gate (74669) /title {(counter) {CR} (down) {CR} (binary up/) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(D) {ol} (U-)} /pin2 (Clk) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(ENP) {ol}} /pin8 (Gnd) /pin9 {(Load) {ol}} /pin10 {(ENT) {ol}} /pin11 (Qd) /pin12 (Qc) /pin13 (Qb) /pin14 (Qa) /pin15 {(RCO) {ol}} /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74670 Template16 /dil_74670 { <> begingate 1.00 0 0 0 << /gate (74670) /title {(state) {CR} (file 3-) {CR} (register) {CR} (4-by-4)} /@index @index /pkg pkg /pin1 (D2) /pin2 (D3) /pin3 (D4) /pin4 (Rb) /pin5 (Ra) /pin6 (Q4) /pin7 (Q3) /pin8 (Gnd) /pin9 (Q2) /pin10 (Q1) /pin11 {(Gr) {ol}} /pin12 {(Gw) {ol}} /pin13 (Wb) /pin14 (Wa) /pin15 (D1) /pin16 (Vcc) >> Template16 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (9) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (10) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (15) {/Helvetica cf} 2 20 360 1.00 224 416 pinlabel (16) {/Helvetica cf} 2 20 360 1.00 224 480 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74671 Template20 /dil_74671 { <> begingate 1.00 0 0 0 << /gate (74671) /title {(clear) {CR} (direct) {CR} (state w.) {CR} (latch 3-) {CR} (register/) {CR} (shift) {CR} (universal) {CR} (4bit)} /@index @index /pkg pkg /pin1 (Ser-R) /pin2 (SRCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (Ser-L) /pin8 {(SRClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(S) {ol} (R-)} /pin12 {(G) {ol}} /pin13 (S1) /pin14 (S0) /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 (CASC) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74672 Template20 /dil_74672 { <> begingate 1.00 0 0 0 << /gate (74672) /title {(sync. clear) {CR} (state w.) {CR} (latch 3-) {CR} (register/) {CR} (shift) {CR} (universal) {CR} (4bit)} /@index @index /pkg pkg /pin1 (Ser-R) /pin2 (SRCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (Ser-L) /pin8 {(SRClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(S) {ol} (R-)} /pin12 {(G) {ol}} /pin13 (S1) /pin14 (S0) /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 (CASC) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74673 Template24 /dil_74673 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74673) /title {(out) {CR} (parallel) {CR} (16bit) {CR} (register w.) {CR} (16bit shift)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (SH-Clk) /pin3 {(W) {ol} (R-)} /pin4 {(StrClr) {ol}} /pin5 (Mode-StrClr) /pin6 (SER/Q15) /pin7 (Y0) /pin8 (Y1) /pin9 (Y2) /pin10 (Y3) /pin11 (Y4) /pin12 (Gnd) /pin13 (Y5) /pin14 (Y6) /pin15 (Y7) /pin16 (Y8) /pin17 (Y9) /pin18 (Y10) /pin19 (Y11) /pin20 (Y12) /pin21 (Y13) /pin22 (Y14) /pin23 (Y15) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74674 Template24 /dil_74674 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74674) /title {(parallel in) {CR} (16bit) {CR} (register w.) {CR} (16bit shift)} /@index @index /pkg pkg /pin1 {(CS) {ol}} /pin2 (Clk) /pin3 {(W) {ol} (R-)} /pin4 (NC) /pin5 (Mode) /pin6 (SER/Q15) /pin7 (P0) /pin8 (P1) /pin9 (P2) /pin10 (P3) /pin11 (P4) /pin12 (Gnd) /pin13 (P5) /pin14 (P6) /pin15 (P7) /pin16 (P8) /pin17 (P9) /pin18 (P10) /pin19 (P11) /pin20 (P12) /pin21 (P13) /pin22 (P14) /pin23 (P15) /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74681 Template20 /dil_74681 { <> begingate 1.00 0 0 0 << /gate (74681) /title {(accumulator) {CR} (binary) {CR} (parallel) {CR} (4bit)} /@index @index /pkg pkg /pin1 (Clk) /pin2 (RS2) /pin3 (RS1) /pin4 (RS0) /pin5 (LI-RO) /pin6 (Cn) /pin7 {(G) {ol}} /pin8 (Cn+4) /pin9 {(P) {ol}} /pin10 (Gnd) /pin11 (I-O3) /pin12 (I-O2) /pin13 (I-O1) /pin14 (I-O0) /pin15 (M) /pin16 (AS2) /pin17 (AS1) /pin18 (AS0) /pin19 (RI-LO) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74682 Template20 /dil_74682 { <> begingate 1.00 0 0 0 << /gate (74682) /title {(pull-up) {CR} (w. input) {CR} (comperator) {CR} (magnitute) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(P\>Q) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74683 Template20 /dil_74683 { <> begingate 1.00 0 0 0 << /gate (74683) /title {(pull-up) {CR} (OC w. input) {CR} (comperator) {CR} (magnitute) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(P\>Q) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74684 Template20 /dil_74684 { <> begingate 1.00 0 0 0 << /gate (74684) /title {(comperator) {CR} (magnitute) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(P\>Q) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74685 Template20 /dil_74685 { <> begingate 1.00 0 0 0 << /gate (74685) /title {(OC) {CR} (comperator) {CR} (magnitute) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(P\>Q) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74686 Template24 /dil_74686 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74686) /title {(w. enable) {CR} (comperator) {CR} (magnitute) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(P\>Q) {ol}} /pin2 {(G1) {ol}} /pin3 (P0) /pin4 (Q0) /pin5 (P1) /pin6 (Q1) /pin7 (NC) /pin8 (P2) /pin9 (Q2) /pin10 (P3) /pin11 (Q3) /pin12 (Gnd) /pin13 (P4) /pin14 (Q4) /pin15 (P5) /pin16 (Q5) /pin17 (P6) /pin18 (Q6) /pin19 (NC) /pin20 (P7) /pin21 (Q7) /pin22 {(P=Q) {ol}} /pin23 {(G2) {ol}} /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74687 Template24 /dil_74687 { << /@index (?) /pkg (DIP24) >> begingate 1.00 0 0 0 << /gate (74687) /title {(enable) {CR} (OC w.) {CR} (comperator) {CR} (magnitute) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(P\>Q) {ol}} /pin2 {(G1) {ol}} /pin3 (P0) /pin4 (Q0) /pin5 (P1) /pin6 (Q1) /pin7 (NC) /pin8 (P2) /pin9 (Q2) /pin10 (P3) /pin11 (Q3) /pin12 (Gnd) /pin13 (P4) /pin14 (Q4) /pin15 (P5) /pin16 (Q5) /pin17 (P6) /pin18 (Q6) /pin19 (NC) /pin20 (P7) /pin21 (Q7) /pin22 {(P=Q) {ol}} /pin23 {(G2) {ol}} /pin24 (Vcc) >> Template24 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 736 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 672 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (11) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (12) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (21) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (22) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel (23) {/Helvetica cf} 2 20 0 1.00 224 672 pinlabel (24) {/Helvetica cf} 2 20 0 1.00 224 736 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74688 Template20 /dil_74688 { <> begingate 1.00 0 0 0 << /gate (74688) /title {(comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(G) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74689 Template20 /dil_74689 { <> begingate 1.00 0 0 0 << /gate (74689) /title {(OC) {CR} (comperator) {CR} (identity) {CR} (8bit)} /@index @index /pkg pkg /pin1 {(G) {ol}} /pin2 (P0) /pin3 (Q0) /pin4 (P1) /pin5 (Q1) /pin6 (P2) /pin7 (Q2) /pin8 (P3) /pin9 (Q3) /pin10 (Gnd) /pin11 (P4) /pin12 (Q4) /pin13 (P5) /pin14 (Q5) /pin15 (P6) /pin16 (Q6) /pin17 (P7) /pin18 (Q7) /pin19 {(P=Q) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74690 Template20 /dil_74690 { <> begingate 1.00 0 0 0 << /gate (74690) /title {(state) {CR} (register 3-) {CR} (output) {CR} (clear,) {CR} (direct) {CR} (counter w.) {CR} (decade) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(CClr) {ol}} /pin2 (CCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 {(RClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(C) {ol} (R-)} /pin12 {(G) {ol}} /pin13 {(Load) {ol}} /pin14 (ENT) /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 (RCO) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74691 Template20 /dil_74691 { <> begingate 1.00 0 0 0 << /gate (74691) /title {(state) {CR} (register 3-) {CR} (output) {CR} (clear,) {CR} (direct) {CR} (counter w.) {CR} (binary) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(CClr) {ol}} /pin2 (CCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 {(RClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(C) {ol} (R-)} /pin12 {(G) {ol}} /pin13 {(Load) {ol}} /pin14 (ENT) /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 (RCO) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74693 Template20 /dil_74693 { <> begingate 1.00 0 0 0 << /gate (74693) /title {(state) {CR} (register 3-) {CR} (output) {CR} (clear,) {CR} (sync.) {CR} (counter w.) {CR} (binary) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(CClr) {ol}} /pin2 (CCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 (ENP) /pin8 {(RClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(C) {ol} (R-)} /pin12 {(G) {ol}} /pin13 {(Load) {ol}} /pin14 (ENT) /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 (RCO) /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74696 Template20 /dil_74696 { <> begingate 1.00 0 0 0 << /gate (74696) /title {(state) {CR} (clear 3-) {CR} (direct) {CR} (counter w.) {CR} (decade) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(D) {ol} (U-)} /pin2 (CCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(ENP) {ol}} /pin8 {(CClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(C) {ol} (R-)} /pin12 {(G) {ol}} /pin13 {(Load) {ol}} /pin14 {(ENT) {ol}} /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 {(RCO) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74697 Template20 /dil_74697 { <> begingate 1.00 0 0 0 << /gate (74697) /title {(state) {CR} (clear 3-) {CR} (direct) {CR} (counter w.) {CR} (binary) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(D) {ol} (U-)} /pin2 (CCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(ENP) {ol}} /pin8 {(CClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(C) {ol} (R-)} /pin12 {(G) {ol}} /pin13 {(Load) {ol}} /pin14 {(ENT) {ol}} /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 {(RCO) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % Depend dil_74699 Template20 /dil_74699 { <> begingate 1.00 0 0 0 << /gate (74699) /title {(3-state) {CR} (sync. clear) {CR} (counter w.) {CR} (binary) {CR} (synchronous) {CR} (4bit)} /@index @index /pkg pkg /pin1 {(D) {ol} (U-)} /pin2 (CCK) /pin3 (A) /pin4 (B) /pin5 (C) /pin6 (D) /pin7 {(ENP) {ol}} /pin8 {(CClr) {ol}} /pin9 (RCK) /pin10 (Gnd) /pin11 {(C) {ol} (R-)} /pin12 {(G) {ol}} /pin13 {(Load) {ol}} /pin14 {(ENT) {ol}} /pin15 (Qd) /pin16 (Qc) /pin17 (Qb) /pin18 (Qa) /pin19 {(RCO) {ol}} /pin20 (Vcc) >> Template20 1.000 0.000 0.000 scb (1) {/Helvetica cf} 2 23 0 1.00 -224 608 pinlabel (2) {/Helvetica cf} 2 23 0 1.00 -224 544 pinlabel (3) {/Helvetica cf} 2 23 0 1.00 -224 480 pinlabel (4) {/Helvetica cf} 2 23 0 1.00 -224 416 pinlabel (5) {/Helvetica cf} 2 23 0 1.00 -224 352 pinlabel (6) {/Helvetica cf} 2 23 0 1.00 -224 288 pinlabel (7) {/Helvetica cf} 2 23 0 1.00 -224 224 pinlabel (8) {/Helvetica cf} 2 23 0 1.00 -224 160 pinlabel (9) {/Helvetica cf} 2 23 0 1.00 -224 96 pinlabel (10) {/Helvetica cf} 2 23 0 1.00 -224 32 pinlabel (11) {/Helvetica cf} 2 20 0 1.00 224 32 pinlabel (12) {/Helvetica cf} 2 20 0 1.00 224 96 pinlabel (13) {/Helvetica cf} 2 20 0 1.00 224 160 pinlabel (14) {/Helvetica cf} 2 20 0 1.00 224 224 pinlabel (15) {/Helvetica cf} 2 20 0 1.00 224 288 pinlabel (16) {/Helvetica cf} 2 20 0 1.00 224 352 pinlabel (17) {/Helvetica cf} 2 20 0 1.00 224 416 pinlabel (18) {/Helvetica cf} 2 20 0 1.00 224 480 pinlabel (19) {/Helvetica cf} 2 20 0 1.00 224 544 pinlabel (20) {/Helvetica cf} 2 20 0 1.00 224 608 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:U) {/Helvetica cf} ctmk 21 0 1.00 0 -32 infolabel 1.000 0.000 0.000 scb endgate } def % EndLib xcircuit-3.9.73/lib/pcb.lps0000664000175000001440000013126312335667423014234 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: pcb % Author: R. Timothy Edwards % % Depend cap300 polarized pin % Depend cap200 polarized pin % Depend res300 resistor pin % Depend regulator pin % Depend sip8 pin1 pin % Depend sip10 pin1 pin % Depend clock8 pin1 pin % Depend dip8 pin pin1 % Depend dip14 pin pin1 % Depend dip16 pin pin1 % Depend dip20 pin1 pin % Depend dip24n pin pin1 % Depend dip28n pin1 pin % Depend dip40 pin1 pin % Depend dio_port pin1 pin % Depend pga68 pin1 pin % Depend pga44 pin1 pin % XCircuitLib library objects /polarized { begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 0 -80 74 66.00 114.00 xcarc endgate } def /pin { begingate 1 5.00 0 0 12 0.00 360.00 xcarc endgate } def /cap300 { begingate 1 1.00 0 64 0 96 2 polygon 1 1.00 0 -96 0 -64 2 polygon 1.00 0 0 0 polarized (+) {/Symbol cf} 2 24 0 1.00 32 32 label 1.00 0 0 96 pin 1.00 0 0 -96 pin endgate } def /cap200 { begingate 1.00 0 0 0 polarized (+) {/Symbol cf} 2 24 0 1.00 32 32 label 1.00 0 0 64 pin 1.00 0 0 -64 pin endgate } def /resistor { begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon endgate } def /res300 { begingate 1.00 0 0 0 resistor 1 1.00 0 64 0 96 2 polygon 1 1.00 0 -96 0 -64 2 polygon 1.00 0 0 96 pin 1.00 0 0 -96 pin endgate } def /regulator { begingate 0 1.00 -96 -48 -96 48 96 48 96 -48 4 polygon 1 1.00 -96 16 96 16 2 polygon 1.00 0 64 -16 pin 1.00 0 0 -16 pin 1.00 0 -64 -16 pin endgate } def /pin1 { begingate 8 0 beginpath 0 0 8 0.00 360.00 arc 15 0 15 -15 -15 -15 -15 15 15 15 15 0 6 polyc 241 1.00 endpath endgate } def /sip8 { begingate 0.843 0.843 0.843 scb 240 1.00 -240 -32 -240 0 240 0 240 -32 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -160 16 label (4) {/Times-Roman cf} 2 29 180 0.75 -32 16 label (3) {/Times-Roman cf} 2 29 180 0.75 -96 16 label (1) {/Times-Roman cf} 2 29 180 0.75 -224 16 label (6) {/Times-Roman cf} 2 29 180 0.75 96 16 label (7) {/Times-Roman cf} 2 29 180 0.75 160 16 label (5) {/Times-Roman cf} 2 29 180 0.75 32 16 label (8) {/Times-Roman cf} 2 29 180 0.75 224 16 label sce 1.00 0 -224 -16 pin1 1.00 0 -160 -16 pin 1.00 0 -96 -16 pin 1.00 0 -32 -16 pin 1.00 0 32 -16 pin 1.00 0 96 -16 pin 1.00 0 160 -16 pin 1.00 0 224 -16 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -160 -16 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -32 -16 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -96 -16 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -224 -16 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 96 -16 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 160 -16 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 32 -16 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 224 -16 pinlabel endgate } def /sip10 { begingate 0.843 0.843 0.843 scb 240 1.00 -240 -32 -240 0 368 0 368 -32 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -160 16 label (4) {/Times-Roman cf} 2 29 180 0.75 -32 16 label (3) {/Times-Roman cf} 2 29 180 0.75 -96 16 label (1) {/Times-Roman cf} 2 29 180 0.75 -224 16 label (6) {/Times-Roman cf} 2 29 180 0.75 96 16 label (7) {/Times-Roman cf} 2 29 180 0.75 160 16 label (5) {/Times-Roman cf} 2 29 180 0.75 32 16 label (8) {/Times-Roman cf} 2 29 180 0.75 224 16 label (9) {/Times-Roman cf} 2 29 180 0.75 288 16 label (10) {/Times-Roman cf} 2 29 180 0.75 352 16 label sce 1.00 0 -224 -16 pin1 1.00 0 -160 -16 pin 1.00 0 -96 -16 pin 1.00 0 -32 -16 pin 1.00 0 32 -16 pin 1.00 0 96 -16 pin 1.00 0 160 -16 pin 1.00 0 224 -16 pin 1.00 0 288 -16 pin 1.00 0 352 -16 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -160 -16 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -32 -16 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -96 -16 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -224 -16 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 96 -16 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 160 -16 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 32 -16 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 224 -16 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 288 -16 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 352 -16 pinlabel endgate } def /clock8 { begingate 0.843 0.843 0.843 scb 240 1.00 -96 -96 -96 96 96 96 96 -96 4 polygon 0.000 0.000 1.000 scb (4) {/Times-Roman cf} 2 29 180 0.75 96 -64 label (8) {/Times-Roman cf} 2 17 180 0.75 -96 64 label (5) {/Times-Roman cf} 2 17 180 0.75 96 64 label (1) {/Times-Roman cf} 2 29 180 0.75 -96 -64 label sce 1.00 0 -96 -96 pin1 1.00 0 96 -96 pin 1.00 0 96 96 pin 1.00 0 -96 96 pin 1.000 0.000 0.000 scb (4) {/Times-Roman cf} 2 17 180 0.75 96 -96 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -96 96 pinlabel (5) {/Times-Roman cf} 2 29 180 0.75 96 96 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -96 -96 pinlabel endgate } def /dip8 { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 -80 112 -80 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 25 180 0.75 -208 80 label (7) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (5) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (8) {/Times-Roman cf} 2 25 180 0.75 -80 80 label sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -80 -80 pin 1.00 0 -144 -80 pin 1.00 0 -208 -80 pin 1.00 0 -272 -80 pin1 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (7) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (5) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel endgate } def /dip14 { begingate 0.843 0.843 0.843 scb 240 1.00 112 -80 112 112 -272 112 -272 -80 4 polygon 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (12) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (11) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (10) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (9) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 112 -80 pin 1.00 0 48 -80 pin 1.00 0 -16 -80 pin 1.00 0 -80 -80 pin 1.00 0 -144 -80 pin 1.00 0 -208 -80 pin 1.00 0 -272 -80 pin1 0.000 0.000 1.000 scb (12) {/Times-Roman cf} 2 17 180 0.75 -144 80 label (14) {/Times-Roman cf} 2 17 180 0.75 -272 80 label (13) {/Times-Roman cf} 2 17 180 0.75 -208 80 label (11) {/Times-Roman cf} 2 17 180 0.75 -80 80 label (10) {/Times-Roman cf} 2 17 180 0.75 -16 80 label (9) {/Times-Roman cf} 2 17 180 0.75 48 80 label (8) {/Times-Roman cf} 2 17 180 0.75 112 80 label (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label endgate } def /dip16 { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 176 112 176 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (12) {/Times-Roman cf} 2 25 180 0.75 -16 80 label (14) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (13) {/Times-Roman cf} 2 25 180 0.75 -80 80 label (11) {/Times-Roman cf} 2 25 180 0.75 48 80 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label (16) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (15) {/Times-Roman cf} 2 25 180 0.75 -208 80 label (8) {/Times-Roman cf} 2 29 180 0.75 176 -48 label (10) {/Times-Roman cf} 2 25 180 0.75 112 80 label (9) {/Times-Roman cf} 2 25 180 0.75 176 80 label sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 176 112 pin 1.00 0 -208 -80 pin 1.00 0 -144 -80 pin 1.00 0 -80 -80 pin 1.00 0 -16 -80 pin 1.00 0 48 -80 pin 1.00 0 112 -80 pin 1.00 0 176 -80 pin 1.00 0 -272 -80 pin1 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (12) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (11) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 176 -80 pinlabel (10) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel (9) {/Times-Roman cf} 2 29 180 0.75 176 112 pinlabel endgate } def /dip20 { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 304 112 304 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (12) {/Times-Roman cf} 2 25 180 0.75 240 80 label (14) {/Times-Roman cf} 2 25 180 0.75 112 80 label (13) {/Times-Roman cf} 2 25 180 0.75 176 80 label (11) {/Times-Roman cf} 2 25 180 0.75 304 80 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label (16) {/Times-Roman cf} 2 25 180 0.75 -16 80 label (15) {/Times-Roman cf} 2 25 180 0.75 48 80 label (8) {/Times-Roman cf} 2 29 180 0.75 176 -48 label (10) {/Times-Roman cf} 2 29 180 0.75 304 -48 label (9) {/Times-Roman cf} 2 29 180 0.75 240 -48 label (18) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (17) {/Times-Roman cf} 2 25 180 0.75 -80 80 label (20) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (19) {/Times-Roman cf} 2 25 180 0.75 -208 80 label sce 1.00 0 -272 -80 pin1 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 176 112 pin 1.00 0 240 112 pin 1.00 0 304 112 pin 1.00 0 304 -80 pin 1.00 0 240 -80 pin 1.00 0 176 -80 pin 1.00 0 112 -80 pin 1.00 0 48 -80 pin 1.00 0 -16 -80 pin 1.00 0 -80 -80 pin 1.00 0 -144 -80 pin 1.00 0 -208 -80 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (12) {/Times-Roman cf} 2 29 180 0.75 240 112 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 176 112 pinlabel (11) {/Times-Roman cf} 2 29 180 0.75 304 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 176 -80 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 304 -80 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 240 -80 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (17) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (19) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel endgate } def /dip24n { begingate 0.843 0.843 0.843 scb 240 1.00 -272 -80 -272 112 432 112 432 -80 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -208 -48 label (4) {/Times-Roman cf} 2 29 180 0.75 -80 -48 label (14) {/Times-Roman cf} 2 25 180 0.75 368 80 label (13) {/Times-Roman cf} 2 25 180 0.75 432 80 label (3) {/Times-Roman cf} 2 29 180 0.75 -144 -48 label (1) {/Times-Roman cf} 2 29 180 0.75 -272 -48 label (6) {/Times-Roman cf} 2 29 180 0.75 48 -48 label (7) {/Times-Roman cf} 2 29 180 0.75 112 -48 label (5) {/Times-Roman cf} 2 29 180 0.75 -16 -48 label (16) {/Times-Roman cf} 2 25 180 0.75 240 80 label (15) {/Times-Roman cf} 2 25 180 0.75 304 80 label (8) {/Times-Roman cf} 2 29 180 0.75 176 -48 label (10) {/Times-Roman cf} 2 29 180 0.75 304 -48 label (9) {/Times-Roman cf} 2 29 180 0.75 240 -48 label (18) {/Times-Roman cf} 2 25 180 0.75 112 80 label (17) {/Times-Roman cf} 2 25 180 0.75 176 80 label (20) {/Times-Roman cf} 2 25 180 0.75 -16 80 label (19) {/Times-Roman cf} 2 25 180 0.75 48 80 label (21) {/Times-Roman cf} 2 25 180 0.75 -80 80 label (22) {/Times-Roman cf} 2 25 180 0.75 -144 80 label (23) {/Times-Roman cf} 2 25 180 0.75 -208 80 label (24) {/Times-Roman cf} 2 25 180 0.75 -272 80 label (12) {/Times-Roman cf} 2 29 180 0.75 432 -48 label (11) {/Times-Roman cf} 2 29 180 0.75 368 -48 label sce 1.00 0 -272 112 pin 1.00 0 -208 112 pin 1.00 0 -144 112 pin 1.00 0 -80 112 pin 1.00 0 -16 112 pin 1.00 0 48 112 pin 1.00 0 112 112 pin 1.00 0 176 112 pin 1.00 0 240 112 pin 1.00 0 304 112 pin 1.00 0 368 112 pin 1.00 0 432 112 pin 1.00 0 -272 -80 pin1 1.00 0 -208 -80 pin 1.00 0 -144 -80 pin 1.00 0 -80 -80 pin 1.00 0 -16 -80 pin 1.00 0 48 -80 pin 1.00 0 112 -80 pin 1.00 0 176 -80 pin 1.00 0 240 -80 pin 1.00 0 304 -80 pin 1.00 0 368 -80 pin 1.00 0 432 -80 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -208 -80 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -80 -80 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 368 112 pinlabel (13) {/Times-Roman cf} 2 29 180 0.75 432 112 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -144 -80 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -272 -80 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 48 -80 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 112 -80 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -16 -80 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 240 112 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 304 112 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 176 -80 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 304 -80 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 240 -80 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 112 112 pinlabel (17) {/Times-Roman cf} 2 29 180 0.75 176 112 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 -16 112 pinlabel (19) {/Times-Roman cf} 2 29 180 0.75 48 112 pinlabel (21) {/Times-Roman cf} 2 29 180 0.75 -80 112 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 -144 112 pinlabel (23) {/Times-Roman cf} 2 29 180 0.75 -208 112 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 -272 112 pinlabel (12) {/Times-Roman cf} 2 17 180 0.75 432 -80 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 368 -80 pinlabel endgate } def /dip28n { begingate 0.843 0.843 0.843 scb 240 1.00 -416 -96 -416 96 416 96 416 -96 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -352 -64 label (4) {/Times-Roman cf} 2 29 180 0.75 -224 -64 label (22) {/Times-Roman cf} 2 25 180 0.75 -32 64 label (24) {/Times-Roman cf} 2 25 180 0.75 -160 64 label (23) {/Times-Roman cf} 2 25 180 0.75 -96 64 label (21) {/Times-Roman cf} 2 25 180 0.75 32 64 label (3) {/Times-Roman cf} 2 29 180 0.75 -288 -64 label (1) {/Times-Roman cf} 2 29 180 0.75 -416 -64 label (6) {/Times-Roman cf} 2 29 180 0.75 -96 -64 label (7) {/Times-Roman cf} 2 29 180 0.75 -32 -64 label (5) {/Times-Roman cf} 2 29 180 0.75 -160 -64 label (16) {/Times-Roman cf} 2 25 180 0.75 352 64 label (15) {/Times-Roman cf} 2 25 180 0.75 416 64 label (8) {/Times-Roman cf} 2 29 180 0.75 32 -64 label (10) {/Times-Roman cf} 2 29 180 0.75 160 -64 label (9) {/Times-Roman cf} 2 29 180 0.75 96 -64 label (18) {/Times-Roman cf} 2 25 180 0.75 224 64 label (17) {/Times-Roman cf} 2 25 180 0.75 288 64 label (20) {/Times-Roman cf} 2 25 180 0.75 96 64 label (19) {/Times-Roman cf} 2 25 180 0.75 160 64 label (26) {/Times-Roman cf} 2 25 180 0.75 -288 64 label (28) {/Times-Roman cf} 2 25 180 0.75 -416 64 label (27) {/Times-Roman cf} 2 25 180 0.75 -352 64 label (25) {/Times-Roman cf} 2 25 180 0.75 -224 64 label (11) {/Times-Roman cf} 2 29 180 0.75 224 -64 label (12) {/Times-Roman cf} 2 29 180 0.75 288 -64 label (14) {/Times-Roman cf} 2 29 180 0.75 416 -64 label (13) {/Times-Roman cf} 2 29 180 0.75 352 -64 label sce 1.00 0 -416 -96 pin1 1.00 0 -352 -96 pin 1.00 0 -288 -96 pin 1.00 0 -224 -96 pin 1.00 0 -160 -96 pin 1.00 0 -96 -96 pin 1.00 0 -32 -96 pin 1.00 0 32 -96 pin 1.00 0 96 -96 pin 1.00 0 160 -96 pin 1.00 0 224 -96 pin 1.00 0 288 -96 pin 1.00 0 352 -96 pin 1.00 0 416 -96 pin 1.00 0 416 96 pin 1.00 0 352 96 pin 1.00 0 288 96 pin 1.00 0 224 96 pin 1.00 0 160 96 pin 1.00 0 96 96 pin 1.00 0 32 96 pin 1.00 0 -32 96 pin 1.00 0 -96 96 pin 1.00 0 -160 96 pin 1.00 0 -224 96 pin 1.00 0 -288 96 pin 1.00 0 -352 96 pin 1.00 0 -416 96 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -352 -96 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -224 -96 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 -32 96 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 -160 96 pinlabel (23) {/Times-Roman cf} 2 29 180 0.75 -96 96 pinlabel (21) {/Times-Roman cf} 2 29 180 0.75 32 96 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -288 -96 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -416 -96 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 -96 -96 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 -32 -96 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -160 -96 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 352 96 pinlabel (15) {/Times-Roman cf} 2 29 180 0.75 416 96 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 32 -96 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 160 -96 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 96 -96 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 224 96 pinlabel (17) {/Times-Roman cf} 2 29 180 0.75 288 96 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 96 96 pinlabel (19) {/Times-Roman cf} 2 29 180 0.75 160 96 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 -288 96 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 -416 96 pinlabel (27) {/Times-Roman cf} 2 29 180 0.75 -352 96 pinlabel (25) {/Times-Roman cf} 2 29 180 0.75 -224 96 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 224 -96 pinlabel (12) {/Times-Roman cf} 2 17 180 0.75 288 -96 pinlabel (14) {/Times-Roman cf} 2 17 180 0.75 416 -96 pinlabel (13) {/Times-Roman cf} 2 17 180 0.75 352 -96 pinlabel endgate } def /dip40 { begingate 0.843 0.843 0.843 scb 240 1.00 -416 -96 -416 224 800 224 800 -96 4 polygon 0.000 0.000 1.000 scb (2) {/Times-Roman cf} 2 29 180 0.75 -352 -64 label (4) {/Times-Roman cf} 2 29 180 0.75 -224 -64 label (22) {/Times-Roman cf} 2 25 180 0.75 736 192 label (24) {/Times-Roman cf} 2 25 180 0.75 608 192 label (23) {/Times-Roman cf} 2 25 180 0.75 672 192 label (21) {/Times-Roman cf} 2 25 180 0.75 800 192 label (3) {/Times-Roman cf} 2 29 180 0.75 -288 -64 label (1) {/Times-Roman cf} 2 29 180 0.75 -416 -64 label (6) {/Times-Roman cf} 2 29 180 0.75 -96 -64 label (7) {/Times-Roman cf} 2 29 180 0.75 -32 -64 label (5) {/Times-Roman cf} 2 29 180 0.75 -160 -64 label (8) {/Times-Roman cf} 2 29 180 0.75 32 -64 label (10) {/Times-Roman cf} 2 29 180 0.75 160 -64 label (9) {/Times-Roman cf} 2 29 180 0.75 96 -64 label (26) {/Times-Roman cf} 2 25 180 0.75 480 192 label (28) {/Times-Roman cf} 2 25 180 0.75 352 192 label (27) {/Times-Roman cf} 2 25 180 0.75 416 192 label (25) {/Times-Roman cf} 2 25 180 0.75 544 192 label (11) {/Times-Roman cf} 2 29 180 0.75 224 -64 label (12) {/Times-Roman cf} 2 29 180 0.75 288 -64 label (14) {/Times-Roman cf} 2 29 180 0.75 416 -64 label (13) {/Times-Roman cf} 2 29 180 0.75 352 -64 label (29) {/Times-Roman cf} 2 25 180 0.75 288 192 label (30) {/Times-Roman cf} 2 25 180 0.75 224 192 label (31) {/Times-Roman cf} 2 25 180 0.75 160 192 label (32) {/Times-Roman cf} 2 25 180 0.75 96 192 label (33) {/Times-Roman cf} 2 25 180 0.75 32 192 label (34) {/Times-Roman cf} 2 25 180 0.75 -32 192 label (35) {/Times-Roman cf} 2 25 180 0.75 -96 192 label (36) {/Times-Roman cf} 2 25 180 0.75 -160 192 label (37) {/Times-Roman cf} 2 25 180 0.75 -224 192 label (38) {/Times-Roman cf} 2 25 180 0.75 -288 192 label (39) {/Times-Roman cf} 2 25 180 0.75 -352 192 label (40) {/Times-Roman cf} 2 25 180 0.75 -416 192 label (15) {/Times-Roman cf} 2 29 180 0.75 480 -64 label (16) {/Times-Roman cf} 2 29 180 0.75 544 -64 label (17) {/Times-Roman cf} 2 29 180 0.75 608 -64 label (19) {/Times-Roman cf} 2 29 180 0.75 736 -64 label (18) {/Times-Roman cf} 2 29 180 0.75 672 -64 label (20) {/Times-Roman cf} 2 29 180 0.75 800 -64 label sce 1.00 0 -416 -96 pin1 1.00 0 -352 -96 pin 1.00 0 -288 -96 pin 1.00 0 -224 -96 pin 1.00 0 -160 -96 pin 1.00 0 -96 -96 pin 1.00 0 -32 -96 pin 1.00 0 32 -96 pin 1.00 0 96 -96 pin 1.00 0 160 -96 pin 1.00 0 224 -96 pin 1.00 0 288 -96 pin 1.00 0 352 -96 pin 1.00 0 416 -96 pin 1.00 0 480 -96 pin 1.00 0 544 -96 pin 1.00 0 608 -96 pin 1.00 0 672 -96 pin 1.00 0 736 -96 pin 1.00 0 800 -96 pin 1.00 0 800 224 pin 1.00 0 736 224 pin 1.00 0 672 224 pin 1.00 0 608 224 pin 1.00 0 544 224 pin 1.00 0 480 224 pin 1.00 0 416 224 pin 1.00 0 352 224 pin 1.00 0 288 224 pin 1.00 0 224 224 pin 1.00 0 160 224 pin 1.00 0 96 224 pin 1.00 0 32 224 pin 1.00 0 -32 224 pin 1.00 0 -96 224 pin 1.00 0 -160 224 pin 1.00 0 -224 224 pin 1.00 0 -288 224 pin 1.00 0 -352 224 pin 1.00 0 -416 224 pin 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 17 180 0.75 -352 -96 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -224 -96 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 736 224 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 608 224 pinlabel (23) {/Times-Roman cf} 2 29 180 0.75 672 224 pinlabel (21) {/Times-Roman cf} 2 29 180 0.75 800 224 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -288 -96 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -416 -96 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 -96 -96 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 -32 -96 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -160 -96 pinlabel (8) {/Times-Roman cf} 2 17 180 0.75 32 -96 pinlabel (10) {/Times-Roman cf} 2 17 180 0.75 160 -96 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 96 -96 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 480 224 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 352 224 pinlabel (27) {/Times-Roman cf} 2 29 180 0.75 416 224 pinlabel (25) {/Times-Roman cf} 2 29 180 0.75 544 224 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 224 -96 pinlabel (12) {/Times-Roman cf} 2 17 180 0.75 288 -96 pinlabel (14) {/Times-Roman cf} 2 17 180 0.75 416 -96 pinlabel (13) {/Times-Roman cf} 2 17 180 0.75 352 -96 pinlabel (29) {/Times-Roman cf} 2 29 180 0.75 288 224 pinlabel (30) {/Times-Roman cf} 2 29 180 0.75 224 224 pinlabel (31) {/Times-Roman cf} 2 29 180 0.75 160 224 pinlabel (32) {/Times-Roman cf} 2 29 180 0.75 96 224 pinlabel (33) {/Times-Roman cf} 2 29 180 0.75 32 224 pinlabel (34) {/Times-Roman cf} 2 29 180 0.75 -32 224 pinlabel (35) {/Times-Roman cf} 2 29 180 0.75 -96 224 pinlabel (36) {/Times-Roman cf} 2 29 180 0.75 -160 224 pinlabel (37) {/Times-Roman cf} 2 29 180 0.75 -224 224 pinlabel (38) {/Times-Roman cf} 2 29 180 0.75 -288 224 pinlabel (39) {/Times-Roman cf} 2 29 180 0.75 -352 224 pinlabel (40) {/Times-Roman cf} 2 29 180 0.75 -416 224 pinlabel (15) {/Times-Roman cf} 2 17 180 0.75 480 -96 pinlabel (16) {/Times-Roman cf} 2 17 180 0.75 544 -96 pinlabel (17) {/Times-Roman cf} 2 17 180 0.75 608 -96 pinlabel (19) {/Times-Roman cf} 2 17 180 0.75 736 -96 pinlabel (18) {/Times-Roman cf} 2 17 180 0.75 672 -96 pinlabel (20) {/Times-Roman cf} 2 17 180 0.75 800 -96 pinlabel endgate } def /dio_port { begingate 0.843 0.843 0.843 scb 240 1.00 -768 -32 -768 32 768 32 768 -32 4 polygon 0.000 0.000 1.000 scb (12) {/Times-Roman cf} 2 25 180 0.75 448 -64 label (14) {/Times-Roman cf} 2 25 180 0.75 384 -64 label (3) {/Times-Roman cf} 2 29 180 0.75 704 64 label (1) {/Times-Roman cf} 2 29 180 0.75 768 64 label (7) {/Times-Roman cf} 2 29 180 0.75 576 64 label (5) {/Times-Roman cf} 2 29 180 0.75 640 64 label (16) {/Times-Roman cf} 2 25 180 0.75 320 -64 label (9) {/Times-Roman cf} 2 29 180 0.75 512 64 label (18) {/Times-Roman cf} 2 25 180 0.75 256 -64 label (20) {/Times-Roman cf} 2 25 180 0.75 192 -64 label (2) {/Times-Roman cf} 2 25 180 0.75 768 -64 label (4) {/Times-Roman cf} 2 25 180 0.75 704 -64 label (6) {/Times-Roman cf} 2 25 180 0.75 640 -64 label (8) {/Times-Roman cf} 2 25 180 0.75 576 -64 label (10) {/Times-Roman cf} 2 25 180 0.75 512 -64 label (11) {/Times-Roman cf} 2 29 180 0.75 448 64 label (13) {/Times-Roman cf} 2 29 180 0.75 384 64 label (15) {/Times-Roman cf} 2 29 180 0.75 320 64 label (17) {/Times-Roman cf} 2 29 180 0.75 256 64 label (19) {/Times-Roman cf} 2 29 180 0.75 192 64 label (21) {/Times-Roman cf} 2 29 180 0.75 128 64 label (23) {/Times-Roman cf} 2 29 180 0.75 64 64 label (25) {/Times-Roman cf} 2 29 180 0.75 0 64 label (27) {/Times-Roman cf} 2 29 180 0.75 -64 64 label (29) {/Times-Roman cf} 2 29 180 0.75 -128 64 label (31) {/Times-Roman cf} 2 29 180 0.75 -192 64 label (33) {/Times-Roman cf} 2 29 180 0.75 -256 64 label (35) {/Times-Roman cf} 2 29 180 0.75 -320 64 label (37) {/Times-Roman cf} 2 29 180 0.75 -384 64 label (39) {/Times-Roman cf} 2 29 180 0.75 -448 64 label (41) {/Times-Roman cf} 2 29 180 0.75 -512 64 label (43) {/Times-Roman cf} 2 29 180 0.75 -576 64 label (45) {/Times-Roman cf} 2 29 180 0.75 -640 64 label (47) {/Times-Roman cf} 2 29 180 0.75 -704 64 label (49) {/Times-Roman cf} 2 29 180 0.75 -768 64 label (22) {/Times-Roman cf} 2 25 180 0.75 128 -64 label (24) {/Times-Roman cf} 2 25 180 0.75 64 -64 label (26) {/Times-Roman cf} 2 25 180 0.75 0 -64 label (28) {/Times-Roman cf} 2 25 180 0.75 -64 -64 label (30) {/Times-Roman cf} 2 25 180 0.75 -128 -64 label (32) {/Times-Roman cf} 2 25 180 0.75 -192 -64 label (34) {/Times-Roman cf} 2 25 180 0.75 -256 -64 label (36) {/Times-Roman cf} 2 25 180 0.75 -320 -64 label (38) {/Times-Roman cf} 2 25 180 0.75 -384 -64 label (40) {/Times-Roman cf} 2 25 180 0.75 -448 -64 label (42) {/Times-Roman cf} 2 25 180 0.75 -512 -64 label (44) {/Times-Roman cf} 2 25 180 0.75 -576 -64 label (46) {/Times-Roman cf} 2 25 180 0.75 -640 -64 label (48) {/Times-Roman cf} 2 25 180 0.75 -704 -64 label (50) {/Times-Roman cf} 2 25 180 0.75 -768 -64 label sce 1.00 0 768 32 pin1 1.00 0 704 32 pin 1.00 0 640 32 pin 1.00 0 576 32 pin 1.00 0 512 32 pin 1.00 0 448 32 pin 1.00 0 768 -32 pin 1.00 0 704 -32 pin 1.00 0 640 -32 pin 1.00 0 576 -32 pin 1.00 0 512 -32 pin 1.00 0 448 -32 pin 1.00 0 384 -32 pin 1.00 0 384 32 pin 1.00 0 320 32 pin 1.00 0 256 32 pin 1.00 0 320 -32 pin 1.00 0 256 -32 pin 1.00 0 192 -32 pin 1.00 0 192 32 pin 1.00 0 128 32 pin 1.00 0 64 32 pin 1.00 0 0 32 pin 1.00 0 128 -32 pin 1.00 0 64 -32 pin 1.00 0 0 -32 pin 1.00 0 -64 -32 pin 1.00 0 -64 32 pin 1.00 0 -128 32 pin 1.00 0 -128 -32 pin 1.00 0 -192 -32 pin 1.00 0 -192 32 pin 1.00 0 -256 32 pin 1.00 0 -256 -32 pin 1.00 0 -320 -32 pin 1.00 0 -320 32 pin 1.00 0 -384 32 pin 1.00 0 -384 -32 pin 1.00 0 -448 -32 pin 1.00 0 -448 32 pin 1.00 0 -512 32 pin 1.00 0 -512 -32 pin 1.00 0 -576 -32 pin 1.00 0 -576 32 pin 1.00 0 -640 32 pin 1.00 0 -640 -32 pin 1.00 0 -704 -32 pin 1.00 0 -704 32 pin 1.00 0 -768 32 pin 1.00 0 -768 -32 pin 1.000 0.000 0.000 scb (12) {/Times-Roman cf} 2 29 180 0.75 448 -32 pinlabel (14) {/Times-Roman cf} 2 29 180 0.75 384 -32 pinlabel (16) {/Times-Roman cf} 2 29 180 0.75 320 -32 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 256 -32 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 192 -32 pinlabel (2) {/Times-Roman cf} 2 29 180 0.75 768 -32 pinlabel (4) {/Times-Roman cf} 2 29 180 0.75 704 -32 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 640 -32 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 576 -32 pinlabel (10) {/Times-Roman cf} 2 29 180 0.75 512 -32 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 128 -32 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 64 -32 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 0 -32 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 -64 -32 pinlabel (30) {/Times-Roman cf} 2 29 180 0.75 -128 -32 pinlabel (32) {/Times-Roman cf} 2 29 180 0.75 -192 -32 pinlabel (34) {/Times-Roman cf} 2 29 180 0.75 -256 -32 pinlabel (36) {/Times-Roman cf} 2 29 180 0.75 -320 -32 pinlabel (38) {/Times-Roman cf} 2 29 180 0.75 -384 -32 pinlabel (40) {/Times-Roman cf} 2 29 180 0.75 -448 -32 pinlabel (42) {/Times-Roman cf} 2 29 180 0.75 -512 -32 pinlabel (44) {/Times-Roman cf} 2 29 180 0.75 -576 -32 pinlabel (46) {/Times-Roman cf} 2 29 180 0.75 -640 -32 pinlabel (48) {/Times-Roman cf} 2 29 180 0.75 -704 -32 pinlabel (50) {/Times-Roman cf} 2 29 180 0.75 -768 -32 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 704 32 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 768 32 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 576 32 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 640 32 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 512 32 pinlabel (11) {/Times-Roman cf} 2 17 180 0.75 448 32 pinlabel (13) {/Times-Roman cf} 2 17 180 0.75 384 32 pinlabel (15) {/Times-Roman cf} 2 17 180 0.75 320 32 pinlabel (17) {/Times-Roman cf} 2 17 180 0.75 256 32 pinlabel (19) {/Times-Roman cf} 2 17 180 0.75 192 32 pinlabel (21) {/Times-Roman cf} 2 17 180 0.75 128 32 pinlabel (23) {/Times-Roman cf} 2 17 180 0.75 64 32 pinlabel (25) {/Times-Roman cf} 2 17 180 0.75 0 32 pinlabel (27) {/Times-Roman cf} 2 17 180 0.75 -64 32 pinlabel (29) {/Times-Roman cf} 2 17 180 0.75 -128 32 pinlabel (31) {/Times-Roman cf} 2 17 180 0.75 -192 32 pinlabel (33) {/Times-Roman cf} 2 17 180 0.75 -256 32 pinlabel (35) {/Times-Roman cf} 2 17 180 0.75 -320 32 pinlabel (37) {/Times-Roman cf} 2 17 180 0.75 -384 32 pinlabel (39) {/Times-Roman cf} 2 17 180 0.75 -448 32 pinlabel (41) {/Times-Roman cf} 2 17 180 0.75 -512 32 pinlabel (43) {/Times-Roman cf} 2 17 180 0.75 -576 32 pinlabel (45) {/Times-Roman cf} 2 17 180 0.75 -640 32 pinlabel (47) {/Times-Roman cf} 2 17 180 0.75 -704 32 pinlabel (49) {/Times-Roman cf} 2 17 180 0.75 -768 32 pinlabel endgate } def /pga68 { begingate 0.843 0.843 0.843 scb 241 1.00 -448 -256 -384 -256 -384 -320 128 -320 128 -256 192 -256 192 256 128 256 128 320 -384 320 -384 256 -448 256 -448 0 -384 0 -384 192 -320 192 -320 256 64 256 64 192 128 192 128 -192 64 -192 64 -256 -320 -256 -320 -192 -384 -192 -384 0 -448 0 -448 -256 29 polygon sce 1 1.00 -432 -272 0 0.00 360.00 xcarc 0.000 0.000 1.000 scb (10) {/Times-Roman cf} 2 20 180 0.75 -480 256 label (11) {/Times-Roman cf} 2 28 180 0.75 -400 272 label (12) {/Times-Roman cf} 2 20 180 0.75 -480 192 label (13) {/Times-Roman cf} 2 23 180 0.75 -352 176 label (14) {/Times-Roman cf} 2 20 180 0.75 -480 128 label (15) {/Times-Roman cf} 2 23 180 0.75 -352 128 label (16) {/Times-Roman cf} 2 20 180 0.75 -480 64 label (17) {/Times-Roman cf} 2 23 180 0.75 -352 64 label (18) {/Times-Roman cf} 2 20 180 0.75 -480 0 label (19) {/Times-Roman cf} 2 23 180 0.75 -352 0 label (20) {/Times-Roman cf} 2 20 180 0.75 -480 -64 label (21) {/Times-Roman cf} 2 23 180 0.75 -352 -64 label (22) {/Times-Roman cf} 2 20 180 0.75 -480 -128 label (23) {/Times-Roman cf} 2 23 180 0.75 -352 -128 label (24) {/Times-Roman cf} 2 20 180 0.75 -480 -192 label (25) {/Times-Roman cf} 2 23 180 0.75 -352 -176 label (27) {/Times-Roman cf} 2 25 180 0.75 -384 -368 label (28) {/Times-Roman cf} 2 24 180 0.75 -400 -288 label (29) {/Times-Roman cf} 2 25 180 0.75 -320 -368 label (1) {/Times-Roman cf} 2 29 180 0.75 -128 352 label (2) {/Times-Roman cf} 2 25 180 0.75 -128 208 label (4) {/Times-Roman cf} 2 25 180 0.75 -192 208 label (6) {/Times-Roman cf} 2 25 180 0.75 -256 208 label (8) {/Times-Roman cf} 2 25 180 0.75 -320 208 label (3) {/Times-Roman cf} 2 29 180 0.75 -192 352 label (5) {/Times-Roman cf} 2 29 180 0.75 -256 352 label (7) {/Times-Roman cf} 2 29 180 0.75 -320 352 label (9) {/Times-Roman cf} 2 29 180 0.75 -384 352 label (30) {/Times-Roman cf} 2 29 180 0.75 -320 -224 label (32) {/Times-Roman cf} 2 29 180 0.75 -256 -224 label (34) {/Times-Roman cf} 2 29 180 0.75 -192 -224 label (36) {/Times-Roman cf} 2 29 180 0.75 -128 -224 label (38) {/Times-Roman cf} 2 29 180 0.75 -64 -224 label (40) {/Times-Roman cf} 2 29 180 0.75 0 -224 label (42) {/Times-Roman cf} 2 29 180 0.75 64 -224 label (31) {/Times-Roman cf} 2 25 180 0.75 -256 -368 label (33) {/Times-Roman cf} 2 25 180 0.75 -192 -368 label (35) {/Times-Roman cf} 2 25 180 0.75 -128 -368 label (37) {/Times-Roman cf} 2 25 180 0.75 -64 -368 label (39) {/Times-Roman cf} 2 25 180 0.75 0 -368 label (41) {/Times-Roman cf} 2 25 180 0.75 64 -368 label (43) {/Times-Roman cf} 2 25 180 0.75 128 -368 label (44) {/Times-Roman cf} 2 23 180 0.75 224 -256 label (46) {/Times-Roman cf} 2 23 180 0.75 224 -192 label (48) {/Times-Roman cf} 2 23 180 0.75 224 -128 label (50) {/Times-Roman cf} 2 23 180 0.75 224 -64 label (52) {/Times-Roman cf} 2 23 180 0.75 224 0 label (54) {/Times-Roman cf} 2 23 180 0.75 224 64 label (56) {/Times-Roman cf} 2 23 180 0.75 224 128 label (58) {/Times-Roman cf} 2 23 180 0.75 224 192 label (60) {/Times-Roman cf} 2 23 180 0.75 224 256 label (61) {/Times-Roman cf} 2 29 180 0.75 128 352 label (63) {/Times-Roman cf} 2 29 180 0.75 64 352 label (65) {/Times-Roman cf} 2 29 180 0.75 0 352 label (67) {/Times-Roman cf} 2 29 180 0.75 -64 352 label (45) {/Times-Roman cf} 2 27 180 0.75 144 -288 label (47) {/Times-Roman cf} 2 20 180 0.75 96 -176 label (49) {/Times-Roman cf} 2 20 180 0.75 96 -128 label (51) {/Times-Roman cf} 2 20 180 0.75 96 -64 label (53) {/Times-Roman cf} 2 20 180 0.75 96 0 label (55) {/Times-Roman cf} 2 20 180 0.75 96 64 label (57) {/Times-Roman cf} 2 20 180 0.75 96 128 label (59) {/Times-Roman cf} 2 20 180 0.75 96 176 label (62) {/Times-Roman cf} 2 31 180 0.75 144 288 label (64) {/Times-Roman cf} 2 25 180 0.75 64 208 label (66) {/Times-Roman cf} 2 25 180 0.75 0 208 label (68) {/Times-Roman cf} 2 25 180 0.75 -64 208 label (26) {/Times-Roman cf} 2 20 180 0.75 -480 -256 label sce 1.00 0 -128 320 pin1 1.00 0 -384 -256 pin 1.00 0 -320 -256 pin 1.00 0 -384 -320 pin 1.00 0 -320 -320 pin 1.00 0 -256 -320 pin 1.00 0 -192 -320 pin 1.00 0 -128 -320 pin 1.00 0 -64 -320 pin 1.00 0 0 -320 pin 1.00 0 64 -320 pin 1.00 0 128 -320 pin 1.00 0 128 -256 pin 1.00 0 64 -256 pin 1.00 0 0 -256 pin 1.00 0 -64 -256 pin 1.00 0 -128 -256 pin 1.00 0 -192 -256 pin 1.00 0 -256 -256 pin 1.00 0 -448 -256 pin 1.00 0 -448 -192 pin 1.00 0 -384 -192 pin 1.00 0 -384 -128 pin 1.00 0 -384 -64 pin 1.00 0 -384 0 pin 1.00 0 -384 64 pin 1.00 0 -384 128 pin 1.00 0 -384 192 pin 1.00 0 -384 256 pin 1.00 0 -384 320 pin 1.00 0 -448 256 pin 1.00 0 -448 192 pin 1.00 0 -448 128 pin 1.00 0 -448 64 pin 1.00 0 -448 0 pin 1.00 0 -448 -64 pin 1.00 0 -448 -128 pin 1.00 0 192 -256 pin 1.00 0 192 -192 pin 1.00 0 128 -192 pin 1.00 0 128 -128 pin 1.00 0 192 -128 pin 1.00 0 192 -64 pin 1.00 0 128 -64 pin 1.00 0 128 0 pin 1.00 0 192 0 pin 1.00 0 192 64 pin 1.00 0 128 64 pin 1.00 0 128 128 pin 1.00 0 192 128 pin 1.00 0 192 192 pin 1.00 0 128 192 pin 1.00 0 128 256 pin 1.00 0 192 256 pin 1.00 0 128 320 pin 1.00 0 64 320 pin 1.00 0 64 256 pin 1.00 0 0 256 pin 1.00 0 0 320 pin 1.00 0 -64 320 pin 1.00 0 -64 256 pin 1.00 0 -128 256 pin 1.00 0 -192 256 pin 1.00 0 -192 320 pin 1.00 0 -256 320 pin 1.00 0 -256 256 pin 1.00 0 -320 256 pin 1.00 0 -320 320 pin 1.000 0.000 0.000 scb (13) {/Times-Roman cf} 2 20 180 0.75 -384 192 pinlabel (15) {/Times-Roman cf} 2 20 180 0.75 -384 128 pinlabel (17) {/Times-Roman cf} 2 20 180 0.75 -384 64 pinlabel (19) {/Times-Roman cf} 2 20 180 0.75 -384 0 pinlabel (21) {/Times-Roman cf} 2 20 180 0.75 -384 -64 pinlabel (23) {/Times-Roman cf} 2 20 180 0.75 -384 -128 pinlabel (25) {/Times-Roman cf} 2 20 180 0.75 -384 -192 pinlabel (2) {/Times-Roman cf} 2 29 180 0.75 -128 256 pinlabel (4) {/Times-Roman cf} 2 29 180 0.75 -192 256 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 -256 256 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -320 256 pinlabel (30) {/Times-Roman cf} 2 17 180 0.75 -320 -256 pinlabel (32) {/Times-Roman cf} 2 17 180 0.75 -256 -256 pinlabel (34) {/Times-Roman cf} 2 17 180 0.75 -192 -256 pinlabel (36) {/Times-Roman cf} 2 17 180 0.75 -128 -256 pinlabel (38) {/Times-Roman cf} 2 17 180 0.75 -64 -256 pinlabel (40) {/Times-Roman cf} 2 17 180 0.75 0 -256 pinlabel (42) {/Times-Roman cf} 2 17 180 0.75 64 -256 pinlabel (47) {/Times-Roman cf} 2 23 180 0.75 128 -192 pinlabel (49) {/Times-Roman cf} 2 23 180 0.75 128 -128 pinlabel (51) {/Times-Roman cf} 2 23 180 0.75 128 -64 pinlabel (53) {/Times-Roman cf} 2 23 180 0.75 128 0 pinlabel (55) {/Times-Roman cf} 2 23 180 0.75 128 64 pinlabel (57) {/Times-Roman cf} 2 23 180 0.75 128 128 pinlabel (59) {/Times-Roman cf} 2 23 180 0.75 128 192 pinlabel (43) {/Times-Roman cf} 2 29 180 0.75 64 256 pinlabel (66) {/Times-Roman cf} 2 29 180 0.75 0 256 pinlabel (68) {/Times-Roman cf} 2 29 180 0.75 -64 256 pinlabel (44) {/Times-Roman cf} 2 20 180 0.75 192 -256 pinlabel (46) {/Times-Roman cf} 2 20 180 0.75 192 -192 pinlabel (48) {/Times-Roman cf} 2 20 180 0.75 192 -128 pinlabel (50) {/Times-Roman cf} 2 20 180 0.75 192 -64 pinlabel (52) {/Times-Roman cf} 2 20 180 0.75 192 0 pinlabel (54) {/Times-Roman cf} 2 20 180 0.75 192 64 pinlabel (56) {/Times-Roman cf} 2 20 180 0.75 192 128 pinlabel (58) {/Times-Roman cf} 2 20 180 0.75 192 192 pinlabel (60) {/Times-Roman cf} 2 20 180 0.75 192 256 pinlabel (1) {/Times-Roman cf} 2 17 180 0.75 -128 320 pinlabel (3) {/Times-Roman cf} 2 17 180 0.75 -192 320 pinlabel (5) {/Times-Roman cf} 2 17 180 0.75 -256 320 pinlabel (7) {/Times-Roman cf} 2 17 180 0.75 -320 320 pinlabel (9) {/Times-Roman cf} 2 17 180 0.75 -384 320 pinlabel (61) {/Times-Roman cf} 2 17 180 0.75 128 320 pinlabel (63) {/Times-Roman cf} 2 17 180 0.75 64 320 pinlabel (65) {/Times-Roman cf} 2 17 180 0.75 0 320 pinlabel (67) {/Times-Roman cf} 2 17 180 0.75 -64 320 pinlabel (27) {/Times-Roman cf} 2 29 180 0.75 -384 -320 pinlabel (29) {/Times-Roman cf} 2 29 180 0.75 -320 -320 pinlabel (31) {/Times-Roman cf} 2 29 180 0.75 -256 -320 pinlabel (33) {/Times-Roman cf} 2 29 180 0.75 -192 -320 pinlabel (35) {/Times-Roman cf} 2 29 180 0.75 -128 -320 pinlabel (37) {/Times-Roman cf} 2 29 180 0.75 -64 -320 pinlabel (39) {/Times-Roman cf} 2 29 180 0.75 0 -320 pinlabel (41) {/Times-Roman cf} 2 29 180 0.75 64 -320 pinlabel (43) {/Times-Roman cf} 2 29 180 0.75 128 -320 pinlabel (10) {/Times-Roman cf} 2 23 180 0.75 -448 256 pinlabel (12) {/Times-Roman cf} 2 23 180 0.75 -448 192 pinlabel (14) {/Times-Roman cf} 2 23 180 0.75 -448 128 pinlabel (16) {/Times-Roman cf} 2 23 180 0.75 -448 64 pinlabel (18) {/Times-Roman cf} 2 23 180 0.75 -448 0 pinlabel (20) {/Times-Roman cf} 2 23 180 0.75 -448 -64 pinlabel (22) {/Times-Roman cf} 2 23 180 0.75 -448 -128 pinlabel (24) {/Times-Roman cf} 2 23 180 0.75 -448 -192 pinlabel (26) {/Times-Roman cf} 2 23 180 0.75 -448 -256 pinlabel (62) {/Times-Roman cf} 2 31 180 0.75 128 256 pinlabel (11) {/Times-Roman cf} 2 28 180 0.75 -384 256 pinlabel sce 1 1.00 432 -256 0 0.00 360.00 xcarc 1.000 0.000 0.000 scb (45) {/Times-Roman cf} 2 19 180 0.75 128 -256 pinlabel (28) {/Times-Roman cf} 2 16 180 0.75 -384 -256 pinlabel endgate } def /pga44 { begingate 0.843 0.843 0.843 scb 240 1.00 -192 -256 -192 -320 128 -320 128 -256 192 -256 192 64 128 64 128 128 -192 128 -192 64 -256 64 -256 -128 -192 -128 -192 0 -128 0 -128 64 64 64 64 0 128 0 128 -192 64 -192 64 -256 -128 -256 -128 -192 -192 -192 -192 -128 -256 -128 -256 -256 28 polygon 0.000 0.000 1.000 scb (7) {/Times-Roman cf} 2 20 180 0.75 -288 64 label (8) {/Times-Roman cf} 2 28 180 0.75 -216 96 label (9) {/Times-Roman cf} 2 20 180 0.75 -288 0 label (10) {/Times-Roman cf} 2 23 180 0.75 -160 -16 label (11) {/Times-Roman cf} 2 20 180 0.75 -288 -64 label (12) {/Times-Roman cf} 2 23 180 0.75 -160 -64 label (13) {/Times-Roman cf} 2 20 180 0.75 -288 -128 label (14) {/Times-Roman cf} 2 23 180 0.75 -160 -128 label (15) {/Times-Roman cf} 2 20 180 0.75 -288 -192 label (16) {/Times-Roman cf} 2 23 180 0.75 -160 -176 label (18) {/Times-Roman cf} 2 25 180 0.75 -192 -368 label (19) {/Times-Roman cf} 2 24 180 0.75 -224 -296 label (20) {/Times-Roman cf} 2 25 180 0.75 -128 -368 label (1) {/Times-Roman cf} 2 21 180 0.75 0 16 label (3) {/Times-Roman cf} 2 25 180 0.75 -64 16 label (5) {/Times-Roman cf} 2 25 180 0.75 -128 16 label (2) {/Times-Roman cf} 2 29 180 0.75 -64 160 label (4) {/Times-Roman cf} 2 29 180 0.75 -128 160 label (6) {/Times-Roman cf} 2 29 180 0.75 -192 160 label (21) {/Times-Roman cf} 2 29 180 0.75 -128 -224 label (23) {/Times-Roman cf} 2 29 180 0.75 -64 -224 label (25) {/Times-Roman cf} 2 29 180 0.75 0 -224 label (27) {/Times-Roman cf} 2 29 180 0.75 64 -224 label (22) {/Times-Roman cf} 2 25 180 0.75 -64 -368 label (24) {/Times-Roman cf} 2 25 180 0.75 0 -368 label (26) {/Times-Roman cf} 2 25 180 0.75 64 -368 label (28) {/Times-Roman cf} 2 25 180 0.75 128 -368 label (29) {/Times-Roman cf} 2 23 180 0.75 224 -256 label (31) {/Times-Roman cf} 2 23 180 0.75 224 -192 label (33) {/Times-Roman cf} 2 23 180 0.75 224 -128 label (35) {/Times-Roman cf} 2 23 180 0.75 224 -64 label (37) {/Times-Roman cf} 2 23 180 0.75 224 0 label (39) {/Times-Roman cf} 2 23 180 0.75 224 64 label (40) {/Times-Roman cf} 2 29 180 0.75 128 160 label (42) {/Times-Roman cf} 2 29 180 0.75 64 160 label (30) {/Times-Roman cf} 2 27 180 0.75 152 -296 label (32) {/Times-Roman cf} 2 20 180 0.75 96 -176 label (34) {/Times-Roman cf} 2 20 180 0.75 96 -128 label (36) {/Times-Roman cf} 2 20 180 0.75 96 -64 label (38) {/Times-Roman cf} 2 20 180 0.75 96 -16 label (41) {/Times-Roman cf} 2 31 180 0.75 160 96 label (43) {/Times-Roman cf} 2 25 180 0.75 64 16 label (17) {/Times-Roman cf} 2 20 180 0.75 -288 -256 label sce 1.00 0 0 64 pin1 1.00 0 -192 -256 pin 1.00 0 -128 -256 pin 1.00 0 -192 -320 pin 1.00 0 -128 -320 pin 1.00 0 -64 -320 pin 1.00 0 0 -320 pin 1.00 0 64 -320 pin 1.00 0 128 -320 pin 1.00 0 128 -256 pin 1.00 0 64 -256 pin 1.00 0 0 -256 pin 1.00 0 -64 -256 pin 1.00 0 -256 -256 pin 1.00 0 -256 -192 pin 1.00 0 -192 -192 pin 1.00 0 -192 -128 pin 1.00 0 -192 -64 pin 1.00 0 -192 0 pin 1.00 0 -192 64 pin 1.00 0 -192 128 pin 1.00 0 -256 64 pin 1.00 0 -256 0 pin 1.00 0 -256 -64 pin 1.00 0 -256 -128 pin 1.00 0 192 -256 pin 1.00 0 192 -192 pin 1.00 0 128 -192 pin 1.00 0 128 -128 pin 1.00 0 192 -128 pin 1.00 0 128 -64 pin 1.00 0 192 -64 pin 1.00 0 192 0 pin 1.00 0 128 0 pin 1.00 0 128 64 pin 1.00 0 192 64 pin 1.00 0 128 128 pin 1.00 0 64 128 pin 1.00 0 64 64 pin 1.00 0 -64 128 pin 1.00 0 -64 64 pin 1.00 0 -128 64 pin 1.00 0 -128 128 pin 1.000 0.000 0.000 scb (10) {/Times-Roman cf} 2 20 180 0.75 -192 0 pinlabel (12) {/Times-Roman cf} 2 20 180 0.75 -192 -64 pinlabel (14) {/Times-Roman cf} 2 20 180 0.75 -192 -128 pinlabel (16) {/Times-Roman cf} 2 20 180 0.75 -192 -192 pinlabel (6) {/Times-Roman cf} 2 29 180 0.75 -64 64 pinlabel (8) {/Times-Roman cf} 2 29 180 0.75 -128 64 pinlabel (21) {/Times-Roman cf} 2 17 180 0.75 -128 -256 pinlabel (23) {/Times-Roman cf} 2 17 180 0.75 -64 -256 pinlabel (25) {/Times-Roman cf} 2 17 180 0.75 0 -256 pinlabel (27) {/Times-Roman cf} 2 17 180 0.75 64 -256 pinlabel (32) {/Times-Roman cf} 2 23 180 0.75 128 -192 pinlabel (34) {/Times-Roman cf} 2 23 180 0.75 128 -128 pinlabel (36) {/Times-Roman cf} 2 23 180 0.75 128 -64 pinlabel (38) {/Times-Roman cf} 2 23 180 0.75 128 0 pinlabel (43) {/Times-Roman cf} 2 29 180 0.75 64 64 pinlabel (29) {/Times-Roman cf} 2 20 180 0.75 192 -256 pinlabel (31) {/Times-Roman cf} 2 20 180 0.75 192 -192 pinlabel (33) {/Times-Roman cf} 2 20 180 0.75 192 -128 pinlabel (35) {/Times-Roman cf} 2 20 180 0.75 192 -64 pinlabel (37) {/Times-Roman cf} 2 20 180 0.75 192 0 pinlabel (39) {/Times-Roman cf} 2 20 180 0.75 192 64 pinlabel (1) {/Times-Roman cf} 2 17 0 0.75 0 64 pinlabel (2) {/Times-Roman cf} 2 17 180 0.75 -64 128 pinlabel (4) {/Times-Roman cf} 2 17 180 0.75 -128 128 pinlabel (6) {/Times-Roman cf} 2 17 180 0.75 -192 128 pinlabel (40) {/Times-Roman cf} 2 17 180 0.75 128 128 pinlabel (42) {/Times-Roman cf} 2 17 180 0.75 64 128 pinlabel (18) {/Times-Roman cf} 2 29 180 0.75 -192 -320 pinlabel (20) {/Times-Roman cf} 2 29 180 0.75 -128 -320 pinlabel (22) {/Times-Roman cf} 2 29 180 0.75 -64 -320 pinlabel (24) {/Times-Roman cf} 2 29 180 0.75 0 -320 pinlabel (26) {/Times-Roman cf} 2 29 180 0.75 64 -320 pinlabel (28) {/Times-Roman cf} 2 29 180 0.75 128 -320 pinlabel (7) {/Times-Roman cf} 2 23 180 0.75 -256 64 pinlabel (9) {/Times-Roman cf} 2 23 180 0.75 -256 0 pinlabel (11) {/Times-Roman cf} 2 23 180 0.75 -256 -64 pinlabel (13) {/Times-Roman cf} 2 23 180 0.75 -256 -128 pinlabel (15) {/Times-Roman cf} 2 23 180 0.75 -256 -192 pinlabel (17) {/Times-Roman cf} 2 23 180 0.75 -256 -256 pinlabel (41) {/Times-Roman cf} 2 31 180 0.75 128 64 pinlabel (8) {/Times-Roman cf} 2 28 180 0.75 -192 64 pinlabel sce 1 1.00 432 -256 0 0.00 360.00 xcarc 1.000 0.000 0.000 scb (30) {/Times-Roman cf} 2 19 180 0.75 128 -256 pinlabel (19) {/Times-Roman cf} 2 16 180 0.75 -192 -256 pinlabel 0.000 0.000 1.000 scb (44) {/Times-Roman cf} 2 29 180 0.75 0 160 label sce 1.00 0 0 128 pin 1.000 0.000 0.000 scb (44) {/Times-Roman cf} 2 17 180 0.75 0 128 pinlabel endgate } def % EndLib xcircuit-3.9.73/lib/avlsi.lps0000664000175000001440000000200012335667423014570 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: avlsi % Author: R. Timothy Edwards % XCircuitLib library built-in objects /avlsi::samp { % trivial begingate 0 1.0 -80 -80 -80 80 80 0 3 polygon 0 -40 0 -80 wire (-) {/Symbol cf} 1 5 0 1.0 -61 42 label (+) {/Symbol cf} 1 5 0 1.0 -61 -50 label 1 0 0 scb (in.m) {/Times-Roman cf} 1 7 0 1.0 -80 48 pinlabel (in.p) {/Times-Roman cf} 1 7 0 1.0 -80 -48 pinlabel (out) {/Times-Roman cf} 1 4 0 1.0 80 0 pinlabel (bias) {/Times-Roman cf} 1 13 0 1.0 0 -80 pinlabel sce endgate } def /avlsi::wramp { % trivial begingate 0 1.0 -80 -80 -80 80 48 24 48 -24 4 polygon 0 -80 0 -45 wire 48 0 80 0 wire (-) {/Symbol cf} 1 5 0 1.0 -61 42 label (+) {/Symbol cf} 1 5 0 1.0 -61 -50 label 1 0 0 scb (in.m) {/Times-Roman cf} 1 7 0 1.0 -80 48 pinlabel (in.p) {/Times-Roman cf} 1 7 0 1.0 -80 -48 pinlabel (out) {/Times-Roman cf} 1 4 0 1.0 80 0 pinlabel (bias) {/Times-Roman cf} 1 13 0 1.0 0 -80 pinlabel sce endgate } def % EndLib xcircuit-3.9.73/lib/asg_spice.lps0000664000175000001440000002307012335667423015421 0ustar timusers%! PostScript set of library objects for XCircuit % Version: 3.2 % Library name is: asg_spice % Author: R. Timothy Edwards % % Depend VAMP source % Depend IAMP source arrowhead % Depend ACAMP source sinusoid % XCircuitLib library objects for ASG SPICE /CAPC { << /value (1.0) /units (p) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 0 -64 0 -6 2 polygon 1 1.00 0 64 0 6 2 polygon 1 1.00 -32 6 32 6 2 polygon 1 1.00 -32 -6 32 -6 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:C) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:c %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (F) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label 0.180 0.545 0.341 scb mark @index (pcb:C) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /CAPC libinst /RESTR { << /value (1.0) /units (k) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 0 64 0 36 2 polygon 1 1.00 0 -64 0 -36 2 polygon 1 1.00 0 -36 14 -30 -14 -18 14 -6 -14 6 14 18 -14 30 0 36 8 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:R) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:r %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (W) {/Symbol cf} units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label 0.180 0.545 0.341 scb mark @index (pcb:R) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /RESTR libinst /INDR { << /value (1.0) /units (m) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 20 -28 20 -44 0 -48 0 -24 spline 1 1.00 -20 -20 -20 -32 0 -28 0 -24 spline 1 1.00 20 32 20 16 0 12 0 36 spline 1 1.00 20 12 20 -4 0 -8 0 16 spline 1 1.00 20 -8 20 -24 0 -28 0 -4 spline 1 1.00 -20 20 -20 8 0 12 0 16 spline 1 1.00 -20 0 -20 -12 0 -8 0 -4 spline 1 1.00 0 -48 0 -64 2 polygon 1 1.00 0 36 0 48 2 polygon 1.000 0.000 0.000 scb (1) {/Times-Roman cf} 2 9 0 1.00 0 48 pinlabel (2) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value ( %p1 %p2 ) @index (spice:L) {/Times-Roman cf} ctmk 4 0 1.00 -208 -160 infolabel (sim:l %p1 %p2) {/Times-Roman cf} 2 4 0 1.00 -208 -208 infolabel sce mark (H) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 32 0 label 0.180 0.545 0.341 scb mark @index (pcb:L) {/Times-Roman cf} ctmk 20 0 1.00 -208 -256 infolabel endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /Inductor libinst /source { % hidden begingate 1 1.00 0 0 32 0.00 360.00 xcarc 1 1.00 0 32 0 64 2 polygon 1 1.00 0 -32 0 -64 2 polygon endgate } def /VAMP { << /value (5) /p_jst 20 /p_rot 0 >> begingate 1.00 0 0 0 source (+) {/Symbol cf} 2 5 p_rot 1.00 0 18 label (-) {/Symbol cf} 2 5 p_rot 1.00 0 -18 label 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (1) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark value (spice:V%i %pP %pM ) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel sce mark (V) {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /VAMP libinst /arrowhead { % trivial begingate 8 -28 beginpath 3 -18 3 -15 0 0 curveto -3 -15 -3 -18 -8 -28 curveto -2 -26 2 -26 8 -28 curveto 249 1.00 endpath endgate } def /IAMP { << /value (1) /units (m) /p_jst 20 /p_rot 0 >> begingate 1.00 0 0 0 source 1 0.75 0 20 0 -8 2 polygon 0.80 180 0 -20 arrowhead 1.000 0.000 0.000 scb (2) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (1) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark units value (spice:I%i %pP %pM ) {/Times-Roman cf} ctmk 20 0 1.00 -96 -160 infolabel sce mark (A) units {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /IAMP libinst /sinusoid { % hidden begingate 1 0.80 0 -48 0 48 -16 0 16 0 spline endgate } def /ACAMP { << /value (5) /offset (0) /freq (1) /units (k) /p_jst 20 /p_rot 0 >> begingate 1.00 0 0 0 source 1.000 0.000 0.000 scb (P) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (M) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark (\)) units freq ( ) value ( ) offset (spice:V%i %pP %pM SIN\() {/Times-Roman cf} ctmk 20 0 1.00 -336 -160 infolabel sce mark (Hz) units {hS} freq {CR} (offset) {ss} (V) {hS} offset {CR} (p-p) {ss} (V) {hS} value {/Times-Roman cf} ctmk p_jst p_rot 1.00 48 0 label 1.00 p_rot 0 0 sinusoid endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /ACAMP libinst /NMOS3 { << /width (3) /length (2) /model (nmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS GND ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel mark ( %x %y) width ( ) length (sim:n %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -244 -187 infolabel sce mark length (=) {Tf} (L) {hS} {CR} width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /NMOS3 libinst /PMOS3 { << /width (3) /length (2) /model (nmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS Vdd ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -196 -139 infolabel mark ( %x %y) width ( ) length (sim:p %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -196 -187 infolabel sce mark length (=) {Tf} (L) {hS} {CR} width (=) {Ts} (W) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 0 label endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /PMOS3 libinst /MSFET { << /width (3) /length (2) /model (nmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -44 0 -64 0 2 polygon 1.000 0.000 0.000 scb (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (S) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (D) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (B) {/Times-Roman cf} 2 4 0 1.00 32 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS %pB ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel mark ( %x %y) width ( ) length (sim:n %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -244 -187 infolabel sce mark length (/) width (W/L=) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 32 label 1 1.00 -32 0 32 0 2 polygon endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /MSFET libinst /PMOS { << /width (3) /length (2) /model (nmos) /@index (?) /p_jst 20 /p_rot 0 >> begingate 1 1.00 -44 -28 -44 28 2 polygon 1 1.00 -60 0 -64 0 2 polygon 1 1.00 0 -64 0 -28 -32 -28 -32 28 0 28 0 64 6 polygon 1 1.00 -52 0 8 0.00 360.00 xcarc 1.000 0.000 0.000 scb (S) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (D) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (G) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (B) {/Times-Roman cf} 2 4 0 1.00 32 0 pinlabel 0.180 0.545 0.341 scb mark length ( L=) width ( W=) model ( %pD %pG %pS %pB ) @index (spice:M) {/Times-Roman cf} ctmk 4 0 1.00 -196 -139 infolabel mark ( %x %y) width ( ) length (sim:p %pG %pD %pS ) {/Times-Roman cf} ctmk 4 0 1.00 -196 -187 infolabel sce mark length (/) width (W/L=) {/Times-Roman cf} ctmk p_jst p_rot 1.00 16 32 label 1 1.00 -32 0 32 0 2 polygon endgate } def 1.00 270 << /p_jst 17 /p_rot 90 >> /PMOS libinst /NPN { << /model (npn) /@index (?) >> begingate 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 120 0 -48 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (E) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel 0.180 0.545 0.341 scb mark model ( %pC %pB %pE ) @index (spice:Q) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel (sim:b %pB %pE %pC) {/Times-Roman cf} 2 4 0 1.00 -244 -187 infolabel endgate } def /PNP { << /model (npn) /@index (?) >> begingate 1 1.00 -48 0 -64 0 2 polygon 1 1.00 -48 48 -48 -48 2 polygon 1 1.00 0 48 -48 22 2 polygon 1 1.00 0 48 0 64 2 polygon 1 1.00 0 -48 -48 -22 2 polygon 1 1.00 0 -48 0 -64 2 polygon 1.00 240 -48 22 arrowhead 1.000 0.000 0.000 scb (C) {/Times-Roman cf} 2 13 0 1.00 0 -64 pinlabel (B) {/Times-Roman cf} 2 7 0 1.00 -64 0 pinlabel (E) {/Times-Roman cf} 2 9 0 1.00 0 64 pinlabel 0.180 0.545 0.341 scb mark model ( %pC %pB %pE ) @index (spice:Q) {/Times-Roman cf} ctmk 4 0 1.00 -244 -139 infolabel endgate } def /DIODE { << /@index (?) >> begingate 248 1.00 -18 -16 0 16 18 -16 3 polygon 1 1.00 0 -48 0 -16 2 polygon 1 1.00 0 48 0 16 2 polygon 1 1.00 -18 16 18 16 2 polygon 1.000 0.000 0.000 scb (P) {/Times-Roman cf} 2 9 0 1.00 0 48 pinlabel (M) {/Times-Roman cf} 2 13 0 1.00 0 -48 pinlabel 0.180 0.545 0.341 scb mark @index (pcb:D) {/Times-Roman cf} ctmk 20 0 1.00 -64 -144 infolabel mark ( %pP %pM diode) @index (spice:D) {/Times-Roman cf} ctmk 4 0 1.00 -64 -192 infolabel endgate } def % EndLib xcircuit-3.9.73/lib/xcircuit.1.in0000664000175000001440000015354612335667423015301 0ustar timusers.TH XCircuit 1 "January 5, 2000" "X11R6" .SH NAME xcircuit - Draw circuit schematics or almost anything; make circuit netlists from schematics. .SH SYNOPSIS .B xcircuit [\fIfilename\fP[,...]] .SH DESCRIPTION The program xcircuit is a generic drawing program tailored especially for making publication-quality renderings of circuit diagrams (hence the name). The output is pure PostScript, and the graphical interface attempts to maintain as much consistency as possible between the X11 window rendering and the final printer output. .sp \fIxcircuit\fP is mouse, menu, and keyboard\-driven, with the emphasis on single-character keyboard macros. .SH OPTIONS .TP 8 .B \fIfilename\fP[,...] Begin running xcircuit by loading in the PostScript file filename. If filename does not have a .ps extension, xcircuit will attempt to look for both the filename as entered and, upon failure, with the .ps extension. The file must be in xcircuit format. \fIfilename\fP may also be a comma-separated list of files. .SH BASIC ELEMENTS There are five drawing elements. These are as follows: .TP 3 .B a) polygon (multiple lines which may or may not be closed and filled) .TP 3 .B b) arc (ellipse segment which may be closed and/or filled as above) .TP 3 .B c) label (any text) .TP 3 .B d) curve (based on the PostScript "curveto" algorithm) .TP 3 .B e) object instance (see below) .PP There are two composite elements, which are: .TP 3 .B f) path (a connected series of polygons, arcs, and curves) .TP 3 .B g) object (something containing polygons, arcs, labels, curves, paths, and instances of other objects) .SH MOUSE BUTTONS The mouse button system, the object library, and the paged buffer system are loosely based on the Caltech circuit-simulation program "log" (either "analog" or "diglog"). .sp The general idea is to make the most commonly-used functions the easiest to perform, and (to the extent possible) to scale (inversely) the complexity of performing a function with the frequency of that task. Because this program is tailored to circuit drawing, the most common functions are drawing lines and moving object instances. The next most common function is selection of elements singly or in groups. .sp Mouse button 1 can be tapped to start a connected chain of lines, the most common drawing function. In addition, button 1 has a function called "grab", which occurs after the button has been continually pressed for a short length of time (about 1/5 second). As the name implies, "grab" grabs hold of an element which can then be moved around the screen. .sp Button 2 can be used to select an item if tapped, and if pressed and held down, a box will be drawn and everything inside that box selected when the button is released. In all other cases, button 2 will complete a command. For users who have only two mouse buttons and do not emulate the middle mouse button with the combination of buttons 1 and 3, use the combination of the Shift key and mouse button 1 to emulate mouse button 2. .sp Button 3 will normally abort a command. During editing of an arc, spline, or polygon, button 3 will revert back to the previous form, or abort if there is no remaining edit history. .sp All other commands are available from the pulldown menus and/or from the keyboard using single-key macros (with easy-to-remember mnemonics). Keyboard commands are quicker, since they act on the present cursor position, whereas menu commands require an extra step. .SH BUILT-IN LIBRARY The library is intended to provide a convenient way to store and retrieve elements of a picture which will be used more than once. For the application of circuit drawing, a built-in library provides basic objects such as transistors, amplifiers, resistors, capacitors, arrows, circles, power and ground symbols, and the like. This file is a composite of several library files (such as "builtins.lps", "analog.lps", and "digital.lps") which are called by the startup script PYTHON ("xcstartup.py") TCL ("xcstartup.tcl") NOINTERP ("startup.script") The program first looks for the startup script in the current directory, and then searches in the directory given by the environment variable "XCIRCUIT_LIB_DIR", and finally, in the hard-coded global directory (LIBDIR) if it could not find it elsewhere. Thus each user can add to or modify the file of builtins to reflect personal taste. Since the PostScript output contains all object definitions, these changes to the built-in functions are inherently transferrable. Xcircuit will automatically resolve conflicts between objects having the same name but different contents. .sp The library is accesible from the pull-down menu or with the "l" keyboard macro. When inside the library, clicking the first mouse button on an object "grabs" that object and returns the graphics state immediately to the page being edited, so that the object will be placed when the mouse button is released. .SH ZOOMING Xcircuit has unconstrained zooming and snap-to positioning. Objects scale completely: line widths and text sizes will increase/decrease proportionally with the zoom, as well as dot/dash spacing and all other features. Xcircuit does have a minimum integer grid in coordinate space, which translates to 0.005 inches at an output scale of 1. The maximum zoom scale gives a screen size translating to about 100 by 100 inches at an output scale of 1. The effective scale can be varied by changing the output scale (reached from the "File/Write" menu selection) in order to fit a drawing to a page or to get a grid matched to a specific dimension. A separate scale parameter changes the scale of the reported position relative to the output scale (as it will appear on a printed page). .SH SNAP-TO GRID The snap-to grid is an all-important feature for circuit drawing, wherein it is critical that elements line up properly with one another. In \fIxcircuit\fP, there is no way to get off the snap-to grid except by turning the snap function off and physically pushing elements off the grid. Generally, it is most convenient to leave the snap functon on and use key macros "+" and "-" to double/halve it as necessary. In any case, objects can always be returned to the snap grid with the "snap" function (key macro "S"). .SH SELECTION MECHANISM Objects are selected using a variety of search methods. The select box (formed by holding down mouse button 2 and dragging the pointer) uses the simplest method, searching for curve/polygon segment endpoints, arc centers, and label and object bounding boxes falling within the select box frame. General object selection is more complicated. Polygons, Arcs, and Curves are selected by their outer edges, not the interiors. Currently this is also true for filled instances of those types. A line is selected if the pointer is in a region describing a box around it, which is adusted according to the scale (zoom factor). Every object has an associated bounding box, which is rectangular but may be rotated with respect to the top level window. An object instance is selected if the pointer falls within its bounding box. Each label also has a bounding box carefully calculated from the width of the text string. .sp Often the selection mechanism will find multiple elements in range of the pointer. In this case, each object in turn will be presented, colored in blue (or the specified "querycolor" in the defaults file), and the user has the option of accepting the highlighted element for selection using the mouse button 1, or rejecting it with mouse button 3. When all the elements under consideration have been accepted or rejected, the program proceeds to execute whatever function was in progress. This selection method takes a little while to get used to, but is sensible and seems to work well. .SH COLOR Color in xcircuit is implemented with the idea of "color inheritance". Every page has a "default color" of black. All elements which have color value "Inherit" will inherit the default color, black. If an object instance is painted blue (for instance), all components in that object which have color value "Inherit" will inherit its color, blue. The reason for this is that it allows different object instances to be painted different colors (such as if one part of a circuit is highlighted for emphasis), while making it possible for object instances to be multicolored, if necessary. Changing the color of an object instance will have no observable effect on the drawing if none of the components of the object inherit that color. An object may have both normally colored components and components which inherit their color, in which case only those components with the "Inherit" value will change color when the color of the object instance is changed. .SH SCHEMATIC CAPTURE XCircuit implements a sophisticated schematic capture. Unlike virtually all schematic capture software currently available, xcircuit allows the designer to draw the circuit in a "natural" way, making use both of schematic hierarchies and simple hierarchies created simply by grouping elements together. If the chosen netlist format is hierarchical (like SPICE), both hierarchical forms will be retained in the output. For element grouping, input/output ports connecting into to the group will be determined automatically, from context. A schematic capture tutorial is available from the xcircuit website, .br http://opencircuitdesign.com/xcircuit/tutorial/tutorial2.html. .br Netlist types currently available are "SPICE", "sim", and "PCB". .SH KEYBOARD COMMANDS .br .PP \fBBasic keyboard commands:\fP .TP 12 .B Z Zoom in by a factor of 3/2. If this key is pressed while a selection box is active (created with the middle mouse button), then acts like Zoom Box function. .TP 12 .B z Zoom out by a factor of 3/2. .TP 12 .B p Pan the screen so that the point under the mouse is brought to the center of the program window. This function can also be conveniently performed by clicking on the scrollbars. The scrollbars cannot be moved continuously due to the slow time for screen refresh. .TP 12 .B cursors The arrow keys perform a pan of one-half window size in the direction of the arrow pressed. .TP 12 .B l Go to the Library of built-in objects. From the library, use mouse button1 to grab an object and bring it back to the edit screen, or button3 to return without selecting an object instance. While in the library screen, the zoom and pan functions can be used to move around. .TP 12 .B > Push into an on-screen object in order to edit that object .TP 12 .B < Return from editing an object. Object pushes and pops can be stacked indefinitely. .TP 12 .B space Refresh the screen. .TP 12 .B digits 0-9 Switch to one of the first ten editing pages. Pages greater than 10 can be reached from the "Window/Goto Page" menu selection. .TP 12 .B + and - Change snap-to grid spacing by a factor of two up or down. .TP 12 .B | : and _ (Bar, colon, and underline) Change style on the currently selected object to dashed, dotted, and solid, respectively. .TP 12 .B h or ? Print a help page summary of commands .PP .sp \fBCommands to create elements:\fP .TP 4 .B a Arc. Center is fixed at the initial position of the cursor. The mouse position changes the radius of the circle. In snap-to mode the arc boundry will pass through the snap point closest to the cursor. Mouse button 1 cycles from controlling the radius to controlling the starting point, the ending point, and separately controlling the minor axis to create ellipse. Mouse button 2 completes the arc. .TP 4 .B b Box. This is a convenience function for generating rectangular closed polygons. Creates a rectangle with one corner fixed at the position of the cursor. Subsequent movement of the cursor defines the point diametrically opposed. Mouse buttons 1 or 2 complete the box. .TP 4 .B s Spline curve. The first endpoint is defined by the initial cursor position. Mouse position adjusts the other endpoint of the curve. Mouse button 1 cycles from controlling position of the endpoint to controlling positions of the curve control points and the curve starting point. Mouse button 2 completes the curve. .TP 4 .B t Text. Text starts out justified according to the styles chosen in the pull-down menu. Text can be rejustified using the menu or by typing the numbers on the keypad (\fBshift-keypad-1\fP through \fBshift-keypad-9\fP). The position of the keys on the keypad matches the justification. Subscripts, superscripts, font changes, text size changes, underlining, and overlining are all available from the pull-down menu. Text edit mode recognizes \fBHome\fP and \fBEnd\fP keys to move to the beginning and end of the string, respectively. If the X11 environment maps control key sequences to character encodings (such as ISO-Latin1), these may be used to insert non-ASCII text. Another method of inserting non-ASCII characters is the use of the backslash character, which duplicates the action of the Text/Insert/Character menu button. .TP 4 .B M, m Make object. Takes all the elements currently selected and compiles them into an object. The object is then placed in the user library. The elements just selected are deleted from the screen and replaced by the new object. The center point of the resulting object is chosen as the closest snap-to point to the center of the object's bounding box; if another center is desired, then the object can be edited using the ">" command and its contents moved with respect to its origin. \fINote:\fP Objects cannot have the same name as PostScript commands or have the same name as any other object in memory. If such a name is found, an underscore ("_") will be prepended to the name as many times as is necessary to differentiate it from all other known objects. The name also cannot contain special PostScript characters such as slash; any such characters found will be replaced with underscores. .sp .PP \fBMajor editing commands:\fP .TP 4 .B d Delete. Select the nearest element or elements and delete it/them. .TP 4 .B u Undelete. Xcircuit saves up to 10 delete events to be recovered. Delete events are stored in order of occurrence, and the most recent delete event is the first to be recovered. When multiple elements are deleted at the same time, all of them are stored as one delete event, and restored together. .TP 4 .B x Deselect. Elements which have been selected can be deselected on a per-item basis. In order not to be too confusing, deselect does not query if multiple items are found under the cursor; it just deselects them all. .TP 4 .B c Copy. Make a copy of the object(s) nearest the cursor. Object is automatically grabbed for moving to a new position. The next button1 or button2 press will place the element. Button2 will end the copy, and button1 will continue the copy function. .TP 4 .B e Edit. The action of Edit is dependent on the type of element selected. These are detailed below: .TP 12 .B Label Returns to text editing mode, starting with the cursor at the end of the string. Mode is like regular text entry except that Button 3 returns text to its original string. .TP 12 .B Polygon Grabs one point of a polygon for repositioning. Button 1 cycles between points, button 2 accepts the new polygon, and button 3 returns to the previous state, unless there is no remaining edit history, in which case it aborts the command. Key macros available during polygon edit are: .sp "x"---Breaks the polygon at the given point. .sp "e"---Moves edit position to the next point. .sp "i" or "Insert"---Inserts a new point at the position. .sp "d" or "Delete"---Deletes the current edit point. .sp There are four modes for polygon editing; see the "\fBPolygon Edit\fP" section below for details. .TP 12 .B Arc Allows resizing of the radius. Mouse button 1 or the "e" key will cycle between control of the radius, the endpoint angles, and the ellipse minor axis. Mouse button 2 accepts the new arc. Button 3 returns to the previous editing state, unless there is no remaining edit history, in which case it aborts the command. .TP 12 .B Curve Allows repositioning of one end of the curve. Originally, the starting angle of the curve is kept fixed. Mouse button 1 or the "e" key cycles between the four control points of the curve, allowing control over the angle of the curve at its endpoint and the shape of the curve. Mouse button 2 accepts the new curve. Button 3 reverts back to the previous edit state unless there is no remaining edit history, in which case it terminates the command. .TP 12 .B Object instance Object instances have no properties to change except scale, and do not respond to the "edit" command. Scale can be changed by selecting "Options/Other/Object Size" from the menu. .sp .PP \fBMinor editing commands:\fP .TP 4 .B R Rotate the selected element(s) or element under the cursor counterclockwise in 15 degree intervals. .TP 4 .B r Rotate the selected element(s) or element under the cursor clockwise in 15 degree intervals. .TP 4 .B O Rotate the selected element(s) or element under the cursor counterclockwise by 5 degree intervals. This is currently the smallest angle resolution available to xcircuit. .TP 4 .B o Rotate the selected element(s) or element under the cursor clockwise by 5 degree intervals. .TP 4 .B f Flip an element around a vertical axis defined by an object's origin for an object instance, or across an axis defined by the pointer position for arcs, polygons, and curves. .TP 4 .B F Flip an element around a horizontal axis defined similarly to the "f" command. .TP 4 .B X If two elements are selected, their order is exchanged (this is only relevant if one element occludes another). If one element is selected, it is raised up one in the stack, and if it is already on top of the stack, it is shuffled to the bottom. .TP 4 .B S Snap the nearest object to the snap-to grid. For curves the control and endpoints are snapped; for polygons, each point is snapped; for arcs, the centerpoint is snapped; for labels and object instances, the designated point of origin is snapped. .TP 4 .B j Join polygons together. This only makes sense if it is possible to make a single continuous (open or closed) polygon from the selected parts. Otherwise a warning will be posted and the parts will remain separate. .TP 4 .B A Attach an element to a polygon, arc, or curve. The element to be attached must be the one currently grabbed (either by a "drag", copy command, or edit command). Until it is released, it will be forced to align its center (object, arc), endpoint (polygon, curve), or position (label) with the closest polygon, arc, or curve. Note that this is a very powerful tool for generating, for example, lines tangent to a curve, or objects arranged in a circle or along a line. .sp .PP \fBLibrary editing commands:\fP .TP 4 .B D Delete. The selected objects will be deleted from the library unless other library objects or pages contain references to that object. \fBNote:\fP Unlike deleting object instances with the "\fBd\fP" command, this command deletes the actual object and releases all memory associated with that object, so the object cannot be undeleted. .TP 4 .B C Copy. Makes a copy of an object from either library page and places the new copy in the user library. The new object will be renamed to avoid naming conflicts. .TP 4 .B M Move. If one object has been selected, it is moved to the position of the cursor. If two objects have been selected, their positions in the library are exchanged. .TP 4 .B E Edit label. Edit the object name whose label is under the cursor. After editing, the object name will be checked for conflicts with other object names, and altered if necessary. .TP 4 .B H Hide object. If the object is a sub-instance of another object, but is not meant to be used by itself, it can be "hidden" so that it will not appear by itself on the library page. .sp .SH MENU COMMANDS .sp .TP 4 .B Write Postscript (W) This command brings up a popup menu with a number of options. First, it gives the name of the file if one exists, or else it gives the default name of the buffer (usually \fBPage\fP \fIn\fP, where \fIn\fP is the number of the buffer). Next, it gives a preview of the picture scale and output styles, which include Landscape/Portrait orientation and Encapulated/Unencapsulated (full page) PostScript modes. The former allows adjustment of the nominal size of the picture when drawn in PostScript. The default scale is 1.00, which makes the text scale of 1.0 about 14 points on the PostScript page. The width and height of the resulting picture are also given, in inches, and any of the three values can be changed. The values of the other two will be updated accordingly. Pages which have the same name will be grouped together into a single file, allowing multiple pages to be stored in the same PostScript file. However, as Encapsulated PostScript does not make sense for this kind of file, it is not an option. .sp The \fBWrite File\fP button writes the current page to an output file. If the page has a name other than the default, the file will automatically be saved under that name. Otherwise, it is necessary to change the name of the buffer. If a file of that name already exists on the disk, the button will read \fBOverwrite File\fP. .TP 4 .B Read PostScript Reads in a file of Xcircuit format. The file name is requested by a popup prompt, and an extension of ".ps" will be added if necessary. The file is read into the current page, which is cleared first if anything is in it. If the file is a multiple-page file, the current page will be overwritten with the first page from the file, but other pages will be loaded into empty buffers. LGF Xcircuit can also read "lgf"-format files from LGF the Chipmunk CAD tools programs "analog" and "diglog". .TP 4 .B Import PostScript Acts like "Read PostScript" except that the page is not reset first, so graphics are added on top of existing graphics on the page. .TP 4 .B Clear Page Clears the current page of all elements and resets the name. The contents cannot be recovered. .TP 4 .B Alt Color Switches between the two xcircuit color schemes. The color schemes can be redefined through XDefaults (see below). The default color schemes are black-on-white and white-on-black. The latter is less straining to the eyes, but the former matches the black ink on white paper PostScript output. Any color scheme other than black-on-white is not recommended for drawings with color, as the actual output does not match the observed xcircuit screen. .TP 4 .B Grid Turns the grid lines on and off. .TP 4 .B Axes Turns the axis lines on and off. The axes mark the origin (0,0) of the page. On the top level (TopObject), the origin has no particular relevance, since encapsulated output will define its own boundaries, and full-page (unencapsulated) output will be centered on the output page, not according to the Xcircuit coordinate system. .TP 4 .B Grid spacing Changes the spacing of the grid lines. Default spacing is 1/6 inch, which is about the width of the letter 'W' in default text scale. .TP 4 .B Grid type/display This is a submenu allowing the coordinates and coordinate grid to be specified in alternate units. Listing of coordinates in the top window can be in default fractional inches, decimal inches, or centimeters. Default spacing of grid lines is either one-quarter inch or one-half centimeter. Selecting an A:B scale With option "\fBDrawing Scale\fP" causes all listed coordinates to be multiplied by the scale. \fINote:\fP Xcircuit will make an attempt to keep objects on the snap/grid spacing when switching between inch and centimeter scales. In order to do this, it will change the output scale by the ratio of 2.54 to 2.5, thus keeping a closer correspondence between inches and centimeters. To get true centimeters on the output page, the output scale (from the "File/Write Xcircuit PS") can be reset to 1.0 at the expense of having all objects intended for the inch grid displaced off of the snap grid. .TP 4 .B Snap-to Turns the snap-to grid on and off. When the grid is on, movement and placement of elements is restricted to points on the snap-to grid. .TP 4 .B Snap spacing Determines the spacing of the points in the snap-to grid. Default is 1/12 inch, which is half the grid line spacing. .TP 4 .B Linewidth Controls the default linewidth against which all linewidths in the drawing are scaled. .TP 4 .B Polygon Edit The options in this submenu control how the position of lines are affected when a point in a polygon is selected for editing. "\fBRhomboid-X\fP" mode moves adjoining points as necessary to keep all horizontal lines horizontal; "\fBRhomboid-Y\fP" mode acts similarly to keep all vertical lines vertical. "\fBRhomboid-A\fP" is similar to Manhattan mode but also tracks non-Manhattan lines. The default mode is "\fBManhattan Box Edit\fP", which is a combination of Rhomboid-X and Rhomboid-Y. In "\fBNormal\fP" mode, only the point being edited can be moved. .TP 4 .B \fPArc/Box/Curve\fB Border The options under this menu determine the border style of arcs, polygons, and curves. If an element is selected, it will be modified; otherwise, if no objects are selected, the style chosen is made default for all subsequent arcs, polygons, and curves. Elements may be drawn with or without borders (but for obvious reasons cannot be made both borderless and unfilled, which would be invisible) The borders may be closed or unclosed. For an arc, closed means that a chord is drawn connecting the two endpoints, if the beginning and ending angles do not complete a full circle. Borders may be solid, dashed, dotted, and of varying width. .TP 4 .B \fPArc/Box/Curve\fB Fill The options under this menu determine the fill style of arcs, polygons, and curves. Fill style may be solid, empty, or one of 7 stipple patterns varying from light to dark, which are drawn both in xcircuit and PostScript as stipple patterns. Stipples can be transparent or opaque. \fIWarning\fP: Transparent stipples are NOT inherent to PostScript and the hacks necessary to implement them cause slow rendering on a printer or PostScript previewer. Due to the device-dependent nature of the routines, patterns will look abnormally large on PostScript previewers. This transparancy feature has been added with the expectation that most circuit schematics will not rely heavily upon halftoning. Complicated color patterns can be created using transparent colored, stippled elements on top of solid-color elements. \fINote\fP: Ordering of elements is according to order created. A different ordering can be achieved using the "\fBX\fP" (exchange) command. This method is not especially easy to work with, and hopefully something better will be implemented in the future. .TP 4 .B \fPArc/Box/Curve\fB Color See the COLOR section above for a discussion of color inheritance. This menu shows all the colors available to xcircuit with the option of adding more colors. Currently the entry style for colors is by name or by RGB content in the X11 style of #rrggbb where rr, gg, and bb are hex values ranging from 00 to FF. The only limit to the number of colors is the X Server's colormap depth. If the colormap is full, xcircuit attempts to allocate the closest possible color to the one requested. .TP 4 .B Zoom Box This zoom feature requests the user to create a box (using either mouse button 1 or 2, expanding the box while holding down the button). When the button is released, the view will zoom to the area of that box. .TP 4 .B Full View This zoom feature calculates the bounding box of the entire picture and adjusts the scale to make it fit comfortably inside the program window. .SH TEXT FEATURES Xcircuit's ability to handle text is arguably the most complicated part of the program, and also of the PostScript output. Careful attention to text justification and style is the key to a good drawing. .TP 4 .B Text Size Alters the size of the labels. The value is a scale, with a default of 1.0 which translates to 14 points on the PostScript page if the default page scale of 1 is used. If a label is selected, only that label is affected. If a label is being edited, scale changes starting at the edit position. Otherwise, it becomes the default size for all subsequent labels. Size affects the entire text string. Text size can be changed anywhere inside of a string. However, text sizes inside a string are all given relative to the label size, not as an absolute point size. Sizes of subscripts and superscripts are given relative to the natural size of the subscript or superscript (2/3 the size of the text for which it is a modifier). .TP 4 .B \fPText\fB Font Standard printer fonts Times-Roman, Helvetica, Courier, and Symbol, are readily available. "User-defined" fonts can also be added; however, support is currently limited, and requires a font object (.lps) file and encoding (.xfe) file, examples of which are found in the fonts subdirectory of the xcircuit library directory. .TP 4 .B \fPText\fB Style Four standard font styles are available, matching the standard printer font variations: Normal, Italic (or oblique), Bold, and BoldItalic. PostScript matrix manipulation allows slanted versions of any font, such as Symbol, for which none is otherwise available. .TP 4 .B \fPText\fB Insert The Insert menu allows insertion of special characters which are otherwise not (necessarily) allowed from the keyboard. These include tab-stop, tab-forward, tab-backward, kern, half-space, quarter-space, and "Character". The latter option brings up a page showing the 256-character encoding vector for the font, allowing point-and-click entry of any character in the font. "Kern" instructions allow characters to be offset vertically or horizontally relative to the rest of the text. .TP 4 .B \fPText\fB Encoding Two standard font encodings are available by default, Standard (Adobe) Encoding, and ISO-Latin1 encoding. ISO-Latin2 and ISO-Latin5 encodings exist in the library directory, but require the use of the program "ogonkify" (not included) to produce correct output on a printer. .TP 4 .B Super and Subscripts Superscript and subscript are designed to closely match those in TeX output, though they lack the proper context-dependent kerning and other fancy features of TeX. A superscript following a subscript results in a superscripted subscript. To get a superscript on top of a subscript, use the backspace character (see below). The Normalscript style is the way to get out of a sub or superscript and return to the normal size and position. Quick super/sub/normalscripting is available from the keypad with the "\fB+\fP" (plus), "\fB-\fP" (minus), and "\fBEnter\fP" keys, respectively. .TP 4 .B Overline and Underline Overlining and underlining styles remain in effect until the next occurrence of a style or font change. Overlining is lower if all the characters are lowercase and do not include the "tall" lowercase characters. Overlining or underlining can be stopped at any time using the No Line style. Over and Underlining is *always* preferable to using a line. PostScript will adjust the over or underline to the text size and extent and actually grab the "_" character and compute its thickness in order to draw the line. .TP 4 .B Tabbing From version 2.3, xcircuit allows embedded tab stops. Tab stops must be defined before using tab-forward or tab-backward. The "Tab" keyboard key inserts an embedded tab-forward instruction into a label. Tab-stop and tab-backward can be inserted using the Text->Insert menu. A tab-forward instruction moves the cursor to the first defined tab stop forward of the current position. A tab-backward instruction moves the cursor to the first defined tab stop backward of the current position. If no appropriate tab stop exists, the instruction has no effect. .TP 4 .B Backspace The use of the backspace character is deprecated from xcircuit version 2.3. The effect of an embedded backspace is more reliably produced using tab-stop and tab-backward. .TP 4 .B Halfspace and Quarterspace These options allow fine control over spacing, particularly useful when writing equations. .TP 4 .B Justification Text justification always starts with the default, chosen from the options in the menu, but may be changed at any time using the numbers on the keypad. The position of the keys on the keypad reflect the point of justification: 1, 4, and 7 are right-justified, 7, 8, and 9 are bottom justified, 5 is centered in both directions. Since the letters drawn by xcircuit are optimized for the Helvetica font, correct justification is the main way to get text to come out on the PostScript page in the desired way, relative to objects or boxes or whatever. .SH .XCIRCUITRC FILE Certain parameters of the xcircuit program can be initialized from a file called \fB.xcircuitrc\fP, which is first searched for in the current directory, and then in the user's home directory as defined by the environment variable $HOME. PYTHON The XCircuitrc file is written in PYTHON Python (see www.python.org), with certain commands whose PYTHON main purpose is to transfer data structures between PYTHON the Python interpreter and XCircuit. PYTHON These commands are as follows: PYTHON .TP 6 PYTHON .B library("\fIlibname\fP" [, \fInum\fP]) PYTHON Loads a library named \fIlibname\fP (with or without .lps PYTHON extension) into the set of built-in objects. \fInum\fP, PYTHON if specified, puts the specified library onto library page PYTHON \fInum\fP (starts at 1). PYTHON .TP 6 PYTHON .B override("library") PYTHON Causes the default libraries defined in "builtins.lps" PYTHON \fInot\fP to be loaded. PYTHON .TP 6 PYTHON .B override("colors") PYTHON Causes the default colors \fInot\fP to be loaded; this will PYTHON not override the allocation of black and white, however, PYTHON for obvious reasons. PYTHON .TP 6 PYTHON .B font("\fIfontname\fP") PYTHON Adds a font named \fIfontname\fP (as recognized by a PYTHON printer) to the menu of selectable fonts. PYTHON .TP 6 PYTHON .B color("\fIcolorname\fP") PYTHON Adds a color named \fIcolorname\fP (standard X11 PYTHON conventions) to the menu of selectable colors. PYTHON .TP 6 PYTHON .B bind("\fIkey\fP", "\fIfunction\fP") PYTHON Binds the key (or button) named \fIkey\fP to the function named PYTHON \fIfunction\fP. If only one argument is given, it can be PYTHON either a key name or a function name, and bind() returns PYTHON the associated binding(s). If no argument is given, then PYTHON bind() returns a dictionary of all key bindings. PYTHON Valid function names are listed in section "KEY BINDINGS" below. PYTHON .TP 6 PYTHON .B unbind("\fIkey\fP", "\fIfunction\fP") PYTHON Unbinds the key (or button) named \fIkey\fP from the function named PYTHON \fIfunction\fP. PYTHON Valid function names are listed in section "KEY BINDINGS" below. PYTHON .TP 6 PYTHON .B set("\fItype\fP", "\fIvalue\fP") PYTHON Sets internal xcircuit variables, where \fItype\fP can be one of: PYTHON .sp PYTHON \fBboxedit\fP PYTHON .sp PYTHON Where \fIvalue\fP is one of "manhattan", "rhomboid-x", "rhomboid-y", PYTHON or "normal". Determines the default way manhattan-aligned polygon PYTHON edges are manupulated during edits. PYTHON .sp PYTHON \fBlinewidth\fP PYTHON .sp PYTHON Where \fIvalue\fP is a real number indicating the default PYTHON width of lines. PYTHON .sp PYTHON set("\fBbeep\fP", "on"|"off") PYTHON .sp PYTHON Where \fIvalue\fP can be \fBon\fP or \fBoff\fP, depending on PYTHON whether or not you want the machine beeping at you when it PYTHON gives critical warnings. PYTHON .sp PYTHON set("\fBcolorscheme\fP", "normal"|"inverse") PYTHON .sp PYTHON Where \fIvalue\fP is \fBinverse\fP to swap the two color schemes PYTHON and make the second scheme appear as default. PYTHON .sp PYTHON \fIh\fP = newelement("\fIname\fP") PYTHON .sp PYTHON Creates a new element and returns a handle (pointer) \fIh\fP to it which PYTHON can be used to get and set element attributes. Valid names are PYTHON "Arc", "Spline", "Polygon", "Object Instance", "Label", and "Path". PYTHON .sp PYTHON \fId\fP = getattr(\fIh\fP) PYTHON .sp PYTHON Creates a dictionary \fId\fP of attributes for the element with handle PYTHON \fIh\fP. Dictionary keys depend on the element. PYTHON .sp PYTHON setattr(\fIh\fP, \fId\fP) PYTHON .sp PYTHON Applies the dictionary \fId\fP key:value pairs to the element pointed to PYTHON by handle \fIh\fP. PYTHON .sp PYTHON \fId\fP = getpage(\fIvalue\fP) PYTHON .sp PYTHON Returns a dictionary \fId\fP containing information about the page \fIvalue\fP. PYTHON If \fIvalue\fP is not specified, returns information about the current page. PYTHON The dictionary includes a list "\fIparts\fP" of handles to every element drawn PYTHON on the indicated page. PYTHON .sp PYTHON \fId\fP = getlibrary(\fIname\fP) PYTHON .sp PYTHON Returns a dictionary of objects for the indicated library, PYTHON referenced by \fIname\fP, or by page number. The dictionary contains a PYTHON list "\fIobjects\fP" of names of every object in the library. PYTHON .sp PYTHON \fId\fP = getobject(\fIname\fP) PYTHON .sp PYTHON Returns a dictionary containing all information about an object, which PYTHON is referenced by \fIname\fP. The dictionary contains keys "\fIname\fP", PYTHON containing the object name, "\fIwidth\fP" and "\fIheight\fP", a PYTHON list "\fIparts\fP" containing handles to each element comprising the PYTHON object, and a list "\fIparameters\fP" containing all the parameters PYTHON defined for the object and their default values. PYTHON .sp PYTHON zoom(\fIfactor\fP) PYTHON .sp PYTHON Zooms by amount \fIfactor\fP. Values greater than 1 indicate a zoom in; PYTHON values less than 1 indicate a zoom out. PYTHON .sp PYTHON pan(\fIposition\fP) PYTHON .sp PYTHON Centers the screen on the (user) coordinate \fIposition\fP, which can be PYTHON either a (X,Y) tuple or two integers X, Y. PYTHON .sp PYTHON refresh() PYTHON .sp PYTHON Refreshes the screen. The screen is automatically refreshed after every PYTHON Python command, but the \fBrefresh()\fP function can be used along with the PYTHON \fBpause()\fP function for animation effects. PYTHON .sp PYTHON pause(\fIdelay\fP) PYTHON .sp PYTHON Pauses for \fIdelay\fP seconds (is a floating-point number). Useful in PYTHON conjunction with \fBrefresh()\fP for animation effects. PYTHON .sp PYTHON \fIt\fP = getcursor() PYTHON .sp PYTHON Returns a tuple \fIt\fP containing the current X and Y position of the cursor. PYTHON .sp PYTHON .sp PYTHON \fIt\fP = getwindow() PYTHON .sp PYTHON Returns a tuple \fIt\fP containing the current window width and height. PYTHON .sp PYTHON popupprompt(\fIprompt\fP, \fIfunction\fP) PYTHON .sp PYTHON Generates a popup window with text entry. \fIprompt\fP will be printed above PYTHON the text entry window. Python function \fIfunction\fP (referenced by name) PYTHON will be called when clicking the "Okay" button or pressing the Return key PYTHON ends the text entry. The function will be passed the contents of the text PYTHON window as its (only) parameter. PYTHON .sp PYTHON filepopup(\fIprompt\fP, \fIfunction\fP) PYTHON .sp PYTHON Operates exactly like \fBpopupprompt()\fP, except that the window is a file PYTHON browser instead of a simple text entry window. PYTHON .sp PYTHON .sp PYTHON simplepopup(\fIprompt\fP, \fIfunction\fP) PYTHON .sp PYTHON Operates exactly like \fBpopupprompt()\fP, except that there is no text entry PYTHON window, only a prompt string and the choice of "Okay" and "Cancel". PYTHON .sp PYTHON newbutton(\fIparent\fP, \fIname\fP, \fIfunction\fP) PYTHON .sp PYTHON Generates a new menu button under the menu cascade labeled \fIparent\fP. PYTHON The new button will display the label \fIname\fP, and pushing the button PYTHON will call the Python function \fIfunction\fP. PYTHON .sp PYTHON page(\fInumber\fP) PYTHON .sp PYTHON Go to the page numbered \fInumber\fP. PYTHON .sp PYTHON reset() PYTHON .sp PYTHON Erases the current page unconditionally, unless dependencies such as a link PYTHON to a symbol exist. NOINTERP Commands are: NOINTERP .TP 6 NOINTERP .B library \fIlibname\fP NOINTERP Loads a library named \fIlibname\fP (with or without .lps NOINTERP extension) into the set of built-in objects. NOINTERP .TP 6 NOINTERP .B override default library NOINTERP Causes the default libraries defined in "builtins.lps" NOINTERP \fInot\fP to be loaded. NOINTERP .TP 6 NOINTERP .B override default colors NOINTERP Causes the default colors \fInot\fP to be loaded; this will NOINTERP not override the allocation of black and white, however, NOINTERP for obvious reasons. NOINTERP .TP 6 NOINTERP .B font \fIfontname\fP NOINTERP Adds a font named \fIfontname\fP (as recognized by a NOINTERP printer) to the menu of selectable fonts. NOINTERP .TP 6 NOINTERP .B color \fIcolorname\fP NOINTERP Adds a color named \fIcolorname\fP (standard X11 NOINTERP conventions) to the menu of selectable colors. NOINTERP .TP 6 NOINTERP .B set \fItype\fP \fIvalue\fP NOINTERP Sets internal xcircuit variables, where \fItype\fP can be one of: NOINTERP .sp NOINTERP \fBboxedit\fP NOINTERP .sp NOINTERP Where \fIvalue\fP is one of "manhattan", "rhomboid-x", "rhomboid-y", NOINTERP or "normal". Determines the default way manhattan-aligned polygon NOINTERP edges are manupulated during edits. NOINTERP .sp NOINTERP \fBlinewidth\fP NOINTERP .sp NOINTERP Where \fIvalue\fP is a real number indicating the default NOINTERP width of lines. NOINTERP .sp NOINTERP \fBbeep\fP NOINTERP .sp NOINTERP Where \fIvalue\fP can be \fBon\fP or \fBoff\fP, depending on NOINTERP whether or not you want the machine beeping at you when it NOINTERP gives critical warnings. NOINTERP .sp NOINTERP \fBcolorscheme\fP NOINTERP .sp NOINTERP Where \fIvalue\fP is \fBinverse\fP to swap the two color schemes NOINTERP and make the second scheme appear as default. TCL The startup file is written in Tcl. The command-line interface can TCL be found in the online documentation on the website TCL .sp TCL \fBhttp://www.opencircuitdesign.com/xcircuit/\fP. TCL .sp .SH CRASH RECOVERY XCircuit implements a crash recovery system by which a copy of the current file is made every 15 minutes (see Xdefaults, below, for changing this value). XCircuit deletes this file upon a normal exit. If, however, XCircuit crashes or is terminated by Control-C or other sudden death, the backup copy will remain. On startup, XCircuit checks the /tmp directory for any XCircuit backup files belonging to the user. If one is found, XCircuit will prompt the user for recovery. Note that the backup is unique in that it contains a copy of the entire user space at the time of the crash. Filenames may get overwritten, as the backup will treat all pages as belonging to the same file. .SH KEY BINDINGS As noted above, keys can be bound and unbound through command-line functions "bind" and "unbind". Default key bindings are used throughout this manual page. Key names use the notation of /usr/X11R6/include/keysymdef.h, but with the notation "XK_" being optional, and including the addition of prefixes "Shift_", "Control_", "Capslock_", and "Alt_", which may be used in any combination. Note that "Shift_" is not used for ASCII characters (e.g., "A" is used instead of "Shift_a") unless used in combination with other special keys (such as "Control_Shift_A" to distinguish from "Control_a", should that be desired). "Button1", "Button2", and "Button3" are also valid names indicating functions attached to the mouse buttons in normal drawing mode. Valid functions which may be bound are as follows, with their default values given: .br .sp Function name Function performed Default key binding --------------------------------------------------------------------- "Page", change page, Number keys 1-9 and 0 "Justify", change text justification, Keypad keys 1-9 "Superscript", set text superscript, Keypad + "Subscript", set text subscript, Keypad - "Normalscript", cancel sub/superscript, Keypad Enter "Nextfont", change to next font, Alt-f "Boldfont", change to bold font, Alt-b "Italicfont", change to italic font, Alt-i "Normalfont", cancel italic/bold, Alt-n "Underline", generate underline, Alt-u "Overline", generate overline, Alt-o "ISO Encoding", change to ISO encoding, Alt-e "Return", embedded return character, Alt-Enter "Halfspace", embedded half-space, Alt-h "Quarterspace", embedded quarter-space, Alt-q "Special", special character, Alt-c "Parameter", embedded parameter, Alt-p "Edit Break", break at point, x "Edit Delete", delete point, d, Delete "Edit Insert", insert point, i, Insert "Edit Next", go to next point, e "Attach", attach line to object, A "Next Library", go to next library, l "Library Directory", library directory, L "Library Move", arrange library objects, M "Library Copy", get object in copy mode, c "Library Edit", edit library name, E "Library Delete", delete library object, D "Library Duplicate", duplicate object, C "Library Hide", hide library object, H "Page Directory ", page directory, P "Library Pop", return from library, < "Help", generate help screen, h, ? "Redraw", redraw the window, space "View", fit page to window, v "Zoom In", zoom in, Z "Zoom Out", zoom out, z "Pan", center pan, p "Double Snap", increase snap space, + "Halve Snap", decrease snap space, - "Pan Left", pan left one-half page, Left arrow "Pan Right", pan right one-half page, Right arrow "Pan Up", pan up one-half page, Up arrow "Pan Down", pan down one-half page, Down arrow "Write", popup output window, W "Rotate", Rotate, r,R,o,O "Flip X", Flip horizontal, f "Flip Y", Flip vertical, F "Snap", Snap to grid, S "Pop", Return from object edit, < "Push", Edit object, > "Delete", Delete element, d "Select", Select element, Select "Box", Create box, b "Arc", Create arc, a "Text", Create label, t "Exchange", Exchange vertical order, X "Copy", Copy element, c "Join", Join into path, j "Unjoin", Split path into elements, J "Spline", Create spline, s "Edit", Edit element, e "Undelete", Undelete last deleted, u "Select Save", Make object from selected, M,m "Unselect", Unselect element, x "Dashed", Set line style to dashed, | "Dotted", Set line style to dotted, : "Solid", Set line style to solid, _ "Prompt", Execute from command line, % "Dot", Place dot at location, . "Exit", Exit xcircuit Ctrl-Alt-q "Netlist", Generate a netlist, Alt-q "Swap", Swap schematic, symbol, / "Pin Label", Create pin label, T "Info Label", Create info label, I "Connectivity", Show wire connectivity, Alt-w "Sim", Generate sim netlist, Alt-s "SPICE", Generate SPICE netlist, Alt-S "PCB", Generate PCB netlist, Alt-p "SPICE Flat" Generate flattened SPICE, Alt-f ------------------------------------------------------------------ .br .sp 2-Button mouse users may find it useful to forego the Shift-Button1 combination and instead put the following commands in the startup script: .br .sp bind('Escape', 'Cancel') .br unbind('Button3', Cancel') .br bind('Button3', 'Finish') .br .sp This will move the 3rd mouse button bindings to the "Escape" key, and duplicate the 2nd mouse button bindings onto the 3rd. .br .sp .SH X DEFAULTS The color scheme of xcircuit has a default setup, but accepts alternate color schemes using the following keywords which can be put in the X Defaults (.Xdefaults, .Xresources) file, such as: .sp .EX 0 ! .br ! Sample X defaults for xcircuit, black-on-white version .br ! .br xcircuit*foreground : Black .br xcircuit*background : White .br xcircuit*gridcolor : Gray85 .br xcircuit*snapcolor : Orange .br xcircuit*selectcolor : Blue .br xcircuit*querycolor : Green .br xcircuit*axescolor : NavajoWhite3 .br xcircuit*offbuttoncolor : Gray30 .br xcircuit*auxiliarycolor : MediumOrchid1 .EE .sp Two color schemes are supported at a time, ostensibly for those people who prefer the lessened eye strain of a white-on-black scheme. The names of the secondary colors are the same as those for the primary colors, but followed by "2", e.g., "xcircuit*foreground2". .sp .sp One other resource defines the number of minutes between automatic saves to the temporary file (in case of a crash or emergency Ctrl-C exit): .sp .EX 0 xcircuit.timeout : 15 .EE .sp Xcircuit also recognizes the core resources, such as width and height: .sp .EX 0 xcircuit.width : 600 .br xcircuit.height : 500 .EE .sp All xcircuit foreground and background colors are taken from the Xdefaults foreground and background. To get, for instance, white-on-black menus and buttons with a black-on-white drawing area, use the following: .sp .EX 0 xcircuit*foreground : White .br xcircuit*background : DarkSlateGray .br xcircuit.foreground : Black .br xcircuit.background : White .br This will ensure that only the drawing area is black-on-white, but all other windows will appear in the less eye-straining white-on-black. .br Five different fonts can be specified in the Xdefaults. \fihelpfont\fp is the style of fonts on the help popup window. \fifilefont\fp is the style of fonts in the list of files in the file selection popup window. \fitextfont\fp is the style of font for entering text in the popup dialog boxes. \fititlefont\fp is the style of font for the cascade menu titles. All other fonts take the type \fifont\fp. For example: .br xcircuit*font : *times-bold-r-normal--14* .br xcircuit*helpfont : *times-medium-r-normal--12* .br xcircuit*filefont : *times-medium-r-normal--14* .br xcircuit*textfont : *courier-medium-r-normal--14* .br xcircuit*titlefont : *times-bold-r-normal--18* .SH FILES The file path used by xcircuit to find library files is system-dependent (i.e., can be changed at compile time), and can be overridden in many ways (in .xcircuitrc or by the XCIRCUIT_LIB_DIR environment variable), but by default is: .sp .TP 28 .B LIBDIR .sp .TP 15 .B xcircps2.pro PostScript prolog appended to each file .TP 15 PYTHON .B xcstartup.py TCL .B xcstartup.tcl NOINTERP .B startup.script This startup script contains commands of the type PYTHON \fBlibrary\fP("\fIname\fP", \fInumber\fP TCL \fBlibrary\fP \fIname\fP \fInumber\fP NOINTERP \fBlibrary\fP \fIname\fP \fInumber\fP which cause the designated library \fIname\fP to be immediately loaded into library page \fInumber\fP. The startup script is also responsible for loading fonts, and may also be used to load colors on the color palette, set other options, and execute commands. .TP 15 .B generic.lps, analog.lps, digital.lps, avlsi.lps, analoglib2.lps Files containing pre-compiled circuit elements. The \fB.lps\fP extension is unique for xcircuit libraries. .TP 15 .B fonts This subdirectory contains font definition files for xcircuit's vector-drawn fonts. Characters are defined by xcircuit objects and stored in a \fB.lps\fP library. The encoding scheme and other font information is stored in a \fB.xfe\fP ("xcircuit font encoding") file. .TP 15 .B ~/.xcircuitrc \fPor\fB ./xcircuitrc Personal xcircuit initializer; commands are outlined above. Libraries listed in this file will be appended to the builtin libraries. .SH ENVIRONMENT VARIABLES \fBxcircuit\fP understands the following environment variables: .sp .TP 15 .B TMPDIR Directory for temporary (e.g., backup) files (defaults to TEMP_DIR). .TP 15 .B XCIRCUIT_LIB_DIR Directory where xcircuit libraries and startup files can be found (defaults to BUILTINS_DIR). .TP 15 .B XAPPLRESDIR Directory where the xcircuit application defaults can be found (defaults to RESOURCES_DIR) .TP 15 .B HOME Directory where xcircuit will look for startup files, after searching the current directory. .TP 15 .B HOST, HOSTNAME, USER Environment variables which xcircuit uses to fill in header information in the PostScript output (HOST and HOSTNAME are equivalent). .SH BUGS PostScript printers have device-dependent limits on the number of statements within a "def" definition. If an object definition has an unusually large number of components, xcircuit will flag a warning when writing the file. However, there is no way to ensure that a file will be accepted by a given printer. The best way to avoid the problem is to make sure that large drawings make good use of hierarchically nested user-defined objects. Note that printer errors arising from this problem have not been observed in practice, and given the typical size of on-board memory on most modern laser printers, probably never will be. .sp A list of bugs can be found in the Manifest file in the source directory. .SH ONLINE TUTORIAL Look for the xcircuit online tutorial at .sp http://opencircuitdesign.com/xcircuit/tutorial/tutorial.html .SH SEE ALSO xfig(1), another powerful freeware drawing program worthy of mention (see www.xfig.org). Another schematic capture package worth noting is "gschem" from the gEDA package (see www.geda.seul.org). .SH NOTES PostScript is a registered trademark of Adobe Systems Incorporated. .br XCircuit Copyright (c) 2002 Tim Edwards. XCircuit is freely distributed under a generous public license. See the source distribution for details. .br Xw widget set Copyright (c) 1988 by Hewlett-Packard Company and the Massachusetts Institute of Technology. .SH AUTHOR Tim Edwards . Thanks to Tomas Rokicki for the PostScript routine which manufactures a Symbol-Oblique font. Thanks to Dave Gillespie and John Lazzaro for the program "analog" on which the graphical interface of xcircuit is (roughly) based. Thanks to many beta-testers, some of whom were kind enough to send patches. Most contributors have been named in the Manifest file in the source distribution. xcircuit-3.9.73/lib/tcl/0000775000175000001440000000000013213047223013506 5ustar timusersxcircuit-3.9.73/lib/tcl/ngspice.tcl0000664000175000001440000000102412335667423015655 0ustar timusers# ngspice.tcl # # This script creates the active loop for the background ngspice # simulator, and creates buttons for various simulator controls. # # Labels wishing to access spice variables can use, e.g.: # spice send "print TIME\[$STEP\]" proc ngsim {} { if {![catch {spice break}]} { refresh; spice resume after 500 ngsim ;# update at 1/2 second intervals } } proc startspice {} { spice start spice run after 500 ngsim } proc stopspice {} { after cancel ngsim spice break; refresh; } xcircuit-3.9.73/lib/tcl/symbol.tcl0000664000175000001440000005355612775236336015556 0ustar timusers#--------------------------------------------------------------------------- # symbol.tcl --- # # xcircuit Tcl script for generating # a canonical circuit symbol # # Tim Edwards 12/1/05 for MultiGiG #--------------------------------------------------------------------------- #--------------------------------------------------------------------------- # Get the info label line declaring the text subcircuit, if one exists. #--------------------------------------------------------------------------- proc xcircuit::getsubckttext {name} { global XCOps set curhandle [object handle] set handle [page handle $name] if {$curhandle != $handle} {schematic goto} set pageparts [object $handle parts] set itext {} foreach j $pageparts { set etype [element $j type] if {$etype == "Label"} { set ltype [label $j type] if {$ltype == "info"} { set itext [label $j text] if {[string first ".subckt" $itext] >= 0} { if {$curhandle != $handle} {symbol goto} return $itext } } } } deselect selected return "" } #--------------------------------------------------------------------------- # Create a matching symbol for a subcircuit page or SPICE file. # # This is a replacement for the procedure makesymbol in wrapper.tcl. # We make a sub-widget to list, change, and reorder the symbol pins, # similar to the "addliblist" procedure in wrapper.tcl # # Modified 1/5/06: If "filename" is non-null, then it points to a SPICE # netlist containing a subcircuit. A symbol is made to correspond to the # subcircuit definition, with a link to include the file. # # Modified 1/7/06: If "orderedpins" is non-null, then it contains the # list of pins in proper order. #--------------------------------------------------------------------------- proc xcircuit::makesymbol {{filename ""} {orderedpins ""}} { global XCOps config suspend true ;# suspend graphics and change count set techname [.makesymbol.techself.techselect cget -text] set symbolname [.makesymbol.textent.txt get] if {[string length $symbolname] == 0} { set symbolname [page label] if {[string length $symbolname] == 0 || [string first "Page " $symbolname] >= 0} { puts stderr "Symbol/Schematic has no name!" consoleup return } } if {[string first :: $symbolname] >= 0} { ;# symbolname has tech name embedded set techname "" } elseif {[string first ( $techname] >= 0} { ;# "(user)" specified set techname "::" } elseif {[string first :: $techname] < 0} { set techname "${techname}::" } # If "filename" is specified then we have a netlist, not a schematic. # Therefore, create an object but don't use xcircuit::symbol if {$filename == ""} { deselect selected xcircuit::symbol make ${techname}${symbolname} $XCOps(library); set schematicname [schematic get] set noschem 0 } else { set schematicname $symbolname set noschem 1 } set pinspace 64 set halfspace [expr $pinspace / 2] set qtrspace [expr $pinspace / 4] # remove the old pin labels set oldpinlabels [object parts] foreach j $oldpinlabels { delete $j } set leftpins [.makesymbol.pinself.left.list index end] set toppins [.makesymbol.pinself.top.list index end] set rightpins [.makesymbol.pinself.right.list index end] set botpins [.makesymbol.pinself.bottom.list index end] set hpins $leftpins if {$rightpins > $leftpins} {set hpins $rightpins} set vpins $toppins if {$botpins > $toppins} {set vpins $botpins} set boxwidth [expr ($vpins + 1) * $pinspace] set boxheight [expr ($hpins + 1) * $pinspace] set hwidth [expr $boxwidth / 2] if {$hwidth < 256} {set hwidth 256} set hheight [expr $boxheight / 2] if {$hheight < 256} {set hheight 256} set sbox [polygon make box "-$hwidth -$hheight" "$hwidth $hheight"] set pinlabels {} # If we didn't make a symbol using xcircuit::symbol, now is the time # to generate the object. if {$noschem == 1} { select $sbox set handle [object make ${techname}${symbolname} $XCOps(library)] push $handle } # Ordered right->left->bottom->top, on logical grounds. set x [expr $hwidth + $qtrspace] set y [expr -($rightpins - 1) * $halfspace] for {set j 0} {$j < $rightpins} {incr j} { set tabx [expr $x - $qtrspace] polygon make 2 "$x $y" "$tabx $y" set pintext [.makesymbol.pinself.right.list get $j] lappend pinlabels $pintext set tlab [label make pin "$pintext" "$x $y"] label $tlab anchor left label $tlab anchor middle set nlab [element $tlab copy relative "-$halfspace 0"] label $nlab type normal label $nlab anchor right incr y $pinspace deselect selected } set x [expr -$hwidth - $qtrspace] set y [expr -($leftpins - 1) * $halfspace] for {set j 0} {$j < $leftpins} {incr j} { set tabx [expr $x + $qtrspace] polygon make 2 "$x $y" "$tabx $y" set pintext [.makesymbol.pinself.left.list get $j] lappend pinlabels $pintext set tlab [label make pin "$pintext" "$x $y"] label $tlab anchor right label $tlab anchor middle set nlab [element $tlab copy relative "$halfspace 0"] label $nlab type normal label $nlab anchor left incr y $pinspace deselect selected } set y [expr -$hheight -$qtrspace] set x [expr -($botpins - 1) * $halfspace] for {set j 0} {$j < $botpins} {incr j} { set taby [expr $y + $qtrspace] polygon make 2 "$x $y" "$x $taby" set pintext [.makesymbol.pinself.bottom.list get $j] lappend pinlabels $pintext set tlab [label make pin "$pintext" "$x $y"] rotate $tlab 270 label $tlab anchor right label $tlab anchor middle set nlab [element $tlab copy relative "0 $halfspace"] label $nlab type normal label $nlab anchor left incr x $pinspace deselect selected } set y [expr $hheight + $qtrspace] set x [expr -($toppins - 1) * $halfspace] for {set j 0} {$j < $toppins} {incr j} { set taby [expr $y - $qtrspace] polygon make 2 "$x $y" "$x $taby" set pintext [.makesymbol.pinself.top.list get $j] lappend pinlabels $pintext set tlab [label make pin "$pintext" "$x $y"] rotate $tlab 90 label $tlab anchor right label $tlab anchor middle set nlab [element $tlab copy relative "0 -$halfspace"] label $nlab type normal label $nlab anchor left incr x $pinspace deselect selected } deselect selected set nlab [label make "$symbolname" {0 0}] label $nlab anchor middle label $nlab anchor center element $nlab color set blue deselect selected parameter make substring index "?" parameter make substring class "X" if {$schematicname == $symbolname} { parameter make substring link "%n" } else { parameter make substring link "$schematicname" } set nlab [label make "{Parameter class} {Parameter index}" "0 -$pinspace"] label $nlab anchor center element $nlab color set blue deselect selected # Determine if the schematic already has a "subckt" line. If so, # attempt to arrange the pin ordering from it. If not, create one. if {$noschem == 1} { set subckttext "" set pinlabels $orderedpins } else { set subckttext [xcircuit::getsubckttext $schematicname] } if {$subckttext == ""} { set subckttext [list {Text "spice1:.subckt %n"}] set pstring "" foreach j $pinlabels { if {[string length $pstring] > 60} { lappend subckttext [subst {Text "$pstring"}] lappend subckttext {Return} set pstring "+" } set pstring [join [list $pstring "$j"]] ;# preserves whitespace } lappend subckttext [subst {Text "$pstring"}] if {$noschem == 0} { schematic goto set bbox [join [page bbox all]] set x [expr ([lindex $bbox 2] + [lindex $bbox 0]) / 2] set y [expr [lindex $bbox 1] - $pinspace] set nlab [label make info "$subckttext" "$x $y"] label $nlab anchor center deselect selected set y [expr $y - $pinspace] set nlab [label make info "spice-1:.ends" "$x $y"] symbol goto } set itext [list {Text "spice:"} {Parameter class} {Parameter index}] set pstring "" foreach j $pinlabels { if {[string length $pstring] > 60} { lappend itext [subst {Text "$pstring"}] lappend itext {Return} set pstring "+" } set pstring [join [list $pstring "%p$j"]] ;# preserves whitespace } set pstring [join [list $pstring "%n"]] ;# preserves whitespace lappend itext [subst {Text "$pstring"}] } else { set itext [list {Text "spice:"} {Parameter class} {Parameter index}] set pstring "" foreach j [lrange [lindex $subckttext 0] 2 end] { if {[string length $pstring] > 60} { lappend itext [subst {Text "$pstring"}] lappend itext {Return} set pstring "+" } set pstring [join [list $pstring "%p$j"]] ;# preserves whitespace } set pstring [join [list $pstring "%n"]] ;# preserves whitespace lappend itext [subst {Text "$pstring"}] } set y [expr -$hheight - 3 * $pinspace] deselect selected set nlab [label make info "$itext" "0 $y"] label $nlab anchor center if {$noschem == 1} { deselect selected if {[string index $filename 0] != "/"} { set filename [join [concat [pwd] $filename] "/"] } set y [expr -$hheight - 4 * $pinspace] set itext [list {Text "spice@1:%F"}] lappend itext [subst {Text "$filename"}] set nlab [label make info "$itext" "0 $y"] label $nlab anchor center deselect selected pop } else { library $XCOps(library) compose deselect selected symbol goto zoom view } config suspend false ;# unlocked state } #--------------------------------------------------------------------------- # Get the list of pins for the object. If the schematic has a "subckt" # line, then we use the pin names from it, in order. If not, then we # compile a list of all unique pin labels and arrange them in dictionary # alphabetical order. #--------------------------------------------------------------------------- proc xcircuit::getpinlist {schematicname} { global XCOps set subckttext [xcircuit::getsubckttext $schematicname] if {$subckttext == {}} { set pinlist {} deselect selected set objlist [object parts] foreach j $objlist { set etype [element $j type] if {$etype == "Label"} { set ltype [label $j type] if {$ltype == "local" || $ltype == "global"} { # Avoid netlist-generated pins by rejecting labels that # don't start with a font specifier. set subtype [lindex [lindex [lindex [label $j list] 0] 0] 0] if {$subtype == "Font"} { lappend pinlist [label $j text] } } } } set pinlist [lsort -unique -dictionary $pinlist] } else { set pinlist [lrange [lindex $subckttext 0] 2 end] } deselect selected return $pinlist } #--------------------------------------------------------------------------- # Figure out which list has the selection #--------------------------------------------------------------------------- proc xcircuit::getselectedpinwidget {} { set w .makesymbol.pinself.left.list set result [$w curselection] if {$result != {}} {return $w} set w .makesymbol.pinself.top.list set result [$w curselection] if {$result != {}} {return $w} set w .makesymbol.pinself.right.list set result [$w curselection] if {$result != {}} {return $w} set w .makesymbol.pinself.bottom.list set result [$w curselection] if {$result != {}} {return $w} } #--------------------------------------------------------------------------- # Remove a pin from the pin list #--------------------------------------------------------------------------- proc xcircuit::removeselectedpin {} { set w [xcircuit::getselectedpinwidget] if {$w != {}} { set idx [$w curselection] $w delete $idx } } #--------------------------------------------------------------------------- # Move a pin to the left side of the symbol #--------------------------------------------------------------------------- proc xcircuit::movepinleft {} { set w [xcircuit::getselectedpinwidget] if {$w != {}} { set idx [$w curselection] set pinname [$w get $idx] $w delete $idx .makesymbol.pinself.left.list insert end $pinname $w selection set $idx } } #--------------------------------------------------------------------------- # Move a pin to the top side of the symbol #--------------------------------------------------------------------------- proc xcircuit::movepintop {} { set w [xcircuit::getselectedpinwidget] if {$w != {}} { set idx [$w curselection] set pinname [$w get $idx] $w delete $idx .makesymbol.pinself.top.list insert end $pinname $w selection set $idx } } #--------------------------------------------------------------------------- # Move a pin to the right side of the symbol #--------------------------------------------------------------------------- proc xcircuit::movepinright {} { set w [xcircuit::getselectedpinwidget] if {$w != {}} { set idx [$w curselection] set pinname [$w get $idx] $w delete $idx .makesymbol.pinself.right.list insert end $pinname $w selection set $idx } } #--------------------------------------------------------------------------- # Move a pin to the bottom side of the symbol #--------------------------------------------------------------------------- proc xcircuit::movepinbottom {} { set w [xcircuit::getselectedpinwidget] if {$w != {}} { set idx [$w curselection] set pinname [$w get $idx] $w delete $idx .makesymbol.pinself.bottom.list insert end $pinname $w selection set $idx } } #--------------------------------------------------------------------------- # Create the pin arranger widget and add it to the dialog box. #--------------------------------------------------------------------------- proc xcircuit::addpinarranger {w {pinlist {}}} { frame ${w}.pinself frame ${w}.pinself.left frame ${w}.pinself.top frame ${w}.pinself.right frame ${w}.pinself.bottom label ${w}.pinself.left.title -text "Left Pins" label ${w}.pinself.top.title -text "Top Pins" label ${w}.pinself.right.title -text "Right Pins" label ${w}.pinself.bottom.title -text "Bottom Pins" listbox ${w}.pinself.left.list listbox ${w}.pinself.top.list listbox ${w}.pinself.right.list listbox ${w}.pinself.bottom.list pack ${w}.pinself.left.title -side top pack ${w}.pinself.left.list -side top -fill y -expand true pack ${w}.pinself.top.title -side top pack ${w}.pinself.top.list -side top -fill y -expand true pack ${w}.pinself.right.title -side top pack ${w}.pinself.right.list -side top -fill y -expand true pack ${w}.pinself.bottom.title -side top pack ${w}.pinself.bottom.list -side top -fill y -expand true grid ${w}.pinself.left -row 0 -column 0 -sticky news -padx 1 -pady 1 grid ${w}.pinself.top -row 0 -column 1 -sticky news -padx 1 -pady 1 grid ${w}.pinself.right -row 0 -column 2 -sticky news -padx 1 -pady 1 grid ${w}.pinself.bottom -row 0 -column 3 -sticky news -padx 1 -pady 1 grid columnconfigure ${w}.pinself 0 -weight 1 -minsize 50 grid columnconfigure ${w}.pinself 1 -weight 1 -minsize 50 grid columnconfigure ${w}.pinself 2 -weight 1 -minsize 50 grid columnconfigure ${w}.pinself 3 -weight 1 -minsize 50 grid rowconfigure ${w}.pinself 0 -weight 1 -minsize 50 # Determine if the pinlist is fixed by either being taken from a "subckt" # line in a schematic, or being taken from a "subckt" line in a SPICE deck. # If so, we pass the ordered list to the symbol construction routine, and # we also prevent symbol pins from being deleted. config suspend true ;# suspend graphics and change count if {$pinlist == {}} { set pinlist [xcircuit::getpinlist [page label]] if {[xcircuit::getsubckttext [page label]] != {}} { set orderedpins 1 } else { set orderedpins 0 } } else { set orderedpins 1 } # Break the pinlist up into 4 parts set rightpins [expr [llength $pinlist] / 2] set bottompins [expr [llength $pinlist] - $rightpins] set leftpins [expr $rightpins / 2] set rightpins [expr $rightpins - $leftpins] set toppins [expr $bottompins / 2] set bottompins [expr $bottompins - $toppins] incr leftpins $rightpins incr bottompins $leftpins incr toppins $bottompins for {set k 0} {$k < $rightpins} {incr k} { ${w}.pinself.right.list insert end [lindex $pinlist $k] } for {} {$k < $leftpins} {incr k} { ${w}.pinself.left.list insert end [lindex $pinlist $k] } for {} {$k < $bottompins} {incr k} { ${w}.pinself.bottom.list insert end [lindex $pinlist $k] } for {} {$k < $toppins} {incr k} { ${w}.pinself.top.list insert end [lindex $pinlist $k] } pack ${w}.pinself -side top -anchor w -padx 20 -pady 5 -fill y -expand true catch { if {$orderedpins == 0} { button ${w}.bbar.remove -text "Remove Pin" -bg beige -command \ {xcircuit::removeselectedpin} } button ${w}.bbar.moveleft -text "Move Left" -bg beige -command \ {xcircuit::movepinleft} button ${w}.bbar.movetop -text "Move Top" -bg beige -command \ {xcircuit::movepintop} button ${w}.bbar.moveright -text "Move Right" -bg beige -command \ {xcircuit::movepinright} button ${w}.bbar.movebottom -text "Move Bottom" -bg beige -command \ {xcircuit::movepinbottom} } config suspend false if {$orderedpins == 0} { pack ${w}.bbar.remove -side left -ipadx 10 } pack ${w}.bbar.moveleft -side left -ipadx 10 pack ${w}.bbar.movetop -side left -ipadx 10 pack ${w}.bbar.moveright -side left -ipadx 10 pack ${w}.bbar.movebottom -side left -ipadx 10 } #--------------------------------------------------------------------------- # Remove the pin arranger widget from the dialog box. #--------------------------------------------------------------------------- proc xcircuit::removepinarranger {w} { catch { pack forget ${w}.pinself destroy ${w}.pinself pack forget ${w}.bbar.movebottom pack forget ${w}.bbar.moveright pack forget ${w}.bbar.movetop pack forget ${w}.bbar.moveleft pack forget ${w}.bbar.remove } } #--------------------------------------------------------------------------- # Redefine the procedure for the "Make Matching Symbol" menu button. #--------------------------------------------------------------------------- proc xcircuit::promptmakesymbol {{name ""}} { global XCOps .makesymbol.bbar.okay configure -command \ {if {[string first "Page " [page label]] >= 0} { \ page label [.makesymbol.textent.txt get]}; \ xcircuit::makesymbol; \ wm withdraw .makesymbol} .makesymbol.textent.title.field configure -text "Confirm symbol name:" .makesymbol.textent.txt delete 0 end if {[string length $name] == 0 && [string first "Page " [page label]] < 0} { set name [page label]} .makesymbol.textent.txt insert 0 $name xcircuit::popupdialog .makesymbol xcircuit::addtechlist .makesymbol "Technology: " xcircuit::addliblist .makesymbol "Place in: " xcircuit::addpinarranger .makesymbol } #--------------------------------------------------------------------------- # Routine which parses a spice file for the first .subckt line and # generates a symbol to match, with a "%F" escape pointing to the # spice file to include. #--------------------------------------------------------------------------- proc xcircuit::spice2symbol {filename {subcktname ""}} { global XCOps set f [open $filename] set infolabel "" while {[gets $f line] >= 0} { set dnline [string tolower $line] if {[string first .subckt $dnline] == 0} { while {[gets $f nextline] >= 0} { if {[string first + $nextline] != 0} {break} append line [string range $nextline 1 end] } set infolabel $line if {$subcktname == ""} {break} if {[string compare $subcktname [lindex $infolabel 1]] == 0} {break} } } close $f if {[string length $infolabel] == 0} {return} set pinlabels [lrange $infolabel 2 end] .makesymbol.bbar.okay configure -command \ "if {[string first {Page } [page label]] >= 0} { \ page label [.makesymbol.textent.txt get]}; \ xcircuit::makesymbol $filename [list $pinlabels]; \ wm withdraw .makesymbol" .makesymbol.textent.title.field configure -text "Confirm symbol name:" .makesymbol.textent.txt delete 0 end .makesymbol.textent.txt insert 0 [lindex $infolabel 1] xcircuit::popupdialog .makesymbol xcircuit::addliblist .makesymbol "Place in: " xcircuit::addpinarranger .makesymbol $pinlabels } #--------------------------------------------------------------------------- # Procedure that creates the dialog to find a spice file to parse and # calls spice2symbol. #--------------------------------------------------------------------------- proc xcircuit::promptspicesymbol {} { global XCOps .filelist.bbar.okay configure -command \ {xcircuit::spice2symbol [.filelist.textent.txt get] ; \ wm withdraw .filelist} .filelist.listwin.win configure -data "cir" .filelist.textent.title.field configure -text "Select spice file to parse:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist xcircuit::removelists .filelist } #--------------------------------------------------------------------------- # Add a menu item to invoke promptspicesymbol. #--------------------------------------------------------------------------- set m .xcircuit.menubar.netlistbutton.netlistmenu $m insert 7 command -label "SPICE to symbol" -command {xcircuit::promptspicesymbol} unset m #--------------------------------------------------------------------------- xcircuit-3.9.73/lib/tcl/console.tcl0000664000175000001440000000162112335667423015672 0ustar timusers# Commands to run in the console prior to launching the # slave interpreter for XCircuit # # Since the TkCon window is not a necessity in XCircuit, we withdraw it # but set up commands which can be executed from the slave interpreter # that can be used to reinstate the console when necessary (such as # when the "%" key macro is typed). # (suggested by Joel Kuusk) # slave alias xcircuit::consoledown wm withdraw . slave alias xcircuit::consoleup wm deiconify . slave alias xcircuit::consoleontop raise . # # The setup is that tkcon is the master interpreter and the layout window # is the slave interpreter. However, the end-user has the impression that # tkcon is a subsidiary window of the layout. Thus, closing the console # window should pop down the console rather than forcing an immediate and # irrevocable exit from xcircuit. wm protocol . WM_DELETE_WINDOW {tkcon slave slave xcircuit::lowerconsole} xcircuit-3.9.73/lib/tcl/pcbout.tcl0000664000175000001440000002335612335667423015535 0ustar timusers#----------------------------------------------------------------------- # Set of Tcl procedures to convert an xcircuit schematic to an initial # (unrouted) PCB layout. # # Written by Tim Edwards for MultiGiG Inc., February 27, 2004. #----------------------------------------------------------------------- #----------------------------------------------------------------------- # Procedure to convert xcircuit strings to plain ASCII text. #----------------------------------------------------------------------- proc string_to_text {xcstr} { set rst "" foreach sst $xcstr { switch -glob $sst { Text* { set atxt [lindex $sst 1] append rst $atxt } } } return $rst } #----------------------------------------------------------------------- # Procedure to map XCircuit names to PBC names. This is just a hack. # Ideally, we would want an XCircuit library whose names map directly # into the PCB library, so no translation is needed. There would be # parameters for the description line, package line, and name line to # be passed to the program. #----------------------------------------------------------------------- # Currently, understands 7400 series devices from the "diplib" and # "newdiplib" libraries. ("DIP7400" or "dil_7400" maps to "7400_dil", # and so forth). #----------------------------------------------------------------------- # Understanding of axial and SMD resistors and capacitors added # 1/4/05. This is somewhat hacked-up. PCB has it backwards: The # package type should be, e.g., "SMD_SIMPLE_603", not "SMD_SIMPLE", # while the name should be "smd_resistor", not "smd_resistor_603". #----------------------------------------------------------------------- proc xcirc_to_pcbname {xcname {pkgparam ""}} { switch -glob $xcname { dil_* { set lstyp [string range $xcname 4 end] set rst "${lstyp}_dil" } DIP* { set lstyp [string range $xcname 3 end] set rst "${lstyp}_dil" } res* - Res* { switch -glob $pkgparam { SMD* { set lpos [string last "_" $pkgparam] set pkgsize [string range $pkgparam $lpos end] set rst "smd_resistor$pkgsize" } AXIAL* { set lpos [string last "_" $pkgparam] set pkgsize [string range $pkgparam $lpos end] set rst "generic_resistor_axial$pkgsize" } default { set rst "generic_resistor_axial_400" } } } cap* - Cap* { switch -glob $pkgparam { SMD* { set lpos [string last "_" $pkgparam] set pkgsize [string range $pkgparam $lpos end] set rst "smd_capacitor$pkgsize" } AXIAL* { set lpos [string last "_" $pkgparam] set pkgsize [string range $pkgparam $lpos end] set rst "generic_capacitor_axial$pkgsize" } default { set rst "generic_capacitor_axial_400" } } } default {set rst $xcname} } return $rst } #----------------------------------------------------------------------- # Procedure to map XCircuit names to PCB package names. #----------------------------------------------------------------------- # Currently, understands DIP packages (7400 series) #----------------------------------------------------------------------- proc xcirc_to_pkgname {pkgparam numpins} { switch -glob $pkgparam { DIP {set rst "DIP$numpins"} SMD* {set rst SMD_SIMPLE} AXIAL* {set rst AXIAL_LAY} default {set rst $pkgparam} } return $rst } #----------------------------------------------------------------------- # Add an element to the (open) pcb file #----------------------------------------------------------------------- proc add_pcb_element {fileId element numpins devname pkgparam} { global PCBLIBDIR SUBDIR GEN_ELEM_SCRIPT set pcbelem [xcirc_to_pcbname $element $pkgparam] set pkgname [xcirc_to_pkgname $pkgparam $numpins] set elist [exec ${PCBLIBDIR}/${GEN_ELEM_SCRIPT} ${PCBLIBDIR} ${SUBDIR} \ $pcbelem $element $pkgname] eval [subst {regsub {""} \$elist {"$devname"} efinal}] puts stdout "IN: QueryLibrary.sh pcblib $pcbelem $element $pkgname" puts stdout "OUT: $efinal" puts $fileId $efinal } #----------------------------------------------------------------------- # Generate elements from the xcircuit schematic # # This assumes a pcb-like schematic, with a flat schematic. Needs to be # expanded to handle hierarchical schematics. This will work with # multipage schematics. # # For now, this only supports 7400 series devices, so we can assume that # the string is "U". However, different packages of the devices can be # specified, and any device name can be processed as long as it has a # valid package type (DIL, SO, US, etc.). # # Extended 1/4/05 to handle resistors and capacitors. #----------------------------------------------------------------------- proc gen_pcb_elements {fileId} { set numpins 0 set pkgname "unknown" set nl [netlist make] set ckt [lindex $nl 3] foreach subckt $ckt { set ename "default" # MUST parse in order: name, device, (everything else) foreach {key value} $subckt { switch -- $key { name { set ename $value break; } } } foreach {key value} $subckt { switch -- $key { devices { foreach dev $value { foreach tpart $dev { set ascl [string_to_text $tpart] set cpos [string first "pcb:" $ascl] if {$cpos >= 0} { set defpfix($ename) [string range $ascl 4 end] break } } } } } } foreach {key value} $subckt { switch -- $key { name {set ename $value} ports {set defpins($ename) [expr {[llength $value] / 2}]} parameters { foreach {pkey pval} $value { switch -- $pkey { idx - v1 { set devnum [string_to_text $pval] set defnum($ename) "${devnum}" } pkg { set defpkg($ename) [string_to_text $pval] } } } } } } } set top [lindex $ckt [expr {[llength $ckt] - 1}]] foreach {key calllist} $top { if {$key == "calls"} {break} } set devnum 0 foreach call $calllist { set numpins 0 incr devnum set devpfix "U" set devname "U?" set pkgname "unknown" set ename "default" foreach {key value} $call { switch -- $key { name { set ename $value catch {set numpins $defpins($ename)} catch {set devpfix $defpfix($ename)} catch {set pkgname $defpkg($ename)} catch {set locdevnum $defnum($ename); \ set devname ${devpfix}${locdevnum}} } ports {set numpins [expr {[llength $value] / 2}]} parameters { foreach {pkey pval} $value { switch -- $pkey { idx - v1 { set locdevnum [string_to_text $pval] set devname "${devpfix}${locdevnum}" } pkg { set pkgname [string_to_text $pval] } } } } } } if {[string range $devname end end] == "?"} {set devname "${devpfix}${devnum}"} add_pcb_element $fileId $ename $numpins $devname $pkgname } } #----------------------------------------------------------------------- # Tcl procedure to write an xcircuit layout to an initial PCB layout. #----------------------------------------------------------------------- proc xcirc_to_pcb {filename} { global PCBLIBDIR SUBDIR GEN_ELEM_SCRIPT # Open the pcb file and generate a valid header set fileId [open $filename w 0600] puts $fileId "PCB(\"\" 6000 5000)" puts $fileId "" puts $fileId "Grid(10 0 0 0)" puts $fileId "Cursor(160 690 3)" puts $fileId "Flags(0x00000000000006d0)" puts $fileId "Groups(\"1,s:2,c:3:4:5:6:7:8\")" puts $fileId "Styles(\"Signal,10,55,28,10:Power,25,60,35,10:Fat,40,60,35,10:Skinny,8,36,20,7\")" puts $fileId "" # Generate elements gen_pcb_elements $fileId # Generate a valid trailer and close the pcb file puts $fileId "" puts $fileId "Layer(1 \"solder\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(2 \"component\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(3 \"GND\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(4 \"power\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(5 \"signal1\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(6 \"signal2\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(7 \"unused\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(8 \"unused\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(9 \"silk\")" puts $fileId "(" puts $fileId ")" puts $fileId "Layer(10 \"silk\")" puts $fileId "(" puts $fileId ")" close $fileId } #----------------------------------------------------------------------- # Create a dialog for querying the name of the output layout file #----------------------------------------------------------------------- proc xcircuit::promptpcblayout {} { .dialog.bbar.okay configure -command \ {xcirc_to_pcb [.dialog.textent.txt get]; wm withdraw .dialog} .dialog.textent.title.field configure -text "Enter name for PCB layout:" .dialog.textent.txt delete 0 end set lname [xcircuit::page label] append lname ".pcb" .dialog.textent.txt insert 0 $lname wm deiconify .dialog focus .dialog.textent.txt } # These may be reset at any time. . . set PCBLIBDIR "/usr/local/share/pcb/" set SUBDIR "pcblib" set GEN_ELEM_SCRIPT "QueryLibrary.sh" #----------------------------------------------------------------------- # Add the PCB layout command to the XCircuit "Netlist" menu. #----------------------------------------------------------------------- set m .xcircuit.menubar.netlistbutton.netlistmenu $m add command -label "Create PCB Layout" -command {xcircuit::promptpcblayout} #----------------------------------------------------------------------- xcircuit-3.9.73/lib/tcl/wrapper.tcl0000664000175000001440000040410013213047223015671 0ustar timusers#------------------------------------------------------------------------- # Start of xcircuit GUI configuration file. # This file is sourced by "xcircuit.tcl" (".wishrc") #------------------------------------------------------------------------- # This script sets up all the xcircuit windows and callback functions. # The callback routines are in the shared object file xcwrap.so # #------------------------------- # Main xcircuit drawing window #------------------------------- proc xcircuit::new_window { name } { global XCIRCUIT_VERSION XCIRCUIT_REVISION XCOps XCWinOps tcl_platform toplevel $name wm title $name XCircuit wm group $name . wm protocol $name WM_DELETE_WINDOW \ "xcircuit::closewindow ${name}.mainframe.mainarea.drawing" # All the internal frames frame ${name}.menubar frame ${name}.infobar frame ${name}.mainframe grid propagate ${name} false grid ${name}.menubar -sticky news -row 0 -column 0 grid ${name}.mainframe -sticky news -row 1 -columnspan 2 grid ${name}.infobar -sticky news -row 2 -columnspan 2 grid rowconfigure ${name} 0 -weight 0 grid rowconfigure ${name} 1 -weight 1 grid rowconfigure ${name} 2 -weight 0 grid columnconfigure ${name} 0 -weight 0 grid columnconfigure ${name} 1 -weight 1 frame ${name}.mainframe.mainarea frame ${name}.mainframe.toolbar pack ${name}.mainframe.toolbar -side right -fill y pack ${name}.mainframe.mainarea -expand true -fill both set drawing ${name}.mainframe.mainarea.drawing simple $drawing -bg white -commandproc "focus $drawing ; set XCOps(focus) $name" simple ${name}.mainframe.mainarea.sbleft -width 13 simple ${name}.mainframe.mainarea.sbbottom -height 13 simple ${name}.mainframe.mainarea.corner -width 13 -height 13 # The drawing area and its scrollbars grid ${name}.mainframe.mainarea.sbleft -row 0 -column 0 -sticky ns grid ${name}.mainframe.mainarea.sbbottom -row 1 -column 1 -sticky ew grid $drawing -row 0 -column 1 -sticky news grid ${name}.mainframe.mainarea.corner -row 1 -column 0 -sticky news grid rowconfigure ${name}.mainframe.mainarea 0 -weight 1 grid columnconfigure ${name}.mainframe.mainarea 1 -weight 1 # The top menu and message bar menubutton ${name}.menubar.filebutton -text File \ -menu ${name}.menubar.filebutton.filemenu menubutton ${name}.menubar.editbutton -text Edit \ -menu ${name}.menubar.editbutton.editmenu menubutton ${name}.menubar.textbutton -text Text \ -menu ${name}.menubar.textbutton.textmenu menubutton ${name}.menubar.optionsbutton -text Options \ -menu ${name}.menubar.optionsbutton.optionsmenu menubutton ${name}.menubar.windowbutton -text Window \ -menu ${name}.menubar.windowbutton.windowmenu menubutton ${name}.menubar.netlistbutton -text Netlist \ -menu ${name}.menubar.netlistbutton.netlistmenu grid ${name}.menubar.filebutton ${name}.menubar.editbutton \ ${name}.menubar.textbutton ${name}.menubar.optionsbutton \ ${name}.menubar.windowbutton ${name}.menubar.netlistbutton \ -ipadx 10 -sticky news # The top message bar label ${name}.message -text \ "Welcome to Xcircuit v${XCIRCUIT_VERSION} rev ${XCIRCUIT_REVISION}" \ -justify left -anchor w grid ${name}.message -row 0 -column 1 -sticky news -ipadx 10 button ${name}.infobar.symb -text "Symbol" -bg gray30 -fg white button ${name}.infobar.schem -text "Schematic" -bg red -fg white button ${name}.infobar.mode -text "Wire Mode" -bg skyblue2 -fg gray20 label ${name}.infobar.message1 -text "Editing: Page 1" label ${name}.infobar.message2 -text "Grid 1/6 in : Snap 1/12 in" \ -justify left -anchor w pack ${name}.infobar.symb ${name}.infobar.schem ${name}.infobar.message1 \ ${name}.infobar.mode -side left -ipadx 6 -fill y pack ${name}.infobar.message2 -ipadx 6 -expand true -fill both #------------------------------------------------- # Mouse hint window (if mousehints are enabled) #------------------------------------------------- if {$XCOps(mousehints) == 0} { bind ${name}.infobar.mode {xcircuit::enable_mousehints} } elseif {$XCOps(mousehints) == 1} { xcircuit::mousehint_create ${name} } #------------------------------------------------- # Create the menus, toolbar and associated tools #------------------------------------------------- xcircuit::makemenus $name xcircuit::createtoolbar $name xcircuit::arrangetoolbar $name xcircuit::allcolorbuttons $name xcircuit::allfontbuttons $name #----------------------------------------------------------------- # Add key and button bindings for XCircuit commands (standard actions) # These can be overridden by binding to specific keys and/or buttons. #----------------------------------------------------------------- bind $drawing {standardaction %b down %s} bind $drawing {standardaction %b up %s} bind $drawing {standardaction %k down %s} bind $drawing {standardaction %k up %s} # Here are some extra key functions that come with the TCL wrapper bind $drawing {catch {page [expr {[page] + 1}]}} bind $drawing {catch {page [expr {[page] - 1}]}} bind $drawing {xcircuit::prompteditparams} xcircuit::keybind {if {[select get] == {}} \ {select here; element lower; deselect} else {element lower}; \ refresh} $drawing xcircuit::keybind {if {[select get] == {}} \ {select here; element raise; deselect} else {element raise}; \ refresh} $drawing # Bind numbers 1-9 and 0 so that they call the Tcl "page" command, # and so can take advantage of the tag callback to "pageupdate". xcircuit::keybind {page 1} $drawing xcircuit::keybind {page 2} $drawing xcircuit::keybind {page 3} $drawing xcircuit::keybind {page 4} $drawing xcircuit::keybind {page 5} $drawing xcircuit::keybind {page 6} $drawing xcircuit::keybind {page 7} $drawing xcircuit::keybind {page 8} $drawing xcircuit::keybind {page 9} $drawing xcircuit::keybind {page 10} $drawing # These are supposed to disable the scroll wheel on the scrollbars. . . if {$tcl_platform(platform) == "windows"} { bind $name \ "catch {config focus ${drawing} ; focus ${drawing}; \ set XCOps(focus) ${name} ; xcircuit::updatedialog}" bind ${name}.mainframe.mainarea.sbleft {} bind ${name}.mainframe.mainarea.sbbottom {} } else { bind $drawing {focus %W} bind $name "catch {config focus $drawing ; \ set XCOps(focus) ${name} ; xcircuit::updatedialog}" bind ${name}.mainframe.mainarea.sbleft {} bind ${name}.mainframe.mainarea.sbleft {} bind ${name}.mainframe.mainarea.sbbottom {} bind ${name}.mainframe.mainarea.sbbottom {} } # Window-specific variable defaults (variables associated with toggle # and radio buttons, etc.). Note that we really should set these # defaults for the first window only, and subsequent windows should # inherit values from the first window. set XCWinOps(${name},button1) None set XCWinOps(${name},colorval) inherit set XCWinOps(${name},jhoriz) left set XCWinOps(${name},jvert) bottom set XCWinOps(${name},justif) left set XCWinOps(${name},linestyle) solid set XCWinOps(${name},fillamount) 0 set XCWinOps(${name},opaque) false set XCWinOps(${name},polyedittype) manhattan set XCWinOps(${name},pathedittype) tangents set XCWinOps(${name},showgrid) true set XCWinOps(${name},showsnap) true set XCWinOps(${name},showaxes) true set XCWinOps(${name},showbbox) false set XCWinOps(${name},fontfamily) Helvetica set XCWinOps(${name},fontstyle) normal set XCWinOps(${name},fontencoding) ISOLatin1 set XCWinOps(${name},fontlining) normal set XCWinOps(${name},fontscript) normal set XCWinOps(${name},gridstyle) "internal units" set XCWinOps(${name},flipinvariant) true set XCWinOps(${name},pinvisible) false set XCWinOps(${name},showclipmasks) show set XCWinOps(${name},latexmode) false set XCWinOps(${name},colorscheme) normal set XCWinOps(${name},editinplace) true set XCWinOps(${name},pinpositions) invisible set XCWinOps(${name},pinattach) false set XCWinOps(${name},namespaces) false set XCWinOps(${name},centerobject) true set XCWinOps(${name},manhattandraw) false set XCWinOps(${name},polyclosed) closed set XCWinOps(${name},scaleinvariant) invariant set XCWinOps(${name},endcaps) round set XCWinOps(${name},bboxtype) false set XCWinOps(${name},clipmask) false set XCWinOps(${name},substringparam) false set XCWinOps(${name},numericparam) false set XCWinOps(${name},expressparam) false set XCWinOps(${name},xposparam) false set XCWinOps(${name},yposparam) false set XCWinOps(${name},styleparam) false set XCWinOps(${name},anchorparam) false set XCWinOps(${name},startparam) false set XCWinOps(${name},endparam) false set XCWinOps(${name},radiusparam) false set XCWinOps(${name},minorparam) false set XCWinOps(${name},rotationparam) false set XCWinOps(${name},scaleparam) false set XCWinOps(${name},linewidthparam) false set XCWinOps(${name},colorparam) false set XCWinOps(${name},sel_lab) true set XCWinOps(${name},sel_inst) true set XCWinOps(${name},sel_poly) true set XCWinOps(${name},sel_arc) true set XCWinOps(${name},sel_spline) true set XCWinOps(${name},sel_graphic) true set XCWinOps(${name},sel_path) true set XCWinOps(${name},labeltype) Text set XCWinOps(${name},labelimage) img_t set XCWinOps(${name},rotateamount) 15 #----------------------------------------------------------------- # The "catch" statement here allows "i" and "I" to have other bindings for # normal mode (e.g., "I" for "make info label") when nothing is selected. #----------------------------------------------------------------- xcircuit::keybind i {if {[catch {xcircuit::autoincr}]} \ {standardaction %k down %s}} $drawing xcircuit::keybind I {if {[catch {xcircuit::autoincr -1}]} \ {standardaction %k down %s}} $drawing #----------------------------------------------------------------- # Function bindings for the mouse scroll wheel. # Note that Windows uses MouseWheel and direction passed as %D, # while Linux uses Button-4 and Button-5. #----------------------------------------------------------------- if {$tcl_platform(platform) == "windows"} { xcircuit::keybind {if { %D/120 >= 1} \ {pan up 0.1 ; refresh} else {pan down 0.1 ; refresh}} $drawing xcircuit::keybind {if { %D/120 >= 1} \ {pan left 0.1 ; refresh} else {pan right 0.1 ; refresh}} $drawing xcircuit::keybind {if { %D/120 >= 1} \ {zoom in ; refresh} else {zoom out ; refresh}} $drawing } else { xcircuit::keybind { pan up 0.05 ; refresh} $drawing xcircuit::keybind { pan down 0.05 ; refresh} $drawing xcircuit::keybind { pan left 0.05 ; refresh} $drawing xcircuit::keybind { pan right 0.05 ; refresh} $drawing xcircuit::keybind { zoom in ; refresh} $drawing xcircuit::keybind { zoom out ; refresh} $drawing } #----------------------------------------------------------------- # Evaluate registered callback procedures #----------------------------------------------------------------- catch {eval $XCOps(callback)} catch {eval $XCWinOps(${name}, callback)} } #---------------------------------------------------------------------- # Delete a window. #---------------------------------------------------------------------- proc xcircuit::closewindow {name} { global XCOps set winlist [config windownames] if {[llength $winlist] > 1} { if {[lsearch $winlist $name] != -1} { config delete $name set newwin [lindex [config windownames] 0] destroy [winfo top $name] config focus $newwin set XCOps(focus) [winfo top $newwin] } } else { quit } } #---------------------------------------------------------------------- # Create a new window, and set it to the same page as the current one. #---------------------------------------------------------------------- proc xcircuit::forkwindow {} { set suffix [llength [config windownames]] set newname .xcircuit${suffix} xcircuit::new_window $newname config init $newname } #---------------------------------------------------------------------- # Find the geometry position that centers a window on the cursor # position #---------------------------------------------------------------------- proc xcircuit::centerwin {wname} { set xmax [expr {[winfo screenwidth $wname] - 10}] set ymax [expr {[winfo screenheight $wname] - 35}] ;# allow for titlebar height set x [winfo pointerx $wname] set y [winfo pointery $wname] tkwait visibility $wname set w [winfo width $wname] set h [winfo height $wname] set x [expr $x - $w / 2] set y [expr $y - $h / 2] if {$x < 10} {set x 10} if {$y < 10} {set y 10} if {[expr {$x + $w}] > $xmax} {set x [expr {$xmax - $w}]} if {[expr {$y + $h}] > $ymax} {set y [expr {$ymax - $h}]} if {$x > 0} {set x "+$x"} if {$y > 0} {set y "+$y"} wm geometry $wname $x$y } #---------------------------------------------------------------------- # Message handling. Assumes that windows are named # 1) "pagename" where the page name is printed # 2) "coordinates" where the coordinates are printed # 3) "status" the general-purpose status and message line. #---------------------------------------------------------------------- proc xcircuit::print {wname string} { global XCOps set window $XCOps(focus) switch -glob ${wname} { page* { ${window}.infobar.message1 configure -text ${string} } coord* { ${window}.message configure -text ${string} } mes* - stat* { ${window}.infobar.message2 configure -text ${string} } } } proc xcircuit::getinitstate {wname} { if [winfo exists $wname] { set wstate [wm state $wname] } else { set wstate "none" } return $wstate } #---------------------------------------------------------------------- # Support procedures for tag callbacks #---------------------------------------------------------------------- proc xcircuit::popupdialog {{w .dialog}} { set wstate [xcircuit::getinitstate ${w}] xcircuit::removelists ${w} wm deiconify ${w} if {"$wstate" != "normal"} {centerwin ${w}} raise ${w} focus ${w}.textent.txt } proc xcircuit::popupfilelist {{w .filelist}} { set wstate [xcircuit::getinitstate ${w}] xcircuit::removelists ${w} wm deiconify ${w} centerwin ${w} raise ${w} focus ${w}.textent.txt } #---------------------------------------------------------------------- # A refined "page size" that keeps a lid on the numerical precision # out of Tcl. . . #---------------------------------------------------------------------- proc xcircuit::getpagesize {} { set slist [xcircuit::page size] set coordstyle [lindex $slist 3] if {$coordstyle == "cm"} { # Round centimeter coords to the nearest 0.1 set xcm [lindex $slist 0] set xcm [expr {round($xcm * 10.0) / 10.0}] set slist [lreplace $slist 0 0 $xcm] set ycm [lindex $slist 2] set ycm [expr {round($ycm * 10.0) / 10.0}] set slist [lreplace $slist 2 2 $ycm] } elseif {$coordstyle == "in"} { # Round inch coords to the nearest 1/8 set xin [lindex $slist 0] set xin [expr {round($xin * 8.0) / 8.0}] set slist [lreplace $slist 0 0 $xin] set yin [lindex $slist 2] set yin [expr {round($yin * 8.0) / 8.0}] set slist [lreplace $slist 2 2 $yin] } return $slist } #---------------------------------------------------------------------- # This procedure configures the sheet size according to the page # dimensions (if they match, within reason) #---------------------------------------------------------------------- proc xcircuit::setsheetsize {} { global XCOps set slist [xcircuit::getpagesize] set coordstyle [lindex $slist 3] if {$coordstyle == "cm"} { set xcm [lindex $slist 0] set ycm [lindex $slist 2] if {$xcm == 21.0 && $ycm == 29.7} { set XCOps(sheetsize) a4 .output.textent.txtf.sizb configure -text "A4" } elseif {$xcm == 29.7 && $ycm == 42.0} { set XCOps(sheetsize) a3 .output.textent.txtf.sizb configure -text "A3" } elseif {$xcm == 14.8 && $ycm == 18.4} { set XCOps(sheetsize) a5 .output.textent.txtf.sizb configure -text "A5" } elseif {$xcm == 25.7 && $ycm == 36.4} { set XCOps(sheetsize) b4 .output.textent.txtf.sizb configure -text "B4" } elseif {$xcm == 18.2 && $ycm == 25.7} { set XCOps(sheetsize) b5 .output.textent.txtf.sizb configure -text "B5" } else { set XCOps(sheetsize) special .output.textent.txtf.sizb configure -text "Special" } } elseif {$coordstyle == "in"} { set xin [lindex $slist 0] set yin [lindex $slist 2] if {$xin == 8.5 && $yin == 11.0} { set XCOps(sheetsize) letter .output.textent.txtf.sizb configure -text Letter } elseif {$xin == 8.5 && $yin == 14.0} { set XCOps(sheetsize) legal .output.textent.txtf.sizb configure -text Legal } elseif {$xin == 5.5 && $yin == 8.5} { set XCOps(sheetsize) statement .output.textent.txtf.sizb configure -text Statement } elseif {$xin == 11.0 && $yin == 17.0} { set XCOps(sheetsize) tabloid .output.textent.txtf.sizb configure -text Tabloid } elseif {$xin == 17.0 && $yin == 11.0} { set XCOps(sheetsize) ledger .output.textent.txtf.sizb configure -text Ledger } elseif {$xin == 8.5 && $yin == 13.0} { set XCOps(sheetsize) folio .output.textent.txtf.sizb configure -text Folio } elseif {$xin == 10.0 && $yin == 14.0} { set XCOps(sheetsize) tenfourteen .output.textent.txtf.sizb configure -text 10x14 } elseif {$xin == 7.5 && $yin == 10.0} { set XCOps(sheetsize) executive .output.textent.txtf.sizb configure -text Executive } elseif {$xin == 17.0 && $yin == 22.0} { set XCOps(sheetsize) ansic .output.textent.txtf.sizb configure -text "ANSI C" } elseif {$xin == 22.0 && $yin == 34.0} { set XCOps(sheetsize) ansid .output.textent.txtf.sizb configure -text "ANSI D" } elseif {$xin == 34.0 && $yin == 44.0} { set XCOps(sheetsize) ansie .output.textent.txtf.sizb configure -text "ANSI E" } else { set XCOps(sheetsize) special .output.textent.txtf.sizb configure -text "Special" } } } #---------------------------------------------------------------------- # This procedure configures the output properties window according to # the page mode (full or encapsulated) #---------------------------------------------------------------------- proc xcircuit::setpstype {mode} { global XCOps switch -- $mode { {eps} { .output.textent.butp configure -text "Embedded (EPS)" grid remove .output.textent.but7 grid remove .output.textent.butf grid remove .output.textent.txtf } {full} {.output.textent.butp configure -text "Full Page" grid .output.textent.but7 -row 6 -column 3 -pady 5 -ipadx 10 grid .output.textent.butf -row 5 -column 2 -padx 10 grid .output.textent.txtf -row 6 -column 2 -sticky ew -padx 10 } } set XCOps(pstype) $mode xcircuit::page encapsulation $mode } #---------------------------------------------------------------------- proc xcircuit::dolinks {} { global XCOps set ilinks [xcircuit::page links independent] if {$ilinks > 1} { set XCOps(imultiple) 1 } else { set XCOps(imultiple) 0 } if {$ilinks == 1} { set plural ""} else { set plural "s"} .output.title.imulti configure -text "$ilinks schematic$plural" if {$XCOps(dmultiple) == 1} { set dlinks [xcircuit::page links dependent] } else { set dlinks 0 } if {$dlinks == 1} { set plural ""} else { set plural "s"} .output.title.dmulti configure -text "$dlinks subcircuit$plural" } #---------------------------------------------------------------------- proc xcircuit::setlinksmenu {} { set m .output.textent.butl.linksmenu $m delete 0 end $m add radio -label "None" -variable XCOps(links) -command \ {.output.textent.butl configure -text None ; \ xcircuit::page filename {}} if {![catch {set plist [xcircuit::page list]}]} { set fnames {} foreach p $plist { set pfile [xcircuit::page $p filename] if {"$pfile" != ""} { lappend fnames $pfile } } foreach f [lsort -uniq $fnames] { $m add radio -label $f -variable XCOps(links) \ -command ".output.textent.butl configure -text $f ; \ xcircuit::page filename $f" } } .output.textent.butl configure -text "(change)" } #---------------------------------------------------------------------- proc xcircuit::pageupdate { {subcommand "none"} } { global XCOps if {[info level] <= 1} { switch -- $subcommand { save { .output.bbar.okay configure -text "Done" .output.bbar.okay configure -command {wm withdraw .output} } make { xcircuit::newpagebutton [xcircuit::page label] } default { .output.title.field configure -text \ "PostScript output properties (Page [xcircuit::page])" set fname [xcircuit::page filename] if {$fname == ""} {set fname [xcircuit::page label]} .output.textent.but1 configure -text Apply .output.textent.but2 configure -text Apply .output.textent.but3 configure -text Apply .output.textent.but4 configure -text Apply .output.textent.but5 configure -text Apply .output.textent.but7 configure -text Apply .output.textent.txt1 delete 0 end .output.textent.txt1 insert 0 $fname .output.textent.txt2 delete 0 end .output.textent.txt2 insert 0 [xcircuit::page label] .output.textent.txt3 delete 0 end set stext [format "%g" [xcircuit::page scale]] .output.textent.txt3 insert 0 $stext .output.textent.txt4 delete 0 end set wtext [format "%g" [xcircuit::page width]] .output.textent.txt4 insert 0 $wtext .output.textent.txt4 insert end " " .output.textent.txt4 insert end [xcircuit::coordstyle get] .output.textent.txt5 delete 0 end set htext [format "%g" [xcircuit::page height]] .output.textent.txt5 insert 0 $htext .output.textent.txt5 insert end " " .output.textent.txt5 insert end [xcircuit::coordstyle get] .output.textent.txtf.txtp delete 0 end .output.textent.txtf.txtp insert 0 [xcircuit::getpagesize] xcircuit::setpstype [xcircuit::page encapsulation] set XCOps(orient) [xcircuit::page orientation] if {$XCOps(orient) == 0} { .output.textent.buto configure -text Portrait } else { .output.textent.buto configure -text Landscape } xcircuit::dolinks xcircuit::setlinksmenu xcircuit::setsheetsize set XCOps(autofit) [xcircuit::page fit] if {[string match *.* $fname] == 0} {append fname .ps} if {[glob -nocomplain ${fname}] == {}} { .output.bbar.okay configure -text "Write File" } else { .output.bbar.okay configure -text "Overwrite File" } .output.bbar.okay configure -command \ {.output.textent.but1 invoke; \ .output.textent.but2 invoke; \ if {$XCOps(autofit)} {xcircuit::page fit true}; \ if {$XCOps(dmultiple) == 1} {xcircuit::page save} else { \ xcircuit::page saveonly }; wm withdraw .output} } } } } #---------------------------------------------------------------------- # Update the GUI based on the schematic class of the current page # This is called internally from the xcircuit code and the function # must be defined, even if it is a null proc. #---------------------------------------------------------------------- proc xcircuit::setsymschem {} { global XCOps set window $XCOps(focus) if {[info level] <= 1} { set schemtype [xcircuit::schematic type] set symschem [xcircuit::schematic get] set m ${window}.menubar.netlistbutton.netlistmenu switch -- $schemtype { primary - secondary - schematic { ${window}.infobar.schem configure -background red -foreground white if {$symschem == {}} { ${window}.infobar.symb configure -background gray70 \ -foreground gray40 $m entryconfigure 5 -label "Make Matching Symbol" \ -command {xcircuit::promptmakesymbol [page label]} $m entryconfigure 6 -label "Associate With Symbol" \ -command {xcircuit::symbol associate} } else { ${window}.infobar.symb configure -background white -foreground black $m entryconfigure 5 -label "Go To Symbol" \ -command {xcircuit::symbol go} $m entryconfigure 6 -label "Disassociate Symbol" \ -command {xcircuit::symbol disassociate} } } symbol - fundamental - trivial { ${window}.infobar.symb configure -foreground white if {$symschem == {}} { ${window}.infobar.schem configure -background gray70 -foreground \ gray40 $m entryconfigure 5 -label "Make Matching Schematic" \ -command {xcircuit::schematic make} $m entryconfigure 6 -label "Associate With Schematic" \ -command {xcircuit::schematic associate} } else { ${window}.infobar.schem configure -background white -foreground black $m entryconfigure 5 -label "Go To Schematic" \ -command {xcircuit::schematic go} $m entryconfigure 6 -label "Disassociate Schematic" \ -command {xcircuit::schematic disassociate} } } } switch -- $schemtype { trivial { ${window}.infobar.symb configure -background red } fundamental { ${window}.infobar.symb configure -background green4 ;# bboxcolor } symbol { ${window}.infobar.symb configure -background blue2 } } } } #---------------------------------------------------------------------- # Set the coordinate style to inches from cm and vice versa. # This routine avoids switching from fractional to decimal inches # and vice versa if we are already in one of the two inches modes. # # with no argument, or argument "get", returns the "short" name # ("cm" or "in") of the style. #---------------------------------------------------------------------- proc xcircuit::coordstyle { { mode get } } { global XCOps XCWinOps set curstyle [xcircuit::config coordstyle] switch -- $mode { inches { switch -- $curstyle { centimeters { xcircuit::config coordstyle "decimal inches" xcircuit::pageupdate } } } centimeters - cm { switch -- $curstyle { centimeters { } default { xcircuit::config coordstyle "centimeters" xcircuit::pageupdate } } } get { switch -- $curstyle { centimeters { return "cm" } default { return "in" } } } } } #---------------------------------------------------------------------- proc xcircuit::raiseconsole {} { global XCOps set window $XCOps(focus) xcircuit::consoleup xcircuit::consoleontop set cidx [${window}.menubar.filebutton.filemenu index *Console] ${window}.menubar.filebutton.filemenu entryconfigure \ $cidx -label "No Console" -command {xcircuit::lowerconsole} } #---------------------------------------------------------------------- proc xcircuit::lowerconsole {} { global XCOps set window $XCOps(focus) xcircuit::consoledown set cidx [${window}.menubar.filebutton.filemenu index *Console] ${window}.menubar.filebutton.filemenu entryconfigure \ $cidx -label "Tcl Console" -command {xcircuit::raiseconsole} } #---------------------------------------------------------------------- # Command tags---these let the command-line entry functions update the # Tk windows, so that the Tk window structure doesn't need to be hard- # coded into the source. #---------------------------------------------------------------------- xcircuit::tag page {xcircuit::pageupdate %1 ; xcircuit::updateparams} xcircuit::tag promptsavepage {xcircuit::pageupdate ; set wstate [xcircuit::getinitstate .output] ; wm deiconify .output ; if {"$wstate" != "normal"} {xcircuit::centerwin .output} ; raise .output} xcircuit::tag loadfont {xcircuit::newfontbutton %r} xcircuit::tag color { if {"%1" == "set"} { set XCWinOps($XCOps(focus),colorval) %2; set iname img_co; if {"%2" != "inherit"} {append iname l%2} ; $XCOps(focus).mainframe.toolbar.bco configure -image $iname} } xcircuit::tag border {if {%# == 2} { switch -- %1 { dashed { set XCWinOps($XCOps(focus),linestyle) dashed} dotted { set XCWinOps($XCOps(focus),linestyle) dotted} unbordered { set XCWinOps($XCOps(focus),linestyle) unbordered} solid { set XCWinOps($XCOps(focus),linestyle) solid} square { set XCWinOps($XCOps(focus),endcaps) square} round { set XCWinOps($XCOps(focus),endcaps) round} closed { set XCWinOps($XCOps(focus),polyclosed) closed} unclosed { set XCWinOps($XCOps(focus),polyclosed) unclosed} }} elseif {%# == 3} { switch -- %1 { bbox { set XCWinOps($XCOps(focus),bboxtype) %2} clipmask { set XCWinOps($XCOps(focus),clipmask) %2} }}} xcircuit::tag fill { foreach i %N { switch -- "$i" { opaque { set XCWinOps($XCOps(focus),opaque) true } transparent { set XCWinOps($XCOps(focus),opaque) false } 0 - unfilled {set XCWinOps($XCOps(focus),fillamount) 0; $XCOps(focus).mainframe.toolbar.bfi configure -image img_fi} solid {set XCWinOps($XCOps(focus),fillamount) 100; $XCOps(focus).mainframe.toolbar.bfi configure -image img_stip100} default {set XCWinOps($XCOps(focus),fillamount) $i; $XCOps(focus).mainframe.toolbar.bfi configure -image img_stip$i} } } } xcircuit::tag select {if {%N > 1} {xcircuit::updateparams; xcircuit::updatedialog}} xcircuit::tag unselect {xcircuit::updateparams; xcircuit::updatedialog} xcircuit::tag schematic {xcircuit::setsymschem} xcircuit::tag symbol {xcircuit::setsymschem} xcircuit::tag parameter { if {"%1" == "make"} {set cond true} else {set cond false} switch %1 { set - forget - delete {xcircuit::updateparams} make - replace {switch -- "%2" { "x position" {set XCWinOps($XCOps(focus),xposparam) $cond} "y position" {set XCWinOps($XCOps(focus),yposparam) $cond} style {set XCWinOps($XCOps(focus),styleparam) $cond} "start angle" {set XCWinOps($XCOps(focus),startparam) $cond} "end angle" {set XCWinOps($XCOps(focus),endparam) $cond} anchoring {set XCWinOps($XCOps(focus),anchorparam) $cond} radius {set XCWinOps($XCOps(focus),radiusparam) $cond} "minor axis" {set XCWinOps($XCOps(focus),minorparam) $cond} rotation {set XCWinOps($XCOps(focus),rotationparam) $cond} scale {set XCWinOps($XCOps(focus),scaleparam) $cond} linewidth {set XCWinOps($XCOps(focus),linewidthparam) $cond} color {set XCWinOps($XCOps(focus),colorparam) $cond} default {xcircuit::updateparams} }} default {if {%# == 4} {xcircuit::updateparams}} }} xcircuit::tag config {if {%# == 3} { switch -- %1 { colorscheme {set XCWinOps($XCOps(focus),colorscheme) [config colorscheme]; refresh} bbox {set XCWinOps($XCOps(focus),showbbox) [config bbox]} editinplace {set XCWinOps($XCOps(focus),editinplace) [config editinplace]} pinpositions {set XCWinOps($XCOps(focus),pinpositions) [config pinpositions]} pinattach {set XCWinOps($XCOps(focus),pinattach) [config pinattach]} technologies {set XCWinOps($XCOps(focus),namespaces) [config technologies]} hold {set XCOps(hold) [config hold]} grid {catch {set XCWinOps($XCOps(focus),showgrid) [config grid]}} snap {catch {set XCWinOps($XCOps(focus),showsnap) [config snap]}} axes {set XCWinOps($XCOps(focus),showaxes) [config axes]} centering {set XCWinOps($XCOps(focus),centerobject) [config centering]} manhattan {set XCWinOps($XCOps(focus),manhattandraw) [config manhattan]} coordstyle {set XCWinOps($XCOps(focus),gridstyle) [config coordstyle]} boxedit {set XCWinOps($XCOps(focus),polyedittype) [config boxedit]} pathedit {set XCWinOps($XCOps(focus),pathedittype) [config pathedit]} technologies {set XCWinOps($XCOps(focus),showtech) [config technologies]} }} elseif {(%# == 4) && ("%1" == "filter")} { set XCWinOps($XCOps(focus),sel_%2) [config filter %2] }} xcircuit::tag label {if {%# == 3} { switch -- %1 { encoding { set XCWinOps($XCOps(focus),fontencoding) %2 xcircuit::newencodingbutton %2 } family {if {"%2" != "-all"} {set XCWinOps($XCOps(focus),fontfamily) %2}} style {set XCWinOps($XCOps(focus),fontstyle) %2} anchor { switch -- %2 { top - bottom - middle {set XCWinOps($XCOps(focus),jvert) %2} default {set XCWinOps($XCOps(focus),jhoriz) %2} } } justify {set XCWinOps($XCOps(focus),justif) %2} flipinvariant {set XCWinOps($XCOps(focus),flipinvariant) %2} visible {set XCWinOps($XCOps(focus),pinvisible) %2} latex {set XCWinOps($XCOps(focus),latexmode) %2} }} elseif {(%# == 4) && ("%1" == "anchor")} { switch -- %2 { top - bottom - middle {set XCWinOps($XCOps(focus),jvert) %2 ; set XCWinOps($XCOps(focus),jhoriz) %3} default {set XCWinOps($XCOps(focus),jhoriz) %2 ; set XCWinOps($XCOps(focus),jvert) %3} } }} #------------------------------ # Create the file-list window #------------------------------ # First, set the variables associated with toggle and radio buttons set XCOps(filter) 1 toplevel .filelist -bg beige wm title .filelist "File List Window" wm group .filelist . wm protocol .filelist WM_DELETE_WINDOW {wm withdraw .filelist} wm withdraw .filelist frame .filelist.listwin frame .filelist.textent -bg beige frame .filelist.bbar -bg beige pack .filelist.listwin -side top -padx 20 -pady 7 -expand true -fill both pack .filelist.textent -side top -padx 20 -pady 7 -fill x pack .filelist.bbar -side bottom -padx 20 -pady 7 -fill x simple .filelist.listwin.win -bg white simple .filelist.listwin.sb -width 13 -bg beige grid .filelist.listwin.win -row 0 -column 0 -sticky news -padx 1 -pady 1 grid .filelist.listwin.sb -row 0 -column 1 -sticky ns -padx 1 -pady 1 grid columnconfigure .filelist.listwin 0 -weight 1 -minsize 100 grid rowconfigure .filelist.listwin 0 -weight 1 -minsize 100 frame .filelist.textent.title -bg beige pack .filelist.textent.title -side top -fill x label .filelist.textent.title.field -text "Select file to load:" -bg beige label .filelist.textent.title.chklabel -text "Filter" -bg beige checkbutton .filelist.textent.title.filter -bg beige -variable XCOps(filter) \ -command {event generate .filelist.listwin.win -button 3 ; \ event generate .filelist.listwin.win -button 3} entry .filelist.textent.txt -bg white -relief sunken -width 50 pack .filelist.textent.title.filter -side right pack .filelist.textent.title.chklabel -side right pack .filelist.textent.title.field -side left pack .filelist.textent.txt -side bottom -fill x -expand true button .filelist.bbar.okay -text Okay -bg beige button .filelist.bbar.cancel -text Cancel -bg beige -command {wm withdraw .filelist} pack .filelist.bbar.okay -side left -ipadx 10 pack .filelist.bbar.cancel -side right -ipadx 10 # Allow to update or accept entry bind .filelist.textent.txt \ {event generate .filelist.listwin.win -button 2 ; \ event generate .filelist.listwin.win -button 2} #-------------------------------------- # Create the output generating window #-------------------------------------- # First, set the variables associated with toggle and radio buttons set XCOps(autofit) 0 set XCOps(imultiple) 0 set XCOps(dmultiple) 0 ;# don't save subcircuits with different filenames if {[catch {set XCOps(technology)}]} {set XCOps(technology) "(user)"} if {[catch {set XCOps(library)}]} {set XCOps(library) "User Library"} toplevel .output -bg beige wm title .output "PostScript Output Properties" wm group .output . wm protocol .output WM_DELETE_WINDOW {wm withdraw .output} wm withdraw .output frame .output.title -bg beige frame .output.textent -bg beige frame .output.bbar -bg beige pack .output.title -side top -padx 20 -pady 7 -fill x pack .output.textent -side top -padx 20 -pady 7 -fill x pack .output.bbar -side bottom -padx 20 -pady 7 -fill x label .output.title.field -text "PostScript output properties (Page 1):" -bg tan checkbutton .output.title.imulti -text "1 schematic" -bg beige \ -variable XCOps(imultiple) \ -command {xcircuit::dolinks ; \ if {$XCOps(imultiple) == 1} {.output.textent.txt1 \ delete 0 end; .output.textent.but1 configure -text Apply; xcircuit::page \ filename {}; focus .output.textent.txt1 ; xcircuit::dolinks }} checkbutton .output.title.dmulti -text "0 subcircuits" -bg beige \ -variable XCOps(dmultiple) \ -command {xcircuit::dolinks ; .output.textent.but1 configure -text Apply; \ if {$XCOps(dmultiple) == 1} {xcircuit::page filename {}; \ .output.textent.txt1 delete 0 end; focus .output.textent.txt1 }; \ xcircuit::dolinks } pack .output.title.dmulti -side right -padx 5 pack .output.title.imulti -side right -padx 5 pack .output.title.field -side left label .output.textent.lab1 -text "Filename:" -bg beige label .output.textent.lab2 -text "Page label:" -bg beige label .output.textent.lab3 -text "Scale:" -bg beige label .output.textent.lab4 -text "Width:" -bg beige label .output.textent.lab5 -text "Height:" -bg beige label .output.textent.lab6 -text "Orientation:" -bg beige label .output.textent.lab7 -text "Mode:" -bg beige label .output.textent.lab8 -text "Link to:" -bg beige entry .output.textent.txt1 -bg white -relief sunken -width 20 entry .output.textent.txt2 -bg white -relief sunken -width 20 entry .output.textent.txt3 -bg white -relief sunken -width 20 entry .output.textent.txt4 -bg white -relief sunken -width 20 entry .output.textent.txt5 -bg white -relief sunken -width 20 menubutton .output.textent.buto -text Portrait -bg beige \ -menu .output.textent.buto.orientmenu menubutton .output.textent.butp -text "Embedded (EPS)" -bg beige \ -menu .output.textent.butp.psmenu menubutton .output.textent.butl -text "(change)" -bg beige \ -menu .output.textent.butl.linksmenu checkbutton .output.textent.butf -text "Auto-fit" -bg beige \ -variable XCOps(autofit) -onvalue true -offvalue false \ -command {xcircuit::page fit $XCOps(autofit)} frame .output.textent.txtf -bg beige menubutton .output.textent.txtf.sizb -text "Sizes" -bg beige \ -menu .output.textent.txtf.sizb.sizemenu entry .output.textent.txtf.txtp -bg white -relief sunken -width 14 pack .output.textent.txtf.txtp -side left -fill y pack .output.textent.txtf.sizb -side left button .output.textent.but1 -text Apply -bg beige \ -command {xcircuit::page filename [.output.textent.txt1 get] if {[llength [xcircuit::page label]] > 1} { xcircuit::page label [file root [.output.textent.txt1 get]]};\ .output.textent.but1 configure -text Okay} button .output.textent.but2 -text Apply -bg beige \ -command {xcircuit::page label [.output.textent.txt2 get];\ .output.textent.but2 configure -text Okay} button .output.textent.but3 -text Apply -bg beige \ -command {xcircuit::page scale [.output.textent.txt3 get];\ .output.textent.but3 configure -text Okay} button .output.textent.but4 -text Apply -bg beige \ -command {xcircuit::page width [.output.textent.txt4 get];\ .output.textent.but4 configure -text Okay} button .output.textent.but5 -text Apply -bg beige \ -command {xcircuit::page height [.output.textent.txt5 get];\ .output.textent.but5 configure -text Okay} button .output.textent.but7 -text Apply -bg beige \ -command {xcircuit::page size [.output.textent.txtf.txtp get];\ .output.textent.but7 configure -text Okay} bind .output.textent.txt1 {.output.textent.but1 invoke} bind .output.textent.txt2 {.output.textent.but2 invoke} bind .output.textent.txt3 {.output.textent.but3 invoke} bind .output.textent.txt4 {.output.textent.but4 invoke} bind .output.textent.txt5 {.output.textent.but5 invoke} grid .output.textent.lab1 -row 0 -column 0 -sticky w grid .output.textent.lab2 -row 1 -column 0 -sticky w grid .output.textent.lab3 -row 2 -column 0 -sticky w grid .output.textent.lab4 -row 3 -column 0 -sticky w grid .output.textent.lab5 -row 4 -column 0 -sticky w grid .output.textent.lab6 -row 5 -column 0 -sticky w grid .output.textent.lab7 -row 6 -column 0 -sticky w grid .output.textent.lab8 -row 7 -column 0 -sticky w grid .output.textent.txt1 -row 0 -column 1 -columnspan 2 -sticky ew -padx 10 grid .output.textent.txt2 -row 1 -column 1 -columnspan 2 -sticky ew -padx 10 grid .output.textent.txt3 -row 2 -column 1 -columnspan 2 -sticky ew -padx 10 grid .output.textent.txt4 -row 3 -column 1 -columnspan 2 -sticky ew -padx 10 grid .output.textent.txt5 -row 4 -column 1 -columnspan 2 -sticky ew -padx 10 grid .output.textent.buto -row 5 -column 1 -sticky w -padx 10 grid .output.textent.butp -row 6 -column 1 -sticky w -padx 10 grid .output.textent.butl -row 7 -column 1 -sticky w -padx 10 grid .output.textent.but1 -row 0 -column 3 -pady 5 -ipadx 10 grid .output.textent.but2 -row 1 -column 3 -pady 5 -ipadx 10 grid .output.textent.but3 -row 2 -column 3 -pady 5 -ipadx 10 grid .output.textent.but4 -row 3 -column 3 -pady 5 -ipadx 10 grid .output.textent.but5 -row 4 -column 3 -pady 5 -ipadx 10 grid columnconfigure .output.textent 2 -weight 1 button .output.bbar.okay -text Okay -bg beige -command {xcircuit::page save; \ wm withdraw .output} button .output.bbar.cancel -text Cancel -bg beige -command {wm withdraw .output} # Setup simple choice menus for page type and orientation # First, set the variables associated with the radio buttons. . . set XCOps(orient) 0 set XCOps(pstype) eps set m [menu .output.textent.buto.orientmenu -tearoff 0] $m add radio -label "Portrait" -variable XCOps(orient) -value 0 -command \ {.output.textent.buto configure -text Portrait ; \ xcircuit::page orientation 0} $m add radio -label "Landscape" -variable XCOps(orient) -value 90 -command \ {.output.textent.buto configure -text Landscape ; \ xcircuit::page orientation 90} set m [menu .output.textent.butp.psmenu -tearoff 0] $m add radio -label "Embedded (EPS)" -variable XCOps(pstype) -value eps -command \ {xcircuit::setpstype eps} $m add radio -label "Full Page" -variable XCOps(pstype) -value full -command \ {xcircuit::setpstype full} menu .output.textent.butl.linksmenu -tearoff 0 xcircuit::setlinksmenu pack .output.bbar.okay -side left -ipadx 10 pack .output.bbar.cancel -side right -ipadx 10 set m [menu .output.textent.txtf.sizb.sizemenu -tearoff 0] $m add radio -label "Letter (ANSI A)" -variable XCOps(sheetsize) \ -value letter -command \ { xcircuit::coordstyle inches; xcircuit::page size "8.5 x 11.0 in"} $m add radio -label "Legal" -variable XCOps(sheetsize) -value legal -command \ { xcircuit::coordstyle inches; xcircuit::page size "8.5 x 14.0 in"} $m add radio -label "Statement" -variable XCOps(sheetsize) -value statement \ -command \ { xcircuit::coordstyle inches; xcircuit::page size "5.5 x 8.5 in"} $m add radio -label "Tabloid (ANSI B)" -variable XCOps(sheetsize) \ -value tabloid -command \ { xcircuit::coordstyle inches; xcircuit::page size "11.0 x 17.0 in"} $m add radio -label "Ledger" -variable XCOps(sheetsize) -value ledger -command \ { xcircuit::coordstyle inches; xcircuit::page size "17.0 x 11.0 in"} $m add radio -label "Folio" -variable XCOps(sheetsize) -value folio -command \ { xcircuit::coordstyle inches; xcircuit::page size "8.5 x 13.0 in"} $m add radio -label "Quarto" -variable XCOps(sheetsize) -value quarto -command \ { xcircuit::coordstyle inches; xcircuit::page size "8.472 x 10.833 in"} $m add radio -label "10x14" -variable XCOps(sheetsize) -value tenfourteen -command \ { xcircuit::coordstyle inches; xcircuit::page size "10.0 x 14.0 in"} $m add radio -label "Executive" -variable XCOps(sheetsize) -value executive -command \ { xcircuit::coordstyle inches; xcircuit::page size "7.5 x 10.0 in"} $m add radio -label "ANSI C" -variable XCOps(sheetsize) -value ansic -command \ { xcircuit::coordstyle inches; xcircuit::page size "17.0 x 22.0 in"} $m add radio -label "ANSI D" -variable XCOps(sheetsize) -value ansid -command \ { xcircuit::coordstyle inches; xcircuit::page size "22.0 x 34.0 in"} $m add radio -label "ANSI E" -variable XCOps(sheetsize) -value ansie -command \ { xcircuit::coordstyle inches; xcircuit::page size "34.0 x 44.0 in"} $m add radio -label "A3" -variable XCOps(sheetsize) -value a3 -command \ { xcircuit::coordstyle centimeters; xcircuit::page size "29.7 x 42.0 cm"} $m add radio -label "A4" -variable XCOps(sheetsize) -value a4 -command \ { xcircuit::coordstyle centimeters; xcircuit::page size "21.0 x 29.7 cm"} $m add radio -label "A5" -variable XCOps(sheetsize) -value a5 -command \ { xcircuit::coordstyle centimeters; xcircuit::page size "14.82 x 18.43 cm"} $m add radio -label "B4" -variable XCOps(sheetsize) -value b4 -command \ { xcircuit::coordstyle centimeters; xcircuit::page size "25.7 x 36.4 cm"} $m add radio -label "B5" -variable XCOps(sheetsize) -value b5 -command \ { xcircuit::coordstyle centimeters; xcircuit::page size "18.2 x 25.7 cm"} $m add radio -label "Special" -variable XCOps(sheetsize) -value special} #----------------------------------------------------------------- # Clear the selection listbox. Create it if it does not exist. #----------------------------------------------------------------- proc xcircuit::make_parameter_listbox {} { if {[catch {wm state .parameter}]} { toplevel .parameter -bg beige wm group .parameter . wm withdraw .parameter label .parameter.title -text "Parameters" -bg beige label .parameter.keytitle -text "Key" -bg beige label .parameter.valtitle -text "Value" -bg beige listbox .parameter.keylist -bg white listbox .parameter.vallist -bg white listbox .parameter.parvals -bg white # Code to get the listboxes to scroll in synchrony bind .parameter.keylist {xcircuit::paramscroll -1} bind .parameter.keylist {xcircuit::paramscroll 1} bind .parameter.vallist {xcircuit::paramscroll -1} bind .parameter.vallist {xcircuit::paramscroll 1} bind .parameter.parvals {xcircuit::paramscroll -1} bind .parameter.parvals {xcircuit::paramscroll 1} # Also bind to the mouse wheel (Windows-specific, generally) bind .parameter.keylist {xcircuit::paramscroll %D} bind .parameter.vallist {xcircuit::paramscroll %D} bind .parameter.parvals {xcircuit::paramscroll %D} button .parameter.dismiss -text "Dismiss" -bg beige \ -command {wm withdraw .parameter} menubutton .parameter.delete -text "Delete..." -bg beige \ -menu .parameter.delete.deleteparam menu .parameter.delete.deleteparam -tearoff 0 menubutton .parameter.create -text "New..." -bg beige \ -menu .parameter.create.newparam menu .parameter.create.newparam -tearoff 0 .parameter.create.newparam add command -label "Substring" -command \ "xcircuit::promptmakeparam substring" .parameter.create.newparam add command -label "Numeric" -command \ "xcircuit::promptmakeparam numeric" .parameter.create.newparam add command -label "Expression" -command \ "xcircuit::promptmakeparam expression" labelframe .parameter.valedit -text "Edit value" -bg beige entry .parameter.valedit.entry -textvariable new_paramval -bg white button .parameter.valedit.apply -text "Apply" -bg beige pack .parameter.valedit.entry -side left -fill x -expand true -padx 2 pack .parameter.valedit.apply -side top grid .parameter.title -row 0 -column 0 -columnspan 2 -sticky news grid .parameter.keytitle -row 1 -column 0 -sticky news grid .parameter.keylist -row 2 -column 0 -sticky news grid .parameter.valtitle -row 1 -column 1 -sticky news grid .parameter.vallist -row 2 -column 1 -sticky news grid .parameter.parvals -row 2 -column 1 -sticky news grid .parameter.valedit -row 3 -column 0 -columnspan 2 -padx 2 \ -pady 2 -sticky ew grid .parameter.create -row 4 -column 1 -sticky ns grid .parameter.delete -row 4 -column 0 -sticky ns grid .parameter.dismiss -row 5 -column 0 -columnspan 2 -sticky ns grid rowconfigure .parameter 2 -weight 1 grid columnconfigure .parameter 0 -weight 1 grid columnconfigure .parameter 1 -weight 2 raise .parameter.vallist bind .parameter {wm withdraw .parameter} bind .parameter.valedit.entry {.parameter.valedit.apply invoke} } } #----------------------------------------------------------------- # Scroll all listboxes in the .parameter window at the same # time, in reponse to any one of them receiving a scroll event. #----------------------------------------------------------------- proc xcircuit::paramscroll {value} { global tcl_platform set idx [.parameter.keylist nearest 0] if {$tcl_platform(platform) == "windows"} { set idx [expr {$idx + $value / 120}] } else { set idx [expr {$idx + $value}] } .parameter.keylist yview $idx .parameter.vallist yview $idx .parameter.parvals yview $idx # Important! This prohibits the default binding actions. return -code break } # Update the dialog box, if it has been left visible # (Corrected 2/4/12: Don't delete contents except in these specific cases!) proc xcircuit::updatedialog {{w dialog}} { global XCOps if {[xcircuit::getinitstate .${w}] == "normal"} { switch -- $XCOps(${w}) { linewidth { set btext [format "%g" [lindex [xcircuit::border get] 0]] .${w}.textent.txt delete 0 end .${w}.textent.txt insert 0 $btext } textscale { set cscale [xcircuit::label scale] .${w}.textent.txt delete 0 end .${w}.textent.txt insert 0 $cscale } elementscale { set selects [xcircuit::select] if {$selects > 0} { set cscale [xcircuit::element scale] .${w}.textent.txt delete 0 end .${w}.textent.txt insert 0 $cscale } } } } } proc xcircuit::makedialogline {dframe textline {w dialog}} { if {[catch {frame .${w}.${dframe} -bg beige}]} { .${w}.${dframe}.title.field configure -text ${textline} } else { pack .${w}.${dframe} -side top -padx 20 -pady 7 -fill x frame .${w}.${dframe}.title -bg beige entry .${w}.${dframe}.txt -bg white -relief sunken -width 50 pack .${w}.${dframe}.title -side top -fill x pack .${w}.${dframe}.txt -side bottom -fill x -expand true label .${w}.${dframe}.title.field -text ${textline} -bg beige pack .${w}.${dframe}.title.field -side left } } proc xcircuit::removedialogline {dframe {w dialog}} { global XCOps pack forget .${w}.${dframe} destroy .${w}.${dframe} set XCOps(${w}) 0 } #-------------------------------------------- # Create a simple popup prompt window # With "Apply", "Okay", and "Cancel" buttons #-------------------------------------------- proc make_simple_dialog {name} { set window .${name} toplevel ${window} -bg beige wm title ${window} "Dialog Box" wm group ${window} . wm protocol ${window} WM_DELETE_WINDOW [subst {wm withdraw ${window}}] wm withdraw ${window} set XCOps(${name}) 0 xcircuit::makedialogline textent "Select file to load:" ${name} frame ${window}.bbar -bg beige pack ${window}.bbar -side bottom -padx 20 -pady 7 -fill x button ${window}.bbar.okay -text Okay -bg beige \ -command [subst {${window}.bbar.apply invoke ;\ wm withdraw ${window}}] button ${window}.bbar.apply -text Apply -bg beige button ${window}.bbar.cancel -text Cancel -bg beige -command \ [subst {wm withdraw ${window}}] bind ${window}.textent.txt [subst {${window}.bbar.apply invoke}] pack ${window}.bbar.okay -side left -ipadx 10 pack ${window}.bbar.apply -side left -ipadx 10 pack ${window}.bbar.cancel -side right -ipadx 10 } #-------------------------------------- # Create a query prompt window with # "Okay" and "Cancel" buttons, and a # "Select:" title message #-------------------------------------- proc make_query_dialog {name} { set window .${name} toplevel ${window} -bg beige wm title ${window} "Query Dialog Box" wm group ${window} . wm protocol ${window} WM_DELETE_WINDOW [subst {wm withdraw ${window}}] wm withdraw ${window} frame ${window}.title -bg beige frame ${window}.bbar -bg beige pack ${window}.title -side top -padx 20 -pady 7 -fill x pack ${window}.bbar -side bottom -padx 20 -pady 7 -fill x label ${window}.title.field -text "Select:" -bg beige pack ${window}.title.field -side left button ${window}.bbar.okay -text Okay -bg beige button ${window}.bbar.cancel -text Cancel -bg beige -command \ [subst {wm withdraw ${window}}] pack ${window}.bbar.okay -side left -ipadx 10 pack ${window}.bbar.cancel -side right -ipadx 10 } make_query_dialog query make_simple_dialog dialog make_simple_dialog savetech make_simple_dialog makesymbol #-------------------------------------------------------- # Generate all of the menu cascades # Most commands reference XCircuit internal routines #-------------------------------------------------------- # Supporting procedures proc xcircuit::printstring {stringlist} { set p "" foreach i $stringlist { switch -- [lindex $i 0] { Text {append p [lindex $i 1]} Half - Quarter {append p " "} } } return $p } proc xcircuit::printanchor {anchor} { switch [expr {$anchor & 3}] { 0 {set p "left"} 1 {set p "center"} 3 {set p "right"} } switch [expr {$anchor & 12}] { 0 {append p " bottom"} 4 {append p " middle"} 12 {append p " top"} } return $p } proc xcircuit::labelmakeparam {} { global XCOps if {[xcircuit::select] > 0} { ;# this should be true. . . set XCOps(dialog) paramname xcircuit::removedialogline textent2 dialog ;# default is the selected text .dialog.bbar.apply configure -command \ [subst {xcircuit::parameter make substring \[.dialog.textent.txt get\];\ xcircuit::updateparams substring}] .dialog.textent.title.field configure -text "Parameter name:" .dialog.textent.txt delete 0 end xcircuit::popupdialog } } proc xcircuit::promptmakeparam {{mode substring}} { global XCOps set XCOps(dialog) paramdefault if {$mode == "label"} {set mode substring} xcircuit::makedialogline textent2 "Default value:" dialog .dialog.bbar.apply configure -command \ [subst {xcircuit::parameter make $mode \ \[.dialog.textent.txt get\] \[.dialog.textent2.txt get\] -forward; \ xcircuit::removedialogline textent2 dialog; \ xcircuit::updateparams $mode}] .dialog.textent.title.field configure -text \ "Parameter name:" .dialog.textent.txt delete 0 end xcircuit::popupdialog } #---------------------------------------------------------------------- # This procedure generates a new index number for list selection # inside a parameter, using "regsub" and "subst" to replace the # old index with the new one. This procedure depends on the # existance of the listbox widget ".paramlist.plist". #---------------------------------------------------------------------- proc xcircuit::renewparam {key y args} { set newidx [.parameter.parvals nearest $y] set current [join [xcircuit::parameter get $key ${args} -verbatim]] regsub {(.*lindex +{.*} +)([0-9]+)(.*)} $current {\1$newidx\3} tmpkey set newkey [subst -nocommands -nobackslashes "$tmpkey"] xcircuit::parameter set $key $newkey $args } #---------------------------------------------------------------------- # Prompt for a new value of a parameter. Do some sophisticated checking # for parameters that declare a list of possible options, and handle # that situation separately. #---------------------------------------------------------------------- proc xcircuit::changeparamvalue {key current args} { .parameter.valedit.entry delete 0 end if {[xcircuit::parameter type $key -forward] == "expression"} { # Use regexp processing to find if there is some part of the expression # that chooses a single fixed value from a list. If so, generate a # listbox to present the choices in the list. set loccurnt [join [xcircuit::parameter get $key ${args} -verbatim]] if {[regexp {.*lindex +{(.*)} +[0-9]+.*} $loccurnt qall sellist] > 0} { .parameter.parvals delete 0 end raise .parameter.parvals foreach item $sellist { .parameter.parvals insert end $item } #Abort the parameter value selection bind .parameter.parvals {raise .parameter.vallist} bind .parameter.parvals [subst {xcircuit::renewparam \ $key %y $args ;\ .parameter.keylist configure -state normal ;\ xcircuit::updateparams ;\ raise .parameter.vallist}] .parameter.valedit.entry delete 0 end .parameter.valedit.entry insert 0 $loccurnt } else { # If the parameter is an expression but not a choice-list type, then # we had better print the verbatim entry, or people will just get # confused when the value becomes "invalid result:..." .parameter.valedit.entry insert 0 $loccurnt } } else { .parameter.valedit.entry insert 0 $current } focus .parameter.valedit.entry .parameter.valedit.apply configure \ -command [subst {xcircuit::parameter set \ $key \[.parameter.valedit.entry get\] \ ${args}; xcircuit::updateparams}] } #---------------------------------------------------------------------- proc xcircuit::updateparams { {mode {substring numeric expression}} } { if {[catch {wm state .parameter}]} {return} # Avoid infinite recursion if a parameter invokes updateparams # (e.g., any "page" command in a parameter will do this!) if {$mode != "force"} { if {[info level] > 1} {return} } else { set mode {substring numeric expression} } while {[.parameter.keylist size] > 0} {.parameter.keylist delete 0} while {[.parameter.vallist size] > 0} {.parameter.vallist delete 0} .parameter.delete.deleteparam delete 0 last if {$mode == "none"} { set dlist [xcircuit::parameter get -forward] } else { set dlist {} foreach i $mode { set dlist [concat $dlist [parameter get $i -forward]] } } # Ensure that the parvals list is not present if {[select] == 0} { lower .parameter.parvals } # All selections will be lost, so make sure that the value field is clear .parameter.valedit.entry delete 0 end .parameter.valedit.apply configure -command {} bind .parameter.vallist { set kidx [.parameter.keylist nearest %y]; \ xcircuit::changeparamvalue \ [.parameter.keylist get $kidx] [.parameter.vallist get $kidx] \ -forward} ;#The insertion of parameters should only be applicable in "text" mode bind .parameter.keylist { set kidx [.parameter.keylist nearest %y]; \ if {[string last "text" [xcircuit::eventmode]] >= 0} { label insert parameter [.parameter.keylist get $kidx] } } if {[catch {set oname [xcircuit::object name]}]} { .parameter.title configure -text "Parameters" } else { .parameter.title configure -text "Parameters of $oname" } foreach i $dlist { set p_name [lindex $i 0] set p_val [lindex $i 1] .parameter.delete.deleteparam add command -label $p_name -command \ "xcircuit::parameter delete $p_name -forward" .parameter.keylist insert end $p_name switch -- [xcircuit::parameter type $p_name -forward] { "substring" { .parameter.vallist insert end [xcircuit::printstring $p_val] } "anchoring" { .parameter.vallist insert end [xcircuit::printanchor $p_val] } default { .parameter.vallist insert end $p_val } } } } #---------------------------------------------------------------------- proc xcircuit::prompteditparams {} { set wstate [xcircuit::getinitstate .parameter] xcircuit::make_parameter_listbox xcircuit::updateparams force if {"$wstate" != "normal"} { wm deiconify .parameter xcircuit::centerwin .parameter } raise .parameter } #---------------------------------------------------------------------- proc xcircuit::promptmakesymbol {{name ""}} { global XCOps set XCOps(dialog) makeobject .makesymbol.bbar.apply configure -command \ {if {[string first "Page " [page label]] >= 0} { \ page label [.makesymbol.textent.txt get]}; \ xcircuit::symbol make [.makesymbol.textent.txt get] $XCOps(library)} xcircuit::removedialogline textent2 makesymbol .makesymbol.textent.title.field configure -text "Name for new object:" .makesymbol.textent.txt delete 0 end .makesymbol.textent.txt insert 0 $name xcircuit::popupdialog .makesymbol xcircuit::addliblist .makesymbol Place in: " } #---------------------------------------------------------------------- proc xcircuit::prompttargettech {{name ""}} { global XCOps set XCOps(dialog) targettech .savetech.bbar.apply configure -command { \ set selects [xcircuit::select]; \ if {$selects > 0} { \ if {[catch {set techname [.savetech.textent2.txt get]}]} {\ set techname $XCOps(technology)}; \ technology objects $techname [.savetech.textent.txt get]}\ } xcircuit::removedialogline textent2 savetech .savetech.textent.title.field configure -text "Objects to move:" .savetech.textent.txt delete 0 end .savetech.textent.txt insert 0 $name xcircuit::popupdialog xcircuit::addtechlist .savetech "Target technology: " # Add an additional selection to the tech menu for adding a new # technology namespace. This is relevant only to "prompttargettech". .savetech.techself.techselect.menu add \ command -label "Add New Tech" -command \ "xcircuit::makedialogline textent2 {New tech name:}" savetech } #---------------------------------------------------------------------- proc xcircuit::promptelementsize {} { global XCOps if {![catch {set cscale [xcircuit::element scale]}]} { set XCOps(dialog) elementscale .dialog.bbar.apply configure -command \ {xcircuit::element scale [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Element scale:" .dialog.textent.txt delete 0 end .dialog.textent.txt insert 0 $cscale xcircuit::popupdialog } } #---------------------------------------------------------------------- proc xcircuit::promptborderwidth {} { global XCOps .dialog.textent.txt delete 0 end set XCOps(dialog) linewidth set elist [xcircuit::select get] if {[llength $elist] == 0} { .dialog.bbar.apply configure -command \ [subst {config focus [config focus] ;\ xcircuit::border set \[.dialog.textent.txt get\]}] .dialog.textent.title.field configure -text "Default linewidth scale:" set btext [format "%g" [xcircuit::border get]] .dialog.textent.txt insert 0 $btext } else { .dialog.bbar.apply configure -command \ [subst {config focus [config focus] ;\ xcircuit::border set \[.dialog.textent.txt get \]}] .dialog.textent.title.field configure -text "Element linewidth:" set btext [format "%g" [lindex [xcircuit::border get] 0]] .dialog.textent.txt insert 0 $btext } xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptlinewidth {} { global XCOps set XCOps(dialog) linescale .dialog.bbar.apply configure -command \ [subst {config focus [config focus] ;\ xcircuit::config linewidth \[.dialog.textent.txt get \]}] .dialog.textent.title.field configure -text "Page linewidth scaling:" .dialog.textent.txt delete 0 end set ltext [format "%g" [xcircuit::config linewidth]] .dialog.textent.txt insert 0 $ltext xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptdrawingscale {} { global XCOps set XCOps(dialog) drawingscale .dialog.bbar.apply configure -command \ {xcircuit::config drawingscale [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Drawing scale:" .dialog.textent.txt delete 0 end .dialog.textent.txt insert 0 [xcircuit::config drawingscale] xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptgridspace {} { .dialog.bbar.apply configure -command \ {xcircuit::config grid spacing [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Grid spacing:" .dialog.textent.txt delete 0 end .dialog.textent.txt insert 0 [xcircuit::config grid space] xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptsnapspace {} { global XCOps set XCOps(dialog) snapspace .dialog.bbar.apply configure -command \ {xcircuit::config snap spacing [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Snap spacing:" .dialog.textent.txt delete 0 end .dialog.textent.txt insert 0 [xcircuit::config snap space] xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptmakeobject {} { global XCOps if {[xcircuit::select] > 0} { set XCOps(dialog) makeobject .dialog.bbar.apply configure -command \ {if {[select get] != {}} {\ if {[.dialog.textent.txt get] == ""} {\ .dialog.textent.title.field configure -text "Please enter a name" }\ elseif {[catch {xcircuit::object handle [.dialog.textent.txt get]}]} {\ xcircuit::object make [.dialog.textent.txt get] $XCOps(library)}\ else {.dialog.textent.title.field configure -text \ "Name already used. Choose another name" ; .dialog.textent.txt \ delete 0 end}}} .dialog.textent.title.field configure -text "Name for new object" .dialog.textent.txt delete 0 end if {$XCOps(technology) != "(user)"} { .dialog.textent.txt insert 0 "${XCOps(technology)}::" } xcircuit::popupdialog xcircuit::addtechlist .dialog "Technology: " {(user)} prefix xcircuit::addliblist .dialog "Place in: " } } #---------------------------------------------------------------------- proc xcircuit::promptreplaceobject {} { global XCOps if {[xcircuit::select] > 0} { set XCOps(dialog) replaceobject .dialog.bbar.apply configure -command \ {xcircuit::element selected object [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Name of replacement object" .dialog.textent.txt delete 0 end xcircuit::popupdialog } } #---------------------------------------------------------------------- proc xcircuit::promptloadlibrary {} { global XCOps .filelist.bbar.okay configure -command \ {xcircuit::library [.filelist.libself.libselect cget -text] load \ [.filelist.textent.txt get]; wm withdraw .filelist} .filelist.listwin.win configure -data "lps" .filelist.textent.title.field configure -text "Select technology file to load:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist xcircuit::addliblist .filelist "Load to which library page: " } #---------------------------------------------------------------------- proc xcircuit::promptsavetech {} { global XCOps set XCOps(dialog) techname .savetech.bbar.apply configure -command \ {xcircuit::technology save [.savetech.techself.techselect cget -text] \ [.savetech.textent.txt get]} .savetech.textent.title.field configure -text "Filename to save technology as:" .savetech.textent.txt delete 0 end xcircuit::popupdialog .savetech xcircuit::addtechlist .savetech "Save which technology: " {(user)} true set fname "" catch {set fname [technology filename $XCOps(technology)]} if {$fname == "(no associated file)"} { set fname $XCOps(technology).lps } .savetech.textent.txt insert 0 $fname } #---------------------------------------------------------------------- proc xcircuit::promptaddlibrary {} { global XCOps set XCOps(dialog) libname .dialog.bbar.apply configure -command \ {xcircuit::library make [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Name of new library page:" .dialog.textent.txt delete 0 end xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptloadfile {} { .filelist.bbar.okay configure -command \ {xcircuit::page load [.filelist.textent.txt get] -replace \ [.filelist.techself.techselect cget -text] \ -target $XCOps(library); wm withdraw .filelist} .filelist.listwin.win configure -data "ps eps" .filelist.textent.title.field configure -text "Select file to load:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist xcircuit::addtechlist .filelist "Replace from: " {(user) all none} xcircuit::addliblist .filelist "Target library: " } #---------------------------------------------------------------------- proc xcircuit::promptimportspice {} { .filelist.bbar.okay configure -command \ {xcircuit::page import spice \ [.filelist.textent.txt get]; wm withdraw .filelist} .filelist.listwin.win configure -data "spice spc ckt sp" .filelist.textent.title.field configure -text "Select SPICE file to import:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist } #---------------------------------------------------------------------- proc xcircuit::promptimportfile {} { .filelist.bbar.okay configure -command \ {xcircuit::page import xcircuit \ [.filelist.textent.txt get]; wm withdraw .filelist} .filelist.listwin.win configure -data "ps eps" .filelist.textent.title.field configure -text "Select file to import:" xcircuit::popupfilelist } #---------------------------------------------------------------------- proc xcircuit::promptimportbackground {} { .filelist.bbar.okay configure -command \ {xcircuit::page import background \ [.filelist.textent.txt get]; wm withdraw .filelist} .filelist.listwin.win configure -data "ps eps" .filelist.textent.title.field configure -text "Select file to use as background:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist } #---------------------------------------------------------------------- # Convert a graphic image using ImageMagick "convert" (if available) #---------------------------------------------------------------------- proc xcircuit::convertgraphic {filename} { set fileext [file extension $filename] set fileroot [file rootname $filename] set temp true switch -- $fileext { .gif - .jpg - .png - .pnm { exec convert $filename ${fileroot}.ppm } .ppm { set temp false } .ps - .pdf { exec convert -density 300x300 $filename ${fileroot}.ppm } } xcircuit::graphic make ${fileroot}.ppm {0 0} 1; if {$temp == true} { file delete ${fileroot}.ppm } } #---------------------------------------------------------------------- proc xcircuit::promptimportgraphic {} { if {![catch {exec convert -version}]} { .filelist.bbar.okay configure -command \ {xcircuit::convertgraphic [.filelist.textent.txt get]; refresh; wm withdraw .filelist} .filelist.listwin.win configure -data "pnm ppm gif jpg png" } else { .filelist.bbar.okay configure -command \ {xcircuit::graphic make [.filelist.textent.txt get] {0 0} 1; refresh; wm withdraw .filelist} .filelist.listwin.win configure -data "pnm ppm" } .filelist.textent.title.field configure -text "Select graphic image file:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist } #---------------------------------------------------------------------- proc xcircuit::promptexecscript {} { .filelist.bbar.okay configure -command \ {source [.filelist.textent.txt get]; wm withdraw .filelist} .filelist.listwin.win configure -data "tcl xcircuitrc" .filelist.textent.title.field configure -text "Select script to execute:" xcircuit::popupfilelist } #---------------------------------------------------------------------- proc xcircuit::prompttextsize {} { global XCOps set XCOps(dialog) textscale .dialog.bbar.apply configure -command \ {xcircuit::label scale [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Text scale:" .dialog.textent.txt delete 0 end set stext [format "%g" [xcircuit::label scale]] .dialog.textent.txt insert 0 $stext xcircuit::popupdialog } #---------------------------------------------------------------------- # add a library list widget to a dialog box #---------------------------------------------------------------------- proc xcircuit::addliblist {w {prompt "Target: "}} { global XCOps frame ${w}.libself label ${w}.libself.title -text $prompt -bg beige set liblist [library directory list] menubutton ${w}.libself.libselect -menu ${w}.libself.libselect.menu -relief groove menu ${w}.libself.libselect.menu -tearoff 0 foreach j $liblist { ${w}.libself.libselect.menu add \ radio -label "$j" -variable XCOps(library) -value \ "$j" -command "${w}.libself.libselect configure -text {$j}" } ${w}.libself.libselect configure -text $XCOps(library) pack ${w}.libself.title -side left pack ${w}.libself.libselect -side left pack ${w}.libself -side top -anchor w -padx 20 } #---------------------------------------------------------------------- # Add a technology list widget to a dialog box # # If "update" is "true", then a selection of a technology in the list # will update the text entry window contents with the corresponding # filename. If "update" is "prefix", then a selection of a technology # in the list will update the text entry window contents with the # technology namespace prefix corresponding to the selected technology. # If "update" is "false", then selecting the technology will set the # global variable XCOps(technology) but will not alter the window # contents. #---------------------------------------------------------------------- proc xcircuit::addtechlist {w {prompt "Technology: "} {endlist {}} {update {false}}} { global XCOps frame ${w}.techself label ${w}.techself.title -text $prompt -bg beige set techlist [technology list] foreach j $endlist { lappend techlist $j } menubutton ${w}.techself.techselect -menu ${w}.techself.techselect.menu -relief groove menu ${w}.techself.techselect.menu -tearoff 0 foreach j $techlist { if {$update == true} { set fname "" catch {set fname [technology filename "$j"]} ${w}.techself.techselect.menu add \ radio -label "$j" -variable XCOps(technology) -value \ "$j" -command "${w}.techself.techselect configure -text {$j} ; \ ${w}.textent.txt delete 0 end ; ${w}.textent.txt insert 0 {$fname}" } elseif {$update == "prefix"} { if {$j != {} && $j != "(user)"} { set tpfix "${j}::" } else { set tpfix {} } ${w}.techself.techselect.menu add \ radio -label "$j" -variable XCOps(technology) -value \ "$j" -command [subst {${w}.techself.techselect configure -text {$j} ; \ set pfixend \[string last :: \[${w}.textent.txt get\]\] ; \ if {\$pfixend < 0} {set pfixend 0} else {incr pfixend 2} ; \ ${w}.textent.txt delete 0 \$pfixend ; \ ${w}.textent.txt insert 0 {$tpfix}}] } else { ${w}.techself.techselect.menu add \ radio -label "$j" -variable XCOps(technology) -value \ "$j" -command "${w}.techself.techselect configure -text {$j}" } } ${w}.techself.techselect configure -text $XCOps(technology) pack ${w}.techself.title -side left pack ${w}.techself.techselect -side left pack ${w}.techself -side right -anchor w -padx 20 } #---------------------------------------------------------------------- proc xcircuit::removelists {w} { global XCOps catch { pack forget ${w}.libself destroy ${w}.libself } catch { pack forget ${w}.techself destroy ${w}.techself } } #---------------------------------------------------------------------- # newcolorbutton is called internally to xcircuit---don't mess with it! #---------------------------------------------------------------------- proc xcircuit::newcolorbutton {r g b idx} { global XCWinOps XCIRCUIT_LIB_DIR set colorrgb [format "#%04X%04X%04X" $r $g $b] image create bitmap img_col$idx -foreground $colorrgb -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/solid.xbm foreach window [config windownames] { set frame [winfo top $window] ${frame}.menubar.optionsbutton.optionsmenu.elementsmenu.colormenu \ add radio -image img_col$idx -activebackground $colorrgb \ -variable XCWinOps(${frame},colorval) -value $idx -command \ "xcircuit::color set $idx" } } #---------------------------------------------------------------------- # Regenerate the list of color buttons for a new window #---------------------------------------------------------------------- proc xcircuit::allcolorbuttons {window} { global XCWinOps set colorlist [color get -all] set frame [winfo top $window] set idx 17 ;# NUMBER_OF_COLORS in xcircuit.h foreach colorrgb $colorlist { ${frame}.menubar.optionsbutton.optionsmenu.elementsmenu.colormenu \ add radio -image img_col$idx -activebackground $colorrgb \ -variable XCWinOps(${frame},colorval) -value $idx -command \ "xcircuit::color set $idx" incr idx } } #---------------------------------------------------------------------- proc xcircuit::picknewcolor {} { if {[catch {set colorrgb [tk_chooseColor]}]} { set colorrgb [tkColorDialog] } xcircuit::color add $colorrgb } #---------------------------------------------------------------------- proc xcircuit::newencodingbutton {encodingname} { global XCWinOps foreach window [config windownames] { set frame [winfo top $window] if {[catch {${frame}.menubar.textbutton.textmenu.encodingmenu \ index $encodingname} result]} { ${frame}.menubar.textbutton.textmenu.encodingmenu add radio -label \ $encodingname -command "xcircuit::label encoding $encodingname" \ -variable XCWinOps(${frame},fontencoding) -value $encodingname } } } #---------------------------------------------------------------------- proc xcircuit::newfontbutton {familyname} { global XCWinOps foreach window [config windownames] { set frame [winfo top $window] if {[catch {${frame}.menubar.textbutton.textmenu.fontmenu \ index $familyname} result]} { ${frame}.menubar.textbutton.textmenu.fontmenu add radio -label \ $familyname -command "xcircuit::label family $familyname" \ -variable XCWinOps(${frame},fontfamily) -value $familyname } } } #---------------------------------------------------------------------- # Regenerate the list of known font families for a new window #---------------------------------------------------------------------- proc xcircuit::allfontbuttons {window} { global XCWinOps set familylist [label family -all] set frame [winfo top $window] while {$familylist != {}} { set familyname [lindex $familylist 0] ${frame}.menubar.textbutton.textmenu.fontmenu add radio -label \ $familyname -command "xcircuit::label family $familyname" \ -variable XCWinOps(${frame},fontfamily) -value $familyname # Remove all such entries (this works like "lsort -unique" but doesn't # scramble the list entries). set familylist [lsearch -all -inline -not $familylist $familyname] } } #---------------------------------------------------------------------- proc xcircuit::newlibrarybutton {libname} { if {[catch {.librarymenu index $libname} result]} { set libidx [.librarymenu index end] if {$libidx <= 1} {set libidx [expr $libidx + 1]} .librarymenu insert $libidx command -label $libname -command \ "xcircuit::library \"$libname\" goto" } } #---------------------------------------------------------------------- proc xcircuit::newpagebutton {pagename {pageno 0}} { if {[catch {.pagemenu index $pagename} result]} { set target $pagename if {$pageno > 0} { set target $pageno } .pagemenu add command -label $pagename -command \ "xcircuit::page \"$target\" goto" } } #---------------------------------------------------------------------- proc xcircuit::renamelib {libno libname} { set target [expr $libno + 1] .librarymenu entryconfigure $target -label $libname -command \ "xcircuit::library \"$libname\" goto" } #---------------------------------------------------------------------- proc xcircuit::renamepage {pageno pagename} { set target [expr $pageno + 1] .pagemenu entryconfigure $target -label $pagename -command \ "xcircuit::page \"$pagename\" goto" } #---------------------------------------------------------------------- proc xcircuit::promptnewfont {} { global XCOps set XCOps(dialog) fontname .dialog.bbar.apply configure -command \ {xcircuit::loadfont [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Font name:" .dialog.textent.txt delete 0 end xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptkern {} { global XCOps set XCOps(dialog) kernamount .dialog.bbar.apply configure -command \ {xcircuit::label insert kern [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Kern amount:" .dialog.textent.txt delete 0 end xcircuit::popupdialog } #---------------------------------------------------------------------- proc xcircuit::promptmargin {} { global XCOps set XCOps(dialog) marginamount .dialog.bbar.apply configure -command \ {xcircuit::label insert margin [.dialog.textent.txt get]} .dialog.textent.title.field configure -text "Margin amount:" .dialog.textent.txt delete 0 end xcircuit::popupdialog } #---------------------------------------------------------------------- set XCOps(tools) [list pn w b a s t mv cp e d2 cw ccw fx fy r pu2 po2 mk pz \ uj co bd fi pm pa li yp pl z4 z5 i] for {set i 0} {$i < [llength $XCOps(tools)]} {incr i 1} { set bname [lindex $XCOps(tools) $i] image create photo img_${bname} -file ${XCIRCUIT_LIB_DIR}/pixmaps/${bname}.gif } #---------------------------------------------------------------------- proc xcircuit::modebutton {widget} { global XCOps XCWinOps set window $XCOps(focus) for {set i 0} {$i < [llength $XCOps(tools)]} {incr i 1} { set bname [lindex $XCOps(tools) $i] ${window}.mainframe.toolbar.b${bname} configure -relief raised \ -highlightbackground gray90 -background gray90 } $widget configure -relief solid -highlightbackground green3 -background green3 if {$XCWinOps(${window},button1) == "Rotate"} { ${window}.infobar.mode configure -text "$XCWinOps(${window},button1) \ $XCWinOps(${window},rotateamount) Mode" } else { ${window}.infobar.mode configure -text "$XCWinOps(${window},button1) Mode" } } #---------------------------------------------------------------------- proc xcircuit::button1action {button cursor action {value {}}} { global XCOps XCWinOps set window $XCOps(focus).mainframe.mainarea.drawing catch {bindkey $window Button1 $XCWinOps($XCOps(focus),button1) forget} if {$value == {}} { bindkey $window Button1 $action } else { bindkey $window Button1 $action $value } set XCWinOps($XCOps(focus),button1) $action xcircuit::modebutton $button catch {cursor $cursor} catch {xcircuit::automousehint $window} } #---------------------------------------------------------------------- proc xcircuit::createtoolbar {window} { global XCOps XCWinOps XCIRCUIT_LIB_DIR set tooltips [list "pan window" "draw wire" "draw box" \ "draw arc" "draw spline" "enter text" \ "move element" "copy element" "edit element" "delete element" \ "rotate 15 degrees clockwise" "rotate 15 degrees counterclockwise" \ "flip horizontal" "flip vertical" "rescale" "push (edit object)" \ "pop (return from object edit)" "make an object from selection" \ "join elements into polygon or path" "separate path into elements" \ "set color" "set border and line properties" "set fill properties" \ "parameterize properties" "parameter selection" \ "go to next library" "go to library directory" \ "go to page directory" "zoom in" "zoom out" "pop up help window"] set toolactions [list \ {xcircuit::button1action %W hand Pan 6} \ {xcircuit::button1action %W cross Wire} \ {xcircuit::button1action %W cross Box} \ {xcircuit::button1action %W circle Arc} \ {if {[select]} {spline make} else { \ xcircuit::button1action %W arrow Spline}} \ {xcircuit::button1action %W text $XCWinOps($XCOps(focus),labeltype) ; \ $XCOps(focus).mainframe.toolbar.bt configure -image \ $XCWinOps($XCOps(focus),labelimage)} \ {if {[select]} {move selected} else { \ xcircuit::button1action %W arrow Move}} \ {if {[select]} {copy selected} else { \ xcircuit::button1action %W copy Copy}} \ {if {[select] == 1} {edit selected} else { \ xcircuit::button1action %W edit Edit}} \ {if {[select]} {delete selected} else { \ xcircuit::button1action %W scissors Delete}} \ {if {[select]} {rotate $XCWinOps($XCOps(focus),rotateamount)} else {\ xcircuit::button1action %W rotate Rotate \ $XCWinOps($XCOps(focus),rotateamount)}} \ {if {[select]} {rotate -$XCWinOps($XCOps(focus),rotateamount)} else {\ xcircuit::button1action %W rotate Rotate \ -$XCWinOps($XCOps(focus),rotateamount)}} \ {if {[select]} {flip horizontal} else { \ xcircuit::button1action %W rotate "Flip X"}} \ {if {[select]} {flip vertical} else { \ xcircuit::button1action %W rotate "Flip Y"}} \ {if {[select]} {xcircuit::promptelementsize} else { \ xcircuit::button1action %W arrow Rescale}} \ {if {[select] == 1} {push selected} else { \ xcircuit::button1action %W question Push}} \ {pop} \ {if {[select]} {xcircuit::promptmakeobject} else { \ xcircuit::button1action %W question "Select Save"}} \ {if {[select]} {path join selected} else { \ xcircuit::button1action %W arrow Join}} \ {if {[select] == 1} {path unjoin selected} else { \ xcircuit::button1action %W arrow Unjoin}} \ {tk_popup $XCOps(focus).colormenu [expr {[winfo rootx \ $XCOps(focus).mainframe.toolbar.bco] \ - [winfo width $XCOps(focus).colormenu]}] \ [expr {[winfo rooty $XCOps(focus).mainframe.toolbar.bco] \ - [winfo height $XCOps(focus).colormenu] / 2}] } \ {tk_popup $XCOps(focus).bordermenu [expr {[winfo rootx \ $XCOps(focus).mainframe.toolbar.bbd] \ - [winfo width $XCOps(focus).bordermenu]}] \ [expr {[winfo rooty $XCOps(focus).mainframe.toolbar.bbd] \ - [winfo height $XCOps(focus).bordermenu] / 2}] } \ {tk_popup $XCOps(focus).fillmenu [expr {[winfo rootx \ $XCOps(focus).mainframe.toolbar.bfi] \ - [winfo width $XCOps(focus).fillmenu]}] \ [expr {[winfo rooty $XCOps(focus).mainframe.toolbar.bfi] \ - [winfo height $XCOps(focus).fillmenu] / 2}] } \ {tk_popup $XCOps(focus).parammenu [expr {[winfo rootx \ $XCOps(focus).mainframe.toolbar.bpm] \ - [winfo width $XCOps(focus).parammenu]}] \ [expr {[winfo rooty $XCOps(focus).mainframe.toolbar.bpm] \ - [winfo height $XCOps(focus).parammenu] / 2}] } \ {xcircuit::prompteditparams} \ {library next} \ {library directory} {page directory} \ {zoom 1.5; refresh} {zoom [expr {1 / 1.5}]; refresh} \ {xcircuit::helpwindow} ] for {set i 0} {$i < [llength $XCOps(tools)]} {incr i 1} { set bname [lindex $XCOps(tools) $i] set btip [lindex $tooltips $i] regsub -all -- %W [lindex $toolactions $i] \ ${window}.mainframe.toolbar.b${bname} bcmd button ${window}.mainframe.toolbar.b${bname} -image img_${bname} -command \ "$bcmd" bind ${window}.mainframe.toolbar.b${bname} \ [subst {${window}.infobar.message2 configure -text "$btip"}] bind ${window}.mainframe.toolbar.b${bname} \ [subst {${window}.infobar.message2 configure -text ""}] } # pack the first button so we can query its height for arrangement. # this assumes that the height of each button is the same! set bname [lindex $XCOps(tools) 0] place ${window}.mainframe.toolbar.b${bname} -x 0 -y 0 update idletasks } #---------------------------------------------------------------------- proc xcircuit::arrangetoolbar {window} { global XCOps set numtools [llength $XCOps(tools)] for {set i 0} {$i < $numtools} {incr i 1} { set bname [lindex $XCOps(tools) $i] place forget ${window}.mainframe.toolbar.b${bname} } set bname [lindex $XCOps(tools) 0] set bheight [winfo height ${window}.mainframe.toolbar.b${bname}] set bwidth [winfo width ${window}.mainframe.toolbar.b${bname}] set wheight [winfo height ${window}.mainframe] set nrows [expr {$wheight / $bheight}] ${window}.mainframe.toolbar configure -width [expr {$bwidth}] set j 0 set k 0 for {set i 0} {$i < [llength $XCOps(tools)]} {incr i; incr j} { if {$j == $nrows} { set j 0 incr k ${window}.mainframe.toolbar configure -width [expr {($k + 1) * $bwidth}] } set bname [lindex $XCOps(tools) $i] place ${window}.mainframe.toolbar.b${bname} \ -x [expr {$k * $bwidth}] \ -y [expr {$j * $bheight}] } } #---------------------------------------------------------------------- proc xcircuit::toolbar {value} { global XCOps set window $XCOps(focus) switch -- $value { true - enable { pack forget ${window}.mainframe.mainarea pack ${window}.mainframe.toolbar -side right -fill y -padx 2 pack ${window}.mainframe.mainarea -expand true -fill both set midx [${window}.menubar.optionsbutton.optionsmenu \ index "Enable Toolbar"] ${window}.menubar.optionsbutton.optionsmenu entryconfigure $midx \ -command {xcircuit::toolbar disable} -label \ "Disable Toolbar" } false - disable { pack forget ${window}.mainframe.toolbar set midx [${window}.menubar.optionsbutton.optionsmenu \ index "Disable Toolbar"] ${window}.menubar.optionsbutton.optionsmenu entryconfigure $midx \ -command {xcircuit::toolbar enable} -label \ "Enable Toolbar" } } } #---------------------------------------------------------------------- # These variables are associated with toggle and radio buttons # but must be the same for all windows. #---------------------------------------------------------------------- set XCOps(sheetsize) letter set XCOps(spiceend) true set XCOps(forcenets) true set XCOps(hold) true set XCOps(focus) .xcircuit #---------------------------------------------------------------------- # Create stipple images #---------------------------------------------------------------------- image create bitmap img_stip0 -foreground white -background black -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/solid.xbm image create bitmap img_stip12 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip12.xbm image create bitmap img_stip25 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip25.xbm image create bitmap img_stip38 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip38.xbm image create bitmap img_stip50 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip50.xbm image create bitmap img_stip62 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip62.xbm image create bitmap img_stip75 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip75.xbm image create bitmap img_stip88 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/stip88.xbm image create bitmap img_stip100 -foreground black -background white -file \ ${XCIRCUIT_LIB_DIR}/pixmaps/solid.xbm #---------------------------------------------------------------------- # alternate label type images (info, global, and pin labels) #---------------------------------------------------------------------- image create photo img_ti -file ${XCIRCUIT_LIB_DIR}/pixmaps/ti.gif image create photo img_tg -file ${XCIRCUIT_LIB_DIR}/pixmaps/tg.gif image create photo img_tp -file ${XCIRCUIT_LIB_DIR}/pixmaps/tp.gif #---------------------------------------------------------------------- proc xcircuit::makemenus {window} { global XCOps set m [menu ${window}.menubar.filebutton.filemenu -tearoff 0] $m add command -label "New Window" -command {xcircuit::forkwindow} $m add command -label "Close Window" -command \ "xcircuit::closewindow ${window}.mainframe.mainarea.drawing" $m add separator $m add command -label "Read XCircuit File" -command {xcircuit::promptloadfile} if {![catch {set XCOps(module,files)}]} { $m add command -label "Write All..." -command {xcircuit::promptwriteall} } $m add command -label "Format Page Output" -command {xcircuit::promptsavepage} $m add separator $m add command -label "Load Dependencies" -command \ {while {[page links load -replace $XCOps(technology) \ -target $XCOps(library)]} {}} $m add cascade -label "Import" -menu $m.importmenu $m add cascade -label "Export" -menu $m.exportmenu $m add command -label "Execute Script" -command {xcircuit::promptexecscript} if {[file tail [info nameofexecutable]] != "xcircexec"} { $m add command -label "Tcl Console" -command {xcircuit::raiseconsole} } $m add separator if {![catch {set XCOps(module,library)}]} { $m add command -label "Library Manager" -command {xcircuit::raisemanager} } $m add command -label "New Library Page" -command {xcircuit::promptaddlibrary} $m add command -label "Load Technology (.lps)" -command {xcircuit::promptloadlibrary} $m add command -label "Save Technology (.lps)" -command {xcircuit::promptsavetech} $m add separator $m add command -label "Clear Page" -command {xcircuit::page reset} $m add separator $m add command -label "Quit" -command {quit} # Sub-menu for Import functions set m2 [menu $m.importmenu -tearoff 0] $m2 add command -label "Import XCircuit File" -command {xcircuit::promptimportfile} $m2 add command -label "Import background PS" -command \ {xcircuit::promptimportbackground} $m2 add command -label "Import graphic image" -command \ {xcircuit::promptimportgraphic} if {![catch {set XCOps(module,edif)}]} { $m2 add command -label "Read EDIF file" -command {xcircuit::promptreadedif} } if {![catch {set XCOps(module,matgen)}]} { $m2 add command -label "Import Matlab PS" -command {xcircuit::promptimportmatlab} } if {![catch {set XCIRCUIT_ASG}]} { $m2 add command -label "Import SPICE Deck" -command \ {xcircuit::promptimportspice} } if {![catch {set XCOps(module,text)}]} { $m2 add command -label "Import text" -command {xcircuit::promptimporttext} } # Sub-menu for Export functions set m2 [menu $m.exportmenu -tearoff 0] $m2 add command -label "Export SVG" -command {svg -fullscale} set m [menu ${window}.menubar.editbutton.editmenu -tearoff 0] $m add command -label "Undo" -command {undo} $m add command -label "Redo" -command {redo} $m add separator $m add command -label "Delete" -command \ "${window}.mainframe.toolbar.bd2 invoke" $m add command -label "Copy" -command \ "${window}.mainframe.toolbar.bcp invoke" $m add command -label "Move" -command \ "${window}.mainframe.toolbar.bmv invoke" $m add command -label "Edit" -command \ "${window}.mainframe.toolbar.be invoke" $m add cascade -label "Rotate/Flip" -menu $m.rotmenu $m add command -label "Deselect" -command {deselect selected} $m add cascade -label "Select Filter" -menu $m.selmenu $m add command -label "Push Selected" -command \ "${window}.mainframe.toolbar.pu2 invoke" $m add command -label "Pop Hierarchy" -command {pop} $m add separator $m add command -label "Change Technology" -command \ {xcircuit::prompttargettech [element selected object]} $m add separator $m add command -label "Make User Object" -command \ "${window}.mainframe.toolbar.bmk invoke" $m add command -label "Make Arc" -command \ "${window}.mainframe.toolbar.ba invoke" $m add command -label "Make Box" -command \ "${window}.mainframe.toolbar.bb invoke" $m add command -label "Make Spline" -command \ "${window}.mainframe.toolbar.bs invoke" $m add command -label "Make Wire" -command \ "${window}.mainframe.toolbar.bw invoke" $m add command -label "Replace" -command {xcircuit::promptreplaceobject} $m add command -label "Join" -command \ "${window}.mainframe.toolbar.bpz invoke" $m add command -label "Unjoin" -command \ "${window}.mainframe.toolbar.buj invoke" $m add command -label "Raise/Lower" -command {element exchange} set m2 [menu $m.rotmenu -tearoff 0] $m2 add command -label "Flip Horizontal" -command \ "${window}.mainframe.toolbar.bfx invoke" $m2 add command -label "Flip Vertical" -command \ "${window}.mainframe.toolbar.bfy invoke" $m2 add command -label "Rescale" -command \ "${window}.mainframe.toolbar.r invoke" $m2 add separator $m2 add command -label "Rotate CW 90" -command \ {set XCWinOps($XCOps(focus),rotateamount) 90; \ $XCOps(focus).mainframe.toolbar.bcw invoke} $m2 add command -label "Rotate CW 45" -command \ {set XCWinOps($XCOps(focus),rotateamount) 45; \ $XCOps(focus).mainframe.toolbar.bcw invoke} $m2 add command -label "Rotate CW 30" -command \ {set XCWinOps($XCOps(focus),rotateamount) 30; \ $XCOps(focus).mainframe.toolbar.bcw invoke} $m2 add command -label "Rotate CW 15" -command \ {set XCWinOps($XCOps(focus),rotateamount) 15; \ $XCOps(focus).mainframe.toolbar.bcw invoke} $m2 add command -label "Rotate CW 5" -command \ {set XCWinOps($XCOps(focus),rotateamount) 5; \ $XCOps(focus).mainframe.toolbar.bcw invoke} $m2 add command -label "Rotate CW 1" -command \ {set XCWinOps($XCOps(focus),rotateamount) 1; \ $XCOps(focus).mainframe.toolbar.bcw invoke} $m2 add separator $m2 add command -label "Rotate CCW 90" -command \ {set XCWinOps($XCOps(focus),rotateamount) 90; \ $XCOps(focus).mainframe.toolbar.bccw invoke} $m2 add command -label "Rotate CCW 45" -command \ {set XCWinOps($XCOps(focus),rotateamount) 45; \ $XCOps(focus).mainframe.toolbar.bccw invoke} $m2 add command -label "Rotate CCW 30" -command \ {set XCWinOps($XCOps(focus),rotateamount) 30; \ $XCOps(focus).mainframe.toolbar.bccw invoke} $m2 add command -label "Rotate CCW 15" -command \ {set XCWinOps($XCOps(focus),rotateamount) 15; \ $XCOps(focus).mainframe.toolbar.bccw invoke} $m2 add command -label "Rotate CCW 5" -command \ {set XCWinOps($XCOps(focus),rotateamount) 5; \ $XCOps(focus).mainframe.toolbar.bccw invoke} $m2 add command -label "Rotate CCW 1" -command \ {set XCWinOps($XCOps(focus),rotateamount) 1; \ $XCOps(focus).mainframe.toolbar.bccw invoke} set m2 [menu $m.selmenu -tearoff 0] $m2 add command -label "Disable selection" -command {element select hide} $m2 add command -label "Remove all disabled" -command {element select allow} $m2 add separator $m2 add check -label "Labels" -variable XCWinOps(${window},sel_lab) \ -onvalue true -offvalue false -command \ {xcircuit::config filter label $XCWinOps($XCOps(focus),sel_lab)} $m2 add check -label "Objects" -variable XCWinOps(${window},sel_inst) \ -onvalue true -offvalue false -command \ {xcircuit::config filter instance $XCWinOps($XCOps(focus),sel_inst)} $m2 add check -label "Polygons" -variable XCWinOps(${window},sel_poly) \ -onvalue true -offvalue false -command \ {xcircuit::config filter polygon $XCWinOps($XCOps(focus),sel_poly)} $m2 add check -label "Arcs" -variable XCWinOps(${window},sel_arc) \ -onvalue true -offvalue false -command \ {xcircuit::config filter arc $XCWinOps($XCOps(focus),sel_arc)} $m2 add check -label "Splines" -variable XCWinOps(${window},sel_spline) \ -onvalue true -offvalue false -command \ {xcircuit::config filter spline $XCWinOps($XCOps(focus),sel_spline)} $m2 add check -label "Paths" -variable XCWinOps(${window},sel_path) \ -onvalue true -offvalue false -command \ {xcircuit::config filter path $XCWinOps($XCOps(focus),sel_path)} $m2 add check -label "Graphic Images" -variable XCWinOps(${window},sel_graphic) \ -onvalue true -offvalue false -command \ {xcircuit::config filter graphic $XCWinOps($XCOps(focus),sel_graphic)} set m [menu ${window}.menubar.textbutton.textmenu -tearoff 0] $m add command -label "Text Size" -command {xcircuit::prompttextsize} $m add cascade -label "Font" -menu $m.fontmenu $m add cascade -label "Style" -menu $m.stylemenu $m add cascade -label "Encoding" -menu $m.encodingmenu $m add cascade -label "Insert" -menu $m.insertmenu $m add cascade -label "Anchoring" -menu $m.anchormenu $m add command -label "Parameterize" \ -command {xcircuit::labelmakeparam} $m add command -label "Unparameterize" \ -command {xcircuit::parameter replace substring} $m add separator $m add check -label "LaTeX mode" -variable XCWinOps(${window},latexmode) \ -onvalue true -offvalue false -command {xcircuit::label latex \ $XCWinOps($XCOps(focus),latexmode)} if {![catch {set XCOps(module,text)}]} { $m add separator $m add command -label "Modify Text..." -command {xcircuit::textmod} } $m add separator $m add command -label "Make Text" -command \ {set XCWinOps($XCOps(focus),labeltype) "Text"; set \ XCWinOps($XCOps(focus),labelimage) img_t; \ $XCOps(focus).mainframe.toolbar.bt invoke} set m2 [menu $m.fontmenu -tearoff 0] $m2 add command -label "Add New Font" -command {xcircuit::promptnewfont} $m2 add separator set m2 [menu $m.stylemenu -tearoff 0] $m2 add radio -label "Normal" -variable XCWinOps(${window},fontstyle) \ -value normal -command "xcircuit::label style normal" $m2 add radio -label "Bold" -variable XCWinOps(${window},fontstyle) \ -value bold -command "xcircuit::label style bold" $m2 add radio -label "Italic" -variable XCWinOps(${window},fontstyle) \ -value italic -command "xcircuit::label style italic" $m2 add radio -label "BoldItalic" -variable XCWinOps(${window},fontstyle) \ -value bolditalic -command "xcircuit::label style bolditalic" $m2 add separator $m2 add radio -label "Subscript" -variable XCWinOps(${window},fontscript) \ -value subscript -command "xcircuit::label insert subscript" $m2 add radio -label "Superscript" -variable XCWinOps(${window},fontscript) \ -value superscript -command "xcircuit::label insert superscript" $m2 add radio -label "Normalscript" -variable XCWinOps(${window},fontscript) \ -value normal -command "xcircuit::label insert normalscript" $m2 add separator $m2 add radio -label "Underline" -variable XCWinOps(${window},fontlining) \ -value underline -command "xcircuit::label insert underline" $m2 add radio -label "Overline" -variable XCWinOps(${window},fontlining) \ -value overline -command "xcircuit::label insert overline" $m2 add radio -label "No Line" -variable XCWinOps(${window},fontlining) \ -value normal -command "xcircuit::label insert noline" set m2 [menu $m.encodingmenu -tearoff 0] $m2 add radio -label "Standard" -variable XCWinOps(${window},fontencoding) \ -value Standard -command "xcircuit::label encoding Standard" $m2 add radio -label "ISOLatin1" -variable XCWinOps(${window},fontencoding) \ -value ISOLatin1 -command "xcircuit::label encoding ISOLatin1" set m2 [menu $m.insertmenu -tearoff 0] $m2 add command -label "Tab stop" -command "xcircuit::label insert stop" $m2 add command -label "Tab forward" -command "xcircuit::label insert forward" $m2 add command -label "Tab backward" -command "xcircuit::label insert backward" $m2 add command -label "Margin stop" -command {if {[lindex [xcircuit::label \ substring] 1] <= 1} {xcircuit::promptmargin} else \ {xcircuit::label insert margin}} $m2 add command -label "Carriage Return" -command "xcircuit::label insert return" $m2 add command -label "1/2 space" -command "xcircuit::label insert halfspace" $m2 add command -label "1/4 space" -command "xcircuit::label insert quarterspace" $m2 add command -label "Kern" -command "xcircuit::promptkern" $m2 add command -label "Character" -command "xcircuit::label insert special" $m2 add command -label "Parameter" -command "xcircuit::prompteditparams" set m2 [menu $m.anchormenu -tearoff 0] $m2 add radio -label "Left Anchored" -variable XCWinOps(${window},jhoriz) \ -value left -command "xcircuit::label anchor left" $m2 add radio -label "Center Anchored" -variable XCWinOps(${window},jhoriz) \ -value center -command "xcircuit::label anchor center" $m2 add radio -label "Right Anchored" -variable XCWinOps(${window},jhoriz) \ -value right -command "xcircuit::label anchor right" $m2 add separator $m2 add radio -label "Top Anchored" -variable XCWinOps(${window},jvert) \ -value top -command "xcircuit::label anchor top" $m2 add radio -label "Middle Anchored" -variable XCWinOps(${window},jvert) \ -value middle -command "xcircuit::label anchor middle" $m2 add radio -label "Bottom Anchored" -variable XCWinOps(${window},jvert) \ -value bottom -command "xcircuit::label anchor bottom" $m2 add separator $m2 add radio -label "Left Justified" -variable XCWinOps(${window},justif) \ -value left -command "xcircuit::label justify left" $m2 add radio -label "Center Justified" -variable XCWinOps(${window},justif) \ -value center -command "xcircuit::label justify center" $m2 add radio -label "Right Justified" -variable XCWinOps(${window},justif) \ -value right -command "xcircuit::label justify right" $m2 add separator $m2 add check -label "Flip Invariant" \ -variable XCWinOps(${window},flipinvariant) \ -onvalue true -offvalue false -command {xcircuit::label flipinvariant \ $XCWinOps($XCOps(focus),flipinvariant)} set m [menu ${window}.menubar.optionsbutton.optionsmenu -tearoff 0] $m add check -label "Alt Colors" -variable XCWinOps(${window},colorscheme) \ -onvalue inverse -offvalue normal -command {xcircuit::config \ colorscheme $XCWinOps($XCOps(focus),colorscheme)} $m add check -label "Show Bounding Box" -variable XCWinOps(${window},showbbox) \ -onvalue visible -offvalue invisible -command \ {xcircuit::config bbox $XCWinOps($XCOps(focus),showbbox)} $m add check -label "Edit In Place" -variable XCWinOps(${window},editinplace) \ -onvalue true -offvalue false -command {xcircuit::config editinplace \ $XCWinOps($XCOps(focus),editinplace)} $m add check -label "Show Pin Positions" \ -variable XCWinOps(${window},pinpositions) \ -onvalue visible -offvalue invisible -command \ {xcircuit::config pinpositions $XCWinOps($XCOps(focus),pinpositions)} $m add check -label "Wires Stay Attached to Pins" \ -variable XCWinOps(${window},pinattach) \ -onvalue true -offvalue false -command \ {xcircuit::config pinattach $XCWinOps($XCOps(focus),pinattach)} $m add check -label "Show Clipmask Outlines" \ -variable XCWinOps(${window},showclipmasks) \ -onvalue show -offvalue hide -command \ {xcircuit::config clipmasks $XCWinOps($XCOps(focus),showclipmasks)} $m add check -label "Show Technology Namespaces" \ -variable XCWinOps(${window},namespaces) \ -onvalue true -offvalue false -command \ {xcircuit::config technologies $XCWinOps($XCOps(focus),namespaces)} $m add command -label "Disable Toolbar" -command {xcircuit::toolbar disable} $m add check -label "Allow HOLD Mode" -variable XCOps(hold) -onvalue true \ -offvalue false -command {xcircuit::config hold $XCOps(hold)} $m add cascade -label "Grid" -menu $m.gridmenu $m add cascade -label "Snap-to" -menu $m.snapmenu $m add cascade -label "Linewidth" -menu $m.linemenu $m add cascade -label "Elements" -menu $m.elementsmenu $m add separator $m add command -label "Help!" -command {xcircuit::helpwindow} set m2 [menu $m.gridmenu -tearoff 0] $m2 add check -label "Grid" -variable XCWinOps(${window},showgrid) \ -onvalue true -offvalue false \ -command {xcircuit::config grid $XCWinOps($XCOps(focus),showgrid); refresh} $m2 add check -label "Axes" -variable XCWinOps(${window},showaxes) \ -onvalue true -offvalue false \ -command {xcircuit::config axes $XCWinOps($XCOps(focus),showaxes); refresh} $m2 add command -label "Grid Spacing" -command {xcircuit::promptgridspace} $m2 add cascade -label "Grid type/display" -menu $m2.gridsubmenu set m3 [menu $m2.gridsubmenu -tearoff 0] $m3 add radio -label "Decimal Inches" -variable XCWinOps(${window},gridstyle) \ -value "decimal inches" \ -command {xcircuit::config coordstyle "decimal inches"} $m3 add radio -label "Fractional Inches" -variable XCWinOps(${window},gridstyle) \ -value "fractional inches" \ -command {xcircuit::config coordstyle "fractional inches"} $m3 add radio -label "Centimeters" -variable XCWinOps(${window},gridstyle) \ -value "centimeters" -command {xcircuit::config coordstyle "centimeters"} $m3 add radio -label "Internal Units" -variable XCWinOps(${window},gridstyle) \ -value "internal units" -command \ {xcircuit::config coordstyle "internal units"} $m3 add separator $m3 add command -label "Drawing Scale" -command {xcircuit::promptdrawingscale} set m2 [menu $m.snapmenu -tearoff 0] $m2 add check -label "Snap-to" -variable XCWinOps(${window},showsnap) \ -onvalue true \ -offvalue false -command {xcircuit::config snap \ $XCWinOps($XCOps(focus),showsnap); refresh} $m2 add command -label "Snap Spacing" -command {xcircuit::promptsnapspace} set m2 [menu $m.linemenu -tearoff 0] $m2 add command -label "Wire Linewidth" -command {xcircuit::promptborderwidth} $m2 add command -label "Global Linewidth" -command {xcircuit::promptlinewidth} set m2 [menu $m.elementsmenu -tearoff 0] $m2 add cascade -label "Border" -menu $m2.bordermenu $m2 add cascade -label "Fill" -menu $m2.fillmenu $m2 add cascade -label "Color" -menu $m2.colormenu $m2 add separator $m2 add cascade -label "Parameters" -menu $m2.parammenu $m2 add command -label "Scale" -command {xcircuit::promptelementsize} $m2 add check -label "Center Object" -variable XCWinOps(${window},centerobject) \ -onvalue true -offvalue false -command {xcircuit::config centering \ $XCWinOps($XCOps(focus),centerobject)} $m2 add check -label "Instance Scale-invariant Linewidth" \ -variable XCWinOps(${window},scaleinvariant) \ -onvalue invariant -offvalue variant -command {xcircuit::instance linewidth \ $XCWinOps($XCOps(focus),scaleinvariant)} $m2 add check -label "Manhattan Draw" \ -variable XCWinOps(${window},manhattandraw) \ -onvalue true -offvalue false -command {xcircuit::config manhattan \ $XCWinOps($XCOps(focus),manhattandraw)} $m2 add check -label "Link Curve Tangents" \ -variable XCWinOps(${window},pathedittype) \ -onvalue tangents -offvalue normal -command {xcircuit::config pathedit \ $XCWinOps($XCOps(focus),pathedittype)} $m2 add cascade -label "Polygon Edit" -menu $m2.polyeditmenu set m3 [menu $m2.bordermenu -tearoff 0] $m3 add command -label "Linewidth" -command {xcircuit::promptborderwidth} $m3 add separator $m3 add radio -label "Solid" -variable XCWinOps(${window},linestyle) \ -value solid -command {xcircuit::border solid} $m3 add radio -label "Dashed" -variable XCWinOps(${window},linestyle) \ -value dashed -command {xcircuit::border dashed} $m3 add radio -label "Dotted" -variable XCWinOps(${window},linestyle) \ -value dotted -command {xcircuit::border dotted} $m3 add radio -label "Unbordered" -variable XCWinOps(${window},linestyle) \ -value unbordered -command {xcircuit::border unbordered} $m3 add separator $m3 add check -label "Closed" -variable XCWinOps(${window},polyclosed) \ -onvalue closed -offvalue unclosed -command \ {xcircuit::border $XCWinOps($XCOps(focus),polyclosed)} $m3 add check -label "Square Endcaps" -variable XCWinOps(${window},endcaps) \ -onvalue square -offvalue round -command {xcircuit::border \ $XCWinOps($XCOps(focus),endcaps)} $m3 add check -label "Bounding Box" -variable XCWinOps(${window},bboxtype) \ -onvalue true -offvalue false -command {xcircuit::border bbox \ $XCWinOps($XCOps(focus),bboxtype)} $m3 add check -label "Clipmask" -variable XCWinOps(${window},clipmask) \ -onvalue true -offvalue false -command {xcircuit::border clipmask \ $XCWinOps($XCOps(focus),clipmask)} $m3 add check -label "Manhattan Draw" -variable XCWinOps(${window},manhattandraw) \ -onvalue true -offvalue false -command {xcircuit::config manhattan \ $XCWinOps($XCOps(focus),manhattandraw)} $m3 add check -label "Manhattan Edit" \ -variable XCWinOps(${window},polyedittype) \ -onvalue manhattan -offvalue normal \ -command {xcircuit::config boxedit \ $XCWinOps($XCOps(focus),polyedittype)} set m3 [menu $m2.fillmenu -tearoff 0] $m3 add radio -image img_stip100 -variable XCWinOps(${window},fillamount) \ -value 100 -command {xcircuit::fill 100 opaque} $m3 add radio -image img_stip88 -variable XCWinOps(${window},fillamount) \ -value 88 -command {xcircuit::fill 88 opaque} $m3 add radio -image img_stip75 -variable XCWinOps(${window},fillamount) \ -value 75 -command {xcircuit::fill 75 opaque} $m3 add radio -image img_stip62 -variable XCWinOps(${window},fillamount) \ -value 62 -command {xcircuit::fill 62 opaque} $m3 add radio -image img_stip50 -variable XCWinOps(${window},fillamount) \ -value 50 -command {xcircuit::fill 50 opaque} $m3 add radio -image img_stip38 -variable XCWinOps(${window},fillamount) \ -value 38 -command {xcircuit::fill 38 opaque} $m3 add radio -image img_stip25 -variable XCWinOps(${window},fillamount) \ -value 25 -command {xcircuit::fill 25 opaque} $m3 add radio -image img_stip12 -variable XCWinOps(${window},fillamount) \ -value 12 -command {xcircuit::fill 12 opaque} $m3 add radio -image img_stip0 -variable XCWinOps(${window},fillamount) \ -value 0 -command {xcircuit::fill 0 transparent} $m3 add separator $m3 add radio -label "Opaque" -variable XCWinOps(${window},opaque) \ -value true -command {xcircuit::fill opaque} $m3 add radio -label "Transparent" -variable XCWinOps(${window},opaque) \ -value false -command {xcircuit::fill transparent} set m3 [menu $m2.colormenu -tearoff 0] $m3 add command -label "Add New Color" -command {xcircuit::picknewcolor} $m3 add separator $m3 add radio -label "Inherit Color" -variable XCWinOps(${window},colorval) \ -value inherit -command {color set inherit} set m3 [menu $m2.parammenu -tearoff 0] $m3 add command -label "Manage Parameters" -command {xcircuit::prompteditparams} $m3 add separator $m3 add check -label "X Position" -variable XCWinOps(${window},xposparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),xposparam)} \ {xcircuit::parameter make "x position"} \ {xcircuit::parameter replace "x position"}} $m3 add check -label "Y Position" -variable XCWinOps(${window},yposparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),yposparam)} \ {xcircuit::parameter make "y position"} \ {xcircuit::parameter replace "y position"}} $m3 add check -label "Anchoring" -variable XCWinOps(${window},anchorparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),anchorparam)} \ {xcircuit::parameter make anchoring} \ {xcircuit::parameter replace anchoring}} $m3 add check -label "Rotation" -variable XCWinOps(${window},rotationparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),rotationparam)} \ {xcircuit::parameter make rotation} \ {xcircuit::parameter replace rotation}} $m3 add check -label "Style" -variable XCWinOps(${window},styleparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),styleparam)} \ {xcircuit::parameter make style} \ {xcircuit::parameter replace style}} $m3 add check -label "Scale" -variable XCWinOps(${window},scaleparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),scaleparam)} \ {xcircuit::parameter make scale} \ {xcircuit::parameter replace scale}} $m3 add check -label "Linewidth" -variable XCWinOps(${window},linewidthparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),linewidthparam)} \ {xcircuit::parameter make linewidth} \ {xcircuit::parameter replace linewidth}} $m3 add check -label "Color" -variable XCWinOps(${window},colorparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),colorparam)} \ {xcircuit::parameter make color} \ {xcircuit::parameter replace color}} $m3 add check -label "Start Angle" -variable XCWinOps(${window},startparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),startparam)} \ {xcircuit::parameter make "start angle"} \ {xcircuit::parameter replace "start angle"}} $m3 add check -label "End Angle" -variable XCWinOps(${window},endparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),endparam)} \ {xcircuit::parameter make "end angle"} \ {xcircuit::parameter replace "end angle"}} $m3 add check -label "Radius" -variable XCWinOps(${window},radiusparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),radiusparam)} \ {xcircuit::parameter make radius} \ {xcircuit::parameter replace radius}} $m3 add check -label "Minor Axis" -variable XCWinOps(${window},minorparam) \ -onvalue true -offvalue false -command \ {if {$XCWinOps($XCOps(focus),minorparam)} \ {xcircuit::parameter make "minor axis"} \ {xcircuit::parameter replace "minor axis"}} set m3 [menu $m2.polyeditmenu -tearoff 0] $m3 add radio -label "Manhattan Box Edit" \ -variable XCWinOps(${window},polyedittype) \ -value manhattan -command {xcircuit::config boxedit manhattan} $m3 add radio -label "Rhomboid X" -variable XCWinOps(${window},polyedittype) \ -value rhomboidx -command {xcircuit::config boxedit rhomboidx} $m3 add radio -label "Rhomboid Y" -variable XCWinOps(${window},polyedittype) \ -value rhomboidy -command {xcircuit::config boxedit rhomboidy} $m3 add radio -label "Rhomboid A" -variable XCWinOps(${window},polyedittype) \ -value rhomboida -command {xcircuit::config boxedit rhomboida} $m3 add radio -label "Normal" -variable XCWinOps(${window},polyedittype) \ -value normal -command {xcircuit::config boxedit normal} set m [menu ${window}.menubar.windowbutton.windowmenu -tearoff 0] $m add command -label "Zoom In" -command {zoom 1.5; refresh} $m add command -label "Zoom Out" -command {zoom [expr {1 / 1.5}]; refresh} $m add command -label "Pan" -command {$XCOps(focus).mainframe.toolbar.bp invoke} $m add command -label "Full View" -command {zoom view; refresh} $m add command -label "Refresh" -command {refresh} $m add separator $m add command -label "Library Directory" -command {xcircuit::library directory} $m add cascade -label "Goto Library" -menu $m.librarymenu $m add separator $m add command -label "Page Directory" -command {xcircuit::page directory} $m add cascade -label "Goto Page" -menu $m.pagemenu set m [menu ${window}.menubar.netlistbutton.netlistmenu -tearoff 0] $m add command -label "Make Pin" -command \ {set XCWinOps($XCOps(focus),labeltype) "Pin Label"; set \ XCWinOps($XCOps(focus),labelimage) img_tp; \ $XCOps(focus).mainframe.toolbar.bt invoke} $m add command -label "Make Info Pin" -command \ {set XCWinOps($XCOps(focus),labeltype) "Info Label"; set \ XCWinOps($XCOps(focus),labelimage) img_ti; \ $XCOps(focus).mainframe.toolbar.bt invoke} $m add command -label "Make Global Pin" -command \ {set XCWinOps($XCOps(focus),labeltype) "Pin Global"; set \ XCWinOps($XCOps(focus),labelimage) img_tg; \ $XCOps(focus).mainframe.toolbar.bt invoke} $m add cascade -label "Convert Label To..." -menu $m.pinmenu $m add check -label "Pin Visibility" -variable XCWinOps(${window},pinvisible) \ -onvalue true -offvalue false -command {xcircuit::label visible \ $XCWinOps($XCOps(focus),pinvisible)} $m add command -label "Make Matching Symbol" -command \ {xcircuit::promptmakesymbol [page label]} $m add command -label "Associate With Symbol" -command \ {xcircuit::symbol associate} $m add command -label "Highlight Connectivity" -command \ {xcircuit::netlist highlight} $m add command -label "Auto-number Components" -command \ {xcircuit::netlist autonumber} $m add command -label "Un-number Components" -command \ {xcircuit::netlist autonumber -forget} $m add separator $m add check -label "SPICE .end statement" -variable XCOps(spiceend) \ -onvalue true -offvalue false $m add check -label "Always regenerate netlists" -variable XCOps(forcenets) \ -onvalue true -offvalue false $m add separator $m add command -label "Write SPICE netlist" -command \ {if {$XCOps(forcenets)} {xcircuit::netlist update}; \ xcircuit::netlist write spice spc $XCOps(spiceend)} $m add command -label "Write flattened SPICE" -command \ {if {$XCOps(forcenets)} {xcircuit::netlist update}; \ xcircuit::netlist write flatspice fspc} $m add command -label "Write sim" -command \ {if {$XCOps(forcenets)} {xcircuit::netlist update}; \ xcircuit::netlist write flatsim sim} $m add command -label "Write pcb" -command \ {if {$XCOps(forcenets)} {xcircuit::netlist update}; \ xcircuit::netlist write pcb pcbnet} set m2 [menu $m.pinmenu -tearoff 0] $m2 add command -label "Normal label" -command {xcircuit::label type normal} $m2 add command -label "Local Pin" -command {xcircuit::label type pin} $m2 add command -label "Global Pin" -command {xcircuit::label type global} $m2 add command -label "Info label" -command {xcircuit::label type info} #--------------------------------------------------------------------------- # Create the cloned menu links used by the toolbar #--------------------------------------------------------------------------- ${window}.menubar.optionsbutton.optionsmenu.elementsmenu.parammenu \ clone ${window}.parammenu ${window}.menubar.optionsbutton.optionsmenu.elementsmenu.colormenu \ clone ${window}.colormenu ${window}.menubar.optionsbutton.optionsmenu.elementsmenu.bordermenu \ clone ${window}.bordermenu ${window}.menubar.optionsbutton.optionsmenu.elementsmenu.fillmenu \ clone ${window}.fillmenu .librarymenu clone ${window}.menubar.windowbutton.windowmenu.librarymenu .pagemenu clone ${window}.menubar.windowbutton.windowmenu.pagemenu } #----------------------------------------------------------------- # Wrapper procedure to (re)bind a key to a Tcl procedure (Ed Casas 9/4/03) # With no arguments, prints a list of bindings to stdout. Key # bindings should use "keyaction" to check for text mode, so that # rebinding of keys does not prevent text entry. Button bindings # do not need this restriction. #----------------------------------------------------------------- proc xcircuit::keybind { {key {}} {proc {}} {window {}} } { global XCOps if { $window == {} } { set window $XCOps(focus).mainframe.mainarea.drawing } switch -glob -- $key { {} { puts stdout "XCircuit standard key bindings:" puts stdout "Key Binding" puts stdout "-------------------------------------" set kpairs [xcircuit::bindkey] foreach i $kpairs { set pkey [lindex $i 0] set pval [lindex $i 1] puts stdout "$pkey $pval" } puts stdout "" } <[Bb]utton-?> { bind ${window} $key $proc } default { bind ${window} $key "if \{!\[xcircuit::keyaction %k %s\]\} \{ $proc \}" } } } #----------------------------------------------------------------- # Enable mouse hints in the window #----------------------------------------------------------------- # James Vernon's mouse button hints if {[catch {source $XCIRCUIT_SRC_DIR/mousehint.tcl}]} { set XCOps(mousehints) -1 } else { set XCOps(mousehints) 0 } proc xcircuit::enable_mousehints {} { global XCOps if {$XCOps(mousehints) == 0} { set XCOps(mousehints) 1 foreach window [config windownames] { set frame [winfo top $window] catch {xcircuit::mousehint_create $frame} } } } #----------------------------------------------------------------- # Final setup stuff before exiting back to interpreter #----------------------------------------------------------------- # This gets rid of the original "wish", in favor of our own window if {[string range [wm title .] 0 3] == "wish"} { wm withdraw . } #---------------------------------------------------------------------- # Library and Page menus (common to all windows) #---------------------------------------------------------------------- menu .librarymenu -tearoff 0 .librarymenu add command -label "New Library Page" -command \ {xcircuit::promptaddlibrary} .librarymenu add separator menu .pagemenu -tearoff 0 .pagemenu add command -label "Add New Page" -command {xcircuit::page make} .pagemenu add separator #---------------------------------------------------------------------- # Source other Tcl scripts, if they exist in the $XCIRCUIT_SRC_DIR path # and add the capabilities to the GUI. #---------------------------------------------------------------------- # "Write All" feature catch {source $XCIRCUIT_SRC_DIR/files.tcl} # Library manager widget catch {source $XCIRCUIT_SRC_DIR/library.tcl} # Fancy "Make Matching Symbol" feature catch {source $XCIRCUIT_SRC_DIR/symbol.tcl} # Help window catch {source $XCIRCUIT_SRC_DIR/xchelp.tcl} # EDIF file parser catch {source $XCIRCUIT_SRC_DIR/edif.tcl} # System Clipboard paste into labels catch {source $XCIRCUIT_SRC_DIR/selection.tcl} # Regexp label substitutions and auto-increment feature catch {source $XCIRCUIT_SRC_DIR/text.tcl} # Wim Vereecken's Matlab PostScript import function catch {source $XCIRCUIT_SRC_DIR/matgen.tcl} #---------------------------------------------------------------------- # Create the initial window. #---------------------------------------------------------------------- xcircuit::new_window $XCOps(focus) #---------------------------------------------------------------------- # Add buttons for the pre-allocated pages #---------------------------------------------------------------------- xcircuit::newpagebutton "Page 1" 1 xcircuit::newpagebutton "Page 2" 2 xcircuit::newpagebutton "Page 3" 3 xcircuit::newpagebutton "Page 4" 4 xcircuit::newpagebutton "Page 5" 5 xcircuit::newpagebutton "Page 6" 6 xcircuit::newpagebutton "Page 7" 7 xcircuit::newpagebutton "Page 8" 8 xcircuit::newpagebutton "Page 9" 9 xcircuit::newpagebutton "Page 10" 10 #---------------------------------------------------------------------- # Add buttons for the pre-allocated libraries #---------------------------------------------------------------------- xcircuit::newlibrarybutton "User Library" #----------------------------------------------------------------- # New key bindings should pass through this function so that key # strokes are captured correctly for label editing. #---------------------------------------------------------------------- proc xcircuit::keyaction {keycode {keystate 0}} { switch -- [eventmode] { text - etext - cattext { standardaction $keycode down $keystate return true } } return false } #----------------------------------------------------------------- proc scrollboth { lists args } { foreach l $lists { eval {$l yview} $args } } #----------------------------------------------------------------- # Procedure to generate the help window #----------------------------------------------------------------- proc xcircuit::makehelpwindow {} { toplevel .help -bg beige wm group .help . wm withdraw .help frame .help.title -bg beige frame .help.listwin pack .help.title -side top -fill x pack .help.listwin -side top -fill both -expand true label .help.title.field -text "XCircuit Help" -bg beige button .help.title.dbut -text "Dismiss" -bg beige -command {wm withdraw .help} pack .help.title.field -side left -padx 10 pack .help.title.dbut -side right -ipadx 10 listbox .help.listwin.func -yscrollcommand ".help.listwin.sb set" \ -setgrid 1 -height 20 listbox .help.listwin.keys -yscrollcommand ".help.listwin.sb set" \ -setgrid 1 -height 20 scrollbar .help.listwin.sb -orient vertical -command \ [list scrollboth [list .help.listwin.func .help.listwin.keys]] message .help.listwin.win -width 200 -justify left -anchor n \ -relief groove -text "Click on a function for help text" # Keep boxes aligned! bind .help.listwin.keys {xcircuit::helpscroll -1} bind .help.listwin.keys {xcircuit::helpscroll 1} bind .help.listwin.func {xcircuit::helpscroll -1} bind .help.listwin.func {xcircuit::helpscroll 1} # Also bind to the mouse wheel (Windows-specific, generally) bind .help.listwin.keys {xcircuit::helpscroll %D} bind .help.listwin.func {xcircuit::helpscroll %D} grid .help.listwin.func -row 0 -column 0 -sticky news -padx 1 -pady 1 grid .help.listwin.keys -row 0 -column 1 -sticky news -padx 1 -pady 1 grid .help.listwin.sb -row 0 -column 2 -sticky ns -padx 1 -pady 1 grid .help.listwin.win -row 0 -column 3 -sticky news -padx 1 -pady 1 grid columnconfigure .help.listwin 1 -weight 1 -minsize 100 grid rowconfigure .help.listwin 0 -weight 1 -minsize 100 bind .help.listwin.func "xcircuit::printhelp" } #----------------------------------------------------------------- # Scroll all listboxes in the .help.listwin window at the same # time, in reponse to any one of them receiving a scroll event. #----------------------------------------------------------------- proc xcircuit::helpscroll {value} { global tcl_platform set idx [.help.listwin.func nearest 0] if {$tcl_platform(platform) == "windows"} { set idx [expr {$idx + $value / 120}] } else { set idx [expr {$idx + $value}] } .help.listwin.func yview $idx .help.listwin.keys yview $idx # Important! This prohibits the default binding actions. return -code break } #----------------------------------------------------------------- # Procedure to update and display the help window #----------------------------------------------------------------- proc xcircuit::helpwindow {} { # Create the help window if it doesn't exist if {[catch {wm state .help}]} { xcircuit::makehelpwindow } set wstate [xcircuit::getinitstate .help] .help.listwin.func delete 0 end .help.listwin.keys delete 0 end set k [lsort -dictionary [xcircuit::bindkey]] .help.listwin.func insert end "Function" .help.listwin.keys insert end "Keys" .help.listwin.func insert end "" .help.listwin.keys insert end "" foreach i $k { set pkeys [xcircuit::bindkey -func $i] .help.listwin.func insert end "$i" .help.listwin.keys insert end "$pkeys" } if {"$wstate" != "normal"} { wm deiconify .help xcircuit::centerwin .help } raise .help } #----------------------------------------------------------------- # Prevent "Tab" from removing focus from the window during text edits, # but allow it to take its normal meaning at other times. #----------------------------------------------------------------- bind all { switch -- [eventmode] { text - etext - cattext {} default {tk::TabToWindow [tk_focusNext %W]} } } bind all <> { switch -- [eventmode] { text - etext - cattext {} default {tk::TabToWindow [tk_focusPrev %W]} } } #----------------------------------------------------------------- # Wait for the drawing area to become visible, and set the focus on it. # Invoke the "wire" button so we have a default button1 action. #----------------------------------------------------------------- tkwait visibility $XCOps(focus).mainframe.mainarea.drawing focus -force $XCOps(focus).mainframe.mainarea.drawing #----------------------------------------------------------------- # This pops down the interpreter window, if the "console.tcl" script was run. #----------------------------------------------------------------- catch xcircuit::consoledown #----------------------------------------------------------------- # End of GUI configuration file. Xcircuit continues to load the xcircuit # startup configuration files. #----------------------------------------------------------------- xcircuit-3.9.73/lib/tcl/sinusoid.tcl0000664000175000001440000000051512335667423016066 0ustar timusersproc sinusoid {a b {c 1.0}} { set mylist {} for {set t 0} {$t < [expr int(50.0 * $c)]} {incr t} { set x [expr int($b * $t / 50.0)] set y [expr int($a * sin(2 * 3.1415926 * $t / 50.0))] lappend mylist [list $x $y] } set handle [eval polygon make [llength $mylist] $mylist] refresh return $handle } xcircuit-3.9.73/lib/tcl/boot_xcircuit.tcl0000664000175000001440000000276512335667423017117 0ustar timusers## boot xcircuit within a starkit (replaces bin/xcircuit) package provide app-xcircuit 3.6.36 # define the source code location set XCIRCUIT_SRC_DIR [file join $::starkit::topdir lib app-xcircuit] set env(XCIRCUIT_SRC_DIR) $XCIRCUIT_SRC_DIR # define the library location (outside the starkit) #set loclibdir [file join [file dirname $::starkit::topdir] xclib] set loclibdir [file join $env(HOME) xclib] #set XCIRCUIT_LIB_DIR [file join $loclibdir app-xcircuit] set XCIRCUIT_LIB_DIR $loclibdir set env(XCIRCUIT_LIB_DIR) $XCIRCUIT_LIB_DIR # create the library if necessary (usually just the first time) if {![file exists $loclibdir]} { file mkdir $loclibdir catch {unset libfiles} # directories lappend libfiles [file join $XCIRCUIT_SRC_DIR app-defaults] lappend libfiles [file join $XCIRCUIT_SRC_DIR fonts] lappend libfiles [file join $XCIRCUIT_SRC_DIR pixmaps] # individual files lappend libfiles [file join $XCIRCUIT_SRC_DIR xcircps2.pro] foreach lf [glob -nocomplain -- [file join $XCIRCUIT_SRC_DIR *.lps]] { lappend libfiles $lf } lappend libfiles [file join $XCIRCUIT_SRC_DIR xcstartup.tcl] # foreach lf $libfiles { file copy $lf $loclibdir } unset libfiles } # start xcircuit thru tkcon w/o args source [file join $XCIRCUIT_SRC_DIR tkcon.tcl] tkcon main source [file join $XCIRCUIT_SRC_DIR console.tcl] tkcon slave slave package require Tk tkcon slave slave source [file join $XCIRCUIT_SRC_DIR xcircuit.tcl] tkcon slave slave source [file join $XCIRCUIT_SRC_DIR xcstartup.tcl] xcircuit-3.9.73/lib/tcl/pkgIndex.tcl0000664000175000001440000000013712335667423016002 0ustar timusers package ifneeded app-xcircuit 3.6.39 \ [list source [file join $dir boot_xcircuit.tcl]] xcircuit-3.9.73/lib/tcl/xchelp.tcl0000664000175000001440000005574412335667423015532 0ustar timusers#----------------------------------------------------------------- # Procedures to generate and display a help window in xcircuit #----------------------------------------------------------------- proc xcircuit::printhelp {} { set csel [.help.listwin.func curselection] if {$csel == ""} {return} set key [.help.listwin.func get $csel] switch -glob $key { {Page} {.help.listwin.win configure -text \ "Switch to the indicated page."} {Justify} {.help.listwin.win configure -text \ "Change justification of the currently selected or\ edited label."} {Text Delete} {.help.listwin.win configure -text \ "When editing a label, delete one character."} {Text Return} {.help.listwin.win configure -text \ "When editing a label, accept edits and return to normal drawing mode."} {Text Left} {.help.listwin.win configure -text \ "When editing a label, move cursor left one character or procedure."} {Text Right} {.help.listwin.win configure -text \ "When editing a label, move cursor right one character or procedure."} {Text Up} {.help.listwin.win configure -text \ "When editing a multi-line label, move cursor up one line of text."} {Text Down} {.help.listwin.win configure -text \ "When editing a multi-line label, move cursor down one line of text."} {Text Split} {.help.listwin.win configure -text \ "When editing a label, split the label into two separate labels at\ the cursor position."} {Text Home} {.help.listwin.win configure -text \ "When editing a label, move cursor to the beginning of the label."} {Text End} {.help.listwin.win configure -text \ "When editing a label, move cursor to the end of the label."} {Tab Forward} {.help.listwin.win configure -text \ "When editing a label, move forward to the next defined tab stop."} {Tab Backward} {.help.listwin.win configure -text \ "When editing a label, move backward to the previously defined tab stop."} {Tab Stop} {.help.listwin.win configure -text \ "When editing a label, declare a tab stop at the current horizontal cursor\ position. This may be used to align text in multiple lines to certain\ positions."} {Superscript} {.help.listwin.win configure -text \ "When editing a label, make text superscripted (about 2/3 size, and\ raised about half a line)."} {Subscript} {.help.listwin.win configure -text \ "When editing a label, make text subscripted (about 2/3 size, and\ lowered about 3/4 of a line)."} {Normalscript} {.help.listwin.win configure -text \ "When editing a label, return from a subscript or superscript alignment\ to a normal text alignment."} {Nextfont} {.help.listwin.win configure -text \ "When editing a label, change the font at the cursor position to the\ next font family in the list. This will cycle through all of the\ defined fonts if executed repeatedly."} {Boldfont} {.help.listwin.win configure -text \ "When editing a label, change the current font family to a boldface\ type, if available."} {Italicfont} {.help.listwin.win configure -text \ "When editing a label, change the current font family to an italic\ or slanted type, if available."} {Normalfont} {.help.listwin.win configure -text \ "When editing a label, change the current font family to a regular\ type (non-italic, non-bold)."} {Underline} {.help.listwin.win configure -text \ "When editing a label, begin underlining the text."} {Overline} {.help.listwin.win configure -text \ "When editing a label, begin overlining the text."} {ISO Encoding} {.help.listwin.win configure -text \ "When editing a label, change the font encoding from normal to ISO."} {Linebreak} {.help.listwin.win configure -text \ "When editing a label, append a linebreak to the label. This generates\ multi-line text."} {Halfspace} {.help.listwin.win configure -text \ "When editing a label, insert a half-space."} {Quarterspace} {.help.listwin.win configure -text \ "When editing a label, insert a quarter-space."} {Special} {.help.listwin.win configure -text \ "When editing a label, insert a special character. This is a command\ that brings up the font encoding array, allowing the user to select\ any character from the current font in the current encoding type."} {Parameter} {.help.listwin.win configure -text \ "When editing a label, insert a parameter. The parameter must first\ exist in the current object. If only one parameter is defined, it\ will be inserted. If more than one parameter is defined, a selection\ box will appear, allowing the user to select which parameter to\ insert into the text."} {Parameterize Point} {.help.listwin.win configure -text \ "When editing a polygon, parameterize the X and Y position of the\ currently edited point. The point may then be at a different\ position in different instances of the current object."} {Break at Point} {.help.listwin.win configure -text \ "When editing a polygon, break the polygon into two pieces at\ the currently edited point."} {Delete Point} {.help.listwin.win configure -text \ "When editing a polygon, remove the currently edited point, and\ move to the next point."} {Insert Point} {.help.listwin.win configure -text \ "When editing a polygon, insert a point at the same position as\ the currently edited point."} {Append Point} {.help.listwin.win configure -text \ "When editing a polygon, append a point at the same position as\ the currently edited point, and move the currently edited point\ to the new point."} {Next Point} {.help.listwin.win configure -text \ "When editing a polygon, move to the next point."} {Attach} {.help.listwin.win configure -text \ "When editing a polygon, select the nearest element that is not\ the polygon, and force the currently edited point to terminate\ on that element. The element to attach to may be a polygon, an\ arc, a spline, or a path. The edit point will continue to follow\ the cursor within the constraint that it must remain connected to\ the other element."} {Virtual Copy} {.help.listwin.win configure -text \ "Create a virtual library instance of the currently selected\ object instance. This will duplicate the existing library entry\ but will have the scale and rotation of the selected instance,\ as well as any non-default parameters given to that instance."} {Next Library} {.help.listwin.win configure -text \ "When on a library page, go to the next defined library. The\ User Library is always last, and then the function cycles back\ to the first defined library."} {Library Directory} {.help.listwin.win configure -text \ "Go to the master list of libraries."} {Library Copy} {.help.listwin.win configure -text \ "When on a library page, select the object under the cursor and\ any selected objects, and return to the originating page in\ copy mode."} {Library Edit} {.help.listwin.win configure -text \ "When on a library page, edit the name of an object by editing\ the text label underneath the picture of the object."} {Library Delete} {.help.listwin.win configure -text \ "When on a library page, remove the selected object from the\ library. An object can be removed only if there are no instances\ of that object on any page or in the hierarchy of another object.\ A removed object is destroyed and cannot be recovered."} {Library Duplicate} {.help.listwin.win configure -text \ "When on a library page, create a duplicate object of the selected\ object, placing it in the User Library."} {Library Hide} {.help.listwin.win configure -text \ "When on a library page, remove the selected object from view but\ do not destroy it. An object can be hidden from view only if\ it exists in the hierarchy of another object (such as the arrow object inside the current source object)."} {Library Virtual Copy} {.help.listwin.win configure -text \ "When on a library page, create a duplicate instance of the\ selected object. The duplicate instance may have different\ (instanced) parameters. Default parameters are defined by\ the master object. The name of the master object is printed\ in black, while the names of virtual instances are in gray.\ To define a virtual copy with different scale or rotation,\ use the (non-Library) Virtual Copy function."} {Library Move} {.help.listwin.win configure -text \ "When on a library page, move the position of an object relative\ to other objects. If one object is selected, it will be moved\ to the position nearest the cursor. If two objects are selected,\ their positions will be swapped. If in the Page Directory, the\ relative positions of pages may be changed with the same function."} {Library Pop} {.help.listwin.win configure -text \ "When on a library page, return to the originating page."} {Page Directory} {.help.listwin.win configure -text \ "Go to the master list of pages."} {Help} {.help.listwin.win configure -text \ "Display the window of help information and key bindings."} {Redraw} {.help.listwin.win configure -text \ "Redraw everything in the window."} {View} {.help.listwin.win configure -text \ "Scale and position the view of the current page so that elements\ on the page fill the window to the maximum extent possible (minus\ small margins on all sides)."} {Zoom In} {.help.listwin.win configure -text \ "Increase the magnification of the view of the current page in\ the window. The location of the page at the center point of the\ window remains at the center."} {Zoom Out} {.help.listwin.win configure -text \ "Decrease the magnification of the view of the current page in\ the window. The location of the page at the center point of the\ window remains at the center."} {Pan} {.help.listwin.win configure -text \ "Change the view of the current page. There are various modes,\ including here, center, left, right, up, down, and follow. Pan\ center changes the view such that the point nearest\ the cursor becomes the center point of the window. Pan up, down,\ right, and left change the view by one-half page in the indicated\ direction."} {Double Snap} {.help.listwin.win configure -text \ "Increase the spacing between snap points by a factor of two."} {Halve Snap} {.help.listwin.win configure -text \ "Decrease the spacing between snap points by half."} {Write} {.help.listwin.win configure -text \ "Display the Output Properties and File Write window. If output\ properties are changed but user does not want to write the file\ (such as when attaching multiple pages or schematics), use the\ Cancel button to accept all applied changes and pop down the\ window without writing."} {Rotate} {.help.listwin.win configure -text \ "Rotate the selected elements, or element nearest the cursor, by\ the number of degrees in the argument. A positive number indicates\ a clockwise rotation, a negative number, a counterclockwise\ rotation."} {Flip X} {.help.listwin.win configure -text \ "Flip the selected elements, or element nearest the cursor, in the\ horizontal (X) direction (that is, across the Y axis). The axis\ defining the flip is the vertical line passing through the cursor X\ position."} {Flip Y} {.help.listwin.win configure -text \ "Flip the selected elements, or element nearest the cursor, in the\ vertical (Y) direction (that is, across the X axis). The axis\ defining the flip is the horizontal line passing through the cursor\ Y position."} {Snap} {.help.listwin.win configure -text \ "Snap the selected elements, or element nearest the cursor, to the\ nearest point on the snap grid. Each point of a polygon is snapped.\ Spline control points and arc centers are snapped. Label and object\ instance reference positions are snapped."} {Pop} {.help.listwin.win configure -text \ "Return from editing an object (return from the last push)."} {Push} {.help.listwin.win configure -text \ "Edit the object represented by the selected object instance, or the\ object instance closest to the cursor. The current page is pushed\ onto a stack, and the object becomes the current page."} {Delete} {.help.listwin.win configure -text \ "Delete the selected elements or element closest to the cursor."} {Select} {.help.listwin.win configure -text \ "Select the element or elements near the cursor. If multiple\ elements match the selection criteria, an interactive method is\ initiated in which individual elements may be selected or rejected\ by pressing the mouse buttons 2 or 3, respectively."} {Box} {.help.listwin.win configure -text \ "Begin drawing a box in the current default style. One corner of\ the box is anchored at the cursor position, and the other corner\ dragged with the cursor. The box is completed by pressing buttons\ 1 or 2 or canceled with button 3."} {Arc} {.help.listwin.win configure -text \ "Begin drawing a circle in the current default style. The center\ of the circle is anchored at the cursor position, and the radius\ is defined by dragging the cursor to the desired position. Button\ 2 completes the arc, and button 3 cancels it. Button 1 switches\ from defining the arc radius to (in sequence) defining the arc\ start and stop angles, and defining the ellipse minor axis."} {Text} {.help.listwin.win configure -text \ "Begin a normal text label. In text edit mode, all keystrokes are\ interpreted as input to the label, except for the key that is bound\ to action Text Return. Mouse buttons 1 and 2 complete the text\ label, while button 3 cancels (deletes) the label."} {Exchange} {.help.listwin.win configure -text \ "If two elements are selected, their relative positions (drawing\ order) are swapped (drawing order determines what objects obscure\ other objects when overlapping). If one element is selected, it\ is brought to the front of the drawing, unless it is already at\ the front, in which case it is sent to the back."} {Copy} {.help.listwin.win configure -text \ "Make a copy of the selected elements or element closest to the\ cursor. Elements are dragged as a group with the cursor. Mouse\ button 1 places the copies, creates a new set of copies, and\ continues the copy operation. Mouse button 2 places the copies\ and ends the copy operation. Mouse button 3 removes the current\ selection being dragged and completes the copy operation."} {Move} {.help.listwin.win configure -text \ "Move the selected elements or element nearest the cursor. This\ function is normally handled by the mouse button press, not the\ Move binding."} {Join} {.help.listwin.win configure -text \ "Join selected elements into a single element. If all of the selected\ elements are polygons, the new element will be a single polygon. If\ the selected elements include a mixture of one or more types\ (polygons, arcs, splines, and paths), the resulting type will be a\ path."} {Unjoin} {.help.listwin.win configure -text \ "Break the selected path or path nearest the cursor into its\ constituent elements. This operation applies only to paths."} {Spline} {.help.listwin.win configure -text \ "Begin a bezier curve (inconsistently and, technically, incorrectly\ referred to in XCircuit documentation as a spline). The curve is\ anchored at the cursor position, and the other endpoint of the\ curve is dragged with the cursor. Mouse button 2 completes the\ curve. Mouse button 3 cancels (deletes) the curve. Mouse button\ 1 switches between the two endpoints and two control points."} {Edit} {.help.listwin.win configure -text \ "Edit the selected element or element nearest the cursor. The\ edit function applies to polygons, arcs, splines, paths, and\ labels, but not to object instances (editing the instance implies\ editing the object itself, which requires the Push function).\ Editing a label, arc, or spline is the same as creating it.\ Editing a polygon (including boxes and wires) allows individual\ points to be selected and moved. In all cases except labels,\ mouse button 1 moves to the next point, mouse button 2 completes\ the edit, and mouse button 3 cancels the last edit maneuver."} {Undo} {.help.listwin.win configure -text \ "Undo the last action. Note that not all actions are undoable."} {Redo} {.help.listwin.win configure -text \ "Perform again the last action which was undone with the Undo\ function."} {Select Save} {.help.listwin.win configure -text \ "Take all of the selected elements and turn them into a new\ object. The individual elements will be removed from the page\ and replaced with an instance of the newly defined object, and\ the object itself will be placed in the User Library. The\ user will be prompted for a name of the new library object."} {Unselect} {.help.listwin.win configure -text \ "Remove the element closest to the cursor from the list of\ currently selected objects."} {Dashed} {.help.listwin.win configure -text \ "Set the border style of the selected elements or element\ closest to the cursor to a dashed line."} {Dotted} {.help.listwin.win configure -text \ "Set the border style of the selected elements or element\ closest to the cursor to a dotted line."} {Solid} {.help.listwin.win configure -text \ "Set the border style of the selected elements or element\ closest to the cursor to a solid line."} {Prompt} {.help.listwin.win configure -text \ "Generate the TCL command prompt."} {Dot} {.help.listwin.win configure -text \ "Create a solder dot, connecting wires passing through it. The\ dot is placed at the current cursor position. If a library\ object named dot exists, it is used."} {Wire} {.help.listwin.win configure -text \ "Begin drawing a wire (or unclosed polygon). The wire is anchored\ at the cursor position, and the other end is dragged with the\ cursor. Mouse button 1 anchors the endpoint and starts a new\ wire segment. Mouse button 2 anchors the endpoint and completes\ the wire. Mouse button 3 deletes the last anchored point."} {Nothing} {.help.listwin.win configure -text \ "Null function. Does nothing."} {Exit} {.help.listwin.win configure -text \ "Exit the program immediately without prompting for action on\ pages which have been changed but not saved."} {Start} {.help.listwin.win configure -text \ "General-purpose start function, normally associated with mouse\ button 1."} {Finish} {.help.listwin.win configure -text \ "General-purpose completion function, normally associated with mouse\ button 2."} {Cancel} {.help.listwin.win configure -text \ "General-purpose cancelation function, normally associated with mouse\ button 3."} {Snap To} {.help.listwin.win configure -text \ "Toggle the state of the snapping function. If on, points and element\ positions are always snapped to the snap grid. If off, points and\ element position are unconstrained."} {Netlist} {.help.listwin.win configure -text \ "Generate a netlist of the default type."} {Swap} {.help.listwin.win configure -text \ "Switch between editing a schematic and its symbol. If the schematic\ covers multiple pages, will switch between the secondary page, primary\ page, and symbol."} {Pin Label} {.help.listwin.win configure -text \ "Create a local pin, a label that is interpreted as\ the primary name of the network to which it is attached."} {Pin Global} {.help.listwin.win configure -text \ "Create a global pin, a label that is interpreted as\ belonging to the same network whereever it occurs on\ the schematic."} {Info Label} {.help.listwin.win configure -text \ "Create an info label, a label that is not displayed\ except when editing the object, and which is parsed\ to extract information on how to output the device in\ a netlist."} {Connectivity} {.help.listwin.win configure -text \ "Highlight the connectivity of the electrical network\ that includes the selected item or that is closest\ to the cursor. Item must be a valid network element."} {Sim} {.help.listwin.win configure -text \ "Generate a .sim (flat) netlist from the current page schematic,\ especially for use with the IRSIM simulator and the netgen and\ gemini LVS netlist comparators."} {SPICE} {.help.listwin.win configure -text \ "Generate a .spc (hierarchical) netlist from the current page\ schematic. The format is compatible with Berkeley spice3 and\ tclspice."} {PCB} {.help.listwin.win configure -text \ "Generate a .pcbnet netlist from the current page schematic.\ This format is compatible with the pcb layout program."} {SPICE Flat} {.help.listwin.win configure -text \ "Generate a .fspc (flattened) SPICE netlist from the current\ page schematic."} {default} {.help.listwin.win configure -text ""} } } #----------------------------------------------------------------- # Procedure to generate the help window #----------------------------------------------------------------- proc xcircuit::makehelpwindow {} { toplevel .help -bg beige wm withdraw .help frame .help.title -bg beige frame .help.listwin pack .help.title -side top -fill x pack .help.listwin -side top -fill both -expand true label .help.title.field -text "XCircuit Help" -bg beige button .help.title.dbut -text "Dismiss" -bg beige -command {wm withdraw .help} pack .help.title.field -side left -padx 10 pack .help.title.dbut -side right -ipadx 10 listbox .help.listwin.func -yscrollcommand ".help.listwin.sb set" \ -setgrid 1 -height 20 listbox .help.listwin.keys -yscrollcommand ".help.listwin.sb set" \ -setgrid 1 -height 20 scrollbar .help.listwin.sb -orient vertical -command \ [list scrollboth [list .help.listwin.func .help.listwin.keys]] message .help.listwin.win -width 200 -justify left -anchor n \ -relief groove -text "Click on a function for help text" grid .help.listwin.func -row 0 -column 0 -sticky news -padx 1 -pady 1 grid .help.listwin.keys -row 0 -column 1 -sticky news -padx 1 -pady 1 grid .help.listwin.sb -row 0 -column 2 -sticky ns -padx 1 -pady 1 grid .help.listwin.win -row 0 -column 3 -sticky news -padx 1 -pady 1 grid columnconfigure .help.listwin 1 -weight 1 -minsize 100 grid rowconfigure .help.listwin 0 -weight 1 -minsize 100 bind .help.listwin.func "xcircuit::printhelp" } #----------------------------------------------------------------- # Procedure to update and display the help window #----------------------------------------------------------------- proc xcircuit::helpwindow {} { # Create the help window if it doesn't exist if {[catch {wm state .help}]} { xcircuit::makehelpwindow } .help.listwin.func delete 0 end .help.listwin.keys delete 0 end set k [lsort -dictionary [xcircuit::bindkey]] .help.listwin.func insert end "Function" .help.listwin.keys insert end "Keys" .help.listwin.func insert end "" .help.listwin.keys insert end "" foreach i $k { set pkeys [xcircuit::bindkey -func $i] .help.listwin.func insert end "$i" .help.listwin.keys insert end "$pkeys" } wm deiconify .help } #----------------------------------------------------------------- xcircuit-3.9.73/lib/tcl/selection.tcl0000664000175000001440000000040612335667423016215 0ustar timusers# selection.tcl --- rebinds middle mouse button in text mode # to implement a clipboard paste. xcircuit::keybind { if {[eventmode] == "text" || \ [eventmode] == "etext"} {label insert text "[selection get]"} else { \ standardaction %b down %s}} xcircuit-3.9.73/lib/tcl/xcircuit.tcl.in0000775000175000001440000001624612775475073016511 0ustar timusers# Wishrc startup for ToolScript (xcircuit) # # Loads the shared object (xcircuit.so) file into Tcl, runs the # wrapper script to generate the GUI, then runs the initialization # routine for the XCircuit package. global XCOps set envlibdir [array get env "XCIRCUIT_LIB_DIR"] if {$envlibdir == {}} { set XCIRCUIT_LIB_DIR LIBDIR } unset envlibdir set envsrcdir [array get env "XCIRCUIT_SRC_DIR"] if {$envsrcdir != {}} { set path [lindex $envsrcdir 1] } else { set path SCRIPTSDIR set XCIRCUIT_SRC_DIR $path } unset envsrcdir if {[string compare $tcl_platform(platform) "windows"] == 0} { set libext .dll } else { set libext .so } set tcllibdir $path if {![file exists ${tcllibdir}/xcircuit$libext]} { set tcllibdir ${path}/tcl } if {![file exists ${tcllibdir}/xcircuit$libext]} { puts stderr "Error: Cannot find file xcircuit$libext" } load ${tcllibdir}/xcircuit$libext package require Xcircuit # It is important to make sure no magic commands overlap with Tcl built-in # commands, because otherwise the namespace import will fail. proc pushnamespace { name } { set y [namespace eval ${name} info commands ::${name}::*] set z [info commands] foreach v $y { regsub -all {\*} $v {\\*} i set x [namespace tail $i] if {[lsearch $z $x] < 0} { namespace import $i } else { puts "Warning: ${name} command '$x' use fully-qualified name '$v'" } } } proc popnamespace { name } { set z [info commands] set l [expr [string length ${name}] + 5] while {[set v [lsearch $z ${name}_tcl_*]] >= 0} { set y [lindex $z $v] set w [string range $y $l end] interp alias {} ::$w {} rename ::$y ::$w puts "Info: replacing ::$w with ::$y" } namespace forget ::${name}::* } set auto_noexec 1 ;# don't EVER call UNIX commands w/o "shell" in front # Have we called xcircuit from tkcon? if {[lsearch [interp aliases] tkcon] != -1} { set XcConsole tkcon wm withdraw . # Rename conflicting TkCon commands before pushing xcircuit's namespace if {[lsearch [info commands] orig_edit] < 0} { rename edit orig_edit } } else { # Extend the "unknown" command-line handler to be compatible with the # way we have renamed certain core Tcl/Tk functions. rename unknown tcl_unknown proc unknown { args } { # CAD tools special: # Check for commands which were renamed to tcl_(command) set cmd [lindex $args 0] if {[lsearch [info commands] tcl_$cmd] >= 0} { set arglist [concat tcl_$cmd [lrange $args 1 end]] set ret [catch {eval $arglist} result] if {$ret == 0} { return $result } else { return -code $ret -errorcode $errorCode $result } } return [eval [concat tcl_unknown $args]] } } # Rename conflicting Tcl/Tk commands before pushing xcircuit's namespace if {[lsearch [info commands] tcl_label] < 0} { rename label tcl_label } # Allow commands in the xcircuit namespace to be called from the toplevel namespace pushnamespace xcircuit #---------------------------------------------------------------------- # Cross-Application section #---------------------------------------------------------------------- # Check namespaces for existence of other applications set UsingMagic 0 set UsingIRSIM 0 set UsingNetgen 0 set nlist [namespace children] foreach i $nlist { switch $i { ::magic { set UsingMagic 1 } ::irsim { set UsingIRSIM 1 } ::netgen { set UsingNetgen 1 } } } # Setup IRSIM assuming that the Tcl version is installed. # We do not need to rename procedure irsim to NULL because it is # redefined in a script, which simply overwrites the original. proc irsim { args } { global CAD_ROOT set irsimscript [glob -nocomplain ${CAD_ROOT}/irsim/tcl/irsim.tcl] if { ${irsimscript} == {} } { puts stderr "\"irsim\" requires Tcl-based IRSIM version 9.6 or newer." puts stderr "Could not find script \"irsim.tcl\". If IRSIM is installed in a" puts stderr "place other than CAD_ROOT (=${CAD_ROOT}), use the command" puts stderr "\"source /irsim.tcl\" before doing \"irsim\"." } else { source $irsimscript eval {irsim} $args } } # Setup Magic assuming that the Tcl version is installed. proc magic { args } { global CAD_ROOT set magicscript [glob -nocomplain ${CAD_ROOT}/magic/tcl/magic.tcl] if { ${magicscript} == {} } { puts stderr "\"magic\" requires Tcl-based Magic version 7.2 or newer." puts stderr "Could not find script \"magic.tcl\". If Magic is installed in a" puts stderr "place other than CAD_ROOT (=${CAD_ROOT}), use the command" puts stderr "\"source /magic.tcl\"." } else { set argv $args set argc [llength $args] uplevel #0 source $magicscript } } # Setup Netgen assuming that the Tcl version is installed. proc netgen { args } { global CAD_ROOT set netgenscript [glob -nocomplain ${CAD_ROOT}/netgen/tcl/netgen.tcl] if { ${netgenscript} == {} } { puts stderr "\"netgen\" requires Tcl-based Netgen version 1.2 or newer." puts stderr "Could not find script \"netgen.tcl\". If Netgen is installed in a" puts stderr "place other than CAD_ROOT (=${CAD_ROOT}), use the command" puts stderr "\"source /netgen.tcl\"." } else { set argv $args set argc [llength $args] source $netgenscript } } # Source the default resources file source ${tcllibdir}/resource.tcl # Sourcing of individual resource overrides set envhomedir [array get env "HOME"] if {$envhomedir != {}} { set homepath [lindex $envhomedir 1] set homedefaults ${homepath}/.Xdefaults if {[file exists $homedefaults]} { if {[catch {option readfile $homedefaults userDefault}]} { puts stderr "Warning: Error parsing file $homedefaults" } } unset homedefaults unset homepath } unset envhomedir # Run the xcircuit start function if {[string length $argv] == 0} { # Source the GUI-generating script source ${tcllibdir}/wrapper.tcl xcircuit::start .xcircuit } else { set do_wrapper true set argafter {xcircuit::start} for {set i 0} {$i < $argc} {incr i 1} { set x [lindex $argv $i] switch -regexp -- $x { ^-now { set do_wrapper false } ^-r { set XCOps(library) "all" } ^-noc { # this option already handled---absorb it and do nothing. } default { lappend argafter $x } } } # Set up for interactive or filter (batch) mode processing if {$do_wrapper} { # Source the GUI-generating script source ${tcllibdir}/wrapper.tcl set argafter [linsert $argafter 1 .xcircuit] } else { simple .xcdummy -exitproc "quitnocheck" set XCOps(window) .xcdummy } unset x i do_wrapper eval $argafter ;# xcircuit::start .xcircuit ${argv} } unset tcllibdir # The GUI wrapper iconifies the window while generating it catch {wm deiconify $XCOps(toplevel)} # Invoke the "wire" button by default catch {$XCOps(focus).mainframe.toolbar.bw invoke} # Xcircuit start function drops back to interpreter after initialization & setup if {[string range [wm title .] 0 3] == "wish"} { wm withdraw . } if {[string range [wm title .] 0 8] == "xcircexec"} { wm withdraw . } xcircuit-3.9.73/lib/tcl/sue_xc.tcl0000664000175000001440000002175112335667423015524 0ustar timusers#------------------------------------------ # sue_xc.tcl #------------------------------------------ # This script should be sourced into # XCircuit and provides the capability to # translate .sue files into XCircuit # schematics. This script works properly # with XCircuit version 3.2.24 or newer. #------------------------------------------ # The primary routine is "make_sue_all", # which is a TCL procedure to be run from # the XCircuit command line in the directory # containing .sue format files. Without # options, it creates a single XCircuit # PostScript output file "sue_gates.ps", # containing all of the gate symbols and # associated schematics in a single file. #------------------------------------------ # Written by R. Timothy Edwards # 8/23/04 # MultiGiG, Inc. # Scotts Valley, CA #------------------------------------------ global fscale set fscale 1.6 #------------------------------------------------------------ # scale an {x y} list value from SUE units to XCircuit units #------------------------------------------------------------ proc scale_coord {coord} { global fscale set x [lindex $coord 0] set y [lindex $coord 1] set newc [lreplace $coord 0 1 [expr {int($x * $fscale)}] \ [expr {int(-$y * $fscale)}]] return $newc } #------------------------------------------------------------ # make and make_wire: create the schematic elements #------------------------------------------------------------ proc make {type args} { global fscale if {[llength $args] == 1} { set args [lindex $args 0] } # default values set flipped {} set angle 0 set width 1 set length 1 set name bad_element set origin {0 0} set instance_params {} foreach {key value} $args { switch -- $key { -orient { switch -- $value { RXY { set angle 180 } RX { set flipped horizontal } RY { set flipped vertical set angle 180 } R270 { set angle 270 } R90 { set angle 90 } R0 { # do nothing } } } -W { set width $value } -L { set length $value } -origin { set origin $value } -name { set name $value } -text { set name $value } default { lappend instance_params [list [string range $key 1 end] $value] } } } set origin [scale_coord $origin] switch -- $type { pmos { set newgate [instance make pMOS $origin] # SUE pMOS is wider than xcircuit pMOS. set x1 [lindex $origin 0] set s1 [lreplace $origin 0 0 [expr {$x1 - 64}]] set s2 [lreplace $origin 0 0 [expr {$x1 - 96}]] set newpoly [polygon make 2 $s1 $s2] select $newgate parameter set width $width -forward parameter set length $length -forward select [list $newgate $newpoly] rotate $angle $origin if {$flipped != {}} { select [list $newgate $newpoly] flip $flipped $origin } } nmos { set newgate [instance make nMOS $origin] # SUE nMOS is wider than xcircuit nMOS. set x1 [lindex $origin 0] set s1 [lreplace $origin 0 0 [expr {$x1 - 64}]] set s2 [lreplace $origin 0 0 [expr {$x1 - 96}]] set newpoly [polygon make 2 $s1 $s2] select $newgate parameter set width $width -forward parameter set length $length -forward select [list $newgate $newpoly] rotate $angle $origin if {$flipped != {}} { select [list $newgate $newpoly] flip $flipped $origin } } input - output - name_net - name_net_s { set newtext [label make pin $name $origin] rotate $newtext $angle $origin if {$flipped != {}} { flip $newtext $flipped $origin } } global { set newtext [label make global $name $origin] rotate $newtext $angle $origin if {$flipped != {}} { flip $newtext $flipped $origin } } text { set newtext [list $name] while {[set rp [string first \n $newtext]] >= 0} { set newtext [string replace $newtext $rp $rp "\} \{return\} \{"] set rp [string first \n $newtext] } set newtext [label make normal $newtext $origin] rotate $newtext $angle $origin if {$flipped != {}} { flip $newtext $flipped $origin } } # Default behavior is to generate an object instance of the # given name. This assumes that these are only objects that # have been defined in .sue files already. default { set newgate [instance make $type $origin] select $newgate rotate $angle $origin if {$flipped != {}} { select $newgate flip $flipped $origin } if {$instance_params != {}} { select $newgate foreach pair $instance_params { set key [lindex $pair 0] set value [lindex $pair 1] parameter set $key $value -forward } deselect } } } deselect } #------------------------------------------------------------ # Draw text on the schematic #------------------------------------------------------------ proc make_text {args} { make text $args } #------------------------------------------------------------ # Draw a wire into the schematic #------------------------------------------------------------ proc make_wire {x1 y1 x2 y2} { global fscale # Scale the origin from SUE units to XCircuit units set sx1 [expr {int($x1 * $fscale)}] set sy1 [expr {int(-$y1 * $fscale)}] set sx2 [expr {int($x2 * $fscale)}] set sy2 [expr {int(-$y2 * $fscale)}] polygon make 2 [list $sx1 $sy1] [list $sx2 $sy2] } proc make_line {args} { eval "make_wire $args" } #------------------------------------------------------------ # icon_*: create the symbol #------------------------------------------------------------ #------------------------------------------------------------ # default parameters (deferred) #------------------------------------------------------------ proc icon_setup {icon_args params} { global icon_params set icon_params [concat $icon_params $params] } #------------------------------------------------------------ # pins #------------------------------------------------------------ proc icon_term {args} { set pintype "no_pin" set origin {0 0} set name "bad_pin_name" foreach {key value} $args { switch -- $key { -type { set pintype $value } -origin { set origin $value } -name { set name $value } } } set newtext [label make pin $name $origin] } #------------------------------------------------------------ # instance parameters and symbol text labels #------------------------------------------------------------ proc icon_property {args} { set proptype {} set origin {0 0} set name "bad_parameter" foreach {key value} $args { switch -- $key { -origin { set origin $value } -name { set name $value } -type { set proptype $value } -size { # label size. Ignore, for now. } -label { label make normal "$value" [scale_coord $origin] } } } } #------------------------------------------------------------ # Line drawing on the symbol #------------------------------------------------------------ proc icon_line {args} { set coords {} set i 0 foreach {x y} $args { set s [scale_coord [list $x $y]] lappend coords $s incr i } eval "polygon make $i $coords" } #------------------------------------------------------------ # Main routine: Load the .sue file for the indicated # gate. Draw the schematic and the (user library) symbol, # and associate them. #------------------------------------------------------------ proc make_sue_gate {name} { global icon_params source ${name}.sue # Go to a new page unless the current one is empty while {[llength [object parts]] > 0} { set p [page] incr p while {[catch {page $p}]} { page make } } # Evaluate the symbol. Generate the symbol in xcircuit. # Then clear the page to make the schematic set icon_params {} eval "ICON_${name}" set hlist [object parts] object make $name $hlist set hlist [object parts] push $hlist foreach pair $icon_params { set key [lindex $pair 0] set value [lindex $pair 1] switch -- $key { origin - orient { # Do nothing for now. These are library instance values # in xcircuit, and could be set as such. } default { parameter make substring $key [list $value] } } } pop delete $hlist eval "SCHEMATIC_${name}" wm withdraw .select schematic associate $name zoom view } #------------------------------------------------------------ # Top-level routine: Find all the .sue files in the # current directory and generate a library from them #------------------------------------------------------------ proc make_all_sue {{name sue_gates}} { set files [glob \*.sue] foreach i $files { set filename [file tail [file root $i]] make_sue_gate $filename page filename $name page orientation 90 page encapsulation full page fit true if {[page scale] > 1.0} { page fit false page scale 1.0 } } } xcircuit-3.9.73/lib/tcl/bparams.tcl0000664000175000001440000000121212775475073015657 0ustar timusers#-------------------------------------------------------------------------- # bparams.tcl # # This Tcl script re-binds Button-3 to bring up the parameter edit # popup window when the right mouse button is clicked over a (non-selected) # object instance. Otherwise, Button-3 behaves as usual (e.g., deselects # selected objects). #-------------------------------------------------------------------------- bind .xcircuit.mainframe.mainarea.drawing { \ if {[eventmode] == "normal" && [select get] == {} \ && [select here] != {}} { xcircuit::prompteditparams } else { standardaction %b down %s } } xcircuit-3.9.73/lib/tcl/xcircuit.sh.in0000775000175000001440000000255612335667423016332 0ustar timusers#!/bin/sh # # This script starts xcircuit under the Tcl interpreter, # reading commands from a special .wishrc script which # launches xcircuit and retains the Tcl interactive interpreter. # loclibdir=${XCIRCUIT_LIB_DIR:=XCLIBDIR} export XCIRCUIT_LIB_DIR XCIRCUIT_WISH=WISH_EXE export XCIRCUIT_WISH # Hacks for Cygwin if [ ${TERM:=""} = "cygwin" ]; then export PATH=$PATH:TCLLIBDIR export DISPLAY=${DISPLAY:=":0"} fi TKCON=true for i in $@ ; do case $i in -noc*) TKCON=;; --help) echo "Standard usage:" echo " xcircuit [filename]" echo "Online documentation:" echo " http://opencircuitdesign.com/xcircuit" exit 0 ;; --version) echo "XCircuit version PROG_VERSION revision PROG_REVISION" exit 0 ;; esac done if [ $TKCON ]; then if [ ! -f ${loclibdir}/CONSOLE ]; then loclibdir=${loclibdir}/tcl fi exec ${loclibdir}/CONSOLE \ -eval "source ${loclibdir}/CONSOLE_SCRIPT" \ -slave "package require Tk; set argc $#; set argv [list $*]; \ source ${loclibdir}/WRAPPER_INIT" else # # Run the stand-in for wish (xcircexec), which acts exactly like "wish" # except that it replaces ~/.wishrc with xcircuit.tcl. This executable is # *only* needed when running without the console; the console itself is # capable of sourcing the startup script. # exec ${loclibdir}/xcircexec -- $@ fi xcircuit-3.9.73/lib/tcl/files.tcl0000664000175000001440000001507412733224144015330 0ustar timusers#--------------------------------------------------------------------------- # files.tcl --- # # xcircuit Tcl script for handling multiple-file writes # # Tim Edwards 12/5/05 for MultiGiG #--------------------------------------------------------------------------- set XCOps(module,files) 1 #--------------------------------------------------------------------------- # Forced write all #--------------------------------------------------------------------------- proc xcircuit::forcewriteall {} { set pages [page links all] for {set i 1} {$i <= $pages} {incr i} { page $i changes 1 set techlist [technology used $i] foreach tech $techlist { if {[technology writable $tech]} {technology changed $tech 1} } } destroy .writeall xcircuit::promptwriteall } #--------------------------------------------------------------------------- # Write all pages. Determine which pages are enabled/disabled in the # ".writeall" window, and save each one. #--------------------------------------------------------------------------- proc xcircuit::writeall {} { global XCOps if {![catch {raise .writeall}]} { set rows [lindex [grid size .writeall.list] 1] incr rows -1 for {set i 1} {$i <= $rows} {incr i} { if {$XCOps(cbox${i}) > 0} { set pagelist [pack slaves .writeall.list.pframe${i}] set firstpage [lindex $pagelist 0] set pageno [${firstpage} cget -text] if {$pageno == "-" || $pageno == "X"} { set tname [.writeall.list.f${i} cget -text] set fname [technology filename $tname] if {$fname == "(no associated file)"} { # Fix me: this works only on one technology at a time! xcircuit::promptsavetech } else { technology save $tname } } else { page ${pageno} update page ${pageno} save } } unset XCOps(cbox${i}) } destroy .writeall } } #--------------------------------------------------------------------------- # Prompt for writing all pages #--------------------------------------------------------------------------- proc xcircuit::promptwriteall {} { global XCOps # Get list of unique filenames. set pages [page links all] set filelist {} for {set i 1} {$i <= $pages} {incr i} { set changes [page $i changes] if {$changes > 0} { if {[page $i filename] == {}} { page $i filename [page $i label] } lappend filelist [page $i filename] } } set filelist [lsort -unique -dictionary $filelist] set techlist {} set badtechslist {} foreach tech [technology list] { if {[technology changed $tech] > 0} { if {[technology writable $tech] > 0} { lappend techlist $tech } else { lappend badtechslist $tech } } } set filestowrite [expr [llength $filelist] + [llength $techlist]] # Set up the "writeall" window catch {destroy .writeall} toplevel .writeall -bg beige frame .writeall.tbar -bg beige frame .writeall.list -bg beige frame .writeall.bbar -bg beige pack .writeall.tbar -side top -padx 5 -pady 5 -fill x pack .writeall.list -side top -padx 5 -pady 5 -fill x pack .writeall.bbar -side top -padx 5 -pady 5 -fill x if {$filestowrite == 0} { label .writeall.tbar.title -text \ "(No modified pages or technologies to write)" -bg \ beige -fg gray40 pack .writeall.tbar.title -side left } else { label .writeall.tbar.title -text "Write All Modified Pages and Technologies:" \ -bg beige -fg blue pack .writeall.tbar.title -side left label .writeall.list.ftitle -text "Filename" -bg beige -fg brown label .writeall.list.ptitle -text "Pages" -bg beige -fg brown label .writeall.list.wtitle -text "Write?" -bg beige -fg brown grid .writeall.list.ftitle -row 0 -column 0 -sticky news grid .writeall.list.ptitle -row 0 -column 1 -sticky news grid .writeall.list.wtitle -row 0 -column 2 -sticky news } set k 0 foreach j $filelist { incr k label .writeall.list.f${k} -text "$j" -anchor w -bg beige frame .writeall.list.pframe${k} -bg beige set XCOps(cbox${k}) 1 checkbutton .writeall.list.cbox${k} -bg beige -variable XCOps(cbox${k}) set l 0 for {set i 1} {$i <= $pages} {incr i} { if {[page $i filename] == $j} { set changes [page $i changes] if {$changes > 0} { incr l button .writeall.list.pframe${k}.b${l} -text "$i" -bg \ white -command "page goto $i ; \ promptsavepage" pack .writeall.list.pframe${k}.b${l} -side left -padx 5 } } } grid .writeall.list.f${k} -row $k -column 0 -sticky news grid .writeall.list.pframe${k} -row $k -column 1 -sticky news grid .writeall.list.cbox${k} -row $k -column 2 -sticky news } foreach j $techlist { incr k label .writeall.list.f${k} -text "$j" -anchor w -bg beige frame .writeall.list.pframe${k} -bg beige set XCOps(cbox${k}) 1 checkbutton .writeall.list.cbox${k} -bg beige -variable XCOps(cbox${k}) button .writeall.list.pframe${k}.b1 -text "-" -bg white \ -command "set XCOps(technology) $j ; \ xcircuit::promptsavetech" pack .writeall.list.pframe${k}.b1 -side left -padx 5 grid .writeall.list.f${k} -row $k -column 0 -sticky news grid .writeall.list.pframe${k} -row $k -column 1 -sticky news grid .writeall.list.cbox${k} -row $k -column 2 -sticky news } foreach j $badtechslist { incr k label .writeall.list.f${k} -text "$j" -anchor w -bg beige -fg gray60 frame .writeall.list.pframe${k} -bg beige set XCOps(cbox${k}) 0 checkbutton .writeall.list.cbox${k} -bg beige -variable XCOps(cbox${k}) button .writeall.list.pframe${k}.b1 -text "X" -bg white -fg gray60 \ -command "set XCOps(technology) $j ; \ xcircuit::promptsavetech" pack .writeall.list.pframe${k}.b1 -side left -padx 5 grid .writeall.list.f${k} -row $k -column 0 -sticky news grid .writeall.list.pframe${k} -row $k -column 1 -sticky news grid .writeall.list.cbox${k} -row $k -column 2 -sticky news } if {$filestowrite > 0} { button .writeall.bbar.okay -text Write -bg beige -command \ {xcircuit::writeall} pack .writeall.bbar.okay -side left -ipadx 10 -padx 5 } if {$filestowrite < $pages} { button .writeall.bbar.force -text Force -bg beige -command \ {xcircuit::forcewriteall} pack .writeall.bbar.force -side left -ipadx 10 -padx 5 } button .writeall.bbar.cancel -text Cancel -bg beige -command \ {destroy .writeall} pack .writeall.bbar.cancel -side right -ipadx 10 -padx 5 } xcircuit-3.9.73/lib/tcl/edif.tcl0000664000175000001440000006441412703200647015136 0ustar timusers#------------------------------------------------------------------------ # EDIF file parser for XCircuit #------------------------------------------------------------------------ # Written by Tim Edwards, MultiGiG, Inc., Scotts Valley, CA #------------------------------------------------------------------------ # Revision history: # Revision 0: July 18, 2006 by Tim Edwards # Revision 1: July 24, 2006 by Jan Sundermeyer # Revision 2: July 30, 2006 by Jan Sundermeyer # Revision 3: July 31, 2006 by Jan Sundermeyer #------------------------------------------------------------------------ set XCOps(module,edif) 1 # "Standard" scaling: converts a typical factors-of-10 coordinate system # into XCircuit's factors-of-16 coordinate system (16/10 = 8/5) set Opts(scalen) 8 set Opts(scaled) 5 set symbolview {symbol symbolr spectre hspice spectreS} set subst_list {} #------------------------------------------------------------------------ # EDIF rotations are the reverse of xcircuit rotations. #------------------------------------------------------------------------ proc rotinvert {value} { set newvalue [expr 360 - $value] if {$newvalue == 360} {set newvalue 0} return $newvalue } #------------------------------------------------------------------------ # Scale a point by factor (scalen) / (scaled) # "point" is a point in EDIF format: {pt } #------------------------------------------------------------------------ proc scalepoint {point} { global Opts set xin [lindex $point 1] set yin [lindex $point 2] set xout [expr $xin * $Opts(scalen) / $Opts(scaled)] set yout [expr $yin * $Opts(scalen) / $Opts(scaled)] return [list $xout $yout] } #------------------------------------------------------------------------ # Convert arc 3-point form to center-radius-endpoint angles # Formula thanks to Yumnam Kirani Singh, found on geocities.com. # Saved me from having to work it out for myself. #------------------------------------------------------------------------ proc convert_arc {point1 point2 point3} { set x1 [lindex $point1 0] set y1 [lindex $point1 1] set x2 [lindex $point2 0] set y2 [lindex $point2 1] set x3 [lindex $point3 0] set y3 [lindex $point3 1] set m11 [expr $x2 * $x2 + $y2 * $y2 - ($x1 * $x1 + $y1 * $y1)] set m21 [expr $y2 - $y1] set m12 [expr $x3 * $x3 + $y3 * $y3 - ($x1 * $x1 + $y1 * $y1)] set m22 [expr $y3 - $y1] set n11 [expr $x2 - $x1] set n21 $m11 set n12 [expr $x3 - $x1] set n22 $m12 set d11 $n11 set d21 $m21 set d12 $n12 set d22 $m22 set absm [expr ($m11 * $m22) - ($m12 * $m21)] set absn [expr ($n11 * $n22) - ($n12 * $n21)] set absd [expr ($d11 * $d22) - ($d12 * $d21)] set cx [expr $absm / (2.0 * $absd)] set cy [expr $absn / (2.0 * $absd)] set r [expr sqrt(($cx - $x2) * ($cx - $x2) + ($cy - $y2) * ($cy - $y2))] set a1 [expr atan2($y1 - $cy, $x1 - $cx)] set a2 [expr atan2($y2 - $cy, $x2 - $cx)] set a3 [expr atan2($y3 - $cy, $x3 - $cx)] # To be certain that the end angles are correct, make sure a2 is between # a1 and a3. if {($a1 < $a2) && ($a2 > $a3)} { set a3 [expr $a3 + 3.1415927] } elseif {($a1 > $a2) && ($a2 < $a3)} { set a3 [expr $a3 - 3.1415927] } set cx [expr round($cx)] set cy [expr round($cy)] set r [expr round($r)] set a1 [expr $a1 * 180 / 3.1415927] set a3 [expr $a3 * 180 / 3.1415927] return [list [list $cx $cy] $r $a1 $a3] } #------------------------------------------------------------------------ # Quiet deselection #------------------------------------------------------------------------ proc quiet_deselect {} { set handle [select get] if {$handle != {}} {deselect} } #------------------------------------------------------------------------ # Parse a "shape" statement #------------------------------------------------------------------------ proc parse_shape {elemlist} { set handle {} set shapedata [lindex $elemlist 0] set shapetype [lindex $shapedata 0] # Any keywords to handle other than "curve"? switch $shapetype { curve { foreach phrase [lrange $shapedata 1 end] { # Can a curve have any statement other than "arc"? set curveType [lindex $phrase 0] switch $curveType { arc { set pointlist {} foreach point [lrange $phrase 1 end] { lappend pointlist [scalepoint $point] } set xca [eval "convert_arc $pointlist"] set handle [eval "arc make $xca"] } default {puts "Unknown curve type $curveType"} } } } default {puts "Unsupported shape type $shapetype"} } return $handle } #------------------------------------------------------------------------ # decimal to octal code conversion #------------------------------------------------------------------------ proc dec_to_oct {dval} { set oval "\\" set o3 [expr $dval / 64] set r3 [expr $dval % 64] set o2 [expr $r3 / 8] set o1 [expr $r3 % 8] set oval "\\$o3$o2$o1" } #------------------------------------------------------------------------ # Parse a raw geometry statement in the EDIF data. #------------------------------------------------------------------------ proc parse_geometry {elemtype elemdata} { global Opts quiet_deselect switch $elemtype { openshape - shape { set handle [parse_shape $elemdata] } path - polygon { set polydata [lrange [lindex $elemdata 0] 1 end] set pointlist {} foreach point $polydata { lappend pointlist [scalepoint $point] } set numpoints [llength $pointlist] # puts "polygon make $numpoints $pointlist" set handle [eval "polygon make $numpoints $pointlist"] if {"$elemtype" == "polygon"} { element $handle border closed } } rectangle { set pointlist {} foreach point $elemdata { lappend pointlist [scalepoint $point] } # puts "polygon make box $pointlist" set handle [eval "polygon make box $pointlist"] } name - stringDisplay { # Parse various kinds of strings used by Cadence set dstring [lindex $elemdata 0] if {[lindex $dstring 0]== "array"} { set dstring [subst_name [lindex $dstring 1]] } else { set dstring [subst_name $dstring] } # Do EDIF-format ASCII escape sequence substitution while {[regexp -- {%([0-9]+)%} $dstring temp code] > 0} { set oval [dec_to_oct $code] regsub -- {%[0-9]+%} $dstring [subst "$oval"] dstring } set handle {} if {[string first "cds" $dstring] == 0} { switch -glob $dstring { cdsName* {set handle [label make normal [object name] {0 0}]} cdsParam* {set handle {}} cdsTerm* { if {[regexp {"(.+)"} $dstring temp pinname] > 0} { set handle [label make pin $pinname {0 0}] } else { set handle [label make pin $dstring {0 0}] } } default {set handle [label make normal $dstring {0 0}]} } set cds 1 } else { set cds 0 } foreach dparams [lrange $elemdata 1 end] { if {$cds == 0} { quiet_deselect set handle [label make normal $dstring {0 0}] } if {$handle != {}} { foreach dtext $dparams { set dtk [lindex $dtext 0] switch $dtk { anchor { set jval [lindex $dtext 1] switch $jval { UPPERRIGHT { label $handle anchor top label $handle anchor right } CENTERRIGHT { label $handle anchor middle label $handle anchor right } LOWERRIGHT { label $handle anchor bottom label $handle anchor right } UPPERCENTER { label $handle anchor top label $handle anchor center } CENTERCENTER { label $handle anchor middle label $handle anchor center } LOWERCENTER { label $handle anchor bottom label $handle anchor center } UPPERLEFT { label $handle anchor top label $handle anchor left } CENTERLEFT { label $handle anchor middle label $handle anchor left } LOWERLEFT { label $handle anchor bottom label $handle anchor left } } } orientation { set oval [lindex $dtext 1] set odeg [string range $oval 1 end] element $handle rotate [rotinvert $odeg] } origin { set plist [lindex $dtext 1] label $handle position [scalepoint $plist] } } } } } } default { puts "Unsupported geometry block keyword $elemtype" set handle {} } } return $handle } #------------------------------------------------------------------------ # execute substitution of net names #------------------------------------------------------------------------ proc subst_name {net} { global subst_list if {[llength $net] > 1} { if {[lindex $net 0] == "rename"} { lappend subst_list [lrange $net 1 2] return [lindex $net 2] } else { return $net } } else { set pos [lsearch $subst_list "$net *"] if {$pos > -1} { return [lindex [lindex $subst_list $pos] 1] } else { return $net } } } #------------------------------------------------------------------------ # Parse a "net" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_net {netdata} { set netString [lindex $netdata 0] if {[llength $netString] > 1} { if {[lindex $netString 0] == "name"} { parse_geometry [lindex $netString 0] [lrange $netString 1 end] } elseif {[lindex $netString 0] == "rename"} { set elemdata [lrange $netString 1 end] if { [llength [lindex $elemdata 1]]>1 } { parse_geometry [lindex [lindex $elemdata 1] 0] [lrange [lindex $elemdata 1] 1 end] } } elseif {[lindex $netString 0] == "array"} { parse_net [list [lindex $netString 1]] } else { puts "Unknown net name $netString" return } } foreach phrase [lrange $netdata 1 end] { set keyword [lindex $phrase 0] switch $keyword { joined { # ignore net information (for now) } figure { # Figure types defined in the technology block. set figureType [lindex $phrase 1] set geolist [lindex $phrase 2] parse_geometry [lindex $geolist 0] [lrange $geolist 1 end] } default {puts "Unsupported net block keyword $keyword"} } } } #------------------------------------------------------------------------ # Parse an "instance" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_instance {instName instdata} { quiet_deselect set handle {} if {[lindex $instName 0] == "array"} { set instName [subst_name [lindex $instName 1]] } else { set instName [subst_name $instName] } foreach phrase $instdata { set keyword [lindex $phrase 0] switch $keyword { viewRef { # Next keyword should be "symbol" or "symbolr"? set objtype [lindex $phrase 1] set instinfo [lindex $phrase 2] # 1st keyword should be "cellRef", 3rd "libraryRef". Ignore these. set cellname [lindex $instinfo 1] # Create the instance if {[catch {set handle [instance make $cellname "0 0"]}]} { puts "ERROR: Attempt to instance non-existant object $cellname" } else { puts "Created instance $instName of $cellname" } } transform { if {$handle == {}} { puts "Error: Transform specified without reference instance" } else { foreach trans [lrange $phrase 1 end] { set trk [lindex $trans 0] switch $trk { orientation { set ogood 0 set oval [lindex $trans 1] if {[string first "MX" $oval] >= 0} { element $handle flip vertical set ogood 1 } elseif {[string first "MY" $oval] >= 0} { element $handle flip horizontal set ogood 1 } set rpos [string first "R" $oval] if {$rpos >= 0} { incr rpos element $handle rotate [rotinvert [string range \ $oval $rpos end]] set ogood 1 } if {$ogood == 0} { puts "Unsupported orientation $oval in transform" } } origin { set plist [lindex $trans 1] instance $handle center [scalepoint $plist] } } } } } property { if {$handle != {}} { push $handle parse_property [lindex $phrase 1] [lrange $phrase 2 end] pop } } default {puts "Unsupported instance block keyword $keyword"} } } # Set standard parameters idx and class from the instance name if {$handle != {}} { push $handle if {[catch {parameter set class [string range $instName 0 0]}]} { if {[catch {parameter set instName $instName}]} { parameter make substring instName ? parameter set instName $instName } } else { parameter set idx [string range $instName 1 end] } pop } } #------------------------------------------------------------------------ # Parse a "portImplementation" statement #------------------------------------------------------------------------ proc parse_port {labellist portdata} { set portString [lindex $portdata 0] set plabel {} if {[llength $portString] > 1} { if {[lindex $portString 0] == "name"} { set plabel [parse_geometry [lindex $portString 0] [lrange $portString 1 end]] set portName [subst_name [lindex $portString 1]] } else { puts "Unknown portImplementation pin $portString" return } } else { set portName [subst_name $portString] } if {$labellist != {}} { foreach llabel $labellist { if {"$portName" == [label $llabel text]} { set plabel $llabel break } } } else { if {$plabel == {}} { quiet_deselect set plabel [label make normal $portName {0 0}] } } if {$plabel == {}} { puts "Can't determine port name in $portdata" return } # If we were not given a label list, then this is a pin on the schematic # and should be converted into a pin. if {[label $plabel type] == "normal"} { label $plabel type local } foreach portProp [lrange $portdata 1 end] { set portkey [lindex $portProp 0] switch $portkey { figure { set figureType [lindex $portProp 1] set geolist [lindex $portProp 2] parse_geometry [lindex $geolist 0] [lrange $geolist 1 end] } connectLocation { # Expect a (figure pin (dot (pt x y)))) # Use the point position to reposition the label. set cpoint [scalepoint [lindex [lindex [lindex $portProp 1] 2] 1]] label $plabel position $cpoint } instance { parse_instance [lindex $portProp 1] [lrange $portProp 2 end] } default {puts "Unsupported portImplementation keyword $portkey"} } } } #------------------------------------------------------------------------ # Parse a "page" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_page {cellname portlist pagedata} { # Go to the next empty page set cpage 1 page $cpage -force while {[object parts] != {}} {incr cpage ; page $cpage -force} page label $cellname foreach phrase $pagedata { set keyword [lindex $phrase 0] switch $keyword { instance { set instName [lindex $phrase 1] parse_instance $instName [lrange $phrase 2 end] } net { parse_net [lrange $phrase 1 end] } portImplementation { parse_port {} [lrange $phrase 1 end] } commentGraphics { set comment [lindex $phrase 1] set ctype [lindex $comment 0] ;# from the technology block... set geolist [lindex $comment 1] parse_geometry [lindex $geolist 0] [lrange $geolist 1 end] } default {puts "Unsupported page block keyword $keyword"} } } if {$portlist != {}} { quiet_deselect set obbox [object bbox] set x [expr [lindex $obbox 0] + 128] set y [expr [lindex $obbox 1] - 64] set itext [list {Text "spice1:.subckt %n"}] set pstring "" foreach pname $portlist { if {[string length $pstring] > 60} { lappend itext [subst {Text "$pstring"}] lappend itext {Return} set pstring "+" incr y -32 } set pstring [join [list $pstring "%p$pname"]] ;# preserves whitespace } lappend itext [subst {Text "$pstring"}] label make info "$itext" "$x $y" incr y -32 label make info "spice-1:.ends" "$x $y" } } #------------------------------------------------------------------------ # Parse a "contents" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_contents {celltype cellname portlist contentdata} { global symbolview set labellist {} foreach phrase $contentdata { set keyword [lindex $phrase 0] switch $keyword { boundingBox { set bbox [lindex $phrase 1] set handle [parse_geometry [lindex $bbox 0] [lrange $bbox 1 end]] element $handle border bbox true } commentGraphics { set comment [lindex $phrase 1] set ctype [lindex $comment 0] ;# from the technology block... set geolist [lindex $comment 1] set plabel [parse_geometry [lindex $geolist 0] [lrange $geolist 1 end]] if {$plabel != {}} {lappend labellist $plabel} } figure { # Figure type is defined in the technology section, and defines # color, linewidth, etc. set figureType [lindex $phrase 1] set geolist [lindex $phrase 2] parse_geometry [lindex $geolist 0] [lrange $geolist 1 end] } portImplementation { parse_port $labellist [lrange $phrase 1 end] } page { # Note: Handle multiple pages here! parse_page $cellname $portlist [lrange $phrase 1 end] } default {puts "Unsupported content/symbol block keyword $keyword"} } } # search for all symbol views # following list contains these viewnames if {[lsearch $symbolview $celltype] > -1} { # Create standard parameters parameter make substring class "X" parameter make substring idx "?" if {$portlist != {}} { quiet_deselect set obbox [object bbox] set x [expr [lindex $obbox 0] + 128] set y [expr [lindex $obbox 1] - 64] set itext [list {Text "spice:"} {Parameter class} {Parameter idx}] set pstring "" foreach pname $portlist { if {[string length $pstring] > 60} { lappend itext [subst {Text "$pstring"}] lappend itext {Return} set pstring "+" incr y -32 } set pstring [join [list $pstring "%p$pname"]] ;# preserves whitespace } set pstring [join [list $pstring "%n"]] ;# preserves whitespace lappend itext [subst {Text "$pstring"}] label make info "$itext" "$x $y" } } } #------------------------------------------------------------------------ # Parse a "property" statement in the EDIF data. # (To do: generate an xcircuit parameter for the object) #------------------------------------------------------------------------ proc parse_property {key value} { set keylen [llength $key] set property [lindex $value 0] set proptype [lindex $property 0] set pvalue [lindex $property 1] # Any other proptypes to handle? switch $proptype { string { set paramtype substring } integer { set paramtype numeric } boolean { set paramtype numeric switch $pvalue { true - True - TRUE - t - T { set pvalue 1} false - False - FALSE - f - F { set pvalue 0} } } default { puts "Unknown property type $proptype" ; return } } # Attempt to set the parameter value. If the parameter doesn't # exist, then create it. if [catch {parameter set $key $pvalue}] { parameter make $paramtype $key $pvalue } } #------------------------------------------------------------------------ # Parse an "interface" block in the EDIF data. #------------------------------------------------------------------------ proc parse_interface {cellname ifacedata} { set portlist {} foreach phrase $ifacedata { set keyword [lindex $phrase 0] # Possible other keywords to handle: # port (ignoring ports for now, just dealing with portImplementation) # property (is a property of what??) --- should translate instNamePrefix # to parameter "class". switch $keyword { port { if {[lindex [lindex $phrase 1] 0] == "array"} { set zw [subst_name [lindex [lindex $phrase 1] 1]] } else { set zw [subst_name [lindex $phrase 1]] } lappend portlist $zw } symbol {parse_contents symbol $cellname $portlist [lrange $phrase 1 end]} default {puts "Unsupported interface block keyword $keyword"} } } return $portlist } #------------------------------------------------------------------------ # Parse a "view schematic" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_schematic {cellname viewdata} { set portlist {} foreach phrase $viewdata { set keyword [lindex $phrase 0] # Possible other keywords to handle: # viewType, interface switch $keyword { interface {set portlist [parse_interface $cellname [lrange $phrase 1 end]]} contents {parse_contents schematic $cellname $portlist [lrange $phrase 1 end]} property {parse_property [lindex $phrase 1] [lrange $phrase 2 end]} default {puts "Unsupported schematic view block keyword $keyword"} } } } #------------------------------------------------------------------------ # Parse a "view symbol" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_symbol {libname cellname viewdata} { # If an object of this name exists, rename it first. catch {object [object handle $cellname] name "_$cellname"} set handle [object make $cellname $libname -force] if {$handle == ""} { puts "Error: Couldn't create new object!" return } set cpage [page] push $handle symbol type fundamental set portlist {} foreach phrase $viewdata { set keyword [lindex $phrase 0] # Possible other keywords to handle: # viewType, interface switch $keyword { interface {set portlist [parse_interface $cellname [lrange $phrase 1 end]]} contents {parse_contents fundamental $cellname $portlist [lrange $phrase 1 end]} property {parse_property [lindex $phrase 1] [lrange $phrase 2 end]} default {puts "Unsupported symbol view block keyword $keyword"} } } pop if [catch {delete $handle}] { page $cpage if [catch {delete $handle}] { puts "Error: Element handle $handle does not exist?" puts "Page objects: [object parts]" } } # Find the instance in the library and force a recomputation of its # bounding box. library $libname goto foreach inst [library $libname handle] { if {[instance $inst object] == $cellname} { instance $inst bbox recompute break } } page $cpage } #------------------------------------------------------------------------ # Parse a "cell" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_cell {libname cellname celldata} { global symbolview foreach phrase $celldata { set keyword [lindex $phrase 0] # Possible other keywords to handle: # cellType switch $keyword { view { set viewType [lindex $phrase 1] if {[lsearch $symbolview $viewType] > -1} { parse_symbol $libname $cellname [lrange $phrase 2 end] } else { switch $viewType { schematic {parse_schematic $cellname [lrange $phrase 2 end]} default {puts "Unsupported view type $viewType"} } } } default {puts "Unsupported cell block keyword $keyword"} } } } #------------------------------------------------------------------------ # Parse a "library" statement in the EDIF data. #------------------------------------------------------------------------ proc parse_library {libname libdata} { library make $libname foreach phrase $libdata { set keyword [lindex $phrase 0] # Possible other keywords to handle: # basic, edifLevel, technology switch $keyword { cell { parse_cell $libname [lindex $phrase 1] [lrange $phrase 2 end] } default {puts "Unsupported library block keyword $keyword"} } } # Regenerate the library library $libname compose } #------------------------------------------------------------------------ # Main file reader routine. Read the file into a single string, and # replace parentheses so we turn the LISP phrasing into a nested TCL # list. #------------------------------------------------------------------------ proc read_edif {filename} { if [catch {open $filename r} fileIn] { puts stderr "Cannot find file $filename" return; } # Remove some tag callbacks that cause problems. . . set paramtag [tag parameter] tag parameter {} # Convert the file into a nested list by converting () to {}. set everything [read $fileIn] set masterlist [lindex [string map {( \{ ) \} \n " "} $everything] 0] unset everything close $fileIn # Now parse the file. . . set cpage [page] config suspend true foreach phrase $masterlist { set keyword [lindex $phrase 0] # Possible other keywords to handle: # edif, edifVersion, edifLevel, keywordMap, status switch $keyword { library {parse_library [lindex $phrase 1] [lrange $phrase 2 end]} default {puts "Unsupported primary keyword $keyword"} } } tag parameter $paramtag # Return to (and redraw) original page page $cpage zoom view config suspend false } #------------------------------------------------------------------------ # Procedure that creates the dialog to find an EDIF file to parse and # calls procedure read_edif. #--------------------------------------------------------------------------- proc xcircuit::promptreadedif {} { global XCOps .filelist.bbar.okay configure -command \ {read_edif [.filelist.textent.txt get] ; \ wm withdraw .filelist} .filelist.listwin.win configure -data "edf edif" .filelist.textent.title.field configure -text "Select EDIF 2.0.0 file to parse:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist xcircuit::removelists .filelist } xcircuit-3.9.73/lib/tcl/mousehint.tcl0000664000175000001440000001123513213047223016227 0ustar timusers#------------------------------------------------------------------------ # Mouse button hints---written by James Vernon March 2006 #------------------------------------------------------------------------ #------------------------------------------------------------------------ # Write 3 strings corresponding to the 3 mouse button functions # Use the "bindkey -compat" to get the current button bindings #------------------------------------------------------------------------ proc xcircuit::automousehint {window} { set frame [winfo top $window] set btext [$window bindkey -compat Button1] ${frame}.infobar.mousehints.left configure -text $btext set btext [$window bindkey -compat Button2] ${frame}.infobar.mousehints.middle configure -text $btext set btext [$window bindkey -compat Button3] ${frame}.infobar.mousehints.right configure -text $btext } #------------------------------------------------------------------------ # Creates a canvas showing the 3 buttons of a 3 button mouse # and adds labels that can contain strings telling the user what # the current function of those buttons is #------------------------------------------------------------------------ proc xcircuit::mousehint_create {name} { frame ${name}.infobar.mousehints -background beige label ${name}.infobar.mousehints.title -background beige -foreground brown4 \ -anchor e -text "Button bindings: " button ${name}.infobar.mousehints.left -background beige -relief groove button ${name}.infobar.mousehints.middle -background beige -relief groove button ${name}.infobar.mousehints.right -background beige -relief groove grid ${name}.infobar.mousehints.title -row 0 -column 0 -sticky news grid ${name}.infobar.mousehints.left -row 0 -column 1 -sticky news grid ${name}.infobar.mousehints.middle -row 0 -column 2 -sticky news grid ${name}.infobar.mousehints.right -row 0 -column 3 -sticky news grid columnconfigure ${name}.infobar.mousehints 0 -weight 0 grid columnconfigure ${name}.infobar.mousehints 1 -weight 0 grid columnconfigure ${name}.infobar.mousehints 2 -weight 0 grid columnconfigure ${name}.infobar.mousehints 3 -weight 0 mousehint_bindings ${name} ${name}.infobar.mousehints xcircuit::automousehint ${name}.mainframe.mainarea.drawing xcircuit::mousehint_show ${name} } #------------------------------------------------------------------------ # Displays the mouse_canvas that shows a picture of the 3 # buttons on a mouse in the top right corner of the top level window # and moves the menubar.message widget under the menu buttons #------------------------------------------------------------------------ proc xcircuit::mousehint_show { name } { pack forget ${name}.infobar.message2 pack ${name}.infobar.mousehints -padx 2 -side left -ipadx 6 -fill y pack ${name}.infobar.message2 -side left -padx 2 -ipadx 6 -expand true -fill both bind ${name}.infobar.mode "::xcircuit::mousehint_hide ${name}" } #------------------------------------------------------------------------ # Hides the mouse_canvas that shows a picture of the 3 # buttons on a mouse and moves the menubar.message label # back in its place. #------------------------------------------------------------------------ proc xcircuit::mousehint_hide { name } { pack forget ${name}.infobar.mousehints bind ${name}.infobar.mode "::xcircuit::mousehint_show ${name}" } #------------------------------------------------------------------------ # Highlights buttons on the mouse_canvas when the user # presses the corresponding mouse buttons # Seems unnecessary, but without it who would guess that those # rectangles are supposed to look like mouse buttons? #------------------------------------------------------------------------ proc xcircuit::mousehint_bindings { name mouse_frame } { bind ${name} "${mouse_frame}.left configure -state active ; \ xcircuit::automousehint ${name}.mainframe.mainarea.drawing" bind ${name} "${mouse_frame}.middle configure -state active ; \ xcircuit::automousehint ${name}.mainframe.mainarea.drawing" bind ${name} "${mouse_frame}.right configure -state active ; \ xcircuit::automousehint ${name}.mainframe.mainarea.drawing" bind ${name} "${mouse_frame}.left configure -state normal" bind ${name} "${mouse_frame}.middle configure -state normal" bind ${name} "${mouse_frame}.right configure -state normal" bind ${name} "xcircuit::automousehint ${name}.mainframe.mainarea.drawing" bind ${mouse_frame}.title "::xcircuit::mousehint_hide ${name}" } #------------------------------------------------------------------------ xcircuit-3.9.73/lib/tcl/xcircuit.bat.in0000664000175000001440000000174612335667423016463 0ustar timusers@echo off rem rem This script starts xcircuit under the Tcl interpreter, rem reading commands from a special .wishrc script which rem launches magic and retains the Tcl interactive interpreter. rem set XCIRCUIT_LIB_DIR=XCLIBDIR set XCIRCUIT_WISH=WISH_EXE set loclibdir=%XCIRCUIT_LIB_DIR% set TKCON=1 for %%i in (%*) do ( if "%%i" == "-noconsole" set TKCON=0 ) if "%TKCON%" == "1" ( if not exist %loclibdir%/CONSOLE set loclibdir=%loclibdir%/tcl start %XCIRCUIT_WISH% %loclibdir%/CONSOLE -eval "source %loclibdir%/CONSOLE_SCRIPT" -slave "package require Tk; set argv [list %*]; set argc [llength argv]; source %loclibdir%/WRAPPER_INIT" ) else ( rem Run the stand-in for wish (xcircexec), which acts exactly like "wish" rem except that it replaces ~/.wishrc with xcircuit.tcl. This executable is rem *only* needed when running without the console; the console itself is rem capable of sourcing the startup script. %loclibdir%/xcircexec -- %* ) xcircuit-3.9.73/lib/tcl/panzoom.tcl0000664000175000001440000000035512335667423015716 0ustar timusers# panzoom.tcl --- rebinds keys Z and z for a zoom style in which # the page is centered on the cursor position # (provded by Ed Casas, 9/4/03) xcircuit::keybind Z { pan here ; zoom in } xcircuit::keybind z { pan here ; zoom out } xcircuit-3.9.73/lib/tcl/matgen.tcl0000664000175000001440000004346112335667423015513 0ustar timusers#---------------------------------------------------------------------- # matgen.tcl v0.7 --- An xcircuit Tcl extension for importing matlab # postscript files # Copyright (c) 2008 Wim Vereecken # Wim.Vereecken@gmail.com # Wim.Vereecken@esat.kuleuven.be # # 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. # # 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. #---------------------------------------------------------------------- # "lset" forward compatibility routine from wiki.tcl.tk---"lset" is # used in these routines, and was new with Tcl version 8.4. if {[package vcompare [package provide Tcl] 8.4] < 0} { proc tcl::K {a b} {return $a} proc lset {listName index val} { upvar $listName list set list [lreplace [tcl::K $list [set list {}]] $index $index $val] } } #---------------------------------------------------------------------- proc xcircuit::promptimportmatlab {} { .filelist.bbar.okay configure -command \ {matgen [.filelist.textent.txt get]; wm withdraw .filelist} .filelist.listwin.win configure -data "ps" .filelist.textent.title.field configure -text "Select file to import:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist } #---------------------------------------------------------------------- proc matgen {argv} { global XCOps XCWinOps # PART 1: Command line parser_______________________________ # load-axes property is set set axes 1 # set default scale factor set scalefactor 0.2 # set default line width set linewidth 1.00 # set default line width set bold 0 # set default file name set filenames {} # set default text size set matlab_textsize 100 # parse all command line args puts "Checking options..." foreach arg $argv { # if -noaxes key is found, disable axes if [string compare $arg "-noaxes"]==0 then { set axes 0 puts " *** Axes are disabled" } if [regexp {\-scale=(\d+\.*\d*)} $arg matchresult sub1] then { set scalefactor [expr $sub1*0.20] puts " *** Scalefactor set to $scalefactor" } if [regexp {\-lw=(\d+\.*\d*)} $arg matchresult sub1] then { set linewidth $sub1 puts " *** Linewidth set to $linewidth" } if [regexp {\-bold} $arg matchresult] then { set bold 1 puts " *** Bold fonts are enabled" } if [regexp {(.*\.e?ps)} $arg matchresult sub1] then { lappend filenames $sub1 set file [lindex $filenames [expr [llength $filenames]-1]] } } if {[llength $argv] < 1} then { puts " *** no arguments found...\n" puts "matgen.tcl 0.7" puts "Written by Wim Vereecken\n" puts "Usage:" puts " matgen \"\[options\] file.eps \[file2.eps\] ...\"\n" puts "Options:" puts " -noaxes: strip axes data" puts " -scale=x: rescale by factor x" puts " -lw=x: scale linewidth by factor x" puts " -bold: use bold text labels\n" puts "Example:" puts " matgen \"-scale=0.7 -lw=3 file.eps\"\n" return 0 } # PART 2: Parse and process the source matlab eps file_______ # The extension of the source files that will be examined puts "Checking for valid matlab postscript (eps) files..." ## Search in the current directory for files with an .eps ## extension. If the file is recognized as a matlab .eps ## file, add the source file to @foundsources. set validfiles {}; foreach file $filenames { if [regexp {e?ps} $file matchresult] then { # try to open $file if [catch {open $file r} result] { puts "Warning: $result" return -1 } else { set fp $result set data [read $fp] close $fp } # split data in seperate lines set data [split $data "\n"] # read every line and search for "Creator: MATLAB" foreach line $data { # check if the source is a matlab eps if [regexp {Creator: MATLAB} $line matchresult] then { lappend validfiles $file puts " *** $file is a valid Matlab plot"; # break searching here break } } } } # exit with message when no source files are found if [llength $validfiles]<1 { puts " *** No valid matlab .eps files found. Bye!"; return -1 } # PART 3____________________________________________________ foreach file $validfiles { puts "Processing $file..."; # open each matlab eps file if [catch {open $file r} result] { puts "Warning: $result" return -1 } else { set fp $result set data [read $fp] close $fp } # the stack emulator set source_stack "" # the xcircuit output vector set xcircuit_output "" # the xcircuit lib definitions set xcircuit_libdefs "" # the color definitions library set colordefs "" # split data in seperate lines set data [split $data "\n"] set object_list {} foreach line $data { append source_stack "\x0a$line" # Skip first part of matlab $source_stack if noaxes is set if [regexp {\/c8} $line matchresult] then { if {$axes == 0} then { # clear output set xcircuit_output "" } else { # select all items in page, make object, and deselect if {[llength $object_list] > 0} then { select $object_list set axes_object [object make "axes"] deselect $axes_object } } } # Extract polylines from the matlab $source_stack if [regexp {(\d+)\s*MP\sstroke} $line matchresult sub1] { # extract the number of vertices of the polyline set num_vertices $sub1 # the number of arguments to read is thus 2*num_vertices set num_args [expr $num_vertices*2] # extract the vertices list of the polyline set re "\\x0a+\\s*((?:\-?\\d+\\x20*\\x0a*)+?)\\s+$num_vertices\\s+MP\\sstroke" if [regexp $re $source_stack matchresult sub1] then { # replace 1+ spaces by the ":" separator regsub -all {\s+} $sub1 ":" sub1 # split $sub1 based on the ":" separator set polyline_vertices [split $sub1 ":"] # the polyline_vertices list contains all vertices # --> { x1 y1 x2 y2 ... xn yn} } else { puts "Error in polyline regular expression. Exiting..." return -1 } # convert the arguments to the xcircuit coordinate format. # The matlab polyline coordinates are relative to each other, # starting for the last value of the postscript stack. # XCircuit needs absolute coordinates for the polyline vertices. # Some recalculation is thus needed to obtain absolute coordinates. for {set i [expr $num_args-4]} {$i>=0} {incr i -2} { # calculate x-coordinates set prev_point_x [lindex $polyline_vertices $i] set current_point_x [lindex $polyline_vertices [expr $i+2]] lset polyline_vertices $i [expr $prev_point_x+$current_point_x] # calculate y-coordinates set prev_point_y [lindex $polyline_vertices [expr $i+1]] set current_point_y [lindex $polyline_vertices [expr $i+3]] lset polyline_vertices [expr $i+1] [expr $prev_point_y+$current_point_y] } # Rescaling feature. Should be re-implemented in a decent way for {set i 0} {$i<$num_args} {incr i 1} { lset polyline_vertices $i [expr int([lindex $polyline_vertices $i]*$scalefactor)] } # Flip the y-axis coordinates. XCircuit's coordinate system seems to use # the left hand rule. for {set i 1} {$i<$num_args} {incr i 2} { lset polyline_vertices $i [expr [lindex $polyline_vertices $i]*-1] } # create the tcl command and draw the polygon set prev_point_x 0 set prev_point_y 0 set num_vertices 0 set tcl_command "" eval "fill 0" for {set i 0} {$i<$num_args} {incr i 2} { # the number of vertices xcircuit can handle is limited to 250 if {$num_vertices == 200} then { eval "lappend object_list \[polygon make 200 $tcl_command\]" set prev_point_x 0 set prev_point_y 0 set num_vertices 0 set tcl_command "" # resume last point in next polyline incr i -2 } # extract the current x- and y-coordinates set current_point_x [lindex $polyline_vertices $i] set current_point_y [lindex $polyline_vertices [expr $i+1]] # drop the current vertex if distance from previous point is too small if { abs([expr $current_point_x - $prev_point_x]) < 1 && abs([expr $current_point_y - $prev_point_y]) < 1} then { # drop the current vertex continue # add the current vertex to the tcl_command string } else { # increase the number of vertices in the tcl_command incr num_vertices 1 # append the current vertex to the tcl_command string # format: "polygon make N {x1 y1} {x2 y2} ... {xn yn}" append tcl_command "\{$current_point_x $current_point_y\} " # save the current vertex for future reference set prev_point_x $current_point_x set prev_point_y $current_point_y } } # Evaluate the tcl_command eval "lappend object_list \[polygon make $num_vertices $tcl_command\]" # flush stack set source_stack "" set line "" } # Extract filled polylines from the matlab $source_stack if [regexp {(\d+)\s+MP} $line matchresult sub1] { set num_vertices $sub1 set num_args [expr $num_vertices*2] # extract the vertices list of the polyline set re "\\x0a+\\s*((?:\-?\\d+\\x20*\\x0a*)+)\\s+$num_vertices\\s+MP" if [regexp $re $source_stack matchresult sub1] then { # replace 1+ spaces by the ":" separator regsub -all {\s+} $sub1 ":" sub1 # split $sub1 based on the ":" separator set polyline_vertices [split $sub1 ":"] # the polyline_vertices list contains all vertices # --> { x1 y1 x2 y2 ... xn yn} } else { puts "Error in filled polyline regular expression. Exiting..." return -1 } # convert the arguments to the xcircuit coordinate format. # The matlab polyline coordinates are relative to each other, # starting for the last value of the postscript stack. # XCircuit needs absolute coordinates for the polyline vertices. # Some recalculation is thus needed to obtain absolute coordinates. for {set i [expr $num_args-4]} {$i>=0} {incr i -2} { # calculate x-coordinates set prev_point_x [lindex $polyline_vertices $i] set current_point_x [lindex $polyline_vertices [expr $i+2]] lset polyline_vertices $i [expr $prev_point_x+$current_point_x] # calculate y-coordinates set prev_point_y [lindex $polyline_vertices [expr $i+1]] set current_point_y [lindex $polyline_vertices [expr $i+3]] lset polyline_vertices [expr $i+1] [expr $prev_point_y+$current_point_y] } # Rescaling feature. Should be re-implemented in a decent way for {set i 0} {$i<$num_args} {incr i 1} { lset polyline_vertices $i [expr int([lindex $polyline_vertices $i]*$scalefactor)] } # Flip the y-axis coordinates. XCircuit's coordinate system seems to use # the left hand rule. for {set i 1} {$i<$num_args} {incr i 2} { lset polyline_vertices $i [expr [lindex $polyline_vertices $i]*-1] } # create the tcl command and draw the polygon set prev_point_x 0 set prev_point_y 0 set num_vertices 0 set tcl_command "" for {set i 0} {$i<$num_args} {incr i 2} { # the number of vertices xcircuit can handle is limited to 250 if {$num_vertices > 200} then break # extract the current x- and y-coordinates set current_point_x [lindex $polyline_vertices $i] set current_point_y [lindex $polyline_vertices [expr $i+1]] # drop the current vertex if distance from previous point is too small if { abs([expr $current_point_x - $prev_point_x]) < 2 && abs([expr $current_point_y - $prev_point_y]) < 2} then { # drop the current vertex continue # add the current vertex to the tcl_command string } else { # increase the number of vertices in the tcl_command incr num_vertices 1 # append the current vertex to the tcl_command string # format: "polygon make N {x1 y1} {x2 y2} ... {xn yn}" append tcl_command "\{$current_point_x $current_point_y\} " # save the current vertex for future reference set prev_point_x $current_point_x set prev_point_y $current_point_y } } # Evaluate the tcl_command. Only write if we have a valid color, # different from white (white color index is 1 in xcircuit) if {[color get] != 1} then { eval "fill 100" eval "lappend object_list \[polygon make $num_vertices $tcl_command\]" eval "fill 0" } # flush stack set source_stack "" set line "" } # Extract lines from the matlab $source_stack set re "(\\d+)\\s+(\\d+)\\s+mt\\s+(\\d+)\\s+(\\d+)\\sL" if [regexp $re $line matchresult sub1 sub2 sub3 sub4] then { set x1 [expr int($sub1*$scalefactor)] set y1 [expr int(-$sub2*$scalefactor)] set x2 [expr int($sub3*$scalefactor)] set y2 [expr int(-$sub4*$scalefactor)] # Create the tcl command and draw the line eval "lappend object_list \[polygon make 2 {$x1 $y1} {$x2 $y2}\]" # clear the source stack set source_stack "" set line "" } # Extract points from the matlab $source_stack set re "(\\d+)\\s+(\\d+)\\s+PD" if [regexp $re $line matchresult sub1 sub2] then { set x1 [expr int($sub1*$scalefactor)] set y1 [expr -int($sub2*$scalefactor)] set dotsize [expr int(15*$scalefactor)] # concatenate all lines in one vector eval "fill 100" eval "lappend object list \[arc make \{$x1 $y1\} $dotsize\]" eval "fill 0" # clear the source stack set source_stack "" set line "" } # Extract axes labels from the matlab $source_stack set re "(\\d+)\\s+(\\d+)\\s+mt\\s*\\n\\((.*)\\)" if [regexp $re $source_stack matchresult sub1 sub2 sub3] then { set x1 [expr int($sub1*$scalefactor)] set y1 [expr -int($sub2*$scalefactor)] set labeltext $sub3 # some experimental rescaling. Should be reimplemented in the future set textsize [expr $matlab_textsize*4*$scalefactor/168] # concatenate all text in one vector # also remove empty labels (causes segfault in xcircuit-3.4.26) if {$bold == 1 && [regexp {[^\s]+} $labeltext]} then { eval "label style bold" eval "label scale $textsize" eval "lappend object_lsit \[label make normal \"$labeltext\" \{$x1 $y1\}\]" } elseif [regexp {[^\s]+} $labeltext] { eval "label scale $textsize" eval "lappend object_list \[label make normal \"$labeltext\" \{$x1 $y1\}\]" } # clear the source stack set source_stack "" set line "" } # Extract color definitions from the matlab $source_stack set re "(\\/c\\d+\\s+\\{\\s\\d+\\.\\d+\\s+\\d+\\.\\d+\\s+\\d+\\.\\d+\\s+sr\\}\\sbdef)" if [regexp $re $source_stack matchresult sub1] then { # add color definition to library append colordefs $sub1 # clear the source stack set source_stack "" set line "" } # Extract the text size from the matlab $source_stack set re "(\\d+) FMSR" if [regexp $re $line matchresult sub1] then { set matlab_textsize $sub1 append colordefs $sub1 # clear the source stack set source_stack "" set line "" } # Retrieve the color specified on the matlab $source_stack set re "(c\\d+)" if [regexp $re $line matchresult sub1] then { # extract color from the library set re "\\/$sub1\\s+\\{\\s(\\d+\\.\\d+)\\s+(\\d+\\.\\d+)\\s+(\\d+\\.\\d+)\\s+sr\\}\\sbdef" if [regexp $re $colordefs matchresult sub1 sub2 sub3] then { set red [expr int($sub1*255)] set green [expr int($sub2*255)] set blue [expr int($sub3*255)] set rgb [dec2rgb $red $green $blue] # add color to xcircuit output set color_index [eval "color add $rgb"] eval "color set $color_index" # clear the source stack set source_stack "" set line "" } } # Extract grayscale colors from the matlab $source_stack set re "(\[0-9\]*\\.\[0-9\]+|\[0-9\]+)\\ssg" if [regexp $re $line matchresult sub1] then { set greylevel [expr int($sub1*255)] set rgb [dec2rgb $greylevel $greylevel $greylevel] # add color to xcircuit output set color_index [eval "color add $rgb"] eval "color set $color_index" # clear the source stack set source_stack "" set line "" } # Extract solid/dotted linestyle ftom the matlab $source_stack set re "((?:SO)|(?:DO)|(?:DA)|(?:DD))" if [regexp $re $line matchresult sub1] then { if {$sub1 == "DO"} then { eval "border dotted" } elseif {$sub1 == "SO"} then { eval "border solid" } elseif {$sub1 == "DA"} then { eval "border dashed" } elseif {$sub1 == "DD"} then { eval "border solid" } # clear the source stack set source_stack "" set line "" } } puts " *** $file import OK"; # >> end of foreach file } # >> end of proc matgen } # PART 4____________________________________________________ # Extract from util-color.tcl # Copyright (c) 1998 Jeffrey Hobbs # # dec2rgb -- # # See the file "license.terms" for information on usage and # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # Takes a color name or dec triplet and returns a #RRGGBB color. # If any of the incoming values are greater than 255, # then 16 bit value are assumed, and #RRRRGGGGBBBB is # returned, unless $clip is set. # # Arguments: # r red dec value, or list of {r g b} dec value or color name # g green dec value, or the clip value, if $r is a list # b blue dec value # clip Whether to force clipping to 2 char hex # Results: # Returns a #RRGGBB or #RRRRGGGGBBBB color # proc dec2rgb {r {g 0} {b UNSET} {clip 0}} { if {![string compare $b "UNSET"]} { set clip $g if {[regexp {^-?(0-9)+$} $r]} { foreach {r g b} $r {break} } else { foreach {r g b} [winfo rgb . $r] {break} } } set max 255 set len 2 if {($r > 255) || ($g > 255) || ($b > 255)} { if {$clip} { set r [expr {$r>>8}]; set g [expr {$g>>8}]; set b [expr {$b>>8}] } else { set max 65535 set len 4 } } return [format "#%.${len}x%.${len}x%.${len}x" \ [expr {($r>$max)?$max:(($r<0)?0:$r)}] \ [expr {($g>$max)?$max:(($g<0)?0:$g)}] \ [expr {($b>$max)?$max:(($b<0)?0:$b)}]] } xcircuit-3.9.73/lib/tcl/text.tcl0000664000175000001440000002100513012141163015167 0ustar timusers#--------------------------------------------------------------- # Text regexp manipulation and text file import # # The core routine text_regexp takes either the selected # items or all items, searches them for text labels, and # makes the text replacement according to the regular # expression "searchstr" and the replacement text "replacestr". # #--------------------------------------------------------------- # Declare the package by setting variable XCOps(module,text) set XCOps(module,text) 1 proc text_regexp {searchstr replacestr {mode all}} { switch -glob -- $mode { select* {set partlist [select get]; set resel 1} default {deselect selected; set partlist [object parts]; set resel 0} } config suspend true undo series start foreach j $partlist { if {[element $j type] == "Label"} { set labelparts [lindex [label $j list] 0] set newparts {} set modified 0 foreach k $labelparts { if {[lindex $k 0] == "Text"} { set tstring [lindex $k 1] set newt [regsub [list $searchstr] $tstring $replacestr] set newk [lreplace $k 1 1 $newt] lappend newparts $newk if {"$newt" != "$tstring"} {set modified 1} } else { lappend newparts $k } } if {$modified == 1} { label $j replace $newparts } } } if {$resel == 1} {catch {select $partlist}} undo series end refresh config suspend false } #----------------------------------------------------------------- # Procedures to help with label generation (label autoincrement) #----------------------------------------------------------------- # autoincrement the first number found in the text of the indicated # label(s). Use argument "amount" to decrement, or increment by 10, # etc. # # example: xcircuit::textincrement selected proc xcircuit::textincrement {mode {amount 1} {position first}} { switch -glob -- $mode { select* {set handle [select get]; set resel 1} default {deselect selected; set handle [object parts]; set resel 0} } config suspend true undo series start foreach h $handle { if {[element $h type] == "Label"} { set tlist [join [label $h list]] set tlen [llength $tlist] for {set i 0} {$i < $tlen} {incr i} { set t [lindex $tlist $i] set esc [lindex $t 0] if {$esc == "Text"} { set ltext [lindex $t 1] set idx 0 if {"$position" == "last"} { set result [regexp -indices -all {([+-]?)[0]*[[:digit:]]+} \ $ltext lmatch bounds] set idx [lindex $bounds 0] if {$result > 0} { regexp -start $idx {([+-]?)([0]*)([[:digit:]]+)} $ltext \ lmatch pre zer num } } else { set result [regexp {([+-]?)([0]*)([[:digit:]]+)} $ltext \ lmatch pre zer num] } if {$result > 0 && $num != ""} { set num $pre$num incr num $amount if {$num < 0} { set num [expr abs($num)] set pre "-" } if {$num == 0 && "$pre" == "-"} {set pre ""} if {"$position" == "last"} { regsub -start $idx {[+-]?[0]*[[:digit:]]+} $ltext $pre$zer$num ltext } else { regsub {[+-]?[0]*[[:digit:]]+} $ltext $pre$zer$num ltext } set t [lreplace $t 1 1 $ltext] set tlist [lreplace $tlist $i $i $t] label $h replace $tlist break } } } } } if {$resel == 1} {catch {select $handle}} undo series end refresh config suspend false } proc xcircuit::autoincr {{value 1} {position first}} { set e [eventmode] set nopreselect 0 if {$e != "text" && $e != "etext" && $e != "epoly"} { if {[select] == 0} { set nopreselect 1 undo series start select here } if {[select] > 0} { xcircuit::textincrement selected $value $position if {$nopreselect} { deselect undo series end refresh } } else { if {$nopreselect} { undo series end } error "no selection" } } else { error "no auto-incr in text mode" } } #----------------------------------------------------------------- # Create a popup window for text modification #----------------------------------------------------------------- proc xcircuit::maketextmod {} { toplevel .textmod -bg beige wm withdraw .textmod frame .textmod.title -bg beige label .textmod.title.field -text "Label text modification for:" -bg beige menubutton .textmod.title.type -text "selected text" -bg beige \ -menu .textmod.title.type.seltype button .textmod.title.dbut -text "Dismiss" -bg beige -command \ {wm withdraw .textmod} menu .textmod.title.type.seltype -tearoff 0 .textmod.title.type.seltype add command -label "selected text" -command \ {.textmod.title.type configure -text "selected text"} .textmod.title.type.seltype add command -label "all text in page" -command \ {.textmod.title.type configure -text "all text in page"} pack .textmod.title -side top -fill x pack .textmod.title.field -side left -padx 10 pack .textmod.title.type -side left -padx 10 pack .textmod.title.dbut -side right -ipadx 10 labelframe .textmod.replace -text "Search and Replace" -bg beige pack .textmod.replace -side top -fill x -expand true -pady 10 label .textmod.replace.title1 -text "Search for:" -bg beige entry .textmod.replace.original -bg white label .textmod.replace.title2 -text "Replace with:" -bg beige entry .textmod.replace.new -bg white button .textmod.replace.apply -text "Apply" -bg beige -command \ {text_regexp [.textmod.replace.original get] \ [.textmod.replace.new get] [.textmod.title.type cget -text]} pack .textmod.replace.title1 -side left pack .textmod.replace.original -side left pack .textmod.replace.title2 -side left pack .textmod.replace.new -side left pack .textmod.replace.apply -side right -ipadx 10 -padx 10 # Numeric Increment/Decrement labelframe .textmod.numeric -text "Embedded Numbers" -bg beige pack .textmod.numeric -side top -fill x -expand true button .textmod.numeric.incr -text "Increment" -bg beige -command \ {xcircuit::textincrement [.textmod.title.type cget -text] \ [.textmod.numeric.amount get] [.textmod.numeric.pos cget -text]} button .textmod.numeric.decr -text "Decrement" -bg beige -command \ {xcircuit::textincrement [.textmod.title.type cget -text] \ [expr -[.textmod.numeric.amount get]] [.textmod.numeric.pos cget -text]} label .textmod.numeric.title1 -text "Amount: " -bg beige entry .textmod.numeric.amount -bg white menubutton .textmod.numeric.pos -text "first" -bg beige \ -menu .textmod.numeric.pos.posmenu menu .textmod.numeric.pos.posmenu -tearoff 0 .textmod.numeric.pos.posmenu add command -label "first" -command \ {.textmod.numeric.pos configure -text "first"} .textmod.numeric.pos.posmenu add command -label "last" -command \ {.textmod.numeric.pos configure -text "last"} .textmod.numeric.amount insert 0 "1" pack .textmod.numeric.incr -side left -ipadx 10 -padx 10 pack .textmod.numeric.decr -side left -ipadx 10 -padx 10 pack .textmod.numeric.title1 -side left pack .textmod.numeric.amount -side left pack .textmod.numeric.pos -side left } proc xcircuit::textmod {} { if {[catch {wm state .textmod}]} { xcircuit::maketextmod } set wstate [xcircuit::getinitstate .textmod] # setup goes here if {"$wstate" != "normal"} { wm deiconify .textmod xcircuit::centerwin .textmod } raise .textmod } #-------------------------------------------------------------- # This procedure reads an entire file into an xcircuit string. #-------------------------------------------------------------- proc xcircuit::importtext {filename} { set ffile [open $filename] set tlist {} if {[gets $ffile line] >= 0} { set line [string map {\t " "} $line] lappend tlist [list Text $line] while {[gets $ffile line] >= 0} { set line [string map {\t " "} $line] lappend tlist Return lappend tlist [list Text $line] } } label make normal $tlist "0 0" close $ffile refresh } #----------------------------------------------------------------- proc xcircuit::promptimporttext {} { .filelist.bbar.okay configure -command \ {xcircuit::importtext [.filelist.textent.txt get]; \ wm withdraw .filelist} .filelist.listwin.win configure -data "" .filelist.textent.title.field configure -text "Select text file:" .filelist.textent.txt delete 0 end xcircuit::popupfilelist } #----------------------------------------------------------------- xcircuit-3.9.73/lib/tcl/xcstartup.tcl0000664000175000001440000000330513066774071016266 0ustar timusers# XCircuit startup script for Tcl/Tk version # Does the work previously handled by "builtins.lps". Commands # "loadlibrary" and "loadfontencoding" should no longer be used. # Update, version 3.3.34: Commands "library override" and # "font override" should not be used; set XCOps(fontoverride) # and XCOps(liboverride) instead. # # Written by Tim Edwards 12/19/00, 6/24/02 (tim@bach.ece.jhu.edu) # The Johns Hopkins University global XCOps # # Look for a file "site.tcl" in the scripts directory. If it's there, # execute it instead of this file. "site.tcl" must NEVER be overwritten # by any installation procedure. # if {![catch {source ${XCIRCUIT_SRC_DIR}/site.tcl}]} {return} if {[catch {set XCOps(fontoverride)}]} { loadfont times_roman.xfe loadfont times_romaniso.xfe loadfont helvetica.xfe loadfont helveticaiso.xfe loadfont courier.xfe loadfont courieriso.xfe loadfont symbol.xfe # Alternate font encodings known to xcircuit loadfont times_romaniso2.xfe loadfont courieriso2.xfe loadfont helveticaiso2.xfe loadfont times_romaniso5.xfe loadfont courieriso5.xfe loadfont helveticaiso5.xfe loadfont times_roman_cyrillic.xfe loadfont courier_cyrillic.xfe loadfont helvetica_cyrillic.xfe } if {[catch {set XCOps(liboverride)}]} { # Create library pages library make Generic # First library page library 1 load generic.lps library 1 load analog.lps library 1 load avlsi.lps library 1 load digital.lps library 1 load digitaltcl.lps # Second library page library make AnalogLib library 2 load analoglib3.lps # Third library page # library make LeadFrame # library 3 load ic_templates.lps # Fourth library page # library make 74LSXX # library 4 load quadparts.lps } xcircuit-3.9.73/lib/tcl/tkcon.tcl0000775000175000001440000047615312661712755015372 0ustar timusers#!/bin/sh # \ exec ${XCIRCUIT_WISH:=wish} "$0" ${1+"$@"} # ## tkcon.tcl ## Enhanced Tk Console, part of the VerTcl system ## ## Originally based off Brent Welch's Tcl Shell Widget ## (from "Practical Programming in Tcl and Tk") ## ## Thanks to the following (among many) for early bug reports & code ideas: ## Steven Wahl , Jan Nijtmans ## Crimmins , Wart ## ## Copyright 1995-2001 Jeffrey Hobbs ## Initiated: Thu Aug 17 15:36:47 PDT 1995 ## ## jeff.hobbs@acm.org, jeff@hobbs.org ## ## source standard_disclaimer.tcl ## source bourbon_ware.tcl ## # Proxy support for retrieving the current version of Tkcon. # # Mon Jun 25 12:19:56 2001 - Pat Thoyts # # In your tkcon.cfg or .tkconrc file put your proxy details into the # `proxy' member of the `PRIV' array. e.g.: # # set ::tkcon::PRIV(proxy) wwwproxy:8080 # # If you want to be prompted for proxy authentication details (eg for # an NT proxy server) make the second element of this variable non-nil - eg: # # set ::tkcon::PRIV(proxy) {wwwproxy:8080 1} # # Or you can set the above variable from within tkcon by calling # # tkcon master set ::tkcon:PRIV(proxy) wwwproxy:8080 # if {$tcl_version < 8.0} { return -code error "tkcon requires at least Tcl/Tk8" } else { package require Tk $tcl_version } catch {package require bogus-package-name} foreach pkg [info loaded {}] { set file [lindex $pkg 0] set name [lindex $pkg 1] if {![catch {set version [package require $name]}]} { if {[string match {} [package ifneeded $name $version]]} { package ifneeded $name $version [list load $file $name] } } } catch {unset pkg file name version} # Tk 8.4 makes previously exposed stuff private. # FIX: Update tkcon to not rely on the private Tk code. # if {![llength [info globals tkPriv]]} { ::tk::unsupported::ExposePrivateVariable tkPriv } foreach cmd {SetCursor UpDownLine Transpose ScrollPages} { if {![llength [info commands tkText$cmd]]} { ::tk::unsupported::ExposePrivateCommand tkText$cmd } } # Initialize the ::tkcon namespace # namespace eval ::tkcon { # The OPT variable is an array containing most of the optional # info to configure. COLOR has the color data. variable OPT variable COLOR # PRIV is used for internal data that only tkcon should fiddle with. variable PRIV set PRIV(WWW) [info exists embed_args] } ## ::tkcon::Init - inits tkcon # # Calls: ::tkcon::InitUI # Outputs: errors found in tkcon's resource file ## proc ::tkcon::Init {} { variable OPT variable COLOR variable PRIV global tcl_platform env argc argv tcl_interactive errorInfo if {![info exists argv]} { set argv {} set argc 0 } set tcl_interactive 1 if {[info exists PRIV(name)]} { set title $PRIV(name) } else { MainInit # some main initialization occurs later in this proc, # to go after the UI init set MainInit 1 set title Main } ## ## When setting up all the default values, we always check for ## prior existence. This allows users who embed tkcon to modify ## the initial state before tkcon initializes itself. ## # bg == {} will get bg color from the main toplevel (in InitUI) foreach {key default} { bg {} blink \#FFFF00 cursor \#000000 disabled \#4D4D4D proc \#008800 var \#FFC0D0 prompt \#8F4433 stdin \#000000 stdout \#0000FF stderr \#FF0000 } { if {![info exists COLOR($key)]} { set COLOR($key) $default } } foreach {key default} { autoload {} blinktime 500 blinkrange 1 buffer 512 calcmode 0 cols 80 debugPrompt {(level \#$level) debug [history nextid] > } dead {} expandorder {Pathname Variable Procname} font {} history 48 hoterrors 1 library {} lightbrace 1 lightcmd 1 maineval {} maxmenu 15 nontcl 0 prompt1 {ignore this, it's set below} rows 20 scrollypos right showmenu 1 showmultiple 1 showstatusbar 0 slaveeval {} slaveexit close subhistory 1 gc-delay 60000 gets {congets} usehistory 1 exec slave } { if {![info exists OPT($key)]} { set OPT($key) $default } } foreach {key default} { app {} appname {} apptype slave namesp :: cmd {} cmdbuf {} cmdsave {} event 1 deadapp 0 deadsock 0 debugging 0 displayWin . histid 0 find {} find,case 0 find,reg 0 errorInfo {} showOnStartup 1 slavealias { edit more less tkcon } slaveprocs { alias clear dir dump echo idebug lremove tkcon_puts tkcon_gets observe observe_var unalias which what } version 2.3 RCS {RCS: @(#) $Id: tkcon.tcl,v 1.1.1.1 2011/04/10 21:15:05 tim Exp $} HEADURL {http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/tkcon/tkcon/tkcon.tcl?rev=HEAD} docs "http://tkcon.sourceforge.net/" email {jeff@hobbs.org} root . } { if {![info exists PRIV($key)]} { set PRIV($key) $default } } ## NOTES FOR STAYING IN PRIMARY INTERPRETER: ## ## If you set ::tkcon::OPT(exec) to {}, then instead of a multiple ## interp model, you get tkcon operating in the main interp by default. ## This can be useful when attaching to programs that like to operate ## in the main interpter (for example, based on special wish'es). ## You can set this from the command line with -exec "" ## A side effect is that all tkcon command line args will be used ## by the first console only. #set OPT(exec) {} if {$PRIV(WWW)} { lappend PRIV(slavealias) history set OPT(prompt1) {[history nextid] % } } else { lappend PRIV(slaveprocs) tcl_unknown unknown set OPT(prompt1) {([file tail [pwd]]) [history nextid] % } } ## If we are using the default '.' toplevel, and there appear to be ## children of '.', then make sure we use a disassociated toplevel. if {$PRIV(root) == "." && [llength [winfo children .]]} { set PRIV(root) .tkcon } ## Do platform specific configuration here, other than defaults ### Use tkcon.cfg filename for resource filename on non-unix systems ### Determine what directory the resource file should be in switch $tcl_platform(platform) { macintosh { if {![interp issafe]} {cd [file dirname [info script]]} set envHome PREF_FOLDER set rcfile tkcon.cfg set histfile xcircuit_tkcon.hst catch {console hide} } windows { set envHome HOME set rcfile tkcon.cfg set histfile xcircuit_tkcon.hst } unix { set envHome HOME set rcfile .tkconrc set histfile .xcircuit_tkcon_hst } } if {[info exists env($envHome)]} { if {![info exists PRIV(rcfile)]} { set PRIV(rcfile) [file join $env($envHome) $rcfile] } if {![info exists PRIV(histfile)]} { set PRIV(histfile) [file join $env($envHome) $histfile] } } ## Handle command line arguments before sourcing resource file to ## find if resource file is being specified (let other args pass). if {[set i [lsearch -exact $argv -rcfile]] != -1} { set PRIV(rcfile) [lindex $argv [incr i]] } if {!$PRIV(WWW) && [file exists $PRIV(rcfile)]} { set code [catch {uplevel \#0 [list source $PRIV(rcfile)]} err] } if {[info exists env(TK_CON_LIBRARY)]} { lappend ::auto_path $env(TK_CON_LIBRARY) } else { lappend ::auto_path $OPT(library) } if {![info exists ::tcl_pkgPath]} { set dir [file join [file dirname [info nameofexec]] lib] if {[llength [info commands @scope]]} { set dir [file join $dir itcl] } catch {source [file join $dir pkgIndex.tcl]} } catch {tclPkgUnknown dummy-name dummy-version} ## Handle rest of command line arguments after sourcing resource file ## and slave is created, but before initializing UI or setting packages. set slaveargs {} set slavefiles {} set truth {^(1|yes|true|on)$} for {set i 0} {$i < $argc} {incr i} { set arg [lindex $argv $i] if {[string match {-*} $arg]} { set val [lindex $argv [incr i]] ## Handle arg based options switch -glob -- $arg { -- - -argv { set argv [concat -- [lrange $argv $i end]] set argc [llength $argv] break } -color-* { set COLOR([string range $arg 7 end]) $val } -exec { set OPT(exec) $val } -main - -e - -eval { append OPT(maineval) \n$val\n } -package - -load { lappend OPT(autoload) $val } -slave { append OPT(slaveeval) \n$val\n } -nontcl { set OPT(nontcl) [regexp -nocase $truth $val]} -root { set PRIV(root) $val } -font { set OPT(font) $val } -rcfile {} default { lappend slaveargs $arg; incr i -1 } } } elseif {[file isfile $arg]} { lappend slavefiles $arg } else { lappend slaveargs $arg } } ## Create slave executable if {[string compare {} $OPT(exec)]} { uplevel \#0 ::tkcon::InitSlave $OPT(exec) $slaveargs } else { set argc [llength $slaveargs] set argv $slaveargs uplevel \#0 $slaveargs } ## Attach to the slave, EvalAttached will then be effective Attach $PRIV(appname) $PRIV(apptype) InitUI $title ## swap puts and gets with the tkcon versions to make sure all ## input and output is handled by tkcon if {![catch {rename ::puts ::tkcon_tcl_puts}]} { interp alias {} ::puts {} ::tkcon_puts } if {($OPT(gets) != "") && ![catch {rename ::gets ::tkcon_tcl_gets}]} { interp alias {} ::gets {} ::tkcon_gets } EvalSlave history keep $OPT(history) if {[info exists MainInit]} { # Source history file only for the main console, as all slave # consoles will adopt from the main's history, but still # keep separate histories if {!$PRIV(WWW) && $OPT(usehistory) && [file exists $PRIV(histfile)]} { puts -nonewline "loading history file ... " # The history file is built to be loaded in and # understood by tkcon if {[catch {uplevel \#0 [list source $PRIV(histfile)]} herr]} { puts stderr "error:\n$herr" append PRIV(errorInfo) $errorInfo\n } set PRIV(event) [EvalSlave history nextid] puts "[expr {$PRIV(event)-1}] events added" } } ## Autoload specified packages in slave set pkgs [EvalSlave package names] foreach pkg $OPT(autoload) { puts -nonewline "autoloading package \"$pkg\" ... " if {[lsearch -exact $pkgs $pkg]>-1} { if {[catch {EvalSlave package require [list $pkg]} pkgerr]} { puts stderr "error:\n$pkgerr" append PRIV(errorInfo) $errorInfo\n } else { puts "OK" } } else { puts stderr "error: package does not exist" } } ## Evaluate maineval in slave if {[string compare {} $OPT(maineval)] && \ [catch {uplevel \#0 $OPT(maineval)} merr]} { puts stderr "error in eval:\n$merr" append PRIV(errorInfo) $errorInfo\n } ## Source extra command line argument files into slave executable foreach fn $slavefiles { puts -nonewline "slave sourcing \"$fn\" ... " if {[catch {EvalSlave source [list $fn]} fnerr]} { puts stderr "error:\n$fnerr" append PRIV(errorInfo) $errorInfo\n } else { puts "OK" } } ## Evaluate slaveeval in slave if {[string compare {} $OPT(slaveeval)] && \ [catch {interp eval $OPT(exec) $OPT(slaveeval)} serr]} { puts stderr "error in slave eval:\n$serr" append PRIV(errorInfo) $errorInfo\n } ## Output any error/output that may have been returned from rcfile if {[info exists code] && $code && [string compare {} $err]} { puts stderr "error in $PRIV(rcfile):\n$err" append PRIV(errorInfo) $errorInfo } if {[string compare {} $OPT(exec)]} { StateCheckpoint [concat $PRIV(name) $OPT(exec)] slave } StateCheckpoint $PRIV(name) slave Prompt "$title console display active (Tcl$::tcl_patchLevel / Tk$::tk_patchLevel)\n" } ## ::tkcon::InitSlave - inits the slave by placing key procs and aliases in it ## It's arg[cv] are based on passed in options, while argv0 is the same as ## the master. tcl_interactive is the same as the master as well. # ARGS: slave - name of slave to init. If it does not exist, it is created. # args - args to pass to a slave as argv/argc ## proc ::tkcon::InitSlave {slave args} { variable OPT variable COLOR variable PRIV global argv0 tcl_interactive tcl_library env auto_path if {[string match {} $slave]} { return -code error "Don't init the master interpreter, goofball" } if {![interp exists $slave]} { interp create $slave } if {[interp eval $slave info command source] == ""} { $slave alias source SafeSource $slave $slave alias load SafeLoad $slave $slave alias open SafeOpen $slave $slave alias file file interp eval $slave [dump var -nocomplain tcl_library auto_path env] interp eval $slave { catch {source [file join $tcl_library init.tcl]} } interp eval $slave { catch unknown } } $slave alias exit exit interp eval $slave { # Do package require before changing around puts/gets catch {package require bogus-package-name} catch {rename ::puts ::tkcon_tcl_puts} } foreach cmd $PRIV(slaveprocs) { $slave eval [dump proc $cmd] } foreach cmd $PRIV(slavealias) { $slave alias $cmd $cmd } interp alias $slave ::ls $slave ::dir -full interp alias $slave ::puts $slave ::tkcon_puts if {$OPT(gets) != ""} { interp eval $slave { catch {rename ::gets ::tkcon_tcl_gets} } interp alias $slave ::gets $slave ::tkcon_gets } if {[info exists argv0]} {interp eval $slave [list set argv0 $argv0]} interp eval $slave set tcl_interactive $tcl_interactive \; \ set auto_path [list $auto_path] \; \ set argc [llength $args] \; \ set argv [list $args] \; { if {![llength [info command bgerror]]} { proc bgerror err { global errorInfo set body [info body bgerror] rename ::bgerror {} if {[auto_load bgerror]} { return [bgerror $err] } proc bgerror err $body tkcon bgerror $err $errorInfo } } } foreach pkg [lremove [package names] Tcl] { foreach v [package versions $pkg] { interp eval $slave [list package ifneeded $pkg $v \ [package ifneeded $pkg $v]] } } } ## ::tkcon::InitInterp - inits an interpreter by placing key ## procs and aliases in it. # ARGS: name - interp name # type - interp type (slave|interp) ## proc ::tkcon::InitInterp {name type} { variable OPT variable PRIV ## Don't allow messing up a local master interpreter if {[string match namespace $type] || ([string match slave $type] && \ [regexp {^([Mm]ain|Slave[0-9]+)$} $name])} return set old [Attach] set oldname $PRIV(namesp) catch { Attach $name $type EvalAttached { catch {rename ::puts ::tkcon_tcl_puts} } foreach cmd $PRIV(slaveprocs) { EvalAttached [dump proc $cmd] } switch -exact $type { slave { foreach cmd $PRIV(slavealias) { Main interp alias $name ::$cmd $PRIV(name) ::$cmd } } interp { set thistkcon [tk appname] foreach cmd $PRIV(slavealias) { EvalAttached "proc $cmd args { send [list $thistkcon] $cmd \$args }" } } } ## Catch in case it's a 7.4 (no 'interp alias') interp EvalAttached { catch {interp alias {} ::ls {} ::dir -full} if {[catch {interp alias {} ::puts {} ::tkcon_puts}]} { catch {rename ::tkcon_puts ::puts} } } if {$OPT(gets) != ""} { EvalAttached { catch {rename ::gets ::tkcon_tcl_gets} if {[catch {interp alias {} ::gets {} ::tkcon_gets}]} { catch {rename ::tkcon_gets ::gets} } } } return } {err} eval Attach $old AttachNamespace $oldname if {[string compare {} $err]} { return -code error $err } } ## ::tkcon::InitUI - inits UI portion (console) of tkcon ## Creates all elements of the console window and sets up the text tags # ARGS: root - widget pathname of the tkcon console root # title - title for the console root and main (.) windows # Calls: ::tkcon::InitMenus, ::tkcon::Prompt ## proc ::tkcon::InitUI {title} { variable OPT variable PRIV variable COLOR set root $PRIV(root) if {[string match . $root]} { set w {} } else { set w [toplevel $root] } if {!$PRIV(WWW)} { wm withdraw $root wm protocol $root WM_DELETE_WINDOW exit } set PRIV(base) $w ## Text Console set PRIV(console) [set con $w.text] text $con -wrap char -yscrollcommand [list $w.sy set] \ -foreground $COLOR(stdin) \ -insertbackground $COLOR(cursor) $con mark set output 1.0 $con mark set limit 1.0 if {[string compare {} $COLOR(bg)]} { $con configure -background $COLOR(bg) } set COLOR(bg) [$con cget -background] if {[string compare {} $OPT(font)]} { ## Set user-requested font, if any $con configure -font $OPT(font) } else { ## otherwise make sure the font is monospace set font [$con cget -font] if {![font metrics $font -fixed]} { font create tkconfixed -family Courier -size 12 $con configure -font tkconfixed } } set OPT(font) [$con cget -font] if {!$PRIV(WWW)} { $con configure -setgrid 1 -width $OPT(cols) -height $OPT(rows) } bindtags $con [list $con TkConsole TkConsolePost $root all] ## Menus ## catch against use in plugin if {[catch {menu $w.mbar} PRIV(menubar)]} { set PRIV(menubar) [frame $w.mbar -relief raised -bd 1] } ## Scrollbar set PRIV(scrolly) [scrollbar $w.sy -takefocus 0 -bd 1 \ -command [list $con yview]] InitMenus $PRIV(menubar) $title Bindings if {$OPT(showmenu)} { $root configure -menu $PRIV(menubar) } pack $w.sy -side $OPT(scrollypos) -fill y pack $con -fill both -expand 1 set PRIV(statusbar) [set sbar [frame $w.sbar]] label $sbar.attach -relief sunken -bd 1 -anchor w \ -textvariable ::tkcon::PRIV(StatusAttach) label $sbar.mode -relief sunken -bd 1 -anchor w \ -textvariable ::tkcon::PRIV(StatusMode) label $sbar.cursor -relief sunken -bd 1 -anchor w -width 6 \ -textvariable ::tkcon::PRIV(StatusCursor) grid $sbar.attach $sbar.mode $sbar.cursor -sticky news -padx 1 grid columnconfigure $sbar 0 -weight 1 grid columnconfigure $sbar 1 -weight 1 grid columnconfigure $sbar 2 -weight 0 if {$OPT(showstatusbar)} { pack $sbar -side bottom -fill x -before $::tkcon::PRIV(scrolly) } foreach col {prompt stdout stderr stdin proc} { $con tag configure $col -foreground $COLOR($col) } $con tag configure var -background $COLOR(var) $con tag raise sel $con tag configure blink -background $COLOR(blink) $con tag configure find -background $COLOR(blink) if {!$PRIV(WWW)} { wm title $root "tkcon $PRIV(version) $title" bind $con { scan [wm geometry [winfo toplevel %W]] "%%dx%%d" \ ::tkcon::OPT(cols) ::tkcon::OPT(rows) } if {$PRIV(showOnStartup)} { wm deiconify $root } } if {$PRIV(showOnStartup)} { focus -force $PRIV(console) } if {$OPT(gc-delay)} { after $OPT(gc-delay) ::tkcon::GarbageCollect } } ## ::tkcon::GarbageCollect - do various cleanup ops periodically to our setup ## proc ::tkcon::GarbageCollect {} { variable OPT variable PRIV set w $PRIV(console) ## Remove error tags that no longer span anything ## Make sure the tag pattern matches the unique tag prefix foreach tag [$w tag names] { if {[string match _tag* $tag] && ![llength [$w tag ranges $tag]]} { $w tag delete $tag } } if {$OPT(gc-delay)} { after $OPT(gc-delay) ::tkcon::GarbageCollect } } ## ::tkcon::Eval - evaluates commands input into console window ## This is the first stage of the evaluating commands in the console. ## They need to be broken up into consituent commands (by ::tkcon::CmdSep) in ## case a multiple commands were pasted in, then each is eval'ed (by ## ::tkcon::EvalCmd) in turn. Any uncompleted command will not be eval'ed. # ARGS: w - console text widget # Calls: ::tkcon::CmdGet, ::tkcon::CmdSep, ::tkcon::EvalCmd ## proc ::tkcon::Eval {w} { set incomplete [CmdSep [CmdGet $w] cmds last] $w mark set insert end-1c $w insert end \n if {[llength $cmds]} { foreach c $cmds {EvalCmd $w $c} $w insert insert $last {} } elseif {!$incomplete} { EvalCmd $w $last } $w see insert } ## ::tkcon::EvalCmd - evaluates a single command, adding it to history # ARGS: w - console text widget # cmd - the command to evaluate # Calls: ::tkcon::Prompt # Outputs: result of command to stdout (or stderr if error occured) # Returns: next event number ## proc ::tkcon::EvalCmd {w cmd} { variable OPT variable PRIV $w mark set output end if {[string compare {} $cmd]} { set code 0 if {$OPT(subhistory)} { set ev [EvalSlave history nextid] incr ev -1 if {[string match !! $cmd]} { set code [catch {EvalSlave history event $ev} cmd] if {!$code} {$w insert output $cmd\n stdin} } elseif {[regexp {^!(.+)$} $cmd dummy event]} { ## Check last event because history event is broken set code [catch {EvalSlave history event $ev} cmd] if {!$code && ![string match ${event}* $cmd]} { set code [catch {EvalSlave history event $event} cmd] } if {!$code} {$w insert output $cmd\n stdin} } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} { set code [catch {EvalSlave history event $ev} cmd] if {!$code} { regsub -all -- $old $cmd $new cmd $w insert output $cmd\n stdin } } elseif {$OPT(calcmode) && ![catch {expr $cmd} err]} { EvalSlave history add $cmd set cmd $err set code -1 } } if {$code} { $w insert output $cmd\n stderr } else { ## We are about to evaluate the command, so move the limit ## mark to ensure that further s don't cause double ## evaluation of this command - for cases like the command ## has a vwait or something in it $w mark set limit end if {$OPT(nontcl) && [string match interp $PRIV(apptype)]} { set code [catch {EvalSend $cmd} res] if {$code == 1} { set PRIV(errorInfo) "Non-Tcl errorInfo not available" } } elseif {[string match socket $PRIV(apptype)]} { set code [catch {EvalSocket $cmd} res] if {$code == 1} { set PRIV(errorInfo) "Socket-based errorInfo not available" } } else { set code [catch {EvalAttached $cmd} res] if {$code == 1} { if {[catch {EvalAttached [list set errorInfo]} err]} { set PRIV(errorInfo) "Error getting errorInfo:\n$err" } else { set PRIV(errorInfo) $err } } } EvalSlave history add $cmd if {$code} { if {$OPT(hoterrors)} { set tag [UniqueTag $w] $w insert output $res [list stderr $tag] \n stderr $w tag bind $tag \ [list $w tag configure $tag -under 1] $w tag bind $tag \ [list $w tag configure $tag -under 0] $w tag bind $tag \ "if {!\[info exists tkPriv(mouseMoved)\] || !\$tkPriv(mouseMoved)} \ {[list edit -attach [Attach] -type error -- $PRIV(errorInfo)]}" } else { $w insert output $res\n stderr } } elseif {[string compare {} $res]} { $w insert output $res\n stdout } } } Prompt set PRIV(event) [EvalSlave history nextid] } ## ::tkcon::EvalSlave - evaluates the args in the associated slave ## args should be passed to this procedure like they would be at ## the command line (not like to 'eval'). # ARGS: args - the command and args to evaluate ## proc ::tkcon::EvalSlave args { interp eval $::tkcon::OPT(exec) $args } ## ::tkcon::EvalOther - evaluate a command in a foreign interp or slave ## without attaching to it. No check for existence is made. # ARGS: app - interp/slave name # type - (slave|interp) ## proc ::tkcon::EvalOther { app type args } { if {[string compare slave $type]==0} { return [Slave $app $args] } else { return [uplevel 1 send [list $app] $args] } } ## ::tkcon::EvalSend - sends the args to the attached interpreter ## Varies from 'send' by determining whether attachment is dead ## when an error is received # ARGS: cmd - the command string to send across # Returns: the result of the command ## proc ::tkcon::EvalSend cmd { variable OPT variable PRIV if {$PRIV(deadapp)} { if {[lsearch -exact [winfo interps] $PRIV(app)]<0} { return } else { set PRIV(appname) [string range $PRIV(appname) 5 end] set PRIV(deadapp) 0 Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)] } } set code [catch {send -displayof $PRIV(displayWin) $PRIV(app) $cmd} result] if {$code && [lsearch -exact [winfo interps] $PRIV(app)]<0} { ## Interpreter disappeared if {[string compare leave $OPT(dead)] && \ ([string match ignore $OPT(dead)] || \ [tk_dialog $PRIV(base).dead "Dead Attachment" \ "\"$PRIV(app)\" appears to have died.\ \nReturn to primary slave interpreter?" questhead 0 OK No])} { set PRIV(appname) "DEAD:$PRIV(appname)" set PRIV(deadapp) 1 } else { set err "Attached Tk interpreter \"$PRIV(app)\" died." Attach {} set PRIV(deadapp) 0 EvalSlave set errorInfo $err } Prompt \n [CmdGet $PRIV(console)] } return -code $code $result } ## ::tkcon::EvalSocket - sends the string to an interpreter attached via ## a tcp/ip socket ## ## In the EvalSocket case, ::tkcon::PRIV(app) is the socket id ## ## Must determine whether socket is dead when an error is received # ARGS: cmd - the data string to send across # Returns: the result of the command ## proc ::tkcon::EvalSocket cmd { variable OPT variable PRIV global tcl_version if {$PRIV(deadapp)} { if {![info exists PRIV(app)] || \ [catch {eof $PRIV(app)} eof] || $eof} { return } else { set PRIV(appname) [string range $PRIV(appname) 5 end] set PRIV(deadapp) 0 Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)] } } # Sockets get \'s interpreted, so that users can # send things like \n\r or explicit hex values set cmd [subst -novariables -nocommands $cmd] #puts [list $PRIV(app) $cmd] set code [catch {puts $PRIV(app) $cmd ; flush $PRIV(app)} result] if {$code && [eof $PRIV(app)]} { ## Interpreter died or disappeared puts "$code eof [eof $PRIV(app)]" EvalSocketClosed } return -code $code $result } ## ::tkcon::EvalSocketEvent - fileevent command for an interpreter attached ## via a tcp/ip socket ## Must determine whether socket is dead when an error is received # ARGS: args - the args to send across # Returns: the result of the command ## proc ::tkcon::EvalSocketEvent {} { variable PRIV if {[gets $PRIV(app) line] == -1} { if {[eof $PRIV(app)]} { EvalSocketClosed } return } puts $line } ## ::tkcon::EvalSocketClosed - takes care of handling a closed eval socket ## # ARGS: args - the args to send across # Returns: the result of the command ## proc ::tkcon::EvalSocketClosed {} { variable OPT variable PRIV catch {close $PRIV(app)} if {[string compare leave $OPT(dead)] && \ ([string match ignore $OPT(dead)] || \ [tk_dialog $PRIV(base).dead "Dead Attachment" \ "\"$PRIV(app)\" appears to have died.\ \nReturn to primary slave interpreter?" questhead 0 OK No])} { set PRIV(appname) "DEAD:$PRIV(appname)" set PRIV(deadapp) 1 } else { set err "Attached Tk interpreter \"$PRIV(app)\" died." Attach {} set PRIV(deadapp) 0 EvalSlave set errorInfo $err } Prompt \n [CmdGet $PRIV(console)] } ## ::tkcon::EvalNamespace - evaluates the args in a particular namespace ## This is an override for ::tkcon::EvalAttached for when the user wants ## to attach to a particular namespace of the attached interp # ARGS: attached # namespace the namespace to evaluate in # args the args to evaluate # RETURNS: the result of the command ## proc ::tkcon::EvalNamespace { attached namespace args } { if {[llength $args]} { uplevel \#0 $attached \ [list [concat [list namespace eval $namespace] $args]] } } ## ::tkcon::Namespaces - return all the namespaces descendent from $ns ## # ## proc ::tkcon::Namespaces {{ns ::} {l {}}} { if {[string compare {} $ns]} { lappend l $ns } foreach i [EvalAttached [list namespace children $ns]] { set l [Namespaces $i $l] } return $l } ## ::tkcon::CmdGet - gets the current command from the console widget # ARGS: w - console text widget # Returns: text which compromises current command line ## proc ::tkcon::CmdGet w { if {![llength [$w tag nextrange prompt limit end]]} { $w tag add stdin limit end-1c return [$w get limit end-1c] } } ## ::tkcon::CmdSep - separates multiple commands into a list and remainder # ARGS: cmd - (possible) multiple command to separate # list - varname for the list of commands that were separated. # last - varname of any remainder (like an incomplete final command). # If there is only one command, it's placed in this var. # Returns: constituent command info in varnames specified by list & rmd. ## proc ::tkcon::CmdSep {cmd list last} { upvar 1 $list cmds $last inc set inc {} set cmds {} foreach c [split [string trimleft $cmd] \n] { if {[string compare $inc {}]} { append inc \n$c } else { append inc [string trimleft $c] } if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} { if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc} set inc {} } } set i [string compare $inc {}] if {!$i && [string compare $cmds {}] && ![string match *\n $cmd]} { set inc [lindex $cmds end] set cmds [lreplace $cmds end end] } return $i } ## ::tkcon::CmdSplit - splits multiple commands into a list # ARGS: cmd - (possible) multiple command to separate # Returns: constituent commands in a list ## proc ::tkcon::CmdSplit {cmd} { set inc {} set cmds {} foreach cmd [split [string trimleft $cmd] \n] { if {[string compare {} $inc]} { append inc \n$cmd } else { append inc [string trimleft $cmd] } if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} { #set inc [string trimright $inc] if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc} set inc {} } } if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc} return $cmds } ## ::tkcon::UniqueTag - creates a uniquely named tag, reusing names ## Called by ::tkcon::EvalCmd # ARGS: w - text widget # Outputs: tag name guaranteed unique in the widget ## proc ::tkcon::UniqueTag {w} { set tags [$w tag names] set idx 0 while {[lsearch -exact $tags _tag[incr idx]] != -1} {} return _tag$idx } ## ::tkcon::ConstrainBuffer - This limits the amount of data in the text widget ## Called by ::tkcon::Prompt and in tkcon proc buffer/console switch cases # ARGS: w - console text widget # size - # of lines to constrain to # Outputs: may delete data in console widget ## proc ::tkcon::ConstrainBuffer {w size} { if {[$w index end] > $size} { $w delete 1.0 [expr {int([$w index end])-$size}].0 } } ## ::tkcon::Prompt - displays the prompt in the console widget # ARGS: w - console text widget # Outputs: prompt (specified in ::tkcon::OPT(prompt1)) to console ## proc ::tkcon::Prompt {{pre {}} {post {}} {prompt {}}} { variable OPT variable PRIV set w $PRIV(console) if {[string compare {} $pre]} { $w insert end $pre stdout } set i [$w index end-1c] if {!$OPT(showstatusbar)} { if {[string compare {} $PRIV(appname)]} { $w insert end ">$PRIV(appname)< " prompt } if {[string compare :: $PRIV(namesp)]} { $w insert end "<$PRIV(namesp)> " prompt } } if {[string compare {} $prompt]} { $w insert end $prompt prompt } else { $w insert end [EvalSlave subst $OPT(prompt1)] prompt } $w mark set output $i $w mark set insert end $w mark set limit insert $w mark gravity limit left if {[string compare {} $post]} { $w insert end $post stdin } ConstrainBuffer $w $OPT(buffer) set ::tkcon::PRIV(StatusCursor) [$w index insert] $w see end } ## ::tkcon::About - gives about info for tkcon ## proc ::tkcon::About {} { variable OPT variable PRIV variable COLOR set w $PRIV(base).about if {[winfo exists $w]} { wm deiconify $w } else { global tk_patchLevel tcl_patchLevel tcl_version toplevel $w wm title $w "About tkcon v$PRIV(version)" button $w.b -text Dismiss -command [list wm withdraw $w] text $w.text -height 9 -bd 1 -width 60 \ -foreground $COLOR(stdin) \ -background $COLOR(bg) \ -font $OPT(font) pack $w.b -fill x -side bottom pack $w.text -fill both -side left -expand 1 $w.text tag config center -justify center $w.text tag config title -justify center -font {Courier -18 bold} # strip down the RCS info displayed in the about box regexp {,v ([0-9\./: ]*)} $PRIV(RCS) -> RCS $w.text insert 1.0 "About tkcon v$PRIV(version)" title \ "\n\nCopyright 1995-2001 Jeffrey Hobbs, $PRIV(email)\ \nRelease Info: v$PRIV(version), CVS v$RCS\ \nDocumentation available at:\n$PRIV(docs)\ \nUsing: Tcl v$tcl_patchLevel / Tk v$tk_patchLevel" center $w.text config -state disabled } } ## ::tkcon::InitMenus - inits the menubar and popup for the console # ARGS: w - console text widget ## proc ::tkcon::InitMenus {w title} { variable OPT variable PRIV variable COLOR global tcl_platform if {[catch {menu $w.pop -tearoff 0}]} { label $w.label -text "Menus not available in plugin mode" pack $w.label return } menu $w.context -tearoff 0 -disabledforeground $COLOR(disabled) set PRIV(context) $w.context set PRIV(popup) $w.pop proc MenuButton {w m l} { $w add cascade -label $m -underline 0 -menu $w.$l return $w.$l } foreach m [list File Console Edit Interp Prefs History Help] { set l [string tolower $m] MenuButton $w $m $l $w.pop add cascade -label $m -underline 0 -menu $w.pop.$l } ## File Menu ## foreach m [list [menu $w.file -disabledforeground $COLOR(disabled)] \ [menu $w.pop.file -disabledforeground $COLOR(disabled)]] { $m add command -label "Load File" -underline 0 -command ::tkcon::Load $m add cascade -label "Save ..." -underline 0 -menu $m.save $m add separator $m add command -label "Quit" -underline 0 -accel Ctrl-q -command exit ## Save Menu ## set s $m.save menu $s -disabledforeground $COLOR(disabled) -tearoff 0 $s add command -label "All" -underline 0 \ -command {::tkcon::Save {} all} $s add command -label "History" -underline 0 \ -command {::tkcon::Save {} history} $s add command -label "Stdin" -underline 3 \ -command {::tkcon::Save {} stdin} $s add command -label "Stdout" -underline 3 \ -command {::tkcon::Save {} stdout} $s add command -label "Stderr" -underline 3 \ -command {::tkcon::Save {} stderr} } ## Console Menu ## foreach m [list [menu $w.console -disabledfore $COLOR(disabled)] \ [menu $w.pop.console -disabledfore $COLOR(disabled)]] { $m add command -label "$title Console" -state disabled $m add command -label "New Console" -underline 0 -accel Ctrl-N \ -command ::tkcon::New $m add command -label "Close Console" -underline 0 -accel Ctrl-w \ -command ::tkcon::Destroy $m add command -label "Clear Console" -underline 1 -accel Ctrl-l \ -command { clear; ::tkcon::Prompt } if {[string match unix $tcl_platform(platform)]} { $m add separator $m add command -label "Make Xauth Secure" -und 5 \ -command ::tkcon::XauthSecure } $m add separator $m add cascade -label "Attach To ..." -underline 0 -menu $m.attach ## Attach Console Menu ## set sub [menu $m.attach -disabledforeground $COLOR(disabled)] $sub add cascade -label "Interpreter" -underline 0 -menu $sub.apps $sub add cascade -label "Namespace" -underline 1 -menu $sub.name $sub add cascade -label "Socket" -underline 1 -menu $sub.sock \ -state [expr {([info tclversion] < 8.3)?"disabled":"normal"}] ## Attach Console Menu ## menu $sub.apps -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::AttachMenu $sub.apps] ## Attach Namespace Menu ## menu $sub.name -disabledforeground $COLOR(disabled) -tearoff 0 \ -postcommand [list ::tkcon::NamespaceMenu $sub.name] if {$::tcl_version >= 8.3} { # This uses [file channels] to create the menu, so we only # want it for newer versions of Tcl. ## Attach Socket Menu ## menu $sub.sock -disabledforeground $COLOR(disabled) -tearoff 0 \ -postcommand [list ::tkcon::SocketMenu $sub.sock] } ## Attach Display Menu ## if {![string compare "unix" $tcl_platform(platform)]} { $sub add cascade -label "Display" -und 1 -menu $sub.disp menu $sub.disp -disabledforeground $COLOR(disabled) \ -tearoff 0 \ -postcommand [list ::tkcon::DisplayMenu $sub.disp] } } ## Edit Menu ## set text $PRIV(console) foreach m [list [menu $w.edit] [menu $w.pop.edit]] { $m add command -label "Cut" -underline 2 -accel Ctrl-x \ -command [list ::tkcon::Cut $text] $m add command -label "Copy" -underline 0 -accel Ctrl-c \ -command [list ::tkcon::Copy $text] $m add command -label "Paste" -underline 0 -accel Ctrl-v \ -command [list ::tkcon::Paste $text] $m add separator $m add command -label "Find" -underline 0 -accel Ctrl-F \ -command [list ::tkcon::FindBox $text] } ## Interp Menu ## foreach m [list $w.interp $w.pop.interp] { menu $m -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::InterpMenu $m] } ## Prefs Menu ## foreach m [list [menu $w.prefs] [menu $w.pop.prefs]] { $m add check -label "Brace Highlighting" \ -underline 0 -variable ::tkcon::OPT(lightbrace) $m add check -label "Command Highlighting" \ -underline 0 -variable ::tkcon::OPT(lightcmd) $m add check -label "History Substitution" \ -underline 0 -variable ::tkcon::OPT(subhistory) $m add check -label "Hot Errors" \ -underline 0 -variable ::tkcon::OPT(hoterrors) $m add check -label "Non-Tcl Attachments" \ -underline 0 -variable ::tkcon::OPT(nontcl) $m add check -label "Calculator Mode" \ -underline 1 -variable ::tkcon::OPT(calcmode) $m add check -label "Show Multiple Matches" \ -underline 0 -variable ::tkcon::OPT(showmultiple) $m add check -label "Show Menubar" \ -underline 5 -variable ::tkcon::OPT(showmenu) \ -command {$::tkcon::PRIV(root) configure -menu [expr \ {$::tkcon::OPT(showmenu) ? $::tkcon::PRIV(menubar) : {}}]} $m add check -label "Show Statusbar" \ -underline 5 -variable ::tkcon::OPT(showstatusbar) \ -command { if {$::tkcon::OPT(showstatusbar)} { pack $::tkcon::PRIV(statusbar) -side bottom -fill x \ -before $::tkcon::PRIV(scrolly) } else { pack forget $::tkcon::PRIV(statusbar) } } $m add cascade -label "Scrollbar" -underline 2 -menu $m.scroll ## Scrollbar Menu ## set m [menu $m.scroll -tearoff 0] $m add radio -label "Left" -value left \ -variable ::tkcon::OPT(scrollypos) \ -command { pack config $::tkcon::PRIV(scrolly) -side left } $m add radio -label "Right" -value right \ -variable ::tkcon::OPT(scrollypos) \ -command { pack config $::tkcon::PRIV(scrolly) -side right } } ## History Menu ## foreach m [list $w.history $w.pop.history] { menu $m -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::HistoryMenu $m] } ## Help Menu ## foreach m [list [menu $w.help] [menu $w.pop.help]] { $m add command -label "About " -underline 0 -accel Ctrl-A \ -command ::tkcon::About $m add command -label "Retrieve Latest Version" -underline 0 \ -command ::tkcon::Retrieve } } ## ::tkcon::HistoryMenu - dynamically build the menu for attached interpreters ## # ARGS: m - menu widget ## proc ::tkcon::HistoryMenu m { variable PRIV if {![winfo exists $m]} return set id [EvalSlave history nextid] if {$PRIV(histid)==$id} return set PRIV(histid) $id $m delete 0 end while {($id>1) && ($id>$PRIV(histid)-10) && \ ![catch {EvalSlave history event [incr id -1]} tmp]} { set lbl $tmp if {[string len $lbl]>32} { set lbl [string range $tmp 0 28]... } $m add command -label "$id: $lbl" -command " $::tkcon::PRIV(console) delete limit end $::tkcon::PRIV(console) insert limit [list $tmp] $::tkcon::PRIV(console) see end ::tkcon::Eval $::tkcon::PRIV(console)" } } ## ::tkcon::InterpMenu - dynamically build the menu for attached interpreters ## # ARGS: w - menu widget ## proc ::tkcon::InterpMenu w { variable OPT variable PRIV variable COLOR if {![winfo exists $w]} return $w delete 0 end foreach {app type} [Attach] break $w add command -label "[string toupper $type]: $app" -state disabled if {($OPT(nontcl) && [string match interp $type]) || $PRIV(deadapp)} { $w add separator $w add command -state disabled -label "Communication disabled to" $w add command -state disabled -label "dead or non-Tcl interps" return } ## Show Last Error ## $w add separator $w add command -label "Show Last Error" \ -command [list tkcon error $app $type] ## Packages Cascaded Menu ## $w add separator $w add cascade -label Packages -underline 0 -menu $w.pkg set m $w.pkg if {![winfo exists $m]} { menu $m -tearoff no -disabledforeground $COLOR(disabled) \ -postcommand [list ::tkcon::PkgMenu $m $app $type] } ## State Checkpoint/Revert ## $w add separator $w add command -label "Checkpoint State" \ -command [list ::tkcon::StateCheckpoint $app $type] $w add command -label "Revert State" \ -command [list ::tkcon::StateRevert $app $type] $w add command -label "View State Change" \ -command [list ::tkcon::StateCompare $app $type] ## Init Interp ## $w add separator $w add command -label "Send tkcon Commands" \ -command [list ::tkcon::InitInterp $app $type] } ## ::tkcon::PkgMenu - fill in in the applications sub-menu ## with a list of all the applications that currently exist. ## proc ::tkcon::PkgMenu {m app type} { # just in case stuff has been added to the auto_path # we have to make sure that the errorInfo doesn't get screwed up EvalAttached { set __tkcon_error $errorInfo catch {package require bogus-package-name} set errorInfo ${__tkcon_error} unset __tkcon_error } $m delete 0 end foreach pkg [EvalAttached [list info loaded {}]] { set loaded([lindex $pkg 1]) [package provide $pkg] } foreach pkg [lremove [EvalAttached {package names}] Tcl] { set version [EvalAttached [list package provide $pkg]] if {[string compare {} $version]} { set loaded($pkg) $version } elseif {![info exists loaded($pkg)]} { set loadable($pkg) [list package require $pkg] } } foreach pkg [EvalAttached {info loaded}] { set pkg [lindex $pkg 1] if {![info exists loaded($pkg)] && ![info exists loadable($pkg)]} { set loadable($pkg) [list load {} $pkg] } } set npkg 0 foreach pkg [lsort -dictionary [array names loadable]] { foreach v [EvalAttached [list package version $pkg]] { set brkcol [expr {([incr npkg]%16)==0}] $m add command -label "Load $pkg ($v)" -command \ "::tkcon::EvalOther [list $app] $type $loadable($pkg) $v" \ -columnbreak $brkcol } } if {[info exists loaded] && [info exists loadable]} { $m add separator } foreach pkg [lsort -dictionary [array names loaded]] { $m add command -label "${pkg}$loaded($pkg) Loaded" -state disabled } } ## ::tkcon::AttachMenu - fill in in the applications sub-menu ## with a list of all the applications that currently exist. ## proc ::tkcon::AttachMenu m { variable OPT variable PRIV array set interps [set tmp [Interps]] foreach {i j} $tmp { set tknames($j) {} } $m delete 0 end set cmd {::tkcon::Prompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} $m add radio -label {None (use local slave) } -accel Ctrl-1 \ -variable ::tkcon::PRIV(app) \ -value [concat $::tkcon::PRIV(name) $::tkcon::OPT(exec)] \ -command "::tkcon::Attach {}; $cmd" $m add separator $m add command -label "Foreign Tk Interpreters" -state disabled foreach i [lsort [lremove [winfo interps] [array names tknames]]] { $m add radio -label $i -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $i] interp; $cmd" } $m add separator $m add command -label "tkcon Interpreters" -state disabled foreach i [lsort [array names interps]] { if {[string match {} $interps($i)]} { set interps($i) "no Tk" } if {[regexp {^Slave[0-9]+} $i]} { set opts [list -label "$i ($interps($i))" \ -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $i] slave; $cmd"] if {[string match $PRIV(name) $i]} { append opts " -accel Ctrl-2" } eval $m add radio $opts } else { set name [concat Main $i] if {[string match Main $name]} { $m add radio -label "$name ($interps($i))" -accel Ctrl-3 \ -variable ::tkcon::PRIV(app) -value Main \ -command "::tkcon::Attach [list $name] slave; $cmd" } else { $m add radio -label "$name ($interps($i))" \ -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $name] slave; $cmd" } } } } ## Displays Cascaded Menu ## proc ::tkcon::DisplayMenu m { $m delete 0 end set cmd {::tkcon::Prompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} $m add command -label "New Display" -command ::tkcon::NewDisplay foreach disp [Display] { $m add separator $m add command -label $disp -state disabled set res [Display $disp] set win [lindex $res 0] foreach i [lsort [lindex $res 1]] { $m add radio -label $i -variable ::tkcon::PRIV(app) -value $i \ -command "::tkcon::Attach [list $i] [list dpy:$win]; $cmd" } } } ## Sockets Cascaded Menu ## proc ::tkcon::SocketMenu m { $m delete 0 end set cmd {::tkcon::Prompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} $m add command -label "Create Connection" \ -command "::tkcon::NewSocket; $cmd" foreach sock [file channels sock*] { $m add radio -label $sock -variable ::tkcon::PRIV(app) -value $sock \ -command "::tkcon::Attach $sock socket; $cmd" } } ## Namepaces Cascaded Menu ## proc ::tkcon::NamespaceMenu m { variable PRIV variable OPT $m delete 0 end if {($PRIV(deadapp) || [string match socket $PRIV(apptype)] || \ ($OPT(nontcl) && [string match interp $PRIV(apptype)]))} { $m add command -label "No Namespaces" -state disabled return } ## Same command as for ::tkcon::AttachMenu items set cmd {::tkcon::Prompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]} set names [lsort [Namespaces ::]] if {[llength $names] > $OPT(maxmenu)} { $m add command -label "Attached to $PRIV(namesp)" -state disabled $m add command -label "List Namespaces" \ -command [list ::tkcon::NamespacesList $names] } else { foreach i $names { if {[string match :: $i]} { $m add radio -label "Main" -value $i \ -variable ::tkcon::PRIV(namesp) \ -command "::tkcon::AttachNamespace [list $i]; $cmd" } else { $m add radio -label $i -value $i \ -variable ::tkcon::PRIV(namesp) \ -command "::tkcon::AttachNamespace [list $i]; $cmd" } } } } ## Namepaces List ## proc ::tkcon::NamespacesList {names} { variable PRIV set f $PRIV(base).namespaces catch {destroy $f} toplevel $f listbox $f.names -width 30 -height 15 -selectmode single \ -yscrollcommand [list $f.scrollv set] \ -xscrollcommand [list $f.scrollh set] scrollbar $f.scrollv -command [list $f.names yview] scrollbar $f.scrollh -command [list $f.names xview] -orient horizontal frame $f.buttons button $f.cancel -text "Cancel" -command [list destroy $f] grid $f.names $f.scrollv -sticky nesw grid $f.scrollh -sticky ew grid $f.buttons -sticky nesw grid $f.cancel -in $f.buttons -pady 6 grid columnconfigure $f 0 -weight 1 grid rowconfigure $f 0 -weight 1 #fill the listbox foreach i $names { if {[string match :: $i]} { $f.names insert 0 Main } else { $f.names insert end $i } } #Bindings bind $f.names { ## Catch in case the namespace disappeared on us catch { ::tkcon::AttachNamespace [%W get [%W nearest %y]] } ::tkcon::Prompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] destroy [winfo toplevel %W] } } # ::tkcon::XauthSecure -- # # This removes all the names in the xhost list, and secures # the display for Tk send commands. Of course, this prevents # what might have been otherwise allowable X connections # # Arguments: # none # Results: # Returns nothing # proc ::tkcon::XauthSecure {} { global tcl_platform if {[string compare unix $tcl_platform(platform)]} { # This makes no sense outside of Unix return } set hosts [exec xhost] # the first line is info only foreach host [lrange [split $hosts \n] 1 end] { exec xhost -$host } exec xhost - tk_messageBox -title "Xhost secured" -message "Xhost secured" -icon info } ## ::tkcon::FindBox - creates minimal dialog interface to ::tkcon::Find # ARGS: w - text widget # str - optional seed string for ::tkcon::PRIV(find) ## proc ::tkcon::FindBox {w {str {}}} { variable PRIV set base $PRIV(base).find if {![winfo exists $base]} { toplevel $base wm withdraw $base wm title $base "tkcon Find" pack [frame $base.f] -fill x -expand 1 label $base.f.l -text "Find:" entry $base.f.e -textvariable ::tkcon::PRIV(find) pack [frame $base.opt] -fill x checkbutton $base.opt.c -text "Case Sensitive" \ -variable ::tkcon::PRIV(find,case) checkbutton $base.opt.r -text "Use Regexp" -variable ::tkcon::PRIV(find,reg) pack $base.f.l -side left pack $base.f.e $base.opt.c $base.opt.r -side left -fill both -expand 1 pack [frame $base.sep -bd 2 -relief sunken -height 4] -fill x pack [frame $base.btn] -fill both button $base.btn.fnd -text "Find" -width 6 button $base.btn.clr -text "Clear" -width 6 button $base.btn.dis -text "Dismiss" -width 6 eval pack [winfo children $base.btn] -padx 4 -pady 2 \ -side left -fill both focus $base.f.e bind $base.f.e [list $base.btn.fnd invoke] bind $base.f.e [list $base.btn.dis invoke] } $base.btn.fnd config -command "::tkcon::Find [list $w] \$::tkcon::PRIV(find) \ -case \$::tkcon::PRIV(find,case) -reg \$::tkcon::PRIV(find,reg)" $base.btn.clr config -command " [list $w] tag remove find 1.0 end set ::tkcon::PRIV(find) {} " $base.btn.dis config -command " [list $w] tag remove find 1.0 end wm withdraw [list $base] " if {[string compare {} $str]} { set PRIV(find) $str $base.btn.fnd invoke } if {[string compare normal [wm state $base]]} { wm deiconify $base } else { raise $base } $base.f.e select range 0 end } ## ::tkcon::Find - searches in text widget $w for $str and highlights it ## If $str is empty, it just deletes any highlighting # ARGS: w - text widget # str - string to search for # -case TCL_BOOLEAN whether to be case sensitive DEFAULT: 0 # -regexp TCL_BOOLEAN whether to use $str as pattern DEFAULT: 0 ## proc ::tkcon::Find {w str args} { $w tag remove find 1.0 end set truth {^(1|yes|true|on)$} set opts {} foreach {key val} $args { switch -glob -- $key { -c* { if {[regexp -nocase $truth $val]} { set case 1 } } -r* { if {[regexp -nocase $truth $val]} { lappend opts -regexp } } default { return -code error "Unknown option $key" } } } if {![info exists case]} { lappend opts -nocase } if {[string match {} $str]} return $w mark set findmark 1.0 while {[string compare {} [set ix [eval $w search $opts -count numc -- \ [list $str] findmark end]]]} { $w tag add find $ix ${ix}+${numc}c $w mark set findmark ${ix}+1c } $w tag configure find -background $::tkcon::COLOR(blink) catch {$w see find.first} return [expr {[llength [$w tag ranges find]]/2}] } ## ::tkcon::Attach - called to attach tkcon to an interpreter # ARGS: name - application name to which tkcon sends commands # This is either a slave interperter name or tk appname. # type - (slave|interp) type of interpreter we're attaching to # slave means it's a tkcon interpreter # interp means we'll need to 'send' to it. # Results: ::tkcon::EvalAttached is recreated to evaluate in the # appropriate interpreter ## proc ::tkcon::Attach {{name } {type slave}} { variable PRIV variable OPT if {[llength [info level 0]] == 1} { # no args were specified, return the attach info instead if {[string match {} $PRIV(appname)]} { return [list [concat $PRIV(name) $OPT(exec)] $PRIV(apptype)] } else { return [list $PRIV(appname) $PRIV(apptype)] } } set path [concat $PRIV(name) $OPT(exec)] set PRIV(displayWin) . if {[string match namespace $type]} { return [uplevel 1 ::tkcon::AttachNamespace $name] } elseif {[string match dpy:* $type]} { set PRIV(displayWin) [string range $type 4 end] } elseif {[string match sock* $type]} { global tcl_version if {[catch {eof $name} res]} { return -code error "No known channel \"$name\"" } elseif {$res} { catch {close $name} return -code error "Channel \"$name\" returned EOF" } set app $name set type socket } elseif {[string compare {} $name]} { array set interps [Interps] if {[string match {[Mm]ain} [lindex $name 0]]} { set name [lrange $name 1 end] } if {[string match $path $name]} { set name {} set app $path set type slave } elseif {[info exists interps($name)]} { if {[string match {} $name]} { set name Main; set app Main } set type slave } elseif {[interp exists $name]} { set name [concat $PRIV(name) $name] set type slave } elseif {[interp exists [concat $OPT(exec) $name]]} { set name [concat $path $name] set type slave } elseif {[lsearch -exact [winfo interps] $name] > -1} { if {[EvalSlave info exists tk_library] \ && [string match $name [EvalSlave tk appname]]} { set name {} set app $path set type slave } elseif {[set i [lsearch -exact \ [Main set ::tkcon::PRIV(interps)] $name]] != -1} { set name [lindex [Main set ::tkcon::PRIV(slaves)] $i] if {[string match {[Mm]ain} $name]} { set app Main } set type slave } else { set type interp } } else { return -code error "No known interpreter \"$name\"" } } else { set app $path } if {![info exists app]} { set app $name } array set PRIV [list app $app appname $name apptype $type deadapp 0] ## ::tkcon::EvalAttached - evaluates the args in the attached interp ## args should be passed to this procedure as if they were being ## passed to the 'eval' procedure. This procedure is dynamic to ## ensure evaluation occurs in the right interp. # ARGS: args - the command and args to evaluate ## switch -glob -- $type { slave { if {[string match {} $name]} { interp alias {} ::tkcon::EvalAttached {} \ ::tkcon::EvalSlave uplevel \#0 } elseif {[string match Main $PRIV(app)]} { interp alias {} ::tkcon::EvalAttached {} ::tkcon::Main } elseif {[string match $PRIV(name) $PRIV(app)]} { interp alias {} ::tkcon::EvalAttached {} uplevel \#0 } else { interp alias {} ::tkcon::EvalAttached {} \ ::tkcon::Slave $::tkcon::PRIV(app) } } sock* { interp alias {} ::tkcon::EvalAttached {} \ ::tkcon::EvalSlave uplevel \#0 # The file event will just puts whatever data is found # into the interpreter fconfigure $name -buffering line -blocking 0 fileevent $name readable ::tkcon::EvalSocketEvent } dpy:* - interp { if {$OPT(nontcl)} { interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalSlave set PRIV(namesp) :: } else { interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalSend } } default { return -code error "[lindex [info level 0] 0] did not specify\ a valid type: must be slave or interp" } } if {[string match slave $type] || \ (!$OPT(nontcl) && [regexp {^(interp|dpy)} $type])} { set PRIV(namesp) :: } set PRIV(StatusAttach) "$PRIV(app) ($PRIV(apptype))" return } ## ::tkcon::AttachNamespace - called to attach tkcon to a namespace # ARGS: name - namespace name in which tkcon should eval commands # Results: ::tkcon::EvalAttached will be modified ## proc ::tkcon::AttachNamespace { name } { variable PRIV variable OPT if {($OPT(nontcl) && [string match interp $PRIV(apptype)]) \ || [string match socket $PRIV(apptype)] \ || $PRIV(deadapp)} { return -code error "can't attach to namespace in attached environment" } if {[string match Main $name]} {set name ::} if {[string compare {} $name] && \ [lsearch [Namespaces ::] $name] == -1} { return -code error "No known namespace \"$name\"" } if {[regexp {^(|::)$} $name]} { ## If name=={} || ::, we want the primary namespace set alias [interp alias {} ::tkcon::EvalAttached] if {[string match ::tkcon::EvalNamespace* $alias]} { eval [list interp alias {} ::tkcon::EvalAttached {}] \ [lindex $alias 1] } set name :: } else { interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalNamespace \ [interp alias {} ::tkcon::EvalAttached] [list $name] } set PRIV(namesp) $name set PRIV(StatusAttach) "$PRIV(app) $PRIV(namesp) ($PRIV(apptype))" } ## ::tkcon::NewSocket - called to create a socket to connect to # ARGS: none # Results: It will create a socket, and attach if requested ## proc ::tkcon::NewSocket {} { variable PRIV set t $PRIV(base).newsock if {![winfo exists $t]} { toplevel $t wm withdraw $t wm title $t "tkcon Create Socket" label $t.lhost -text "Host: " entry $t.host -width 20 label $t.lport -text "Port: " entry $t.port -width 4 button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} bind $t.host [list focus $t.port] bind $t.port [list focus $t.ok] bind $t.ok [list $t.ok invoke] grid $t.lhost $t.host $t.lport $t.port -sticky ew grid $t.ok - - - -sticky ew grid columnconfig $t 1 -weight 1 grid rowconfigure $t 1 -weight 1 wm transient $t $PRIV(root) wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \ reqwidth $t]) / 2}]+[expr {([winfo \ screenheight $t]-[winfo reqheight $t]) / 2}] } #$t.host delete 0 end #$t.port delete 0 end wm deiconify $t raise $t grab $t focus $t.host vwait ::tkcon::PRIV(grab) grab release $t wm withdraw $t set host [$t.host get] set port [$t.port get] if {$host == ""} { return } if {[catch { set sock [socket $host $port] } err]} { tk_messageBox -title "Socket Connection Error" \ -message "Unable to connect to \"$host:$port\":\n$err" \ -icon error -type ok } else { Attach $sock socket } } ## ::tkcon::Load - sources a file into the console ## The file is actually sourced in the currently attached's interp # ARGS: fn - (optional) filename to source in # Returns: selected filename ({} if nothing was selected) ## proc ::tkcon::Load { {fn ""} } { set types { {{Tcl Files} {.tcl .tk}} {{Text Files} {.txt}} {{All Files} *} } if { [string match {} $fn] && ([catch {tk_getOpenFile -filetypes $types \ -title "Source File"} fn] || [string match {} $fn]) } { return } EvalAttached [list source $fn] } ## ::tkcon::Save - saves the console or other widget buffer to a file ## This does not eval in a slave because it's not necessary # ARGS: w - console text widget # fn - (optional) filename to save to ## proc ::tkcon::Save { {fn ""} {type ""} {opt ""} {mode w} } { variable PRIV if {![regexp -nocase {^(all|history|stdin|stdout|stderr|widget)$} $type]} { array set s { 0 All 1 History 2 Stdin 3 Stdout 4 Stderr 5 Cancel } ## Allow user to specify what kind of stuff to save set type [tk_dialog $PRIV(base).savetype "Save Type" \ "What part of the text do you want to save?" \ questhead 0 $s(0) $s(1) $s(2) $s(3) $s(4) $s(5)] if {$type == 5 || $type == -1} return set type $s($type) } if {[string match {} $fn]} { set types { {{Tcl Files} {.tcl .tk}} {{Text Files} {.txt}} {{All Files} *} } if {[catch {tk_getSaveFile -defaultextension .tcl -filetypes $types \ -title "Save $type"} fn] || [string match {} $fn]} return } set type [string tolower $type] switch $type { stdin - stdout - stderr { set data {} foreach {first last} [$PRIV(console) tag ranges $type] { lappend data [$PRIV(console) get $first $last] } set data [join $data \n] } history { set data [tkcon history] } all - default { set data [$PRIV(console) get 1.0 end-1c] } widget { set data [$opt get 1.0 end-1c] } } if {[catch {open $fn $mode} fid]} { return -code error "Save Error: Unable to open '$fn' for writing\n$fid" } puts -nonewline $fid $data close $fid } ## ::tkcon::MainInit ## This is only called for the main interpreter to include certain procs ## that we don't want to include (or rather, just alias) in slave interps. ## proc ::tkcon::MainInit {} { variable PRIV if {![info exists PRIV(slaves)]} { array set PRIV [list slave 0 slaves Main name {} \ interps [list [tk appname]]] } interp alias {} ::tkcon::Main {} ::tkcon::InterpEval Main interp alias {} ::tkcon::Slave {} ::tkcon::InterpEval proc ::tkcon::GetSlaveNum {} { set i -1 while {[interp exists Slave[incr i]]} { # oh my god, an empty loop! } return $i } ## ::tkcon::New - create new console window ## Creates a slave interpreter and sources in this script. ## All other interpreters also get a command to eval function in the ## new interpreter. ## proc ::tkcon::New {} { variable PRIV global argv0 argc argv set tmp [interp create Slave[GetSlaveNum]] lappend PRIV(slaves) $tmp load {} Tk $tmp lappend PRIV(interps) [$tmp eval [list tk appname \ "[tk appname] $tmp"]] if {[info exist argv0]} {$tmp eval [list set argv0 $argv0]} $tmp eval set argc $argc $tmp eval [list set argv $argv] $tmp eval [list namespace eval ::tkcon {}] $tmp eval [list set ::tkcon::PRIV(name) $tmp] $tmp eval [list set ::tkcon::PRIV(SCRIPT) $::tkcon::PRIV(SCRIPT)] $tmp alias exit ::tkcon::Exit $tmp $tmp alias ::tkcon::Destroy ::tkcon::Destroy $tmp $tmp alias ::tkcon::New ::tkcon::New $tmp alias ::tkcon::Main ::tkcon::InterpEval Main $tmp alias ::tkcon::Slave ::tkcon::InterpEval $tmp alias ::tkcon::Interps ::tkcon::Interps $tmp alias ::tkcon::NewDisplay ::tkcon::NewDisplay $tmp alias ::tkcon::Display ::tkcon::Display $tmp alias ::tkcon::StateCheckpoint ::tkcon::StateCheckpoint $tmp alias ::tkcon::StateCleanup ::tkcon::StateCleanup $tmp alias ::tkcon::StateCompare ::tkcon::StateCompare $tmp alias ::tkcon::StateRevert ::tkcon::StateRevert $tmp eval { if [catch {source -rsrc tkcon}] { source $::tkcon::PRIV(SCRIPT) } } return $tmp } ## ::tkcon::Exit - full exit OR destroy slave console ## This proc should only be called in the main interpreter from a slave. ## The master determines whether we do a full exit or just kill the slave. ## proc ::tkcon::Exit {slave args} { variable PRIV variable OPT ## Slave interpreter exit request if {[string match exit $OPT(slaveexit)]} { ## Only exit if it specifically is stated to do so uplevel 1 exit $args } ## Otherwise we will delete the slave interp and associated data set name [InterpEval $slave] set PRIV(interps) [lremove $PRIV(interps) [list $name]] set PRIV(slaves) [lremove $PRIV(slaves) [list $slave]] interp delete $slave StateCleanup $slave return } ## ::tkcon::Destroy - destroy console window ## This proc should only be called by the main interpreter. If it is ## called from there, it will ask before exiting tkcon. All others ## (slaves) will just have their slave interpreter deleted, closing them. ## proc ::tkcon::Destroy {{slave {}}} { variable PRIV if {[string match {} $slave]} { ## Main interpreter close request if {[tk_dialog $PRIV(base).destroyme {Quit tkcon?} \ {Closing the Main console will quit tkcon} \ warning 0 "Don't Quit" "Quit tkcon"]} exit } else { ## Slave interpreter close request set name [InterpEval $slave] set PRIV(interps) [lremove $PRIV(interps) [list $name]] set PRIV(slaves) [lremove $PRIV(slaves) [list $slave]] interp delete $slave } StateCleanup $slave return } ## We want to do a couple things before exiting... if {[catch {rename ::exit ::tkcon::FinalExit} err]} { puts stderr "tkcon might panic:\n$err" } proc ::exit args { if {$::tkcon::OPT(usehistory)} { if {[catch {open $::tkcon::PRIV(histfile) w} fid]} { puts stderr "unable to save history file:\n$fid" # pause a moment, because we are about to die finally... after 1000 } else { set max [::tkcon::EvalSlave history nextid] set id [expr {$max - $::tkcon::OPT(history)}] if {$id < 1} { set id 1 } ## FIX: This puts history in backwards!! while {($id < $max) && \ ![catch {::tkcon::EvalSlave history event $id} cmd]} { if {[string compare {} $cmd]} { puts $fid "::tkcon::EvalSlave history add [list $cmd]" } incr id } close $fid } } uplevel 1 ::tkcon::FinalExit $args } ## ::tkcon::InterpEval - passes evaluation to another named interpreter ## If the interpreter is named, but no args are given, it returns the ## [tk appname] of that interps master (not the associated eval slave). ## proc ::tkcon::InterpEval {{slave {}} args} { variable PRIV if {[string match {} $slave]} { return $PRIV(slaves) } elseif {[string match {[Mm]ain} $slave]} { set slave {} } if {[llength $args]} { return [interp eval $slave uplevel \#0 $args] } else { return [interp eval $slave tk appname] } } proc ::tkcon::Interps {{ls {}} {interp {}}} { if {[string match {} $interp]} { lappend ls {} [tk appname] } foreach i [interp slaves $interp] { if {[string compare {} $interp]} { set i "$interp $i" } if {[string compare {} [interp eval $i package provide Tk]]} { lappend ls $i [interp eval $i tk appname] } else { lappend ls $i {} } set ls [Interps $ls $i] } return $ls } proc ::tkcon::Display {{disp {}}} { variable DISP set res {} if {$disp != ""} { if {![info exists DISP($disp)]} { return } return [list $DISP($disp) [winfo interps -displayof $DISP($disp)]] } return [lsort -dictionary [array names DISP]] } proc ::tkcon::NewDisplay {} { variable PRIV variable DISP set t $PRIV(base).newdisp if {![winfo exists $t]} { toplevel $t wm withdraw $t wm title $t "tkcon Attach to Display" label $t.gets -text "New Display: " entry $t.data -width 32 button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} bind $t.data [list $t.ok invoke] bind $t.ok [list $t.ok invoke] grid $t.gets $t.data -sticky ew grid $t.ok - -sticky ew grid columnconfig $t 1 -weight 1 grid rowconfigure $t 1 -weight 1 wm transient $t $PRIV(root) wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \ reqwidth $t]) / 2}]+[expr {([winfo \ screenheight $t]-[winfo reqheight $t]) / 2}] } $t.data delete 0 end wm deiconify $t raise $t grab $t focus $t.data vwait ::tkcon::PRIV(grab) grab release $t wm withdraw $t set disp [$t.data get] if {$disp == ""} { return } regsub -all {\.} [string tolower $disp] ! dt set dt $PRIV(base).$dt destroy $dt if {[catch { toplevel $dt -screen $disp set interps [winfo interps -displayof $dt] if {![llength $interps]} { error "No other Tk interpreters on $disp" } send -displayof $dt [lindex $interps 0] [list info tclversion] } err]} { global env if {[info exists env(DISPLAY)]} { set myd $env(DISPLAY) } else { set myd "myDisplay:0" } tk_messageBox -title "Display Connection Error" \ -message "Unable to connect to \"$disp\":\n$err\ \nMake sure you have xauth-based permissions\ (xauth add $myd . `mcookie`), and xhost is disabled\ (xhost -) on \"$disp\"" \ -icon error -type ok destroy $dt return } set DISP($disp) $dt wm withdraw $dt bind $dt [subst {catch {unset ::tkcon::DISP($disp)}}] tk_messageBox -title "$disp Connection" \ -message "Connected to \"$disp\", found:\n[join $interps \n]" \ -type ok } ## ## The following state checkpoint/revert procedures are very sketchy ## and prone to problems. They do not track modifications to currently ## existing procedures/variables, and they can really screw things up ## if you load in libraries (especially Tk) between checkpoint and ## revert. Only with this knowledge in mind should you use these. ## ## ::tkcon::StateCheckpoint - checkpoints the current state of the system ## This allows you to return to this state with ::tkcon::StateRevert # ARGS: ## proc ::tkcon::StateCheckpoint {app type} { variable CPS variable PRIV if {[info exists CPS($type,$app,cmd)] && \ [tk_dialog $PRIV(base).warning "Overwrite Previous State?" \ "Are you sure you want to lose previously checkpointed\ state of $type \"$app\"?" questhead 1 "Do It" "Cancel"]} return set CPS($type,$app,cmd) [EvalOther $app $type info commands *] set CPS($type,$app,var) [EvalOther $app $type info vars *] return } ## ::tkcon::StateCompare - compare two states and output difference # ARGS: ## proc ::tkcon::StateCompare {app type {verbose 0}} { variable CPS variable PRIV variable OPT variable COLOR if {![info exists CPS($type,$app,cmd)]} { return -code error \ "No previously checkpointed state for $type \"$app\"" } set w $PRIV(base).compare if {[winfo exists $w]} { $w.text config -state normal $w.text delete 1.0 end } else { toplevel $w frame $w.btn scrollbar $w.sy -takefocus 0 -bd 1 -command [list $w.text yview] text $w.text -yscrollcommand [list $w.sy set] -height 12 \ -foreground $COLOR(stdin) \ -background $COLOR(bg) \ -insertbackground $COLOR(cursor) \ -font $OPT(font) pack $w.btn -side bottom -fill x pack $w.sy -side right -fill y pack $w.text -fill both -expand 1 button $w.btn.close -text "Dismiss" -width 11 \ -command [list destroy $w] button $w.btn.check -text "Recheckpoint" -width 11 button $w.btn.revert -text "Revert" -width 11 button $w.btn.expand -text "Verbose" -width 11 button $w.btn.update -text "Update" -width 11 pack $w.btn.check $w.btn.revert $w.btn.expand $w.btn.update \ $w.btn.close -side left -fill x -padx 4 -pady 2 -expand 1 $w.text tag config red -foreground red } wm title $w "Compare State: $type [list $app]" $w.btn.check config \ -command "::tkcon::StateCheckpoint [list $app] $type; \ ::tkcon::StateCompare [list $app] $type $verbose" $w.btn.revert config \ -command "::tkcon::StateRevert [list $app] $type; \ ::tkcon::StateCompare [list $app] $type $verbose" $w.btn.update config -command [info level 0] if {$verbose} { $w.btn.expand config -text Brief \ -command [list ::tkcon::StateCompare $app $type 0] } else { $w.btn.expand config -text Verbose \ -command [list ::tkcon::StateCompare $app $type 1] } ## Don't allow verbose mode unless 'dump' exists in $app ## We're assuming this is tkcon's dump command set hasdump [llength [EvalOther $app $type info commands dump]] if {$hasdump} { $w.btn.expand config -state normal } else { $w.btn.expand config -state disabled } set cmds [lremove [EvalOther $app $type info commands *] \ $CPS($type,$app,cmd)] set vars [lremove [EvalOther $app $type info vars *] \ $CPS($type,$app,var)] if {$hasdump && $verbose} { set cmds [EvalOther $app $type eval dump c -nocomplain $cmds] set vars [EvalOther $app $type eval dump v -nocomplain $vars] } $w.text insert 1.0 "NEW COMMANDS IN \"$app\":\n" red \ $cmds {} "\n\nNEW VARIABLES IN \"$app\":\n" red $vars {} raise $w $w.text config -state disabled } ## ::tkcon::StateRevert - reverts interpreter to previous state # ARGS: ## proc ::tkcon::StateRevert {app type} { variable CPS variable PRIV if {![info exists CPS($type,$app,cmd)]} { return -code error \ "No previously checkpointed state for $type \"$app\"" } if {![tk_dialog $PRIV(base).warning "Revert State?" \ "Are you sure you want to revert the state in $type \"$app\"?"\ questhead 1 "Do It" "Cancel"]} { foreach i [lremove [EvalOther $app $type info commands *] \ $CPS($type,$app,cmd)] { catch {EvalOther $app $type rename $i {}} } foreach i [lremove [EvalOther $app $type info vars *] \ $CPS($type,$app,var)] { catch {EvalOther $app $type unset $i} } } } ## ::tkcon::StateCleanup - cleans up state information in master array # ## proc ::tkcon::StateCleanup {args} { variable CPS if {![llength $args]} { foreach state [array names CPS slave,*] { if {![interp exists [string range $state 6 end]]} { unset CPS($state) } } } else { set app [lindex $args 0] set type [lindex $args 1] if {[regexp {^(|slave)$} $type]} { foreach state [array names CPS "slave,$app\[, \]*"] { if {![interp exists [string range $state 6 end]]} { unset CPS($state) } } } else { catch {unset CPS($type,$app)} } } } } ## ::tkcon::Event - get history event, search if string != {} ## look forward (next) if $int>0, otherwise look back (prev) # ARGS: W - console widget ## proc ::tkcon::Event {int {str {}}} { if {!$int} return variable PRIV set w $PRIV(console) set nextid [EvalSlave history nextid] if {[string compare {} $str]} { ## String is not empty, do an event search set event $PRIV(event) if {$int < 0 && $event == $nextid} { set PRIV(cmdbuf) $str } set len [string len $PRIV(cmdbuf)] incr len -1 if {$int > 0} { ## Search history forward while {$event < $nextid} { if {[incr event] == $nextid} { $w delete limit end $w insert limit $PRIV(cmdbuf) break } elseif { ![catch {EvalSlave history event $event} res] && [set p [string first $PRIV(cmdbuf) $res]] > -1 } { set p2 [expr {$p + [string length $PRIV(cmdbuf)]}] $w delete limit end $w insert limit $res Blink $w "limit + $p c" "limit + $p2 c" break } } set PRIV(event) $event } else { ## Search history reverse while {![catch {EvalSlave history event [incr event -1]} res]} { if {[set p [string first $PRIV(cmdbuf) $res]] > -1} { set p2 [expr {$p + [string length $PRIV(cmdbuf)]}] $w delete limit end $w insert limit $res set PRIV(event) $event Blink $w "limit + $p c" "limit + $p2 c" break } } } } else { ## String is empty, just get next/prev event if {$int > 0} { ## Goto next command in history if {$PRIV(event) < $nextid} { $w delete limit end if {[incr PRIV(event)] == $nextid} { $w insert limit $PRIV(cmdbuf) } else { $w insert limit [EvalSlave history event $PRIV(event)] } } } else { ## Goto previous command in history if {$PRIV(event) == $nextid} { set PRIV(cmdbuf) [CmdGet $w] } if {[catch {EvalSlave history event [incr PRIV(event) -1]} res]} { incr PRIV(event) } else { $w delete limit end $w insert limit $res } } } $w mark set insert end $w see end } ## ::tkcon::ErrorHighlight - magic error highlighting ## beware: voodoo included # ARGS: ## proc ::tkcon::ErrorHighlight w { variable COLOR ## do voodoo here set app [Attach] # we have to pull the text out, because text regexps are screwed on \n's. set info [$w get 1.0 end-1c] # Check for specific line error in a proc set exp(proc) "\"(\[^\"\]+)\"\n\[\t \]+\\\(procedure \"(\[^\"\]+)\"" # Check for too few args to a proc set exp(param) "parameter \"(\[^\"\]+)\" to \"(\[^\"\]+)\"" set start 1.0 while { [regexp -indices -- $exp(proc) $info junk what cmd] || [regexp -indices -- $exp(param) $info junk what cmd] } { foreach {w0 w1} $what {c0 c1} $cmd {break} set what [string range $info $w0 $w1] set cmd [string range $info $c0 $c1] if {[string match *::* $cmd]} { set res [uplevel 1 ::tkcon::EvalOther $app namespace eval \ [list [namespace qualifiers $cmd] \ [list info procs [namespace tail $cmd]]]] } else { set res [uplevel 1 ::tkcon::EvalOther $app info procs [list $cmd]] } if {[llength $res]==1} { set tag [UniqueTag $w] $w tag add $tag $start+${c0}c $start+1c+${c1}c $w tag configure $tag -foreground $COLOR(stdout) $w tag bind $tag [list $w tag configure $tag -under 1] $w tag bind $tag [list $w tag configure $tag -under 0] $w tag bind $tag "if {!\$tkPriv(mouseMoved)} \ {[list edit -attach $app -type proc -find $what -- $cmd]}" } set info [string range $info $c1 end] set start [$w index $start+${c1}c] } ## Next stage, check for procs that start a line set start 1.0 set exp(cmd) "^\"\[^\" \t\n\]+" while { [string compare {} [set ix \ [$w search -regexp -count numc -- $exp(cmd) $start end]]] } { set start [$w index $ix+${numc}c] # +1c to avoid the first quote set cmd [$w get $ix+1c $start] if {[string match *::* $cmd]} { set res [uplevel 1 ::tkcon::EvalOther $app namespace eval \ [list [namespace qualifiers $cmd] \ [list info procs [namespace tail $cmd]]]] } else { set res [uplevel 1 ::tkcon::EvalOther $app info procs [list $cmd]] } if {[llength $res]==1} { set tag [UniqueTag $w] $w tag add $tag $ix+1c $start $w tag configure $tag -foreground $COLOR(proc) $w tag bind $tag [list $w tag configure $tag -under 1] $w tag bind $tag [list $w tag configure $tag -under 0] $w tag bind $tag "if {!\$tkPriv(mouseMoved)} \ {[list edit -attach $app -type proc -- $cmd]}" } } } ## tkcon - command that allows control over the console ## This always exists in the main interpreter, and is aliased into ## other connected interpreters # ARGS: totally variable, see internal comments ## proc tkcon {cmd args} { global errorInfo switch -glob -- $cmd { buf* { ## 'buffer' Sets/Query the buffer size if {[llength $args]} { if {[regexp {^[1-9][0-9]*$} $args]} { set ::tkcon::OPT(buffer) $args # catch in case the console doesn't exist yet catch {::tkcon::ConstrainBuffer $::tkcon::PRIV(console) \ $::tkcon::OPT(buffer)} } else { return -code error "buffer must be a valid integer" } } return $::tkcon::OPT(buffer) } bg* { ## 'bgerror' Brings up an error dialog set errorInfo [lindex $args 1] bgerror [lindex $args 0] } cl* { ## 'close' Closes the console ::tkcon::Destroy } cons* { ## 'console' - passes the args to the text widget of the console. set result [uplevel 1 $::tkcon::PRIV(console) $args] ::tkcon::ConstrainBuffer $::tkcon::PRIV(console) \ $::tkcon::OPT(buffer) return $result } congets { ## 'congets' a replacement for [gets stdin] # Use the 'gets' alias of 'tkcon_gets' command instead of # calling the *get* methods directly for best compatability if {[llength $args] > 1} { return -code error "wrong # args: must be \"tkcon congets [pfix]\"" } tkcon show set old [bind TkConsole <>] bind TkConsole <> { set ::tkcon::PRIV(wait) 0 } set w $::tkcon::PRIV(console) # Make sure to move the limit to get the right data $w mark set insert end if {[llength $args]} { $w mark set limit insert $w insert end $args } else { $w mark set limit insert } $w see end vwait ::tkcon::PRIV(wait) set line [::tkcon::CmdGet $w] $w insert end \n bind TkConsole <> $old return $line } getc* { ## 'getcommand' a replacement for [gets stdin] ## This forces a complete command to be input though if {[llength $args]} { return -code error "wrong # args: must be \"tkcon getcommand\"" } tkcon show set old [bind TkConsole <>] bind TkConsole <> { set ::tkcon::PRIV(wait) 0 } set w $::tkcon::PRIV(console) # Make sure to move the limit to get the right data $w mark set insert end $w mark set limit insert $w see end vwait ::tkcon::PRIV(wait) set line [::tkcon::CmdGet $w] $w insert end \n while {![info complete $line] || [regexp {[^\\]\\$} $line]} { vwait ::tkcon::PRIV(wait) set line [::tkcon::CmdGet $w] $w insert end \n $w see end } bind TkConsole <> $old return $line } get - gets { ## 'gets' - a replacement for [gets stdin] ## This pops up a text widget to be used for stdin (local grabbed) if {[llength $args]} { return -code error "wrong # args: should be \"tkcon gets\"" } set t $::tkcon::PRIV(base).gets if {![winfo exists $t]} { toplevel $t wm withdraw $t wm title $t "tkcon gets stdin request" label $t.gets -text "\"gets stdin\" request:" text $t.data -width 32 -height 5 -wrap none \ -xscrollcommand [list $t.sx set] \ -yscrollcommand [list $t.sy set] scrollbar $t.sx -orient h -takefocus 0 -highlightthick 0 \ -command [list $t.data xview] scrollbar $t.sy -orient v -takefocus 0 -highlightthick 0 \ -command [list $t.data yview] button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} bind $t.ok { %W invoke } grid $t.gets - -sticky ew grid $t.data $t.sy -sticky news grid $t.sx -sticky ew grid $t.ok - -sticky ew grid columnconfig $t 0 -weight 1 grid rowconfig $t 1 -weight 1 wm transient $t $::tkcon::PRIV(root) wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \ reqwidth $t]) / 2}]+[expr {([winfo \ screenheight $t]-[winfo reqheight $t]) / 2}] } $t.data delete 1.0 end wm deiconify $t raise $t grab $t focus $t.data vwait ::tkcon::PRIV(grab) grab release $t wm withdraw $t return [$t.data get 1.0 end-1c] } err* { ## Outputs stack caused by last error. ## error handling with pizazz (but with pizza would be nice too) if {[llength $args]==2} { set app [lindex $args 0] set type [lindex $args 1] if {[catch {::tkcon::EvalOther $app $type set errorInfo} info]} { set info "error getting info from $type $app:\n$info" } } else { set info $::tkcon::PRIV(errorInfo) } if {[string match {} $info]} { set info "errorInfo empty" } ## If args is empty, the -attach switch just ignores it edit -attach $args -type error -- $info } fi* { ## 'find' string ::tkcon::Find $::tkcon::PRIV(console) $args } fo* { ## 'font' ?fontname? - gets/sets the font of the console if {[llength $args]} { if {[info exists ::tkcon::PRIV(console)] && \ [winfo exists $::tkcon::PRIV(console)]} { $::tkcon::PRIV(console) config -font $args set ::tkcon::OPT(font) [$::tkcon::PRIV(console) cget -font] } else { set ::tkcon::OPT(font) $args } } return $::tkcon::OPT(font) } hid* - with* { ## 'hide' 'withdraw' - hides the console. wm withdraw $::tkcon::PRIV(root) } his* { ## 'history' set sub {\2} if {[string match -new* $args]} { append sub "\n"} set h [::tkcon::EvalSlave history] regsub -all "( *\[0-9\]+ |\t)(\[^\n\]*\n?)" $h $sub h return $h } ico* { ## 'iconify' - iconifies the console with 'iconify'. wm iconify $::tkcon::PRIV(root) } mas* - eval { ## 'master' - evals contents in master interpreter uplevel \#0 $args } set { ## 'set' - set (or get, or unset) simple vars (not whole arrays) ## from the master console interpreter ## possible formats: ## tkcon set ## tkcon set ## tkcon set w ## tkcon set u ## tkcon set r if {[llength $args]==5} { ## This is for use w/ 'tkcon upvar' and only works with slaves foreach {var i var1 var2 op} $args break if {[string compare {} $var2]} { append var1 "($var2)" } switch $op { u { uplevel \#0 [list unset $var] } w { return [uplevel \#0 [list set $var \ [interp eval $i [list set $var1]]]] } r { return [interp eval $i [list set $var1 \ [uplevel \#0 [list set $var]]]] } } } elseif {[llength $args] == 1} { upvar \#0 [lindex $args 0] var if {[array exists var]} { return [array get var] } else { return $var } } return [uplevel \#0 set $args] } append { ## Modify a var in the master environment using append return [uplevel \#0 append $args] } lappend { ## Modify a var in the master environment using lappend return [uplevel \#0 lappend $args] } sh* - dei* { ## 'show|deiconify' - deiconifies the console. wm deiconify $::tkcon::PRIV(root) raise $::tkcon::PRIV(root) focus -force $::tkcon::PRIV(console) } ti* { ## 'title' ?title? - gets/sets the console's title if {[llength $args]} { return [wm title $::tkcon::PRIV(root) [join $args]] } else { return [wm title $::tkcon::PRIV(root)] } } upv* { ## 'upvar' masterVar slaveVar ## link slave variable slaveVar to the master variable masterVar ## only works masters<->slave set masterVar [lindex $args 0] set slaveVar [lindex $args 1] if {[info exists $masterVar]} { interp eval $::tkcon::OPT(exec) \ [list set $slaveVar [set $masterVar]] } else { catch {interp eval $::tkcon::OPT(exec) [list unset $slaveVar]} } interp eval $::tkcon::OPT(exec) \ [list trace variable $slaveVar rwu \ [list tkcon set $masterVar $::tkcon::OPT(exec)]] return } v* { return $::tkcon::PRIV(version) } default { ## tries to determine if the command exists, otherwise throws error set new ::tkcon::[string toupper \ [string index $cmd 0]][string range $cmd 1 end] if {[llength [info command $new]]} { uplevel \#0 $new $args } else { return -code error "bad option \"$cmd\": must be\ [join [lsort [list attach close console destroy \ font hide iconify load main master new save show \ slave deiconify version title bgerror]] {, }]" } } } } ## ## Some procedures to make up for lack of built-in shell commands ## ## tkcon_puts - ## This allows me to capture all stdout/stderr to the console window ## This will be renamed to 'puts' at the appropriate time during init ## # ARGS: same as usual # Outputs: the string with a color-coded text tag ## proc tkcon_puts args { set len [llength $args] foreach {arg1 arg2 arg3} $args { break } if {$len == 1} { set sarg $arg1 set nl 1 set farg stdout } elseif {$len == 2} { if {![string compare $arg1 -nonewline]} { set sarg $arg2 set farg stdout set nl 0 } elseif {![string compare $arg1 stdout] \ || ![string compare $arg1 stderr]} { set sarg $arg2 set farg $arg1 set nl 1 } else { set len 0 } } elseif {$len == 3} { if {![string compare $arg1 -nonewline] \ && (![string compare $arg2 stdout] \ || ![string compare $arg2 stderr])} { set sarg $arg3 set farg $arg2 set nl 0 } elseif {(![string compare $arg1 stdout] \ || ![string compare $arg1 stderr]) \ && ![string compare $arg3 nonewline]} { set sarg $arg2 set farg $arg1 set nl 0 } else { set len 0 } } else { set len 0 } ## $len == 0 means it wasn't handled by tkcon above. ## if {$len != 0} { ## "poor man's" \r substitution---erase everything on the output ## line and print from character after the \r set rpt [string last \r $sarg] if {$rpt >= 0} { tkcon console delete "insert linestart" "insert lineend" set sarg [string range $sarg [expr {$rpt + 1}] end] } set bpt [string first \b $sarg] if {$bpt >= 0} { set narg [string range $sarg [expr {$bpt + 1}] end] set sarg [string range $sarg 0 [expr {$bpt - 1}]] set nl 0 } if {$nl == 0} { tkcon console insert output $sarg $farg } else { tkcon console insert output "$sarg\n" $farg } if {$bpt >= 0} { tkcon console delete "insert -1 char" insert if {$nl == 0} { tkcon_puts $farg $narg nonewline } else { tkcon_puts $farg $narg } } } else { global errorCode errorInfo if {[catch "tkcon_tcl_puts $args" msg]} { regsub tkcon_tcl_puts $msg puts msg regsub -all tkcon_tcl_puts $errorInfo puts errorInfo return -code error $msg } return $msg } ## WARNING: This update should behave well because it uses idletasks, ## however, if there are weird looping problems with events, or ## hanging in waits, try commenting this out. if {$len} { tkcon console see output update idletasks } } ## tkcon_gets - ## This allows me to capture all stdin input without needing to stdin ## This will be renamed to 'gets' at the appropriate time during init ## # ARGS: same as gets # Outputs: same as gets ## proc tkcon_gets args { set len [llength $args] if {$len != 1 && $len != 2} { return -code error \ "wrong # args: should be \"gets channelId ?varName?\"" } if {[string compare stdin [lindex $args 0]]} { return [uplevel 1 tkcon_tcl_gets $args] } set gtype [tkcon set ::tkcon::OPT(gets)] if {$gtype == ""} { set gtype congets } set data [tkcon $gtype] if {$len == 2} { upvar 1 [lindex $args 1] var set var $data return [string length $data] } return $data } ## edit - opens a file/proc/var for reading/editing ## # Arguments: # type proc/file/var # what the actual name of the item # Returns: nothing ## proc edit {args} { array set opts {-find {} -type {} -attach {}} while {[string match -* [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -f* { set opts(-find) [lindex $args 1] } -a* { set opts(-attach) [lindex $args 1] } -t* { set opts(-type) [lindex $args 1] } -- { set args [lreplace $args 0 0]; break } default {return -code error "unknown option \"[lindex $args 0]\""} } set args [lreplace $args 0 1] } # determine who we are dealing with if {[llength $opts(-attach)]} { foreach {app type} $opts(-attach) {break} } else { foreach {app type} [tkcon attach] {break} } set word [lindex $args 0] if {[string match {} $opts(-type)]} { if {[llength [::tkcon::EvalOther $app $type info commands [list $word]]]} { set opts(-type) "proc" } elseif {[llength [::tkcon::EvalOther $app $type info vars [list $word]]]} { set opts(-type) "var" } elseif {[::tkcon::EvalOther $app $type file isfile [list $word]]} { set opts(-type) "file" } } if {[string compare $opts(-type) {}]} { # Create unique edit window toplevel set w $::tkcon::PRIV(base).__edit set i 0 while {[winfo exists $w[incr i]]} {} append w $i toplevel $w wm withdraw $w if {[string length $word] > 12} { wm title $w "tkcon Edit: [string range $word 0 9]..." } else { wm title $w "tkcon Edit: $word" } text $w.text -wrap none \ -xscrollcommand [list $w.sx set] \ -yscrollcommand [list $w.sy set] \ -foreground $::tkcon::COLOR(stdin) \ -background $::tkcon::COLOR(bg) \ -insertbackground $::tkcon::COLOR(cursor) \ -font $::tkcon::OPT(font) scrollbar $w.sx -orient h -takefocus 0 -bd 1 \ -command [list $w.text xview] scrollbar $w.sy -orient v -takefocus 0 -bd 1 \ -command [list $w.text yview] set menu [menu $w.mbar] $w configure -menu $menu ## File Menu ## set m [menu [::tkcon::MenuButton $menu File file]] $m add command -label "Save As..." -underline 0 \ -command [list ::tkcon::Save {} widget $w.text] $m add command -label "Append To..." -underline 0 \ -command [list ::tkcon::Save {} widget $w.text a+] $m add separator $m add command -label "Dismiss" -underline 0 -accel "Ctrl-w" \ -command [list destroy $w] bind $w [list destroy $w] bind $w <$::tkcon::PRIV(meta)-w> [list destroy $w] ## Edit Menu ## set text $w.text set m [menu [::tkcon::MenuButton $menu Edit edit]] $m add command -label "Cut" -under 2 \ -command [list tk_textCut $text] $m add command -label "Copy" -under 0 \ -command [list tk_textCopy $text] $m add command -label "Paste" -under 0 \ -command [list tk_textPaste $text] $m add separator $m add command -label "Find" -under 0 \ -command [list ::tkcon::FindBox $text] ## Send To Menu ## set m [menu [::tkcon::MenuButton $menu "Send To..." send]] $m add command -label "Send To $app" -underline 0 \ -command "::tkcon::EvalOther [list $app] $type \ eval \[$w.text get 1.0 end-1c\]" set other [tkcon attach] if {[string compare $other [list $app $type]]} { $m add command -label "Send To [lindex $other 0]" \ -command "::tkcon::EvalOther $other \ eval \[$w.text get 1.0 end-1c\]" } grid $w.text - $w.sy -sticky news grid $w.sx - -sticky ew grid columnconfigure $w 0 -weight 1 grid columnconfigure $w 1 -weight 1 grid rowconfigure $w 0 -weight 1 } else { return -code error "unrecognized type '$word'" } switch -glob -- $opts(-type) { proc* { $w.text insert 1.0 \ [::tkcon::EvalOther $app $type dump proc [list $word]] } var* { $w.text insert 1.0 \ [::tkcon::EvalOther $app $type dump var [list $word]] } file { $w.text insert 1.0 [::tkcon::EvalOther $app $type eval \ [subst -nocommands { set __tkcon(fid) [open $word r] set __tkcon(data) [read \$__tkcon(fid)] close \$__tkcon(fid) after 1000 unset __tkcon return \$__tkcon(data) } ]] } error* { $w.text insert 1.0 [join $args \n] ::tkcon::ErrorHighlight $w.text } default { $w.text insert 1.0 [join $args \n] } } wm deiconify $w focus $w.text if {[string compare $opts(-find) {}]} { ::tkcon::Find $w.text $opts(-find) -case 1 } } interp alias {} ::more {} ::edit interp alias {} ::less {} ::edit ## echo ## Relaxes the one string restriction of 'puts' # ARGS: any number of strings to output to stdout ## proc echo args { puts [concat $args] } ## clear - clears the buffer of the console (not the history though) ## This is executed in the parent interpreter ## proc clear {{pcnt 100}} { if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} { return -code error \ "invalid percentage to clear: must be 1-100 (100 default)" } elseif {$pcnt == 100} { tkcon console delete 1.0 end } else { set tmp [expr {$pcnt/100.0*[tkcon console index end]}] tkcon console delete 1.0 "$tmp linestart" } } ## alias - akin to the csh alias command ## If called with no args, then it dumps out all current aliases ## If called with one arg, returns the alias of that arg (or {} if none) # ARGS: newcmd - (optional) command to bind alias to # args - command and args being aliased ## proc alias {{newcmd {}} args} { if {[string match {} $newcmd]} { set res {} foreach a [interp aliases] { lappend res [list $a -> [interp alias {} $a]] } return [join $res \n] } elseif {![llength $args]} { interp alias {} $newcmd } else { eval interp alias [list {} $newcmd {}] $args } } ## unalias - unaliases an alias'ed command # ARGS: cmd - command to unbind as an alias ## proc unalias {cmd} { interp alias {} $cmd {} } ## dump - outputs variables/procedure/widget info in source'able form. ## Accepts glob style pattern matching for the names # # ARGS: type - type of thing to dump: must be variable, procedure, widget # # OPTS: -nocomplain # don't complain if no items of the specified type are found # -filter pattern # specifies a glob filter pattern to be used by the variable # method as an array filter pattern (it filters down for # nested elements) and in the widget method as a config # option filter pattern # -- forcibly ends options recognition # # Returns: the values of the requested items in a 'source'able form ## proc dump {type args} { set whine 1 set code ok if {![llength $args]} { ## If no args, assume they gave us something to dump and ## we'll try anything set args $type set type any } while {[string match -* [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -n* { set whine 0; set args [lreplace $args 0 0] } -f* { set fltr [lindex $args 1]; set args [lreplace $args 0 1] } -- { set args [lreplace $args 0 0]; break } default {return -code error "unknown option \"[lindex $args 0]\""} } } if {$whine && ![llength $args]} { return -code error "wrong \# args: [lindex [info level 0] 0] type\ ?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?" } set res {} switch -glob -- $type { c* { # command # outputs commands by figuring out, as well as possible, what it is # this does not attempt to auto-load anything foreach arg $args { if {[llength [set cmds [info commands $arg]]]} { foreach cmd [lsort $cmds] { if {[lsearch -exact [interp aliases] $cmd] > -1} { append res "\#\# ALIAS: $cmd =>\ [interp alias {} $cmd]\n" } elseif { [llength [info procs $cmd]] || ([string match *::* $cmd] && [llength [namespace eval [namespace qual $cmd] \ info procs [namespace tail $cmd]]]) } { if {[catch {dump p -- $cmd} msg] && $whine} { set code error } append res $msg\n } else { append res "\#\# COMMAND: $cmd\n" } } } elseif {$whine} { append res "\#\# No known command $arg\n" set code error } } } v* { # variable # outputs variables value(s), whether array or simple. if {![info exists fltr]} { set fltr * } foreach arg $args { if {![llength [set vars [uplevel 1 info vars [list $arg]]]]} { if {[uplevel 1 info exists $arg]} { set vars $arg } elseif {$whine} { append res "\#\# No known variable $arg\n" set code error continue } else { continue } } foreach var [lsort $vars] { if {[uplevel 1 [list info locals $var]] == ""} { # use the proper scope of the var, but # namespace which won't id locals correctly set var [uplevel 1 \ [list namespace which -variable $var]] } upvar 1 $var v if {[array exists v] || [catch {string length $v}]} { set nst {} append res "array set [list $var] \{\n" if {[array size v]} { foreach i [lsort [array names v $fltr]] { upvar 0 v\($i\) __a if {[array exists __a]} { append nst "\#\# NESTED ARRAY ELEM: $i\n" append nst "upvar 0 [list $var\($i\)] __a;\ [dump v -filter $fltr __a]\n" } else { append res " [list $i]\t[list $v($i)]\n" } } } else { ## empty array append res " empty array\n" append nst "unset [list $var](empty)\n" } append res "\}\n$nst" } else { append res [list set $var $v]\n } } } } p* { # procedure foreach arg $args { if { ![llength [set procs [info proc $arg]]] && ([string match *::* $arg] && [llength [set ps [namespace eval \ [namespace qualifier $arg] \ info procs [namespace tail $arg]]]]) } { set procs {} set namesp [namespace qualifier $arg] foreach p $ps { lappend procs ${namesp}::$p } } if {[llength $procs]} { foreach p [lsort $procs] { set as {} foreach a [info args $p] { if {[info default $p $a tmp]} { lappend as [list $a $tmp] } else { lappend as $a } } append res [list proc $p $as [info body $p]]\n } } elseif {$whine} { append res "\#\# No known proc $arg\n" set code error } } } w* { # widget ## The user should have Tk loaded if {![llength [info command winfo]]} { return -code error "winfo not present, cannot dump widgets" } if {![info exists fltr]} { set fltr .* } foreach arg $args { if {[llength [set ws [info command $arg]]]} { foreach w [lsort $ws] { if {[winfo exists $w]} { if {[catch {$w configure} cfg]} { append res "\#\# Widget $w\ does not support configure method" set code error } else { append res "\#\# [winfo class $w]\ $w\n$w configure" foreach c $cfg { if {[llength $c] != 5} continue ## Check to see that the option does ## not match the default, then check ## the item against the user filter if {[string compare [lindex $c 3] \ [lindex $c 4]] && \ [regexp -nocase -- $fltr $c]} { append res " \\\n\t[list [lindex $c 0]\ [lindex $c 4]]" } } append res \n } } } } elseif {$whine} { append res "\#\# No known widget $arg\n" set code error } } } a* { ## see if we recognize it, other complain if {[regexp {(var|com|proc|widget)} \ [set types [uplevel 1 what $args]]]} { foreach type $types { if {[regexp {(var|com|proc|widget)} $type]} { append res "[uplevel 1 dump $type $args]\n" } } } else { set res "dump was unable to resolve type for \"$args\"" set code error } } default { return -code error "bad [lindex [info level 0] 0] option\ \"$type\": must be variable, command, procedure,\ or widget" } } return -code $code [string trimright $res \n] } ## idebug - interactive debugger # # idebug body ?level? # # Prints out the body of the command (if it is a procedure) at the # specified level. level defaults to the current level. # # idebug break # # Creates a breakpoint within a procedure. This will only trigger # if idebug is on and the id matches the pattern. If so, TkCon will # pop to the front with the prompt changed to an idebug prompt. You # are given the basic ability to observe the call stack an query/set # variables or execute Tcl commands at any level. A separate history # is maintained in debugging mode. # # idebug echo|{echo ?id?} ?args? # # Behaves just like "echo", but only triggers when idebug is on. # You can specify an optional id to further restrict triggering. # If no id is specified, it defaults to the name of the command # in which the call was made. # # idebug id ?id? # # Query or set the idebug id. This id is used by other idebug # methods to determine if they should trigger or not. The idebug # id can be a glob pattern and defaults to *. # # idebug off # # Turns idebug off. # # idebug on ?id? # # Turns idebug on. If 'id' is specified, it sets the id to it. # # idebug puts|{puts ?id?} args # # Behaves just like "puts", but only triggers when idebug is on. # You can specify an optional id to further restrict triggering. # If no id is specified, it defaults to the name of the command # in which the call was made. # # idebug show type ?level? ?VERBOSE? # # 'type' must be one of vars, locals or globals. This method # will output the variables/locals/globals present in a particular # level. If VERBOSE is added, then it actually 'dump's out the # values as well. 'level' defaults to the level in which this # method was called. # # idebug trace ?level? # # Prints out the stack trace from the specified level up to the top # level. 'level' defaults to the current level. # ## proc idebug {opt args} { global IDEBUG if {![info exists IDEBUG(on)]} { array set IDEBUG { on 0 id * debugging 0 } } set level [expr {[info level]-1}] switch -glob -- $opt { on { if {[llength $args]} { set IDEBUG(id) $args } return [set IDEBUG(on) 1] } off { return [set IDEBUG(on) 0] } id { if {![llength $args]} { return $IDEBUG(id) } else { return [set IDEBUG(id) $args] } } break { if {!$IDEBUG(on) || $IDEBUG(debugging) || \ ([llength $args] && \ ![string match $IDEBUG(id) $args]) || [info level]<1} { return } set IDEBUG(debugging) 1 puts stderr "idebug at level \#$level: [lindex [info level -1] 0]" set tkcon [llength [info command tkcon]] if {$tkcon} { tkcon master eval set ::tkcon::OPT(prompt2) \$::tkcon::OPT(prompt1) tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(debugPrompt) set slave [tkcon set ::tkcon::OPT(exec)] set event [tkcon set ::tkcon::PRIV(event)] tkcon set ::tkcon::OPT(exec) [tkcon master interp create debugger] tkcon set ::tkcon::PRIV(event) 1 } set max $level while 1 { set err {} if {$tkcon} { # tkcon's overload of gets is advanced enough to not need # this, but we get a little better control this way. tkcon evalSlave set level $level tkcon prompt set line [tkcon getcommand] tkcon console mark set output end } else { puts -nonewline stderr "(level \#$level) debug > " gets stdin line while {![info complete $line]} { puts -nonewline "> " append line "\n[gets stdin]" } } if {[string match {} $line]} continue set key [lindex $line 0] if {![regexp {^([#-]?[0-9]+)} [lreplace $line 0 0] lvl]} { set lvl \#$level } set res {}; set c 0 switch -- $key { + { ## Allow for jumping multiple levels if {$level < $max} { idebug trace [incr level] $level 0 VERBOSE } } - { ## Allow for jumping multiple levels if {$level > 1} { idebug trace [incr level -1] $level 0 VERBOSE } } . { set c [catch {idebug trace $level $level 0 VERBOSE} res] } v { set c [catch {idebug show vars $lvl } res] } V { set c [catch {idebug show vars $lvl VERBOSE} res] } l { set c [catch {idebug show locals $lvl } res] } L { set c [catch {idebug show locals $lvl VERBOSE} res] } g { set c [catch {idebug show globals $lvl } res] } G { set c [catch {idebug show globals $lvl VERBOSE} res] } t { set c [catch {idebug trace 1 $max $level } res] } T { set c [catch {idebug trace 1 $max $level VERBOSE} res]} b { set c [catch {idebug body $lvl} res] } o { set res [set IDEBUG(on) [expr {!$IDEBUG(on)}]] } h - ? { puts stderr " + Move down in call stack - Move up in call stack . Show current proc name and params v Show names of variables currently in scope V Show names of variables currently in scope with values l Show names of local (transient) variables L Show names of local (transient) variables with values g Show names of declared global variables G Show names of declared global variables with values t Show a stack trace T Show a verbose stack trace b Show body of current proc o Toggle on/off any further debugging c,q Continue regular execution (Quit debugger) h,? Print this help default Evaluate line at current level (\#$level)" } c - q break default { set c [catch {uplevel \#$level $line} res] } } if {$tkcon} { tkcon set ::tkcon::PRIV(event) \ [tkcon evalSlave eval history add [list $line]\ \; history nextid] } if {$c} { puts stderr $res } elseif {[string compare {} $res]} { puts $res } } set IDEBUG(debugging) 0 if {$tkcon} { tkcon master interp delete debugger tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(prompt2) tkcon set ::tkcon::OPT(exec) $slave tkcon set ::tkcon::PRIV(event) $event tkcon prompt } } bo* { if {[regexp {^([#-]?[0-9]+)} $args level]} { return [uplevel $level {dump c -no [lindex [info level 0] 0]}] } } t* { if {[llength $args]<2} return set min [set max [set lvl $level]] set exp {^#?([0-9]+)? ?#?([0-9]+) ?#?([0-9]+)? ?(VERBOSE)?} if {![regexp $exp $args junk min max lvl verbose]} return for {set i $max} { $i>=$min && ![catch {uplevel \#$i info level 0} info] } {incr i -1} { if {$i==$lvl} { puts -nonewline stderr "* \#$i:\t" } else { puts -nonewline stderr " \#$i:\t" } set name [lindex $info 0] if {[string compare VERBOSE $verbose] || \ ![llength [info procs $name]]} { puts $info } else { puts "proc $name {[info args $name]} { ... }" set idx 0 foreach arg [info args $name] { if {[string match args $arg]} { puts "\t$arg = [lrange $info [incr idx] end]" break } else { puts "\t$arg = [lindex $info [incr idx]]" } } } } } s* { #var, local, global set level \#$level if {![regexp {^([vgl][^ ]*) ?([#-]?[0-9]+)? ?(VERBOSE)?} \ $args junk type level verbose]} return switch -glob -- $type { v* { set vars [uplevel $level {lsort [info vars]}] } l* { set vars [uplevel $level {lsort [info locals]}] } g* { set vars [lremove [uplevel $level {info vars}] \ [uplevel $level {info locals}]] } } if {[string match VERBOSE $verbose]} { return [uplevel $level dump var -nocomplain $vars] } else { return $vars } } e* - pu* { if {[llength $opt]==1 && [catch {lindex [info level -1] 0} id]} { set id [lindex [info level 0] 0] } else { set id [lindex $opt 1] } if {$IDEBUG(on) && [string match $IDEBUG(id) $id]} { if {[string match e* $opt]} { puts [concat $args] } else { eval puts $args } } } default { return -code error "bad [lindex [info level 0] 0] option \"$opt\",\ must be: [join [lsort [list on off id break print body\ trace show puts echo]] {, }]" } } } ## observe - like trace, but not # ARGS: opt - option # name - name of variable or command ## proc observe {opt name args} { global tcl_observe switch -glob -- $opt { co* { if {[regexp {^(catch|lreplace|set|puts|for|incr|info|uplevel)$} \ $name]} { return -code error "cannot observe \"$name\":\ infinite eval loop will occur" } set old ${name}@ while {[llength [info command $old]]} { append old @ } rename $name $old set max 4 regexp {^[0-9]+} $args max ## idebug trace could be used here proc $name args " for {set i \[info level\]; set max \[expr \[info level\]-$max\]} { \$i>=\$max && !\[catch {uplevel \#\$i info level 0} info\] } {incr i -1} { puts -nonewline stderr \" \#\$i:\t\" puts \$info } uplevel \[lreplace \[info level 0\] 0 0 $old\] " set tcl_observe($name) $old } cd* { if {[info exists tcl_observe($name)] && [catch { rename $name {} rename $tcl_observe($name) $name unset tcl_observe($name) } err]} { return -code error $err } } ci* { ## What a useless method... if {[info exists tcl_observe($name)]} { set i $tcl_observe($name) set res "\"$name\" observes true command \"$i\"" while {[info exists tcl_observe($i)]} { append res "\n\"$name\" observes true command \"$i\"" set i $tcl_observe($name) } return $res } } va* - vd* { set type [lindex $args 0] set args [lrange $args 1 end] if {![regexp {^[rwu]} $type type]} { return -code error "bad [lindex [info level 0] 0] $opt type\ \"$type\", must be: read, write or unset" } if {![llength $args]} { set args observe_var } uplevel 1 [list trace $opt $name $type $args] } vi* { uplevel 1 [list trace vinfo $name] } default { return -code error "bad [lindex [info level 0] 0] option\ \"[lindex $args 0]\", must be: [join [lsort \ [list command cdelete cinfo variable vdelete vinfo]] {, }]" } } } ## observe_var - auxilary function for observing vars, called by trace ## via observe # ARGS: name - variable name # el - array element name, if any # op - operation type (rwu) ## proc observe_var {name el op} { if {[string match u $op]} { if {[string compare {} $el]} { puts "unset \"${name}($el)\"" } else { puts "unset \"$name\"" } } else { upvar 1 $name $name if {[info exists ${name}($el)]} { puts [dump v ${name}($el)] } else { puts [dump v $name] } } } ## which - tells you where a command is found # ARGS: cmd - command name # Returns: where command is found (internal / external / unknown) ## proc which cmd { ## This tries to auto-load a command if not recognized set types [uplevel 1 [list what $cmd 1]] if {[llength $types]} { set out {} foreach type $types { switch -- $type { alias { set res "$cmd: aliased to [alias $cmd]" } procedure { set res "$cmd: procedure" } command { set res "$cmd: internal command" } executable { lappend out [auto_execok $cmd] } variable { lappend out "$cmd: $type" } } if {[info exists res]} { global auto_index if {[info exists auto_index($cmd)]} { ## This tells you where the command MIGHT have come from - ## not true if the command was redefined interactively or ## existed before it had to be auto_loaded. This is just ## provided as a hint at where it MAY have come from append res " ($auto_index($cmd))" } lappend out $res unset res } } return [join $out \n] } else { return -code error "$cmd: command not found" } } ## what - tells you what a string is recognized as # ARGS: str - string to id # Returns: id types of command as list ## proc what {str {autoload 0}} { set types {} if {[llength [info commands $str]] || ($autoload && \ [auto_load $str] && [llength [info commands $str]])} { if {[lsearch -exact [interp aliases] $str] > -1} { lappend types "alias" } elseif { [llength [info procs $str]] || ([string match *::* $str] && [llength [namespace eval [namespace qualifier $str] \ info procs [namespace tail $str]]]) } { lappend types "procedure" } else { lappend types "command" } } if {[llength [uplevel 1 info vars $str]]} { upvar 1 $str var if {[array exists var]} { lappend types array variable } else { lappend types scalar variable } } if {[file isdirectory $str]} { lappend types "directory" } if {[file isfile $str]} { lappend types "file" } if {[llength [info commands winfo]] && [winfo exists $str]} { lappend types "widget" } if {[string compare {} [auto_execok $str]]} { lappend types "executable" } return $types } ## dir - directory list # ARGS: args - names/glob patterns of directories to list # OPTS: -all - list hidden files as well (Unix dot files) # -long - list in full format "permissions size date filename" # -full - displays / after directories and link paths for links # Returns: a directory listing ## proc dir {args} { array set s { all 0 full 0 long 0 0 --- 1 --x 2 -w- 3 -wx 4 r-- 5 r-x 6 rw- 7 rwx } while {[string match \-* [lindex $args 0]]} { set str [lindex $args 0] set args [lreplace $args 0 0] switch -glob -- $str { -a* {set s(all) 1} -f* {set s(full) 1} -l* {set s(long) 1} -- break default { return -code error "unknown option \"$str\",\ should be one of: -all, -full, -long" } } } set sep [string trim [file join . .] .] if {![llength $args]} { set args . } if {$::tcl_version >= 8.3} { # Newer glob args allow safer dir processing. The user may still # want glob chars, but really only for file matching. foreach arg $args { if {[file isdirectory $arg]} { if {$s(all)} { lappend out [list $arg [lsort \ [glob -nocomplain -directory $arg .* *]]] } else { lappend out [list $arg [lsort \ [glob -nocomplain -directory $arg *]]] } } else { set dir [file dirname $arg] lappend out [list $dir$sep [lsort \ [glob -nocomplain -directory $dir [file tail $arg]]]] } } } else { foreach arg $args { if {[file isdirectory $arg]} { set arg [string trimright $arg $sep]$sep if {$s(all)} { lappend out [list $arg [lsort [glob -nocomplain -- $arg.* $arg*]]] } else { lappend out [list $arg [lsort [glob -nocomplain -- $arg*]]] } } else { lappend out [list [file dirname $arg]$sep \ [lsort [glob -nocomplain -- $arg]]] } } } if {$s(long)} { set old [clock scan {1 year ago}] set fmt "%s%9d %s %s\n" foreach o $out { set d [lindex $o 0] append res $d:\n foreach f [lindex $o 1] { file lstat $f st set f [file tail $f] if {$s(full)} { switch -glob $st(type) { d* { append f $sep } l* { append f "@ -> [file readlink $d$sep$f]" } default { if {[file exec $d$sep$f]} { append f * } } } } if {[string match file $st(type)]} { set mode - } else { set mode [string index $st(type) 0] } foreach j [split [format %03o [expr {$st(mode)&0777}]] {}] { append mode $s($j) } if {$st(mtime)>$old} { set cfmt {%b %d %H:%M} } else { set cfmt {%b %d %Y} } append res [format $fmt $mode $st(size) \ [clock format $st(mtime) -format $cfmt] $f] } append res \n } } else { foreach o $out { set d [lindex $o 0] append res "$d:\n" set i 0 foreach f [lindex $o 1] { if {[string len [file tail $f]] > $i} { set i [string len [file tail $f]] } } set i [expr {$i+2+$s(full)}] set j 80 ## This gets the number of cols in the tkcon console widget if {[llength [info commands tkcon]]} { set j [expr {[tkcon master set ::tkcon::OPT(cols)]/$i}] } set k 0 foreach f [lindex $o 1] { set f [file tail $f] if {$s(full)} { switch -glob [file type $d$sep$f] { d* { append f $sep } l* { append f @ } default { if {[file exec $d$sep$f]} { append f * } } } } append res [format "%-${i}s" $f] if {$j == 0 || [incr k]%$j == 0} { set res [string trimright $res]\n } } append res \n\n } } return [string trimright $res] } interp alias {} ::ls {} ::dir -full ## lremove - remove items from a list # OPTS: # -all remove all instances of each item # -glob remove all instances matching glob pattern # -regexp remove all instances matching regexp pattern # ARGS: l a list to remove items from # args items to remove (these are 'join'ed together) ## proc lremove {args} { array set opts {-all 0 pattern -exact} while {[string match -* [lindex $args 0]]} { switch -glob -- [lindex $args 0] { -a* { set opts(-all) 1 } -g* { set opts(pattern) -glob } -r* { set opts(pattern) -regexp } -- { set args [lreplace $args 0 0]; break } default {return -code error "unknown option \"[lindex $args 0]\""} } set args [lreplace $args 0 0] } set l [lindex $args 0] foreach i [join [lreplace $args 0 0]] { if {[set ix [lsearch $opts(pattern) $l $i]] == -1} continue set l [lreplace $l $ix $ix] if {$opts(-all)} { while {[set ix [lsearch $opts(pattern) $l $i]] != -1} { set l [lreplace $l $ix $ix] } } } return $l } if {!$::tkcon::PRIV(WWW)} {; ## Unknown changed to get output into tkcon window # unknown: # Invoked automatically whenever an unknown command is encountered. # Works through a list of "unknown handlers" that have been registered # to deal with unknown commands. Extensions can integrate their own # handlers into the 'unknown' facility via 'unknown_handler'. # # If a handler exists that recognizes the command, then it will # take care of the command action and return a valid result or a # Tcl error. Otherwise, it should return "-code continue" (=2) # and responsibility for the command is passed to the next handler. # # Arguments: # args - A list whose elements are the words of the original # command, including the command name. proc unknown args { global unknown_handler_order unknown_handlers errorInfo errorCode # # Be careful to save error info now, and restore it later # for each handler. Some handlers generate their own errors # and disrupt handling. # set savedErrorCode $errorCode set savedErrorInfo $errorInfo if {![info exists unknown_handler_order] || \ ![info exists unknown_handlers]} { set unknown_handlers(tcl) tcl_unknown set unknown_handler_order tcl } foreach handler $unknown_handler_order { set status [catch {uplevel 1 $unknown_handlers($handler) $args} result] if {$status == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr {[llength $new]-6}]] \n] return -code $status -errorcode $errorCode \ -errorinfo $new $result } elseif {$status != 4} { return -code $status $result } set errorCode $savedErrorCode set errorInfo $savedErrorInfo } set name [lindex $args 0] return -code error "invalid command name \"$name\"" } # tcl_unknown: # Invoked when a Tcl command is invoked that doesn't exist in the # interpreter: # # 1. See if the autoload facility can locate the command in a # Tcl script file. If so, load it and execute it. # 2. If the command was invoked interactively at top-level: # (a) see if the command exists as an executable UNIX program. # If so, "exec" the command. # (b) see if the command requests csh-like history substitution # in one of the common forms !!, !, or ^old^new. If # so, emulate csh's history substitution. # (c) see if the command is a unique abbreviation for another # command. If so, invoke the command. # # Arguments: # args - A list whose elements are the words of the original # command, including the command name. proc tcl_unknown args { global auto_noexec auto_noload env unknown_pending tcl_interactive global errorCode errorInfo # If the command word has the form "namespace inscope ns cmd" # then concatenate its arguments onto the end and evaluate it. set cmd [lindex $args 0] if {[regexp "^namespace\[ \t\n\]+inscope" $cmd] && [llength $cmd] == 4} { set arglist [lrange $args 1 end] set ret [catch {uplevel 1 $cmd $arglist} result] if {$ret == 0} { return $result } else { return -code $ret -errorcode $errorCode $result } } # CAD tools special: # Check for commands which were renamed to tcl_(command) if {[lsearch [info commands] tcl_$cmd] >= 0} { set arglist [concat tcl_$cmd [lrange $args 1 end]] set ret [catch {eval $arglist} result] if {$ret == 0} { return $result } else { return -code $ret -errorcode $errorCode $result } } # Save the values of errorCode and errorInfo variables, since they # may get modified if caught errors occur below. The variables will # be restored just before re-executing the missing command. set savedErrorCode $errorCode set savedErrorInfo $errorInfo set name [lindex $args 0] if {![info exists auto_noload]} { # # Make sure we're not trying to load the same proc twice. # if {[info exists unknown_pending($name)]} { return -code error "self-referential recursion in \"unknown\" for command \"$name\"" } set unknown_pending($name) pending if {[llength [info args auto_load]]==1} { set ret [catch {auto_load $name} msg] } else { set ret [catch {auto_load $name [uplevel 1 {namespace current}]} msg] } unset unknown_pending($name) if {$ret} { return -code $ret -errorcode $errorCode \ "error while autoloading \"$name\": $msg" } # # Avoid problems with renaming "array"! (for tcl-based magic only) # set arraycmd array if {[lsearch [info commands] tcl_array] >= 0} {set arraycmd tcl_array} if {![$arraycmd size unknown_pending]} { unset unknown_pending } if {$msg} { set errorCode $savedErrorCode set errorInfo $savedErrorInfo set code [catch {uplevel 1 $args} msg] if {$code == 1} { # # Strip the last five lines off the error stack (they're # from the "uplevel" command). # set new [split $errorInfo \n] set new [join [lrange $new 0 [expr {[llength $new]-6}]] \n] return -code error -errorcode $errorCode \ -errorinfo $new $msg } else { return -code $code $msg } } } if {[info level] == 1 && [string match {} [info script]] \ && [info exists tcl_interactive] && $tcl_interactive} { if {![info exists auto_noexec]} { set new [auto_execok $name] if {[string compare {} $new]} { set errorCode $savedErrorCode set errorInfo $savedErrorInfo return [uplevel 1 exec $new [lrange $args 1 end]] #return [uplevel exec >&@stdout <@stdin $new [lrange $args 1 end]] } } set errorCode $savedErrorCode set errorInfo $savedErrorInfo ## ## History substitution moved into ::tkcon::EvalCmd ## set ret [catch {set cmds [info commands $name*]} msg] if {[string compare $name "::"] == 0} { set name "" } if {$ret != 0} { return -code $ret -errorcode $errorCode \ "error in unknown while checking if \"$name\" is a unique command abbreviation: $msg" } set cmds [info commands $name*] if {[llength $cmds] == 1} { return [uplevel 1 [lreplace $args 0 0 $cmds]] } if {[llength $cmds]} { if {$name == ""} { return -code error "empty command name \"\"" } else { return -code error \ "ambiguous command name \"$name\": [lsort $cmds]" } } ## We've got nothing so far ## Check and see if Tk wasn't loaded, but it appears to be a Tk cmd if {![uplevel \#0 info exists tk_version]} { lappend tkcmds bell bind bindtags button \ canvas checkbutton clipboard destroy \ entry event focus font frame grab grid image \ label listbox lower menu menubutton message \ option pack place radiobutton raise \ scale scrollbar selection send spinbox \ text tk tkwait toplevel winfo wm if {[lsearch -exact $tkcmds $name] >= 0 && \ [tkcon master tk_messageBox -icon question -parent . \ -title "Load Tk?" -type retrycancel -default retry \ -message "This appears to be a Tk command, but Tk\ has not yet been loaded. Shall I retry the command\ with loading Tk first?"] == "retry"} { return [uplevel 1 "load {} Tk; $args"] } } } return -code continue } } ; # end exclusionary code for WWW proc ::tkcon::Bindings {} { variable PRIV global tcl_platform tk_version #----------------------------------------------------------------------- # Elements of tkPriv that are used in this file: # # char - Character position on the line; kept in order # to allow moving up or down past short lines while # still remembering the desired position. # mouseMoved - Non-zero means the mouse has moved a significant # amount since the button went down (so, for example, # start dragging out a selection). # prevPos - Used when moving up or down lines via the keyboard. # Keeps track of the previous insert position, so # we can distinguish a series of ups and downs, all # in a row, from a new up or down. # selectMode - The style of selection currently underway: # char, word, or line. # x, y - Last known mouse coordinates for scanning # and auto-scanning. #----------------------------------------------------------------------- switch -glob $tcl_platform(platform) { win* { set PRIV(meta) Alt } mac* { set PRIV(meta) Command } default { set PRIV(meta) Meta } } ## Get all Text bindings into TkConsole foreach ev [bind Text] { bind TkConsole $ev [bind Text $ev] } ## We really didn't want the newline insertion bind TkConsole {} ## in 8.6b3, the virtual events <> and <> # mess up our history feature bind TkConsole <> {} bind TkConsole <> {} ## Now make all our virtual event bindings foreach {ev key} [subst -nocommand -noback { <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <$PRIV(meta)-i> <> <> <$PRIV(meta)-o> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> }] { event add $ev $key ## Make sure the specific key won't be defined bind TkConsole $key {} } ## Make the ROOT bindings bind $PRIV(root) <> exit bind $PRIV(root) <> { ::tkcon::New } bind $PRIV(root) <> { ::tkcon::Destroy } bind $PRIV(root) <> { ::tkcon::About } bind $PRIV(root) <> { ::tkcon::Help } bind $PRIV(root) <> { ::tkcon::FindBox $::tkcon::PRIV(console) } bind $PRIV(root) <> { ::tkcon::Attach {} ::tkcon::Prompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] } bind $PRIV(root) <> { if {[string compare {} $::tkcon::PRIV(name)]} { ::tkcon::Attach $::tkcon::PRIV(name) } else { ::tkcon::Attach Main } ::tkcon::Prompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] } bind $PRIV(root) <> { ::tkcon::Attach Main ::tkcon::Prompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)] } bind $PRIV(root) <> { ::tkcon::PopupMenu %X %Y } ## Menu items need null TkConsolePost bindings to avoid the TagProc ## foreach ev [bind $PRIV(root)] { bind TkConsolePost $ev { # empty } } # ::tkcon::ClipboardKeysyms -- # This procedure is invoked to identify the keys that correspond to # the copy, cut, and paste functions for the clipboard. # # Arguments: # copy - Name of the key (keysym name plus modifiers, if any, # such as "Meta-y") used for the copy operation. # cut - Name of the key used for the cut operation. # paste - Name of the key used for the paste operation. proc ::tkcon::ClipboardKeysyms {copy cut paste} { bind TkConsole <$copy> {::tkcon::Copy %W} bind TkConsole <$cut> {::tkcon::Cut %W} bind TkConsole <$paste> {::tkcon::Paste %W} } proc ::tkcon::GetSelection {w} { if { ![catch {selection get -displayof $w -type UTF8_STRING} txt] || ![catch {selection get -displayof $w} txt] || ![catch {selection get -displayof $w -selection CLIPBOARD} txt] } { return $txt } return -code error "could not find default selection" } proc ::tkcon::Cut w { if {[string match $w [selection own -displayof $w]]} { clipboard clear -displayof $w catch { set txt [selection get -displayof $w] clipboard append -displayof $w $txt if {[$w compare sel.first >= limit]} { $w delete sel.first sel.last } } } } proc ::tkcon::Copy w { if {[string match $w [selection own -displayof $w]]} { clipboard clear -displayof $w catch { set txt [selection get -displayof $w] clipboard append -displayof $w $txt } } } proc ::tkcon::Paste w { if {![catch {GetSelection $w} txt]} { if {[$w compare insert < limit]} { $w mark set insert end } $w insert insert $txt $w see insert if {[string match *\n* $txt]} { ::tkcon::Eval $w } } } ## Redefine for TkConsole what we need ## event delete <> ::tkcon::ClipboardKeysyms bind TkConsole { catch { ::tkcon::Insert %W [::tkcon::GetSelection %W] } } bind TkConsole {+ catch { eval %W tag remove sel [%W tag nextrange prompt sel.first sel.last] eval %W tag remove sel sel.last-1c %W mark set insert sel.first } } ## binding editor needed ## binding for .tkconrc bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W path} break } bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W proc} } bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W var} } bind TkConsole <> { if {[%W compare insert > limit]} {::tkcon::Expand %W} } bind TkConsole <> { if {[%W compare insert >= limit]} { ::tkcon::Insert %W \t } } bind TkConsole <> { if {[%W compare insert >= limit]} { ::tkcon::Insert %W \n } } bind TkConsole <> { ::tkcon::Eval %W } bind TkConsole { if {[llength [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert >= limit]} { %W delete insert %W see insert } } bind TkConsole { if {[llength [%W tag nextrange sel 1.0 end]] \ && [%W compare sel.first >= limit]} { %W delete sel.first sel.last } elseif {[%W compare insert != 1.0] && [%W compare insert > limit]} { %W delete insert-1c %W see insert } } bind TkConsole [bind TkConsole ] bind TkConsole { ::tkcon::Insert %W %A } bind TkConsole { if {[%W compare {limit linestart} == {insert linestart}]} { tkTextSetCursor %W limit } else { tkTextSetCursor %W {insert linestart} } } bind TkConsole [bind TkConsole ] bind TkConsole { if {[%W compare insert < limit]} break %W delete insert } bind TkConsole { if {[%W compare insert < limit]} break if {[%W compare insert == {insert lineend}]} { %W delete insert } else { %W delete insert {insert lineend} } } bind TkConsole <> { ## Clear console buffer, without losing current command line input set ::tkcon::PRIV(tmp) [::tkcon::CmdGet %W] clear ::tkcon::Prompt {} $::tkcon::PRIV(tmp) } bind TkConsole <> { if {[%W compare {insert linestart} != {limit linestart}]} { tkTextSetCursor %W [tkTextUpDownLine %W -1] } else { ::tkcon::Event -1 } } bind TkConsole <> { if {[%W compare {insert linestart} != {end-1c linestart}]} { tkTextSetCursor %W [tkTextUpDownLine %W 1] } else { ::tkcon::Event 1 } } bind TkConsole <> { ::tkcon::Event 1 } bind TkConsole <> { ::tkcon::Event -1 } bind TkConsole <> { ::tkcon::Event -1 [::tkcon::CmdGet %W] } bind TkConsole <> { ::tkcon::Event 1 [::tkcon::CmdGet %W] } bind TkConsole <> { ## Transpose current and previous chars if {[%W compare insert > "limit+1c"]} { tkTextTranspose %W } } bind TkConsole <> { ## Clear command line (Unix shell staple) %W delete limit end } bind TkConsole <> { ## Save command buffer (swaps with current command) set ::tkcon::PRIV(tmp) $::tkcon::PRIV(cmdsave) set ::tkcon::PRIV(cmdsave) [::tkcon::CmdGet %W] if {[string match {} $::tkcon::PRIV(cmdsave)]} { set ::tkcon::PRIV(cmdsave) $::tkcon::PRIV(tmp) } else { %W delete limit end-1c } ::tkcon::Insert %W $::tkcon::PRIV(tmp) %W see end } catch {bind TkConsole { tkTextScrollPages %W -1 }} catch {bind TkConsole { tkTextScrollPages %W -1 }} catch {bind TkConsole { tkTextScrollPages %W 1 }} catch {bind TkConsole { tkTextScrollPages %W 1 }} bind TkConsole <$PRIV(meta)-d> { if {[%W compare insert >= limit]} { %W delete insert {insert wordend} } } bind TkConsole <$PRIV(meta)-BackSpace> { if {[%W compare {insert -1c wordstart} >= limit]} { %W delete {insert -1c wordstart} insert } } bind TkConsole <$PRIV(meta)-Delete> { if {[%W compare insert >= limit]} { %W delete insert {insert wordend} } } bind TkConsole { if { (!$tkPriv(mouseMoved) || $tk_strictMotif) && ![catch {::tkcon::GetSelection %W} ::tkcon::PRIV(tmp)] } { if {[%W compare @%x,%y < limit]} { %W insert end $::tkcon::PRIV(tmp) } else { %W insert @%x,%y $::tkcon::PRIV(tmp) } if {[string match *\n* $::tkcon::PRIV(tmp)]} {::tkcon::Eval %W} } } ## ## End TkConsole bindings ## ## ## Bindings for doing special things based on certain keys ## bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchPair %W \( \) limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchPair %W \[ \] limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchPair %W \{ \} limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \ [string compare \\ [%W get insert-2c]]} { ::tkcon::MatchQuote %W limit } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { if {$::tkcon::OPT(lightcmd) && [string compare {} %A]} { ::tkcon::TagProc %W } set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { set ::tkcon::PRIV(StatusCursor) [%W index insert] } bind TkConsolePost { set ::tkcon::PRIV(StatusCursor) [%W index insert] } } ## # ::tkcon::PopupMenu - what to do when the popup menu is requested ## proc ::tkcon::PopupMenu {X Y} { variable PRIV set w $PRIV(console) if {[string compare $w [winfo containing $X $Y]]} { tk_popup $PRIV(popup) $X $Y return } set x [expr {$X-[winfo rootx $w]}] set y [expr {$Y-[winfo rooty $w]}] if {[llength [set tags [$w tag names @$x,$y]]]} { if {[lsearch -exact $tags "proc"] >= 0} { lappend type "proc" foreach {first last} [$w tag prevrange proc @$x,$y] { set word [$w get $first $last]; break } } if {[lsearch -exact $tags "var"] >= 0} { lappend type "var" foreach {first last} [$w tag prevrange var @$x,$y] { set word [$w get $first $last]; break } } } if {![info exists type]} { set exp "(^|\[^\\\\\]\[ \t\n\r\])" set exp2 "\[\[\\\\\\?\\*\]" set i [$w search -backwards -regexp $exp @$x,$y "@$x,$y linestart"] if {[string compare {} $i]} { if {![string match *.0 $i]} {append i +2c} if {[string compare {} \ [set j [$w search -regexp $exp $i "$i lineend"]]]} { append j +1c } else { set j "$i lineend" } regsub -all $exp2 [$w get $i $j] {\\\0} word set word [string trim $word {\"$[]{}',?#*}] if {[llength [EvalAttached [list info commands $word]]]} { lappend type "proc" } if {[llength [EvalAttached [list info vars $word]]]} { lappend type "var" } if {[EvalAttached [list file isfile $word]]} { lappend type "file" } } } if {![info exists type] || ![info exists word]} { tk_popup $PRIV(popup) $X $Y return } $PRIV(context) delete 0 end $PRIV(context) add command -label "$word" -state disabled $PRIV(context) add separator set app [Attach] if {[lsearch $type proc] != -1} { $PRIV(context) add command -label "View Procedure" \ -command [list edit -attach $app -type proc -- $word] } if {[lsearch $type var] != -1} { $PRIV(context) add command -label "View Variable" \ -command [list edit -attach $app -type var -- $word] } if {[lsearch $type file] != -1} { $PRIV(context) add command -label "View File" \ -command [list edit -attach $app -type file -- $word] } tk_popup $PRIV(context) $X $Y } ## ::tkcon::TagProc - tags a procedure in the console if it's recognized ## This procedure is not perfect. However, making it perfect wastes ## too much CPU time... ## proc ::tkcon::TagProc w { set exp "\[^\\\\\]\[\[ \t\n\r\;{}\"\$\]" set i [$w search -backwards -regexp $exp insert-1c limit-1c] if {[string compare {} $i]} {append i +2c} else {set i limit} regsub -all "\[\[\\\\\\?\\*\]" [$w get $i "insert-1c wordend"] {\\\0} c if {[llength [EvalAttached [list info commands $c]]]} { $w tag add proc $i "insert-1c wordend" } else { $w tag remove proc $i "insert-1c wordend" } if {[llength [EvalAttached [list info vars $c]]]} { $w tag add var $i "insert-1c wordend" } else { $w tag remove var $i "insert-1c wordend" } } ## ::tkcon::MatchPair - blinks a matching pair of characters ## c2 is assumed to be at the text index 'insert'. ## This proc is really loopy and took me an hour to figure out given ## all possible combinations with escaping except for escaped \'s. ## It doesn't take into account possible commenting... Oh well. If ## anyone has something better, I'd like to see/use it. This is really ## only efficient for small contexts. # ARGS: w - console text widget # c1 - first char of pair # c2 - second char of pair # Calls: ::tkcon::Blink ## proc ::tkcon::MatchPair {w c1 c2 {lim 1.0}} { if {[string compare {} [set ix [$w search -back $c1 insert $lim]]]} { while { [string match {\\} [$w get $ix-1c]] && [string compare {} [set ix [$w search -back $c1 $ix-1c $lim]]] } {} set i1 insert-1c while {[string compare {} $ix]} { set i0 $ix set j 0 while {[string compare {} [set i0 [$w search $c2 $i0 $i1]]]} { append i0 +1c if {[string match {\\} [$w get $i0-2c]]} continue incr j } if {!$j} break set i1 $ix while {$j && [string compare {} \ [set ix [$w search -back $c1 $ix $lim]]]} { if {[string match {\\} [$w get $ix-1c]]} continue incr j -1 } } if {[string match {} $ix]} { set ix [$w index $lim] } } else { set ix [$w index $lim] } if {$::tkcon::OPT(blinkrange)} { Blink $w $ix [$w index insert] } else { Blink $w $ix $ix+1c [$w index insert-1c] [$w index insert] } } ## ::tkcon::MatchQuote - blinks between matching quotes. ## Blinks just the quote if it's unmatched, otherwise blinks quoted string ## The quote to match is assumed to be at the text index 'insert'. # ARGS: w - console text widget # Calls: ::tkcon::Blink ## proc ::tkcon::MatchQuote {w {lim 1.0}} { set i insert-1c set j 0 while {[string compare [set i [$w search -back \" $i $lim]] {}]} { if {[string match {\\} [$w get $i-1c]]} continue if {!$j} {set i0 $i} incr j } if {$j&1} { if {$::tkcon::OPT(blinkrange)} { Blink $w $i0 [$w index insert] } else { Blink $w $i0 $i0+1c [$w index insert-1c] [$w index insert] } } else { Blink $w [$w index insert-1c] [$w index insert] } } ## ::tkcon::Blink - blinks between n index pairs for a specified duration. # ARGS: w - console text widget # i1 - start index to blink region # i2 - end index of blink region # dur - duration in usecs to blink for # Outputs: blinks selected characters in $w ## proc ::tkcon::Blink {w args} { eval [list $w tag add blink] $args after $::tkcon::OPT(blinktime) [list $w] tag remove blink $args return } ## ::tkcon::Insert ## Insert a string into a text console at the point of the insertion cursor. ## If there is a selection in the text, and it covers the point of the ## insertion cursor, then delete the selection before inserting. # ARGS: w - text window in which to insert the string # s - string to insert (usually just a single char) # Outputs: $s to text widget ## proc ::tkcon::Insert {w s} { if {[string match {} $s] || [string match disabled [$w cget -state]]} { return } if {[$w comp insert < limit]} { $w mark set insert end } if {[llength [$w tag ranges sel]] && \ [$w comp sel.first <= insert] && [$w comp sel.last >= insert]} { $w delete sel.first sel.last } $w insert insert $s $w see insert } ## ::tkcon::Expand - # ARGS: w - text widget in which to expand str # type - type of expansion (path / proc / variable) # Calls: ::tkcon::Expand(Pathname|Procname|Variable) # Outputs: The string to match is expanded to the longest possible match. # If ::tkcon::OPT(showmultiple) is non-zero and the user longest # match equaled the string to expand, then all possible matches # are output to stdout. Triggers bell if no matches are found. # Returns: number of matches found ## proc ::tkcon::Expand {w {type ""}} { set exp "\[^\\\\\]\[\[ \t\n\r\\\{\"$\]" set tmp [$w search -backwards -regexp $exp insert-1c limit-1c] if {[string compare {} $tmp]} {append tmp +2c} else {set tmp limit} if {[$w compare $tmp >= insert]} return set str [$w get $tmp insert] switch -glob $type { pa* { set res [ExpandPathname $str] } pr* { set res [ExpandProcname $str] } v* { set res [ExpandVariable $str] } default { set res {} foreach t $::tkcon::OPT(expandorder) { if {![catch {Expand$t $str} res] && \ [string compare {} $res]} break } } } set len [llength $res] if {$len} { $w delete $tmp insert $w insert $tmp [lindex $res 0] if {$len > 1} { if {$::tkcon::OPT(showmultiple) && \ ![string compare [lindex $res 0] $str]} { puts stdout [lsort [lreplace $res 0 0]] } } } else { bell } return [incr len -1] } ## ::tkcon::ExpandPathname - expand a file pathname based on $str ## This is based on UNIX file name conventions # ARGS: str - partial file pathname to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandPathname str { set pwd [EvalAttached pwd] # Cause a string like {C:/Program\ Files/} to become "C:/Program Files/" regsub -all {\\([][ ])} $str {\1} str if {[catch {EvalAttached [list cd [file dirname $str]]} err]} { return -code error $err } set dir [file tail $str] ## Check to see if it was known to be a directory and keep the trailing ## slash if so (file tail cuts it off) if {[string match */ $str]} { append dir / } # Create a safely glob-able name regsub -all {([][])} $dir {\\\1} safedir if {[catch {lsort [EvalAttached [list glob $safedir*]]} m]} { set match {} } else { if {[llength $m] > 1} { global tcl_platform if {[string match windows $tcl_platform(platform)]} { ## Windows is screwy because it's case insensitive set tmp [ExpandBestMatch [string tolower $m] \ [string tolower $dir]] ## Don't change case if we haven't changed the word if {[string length $dir]==[string length $tmp]} { set tmp $dir } } else { set tmp [ExpandBestMatch $m $dir] } if {[string match */* $str]} { set tmp [string trimright [file dirname $str] /]/$tmp } regsub -all {([^\\])([][ ])} $tmp {\1\\\2} tmp set match [linsert $m 0 $tmp] } else { ## This may look goofy, but it handles spaces in path names eval append match $m if {[file isdirectory $match]} {append match /} if {[string match */* $str]} { set match [string trimright [file dirname $str] /]/$match } regsub -all {([^\\])([][ ])} $match {\1\\\2} match ## Why is this one needed and the ones below aren't!! set match [list $match] } } EvalAttached [list cd $pwd] return $match } ## ::tkcon::ExpandProcname - expand a tcl proc name based on $str # ARGS: str - partial proc name to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandProcname str { set match [EvalAttached [list info commands $str*]] if {[llength $match] == 0} { set ns [EvalAttached \ "namespace children \[namespace current\] [list $str*]"] if {[llength $ns]==1} { set match [EvalAttached [list info commands ${ns}::*]] } else { set match $ns } } if {[llength $match] > 1} { regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } str set match [linsert $match 0 $str] } else { regsub -all {([^\\]) } $match {\1\\ } match } return $match } ## ::tkcon::ExpandVariable - expand a tcl variable name based on $str # ARGS: str - partial tcl var name to expand # Calls: ::tkcon::ExpandBestMatch # Returns: list containing longest unique match followed by all the # possible further matches ## proc ::tkcon::ExpandVariable str { if {[regexp {([^\(]*)\((.*)} $str junk ary str]} { ## Looks like they're trying to expand an array. set match [EvalAttached [list array names $ary $str*]] if {[llength $match] > 1} { set vars $ary\([ExpandBestMatch $match $str] foreach var $match {lappend vars $ary\($var\)} return $vars } else {set match $ary\($match\)} ## Space transformation avoided for array names. } else { set match [EvalAttached [list info vars $str*]] if {[llength $match] > 1} { regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } str set match [linsert $match 0 $str] } else { regsub -all {([^\\]) } $match {\1\\ } match } } return $match } ## ::tkcon::ExpandBestMatch2 - finds the best unique match in a list of names ## Improves upon the speed of the below proc only when $l is small ## or $e is {}. $e is extra for compatibility with proc below. # ARGS: l - list to find best unique match in # Returns: longest unique match in the list ## proc ::tkcon::ExpandBestMatch2 {l {e {}}} { set s [lindex $l 0] if {[llength $l]>1} { set i [expr {[string length $s]-1}] foreach l $l { while {$i>=0 && [string first $s $l]} { set s [string range $s 0 [incr i -1]] } } } return $s } ## ::tkcon::ExpandBestMatch - finds the best unique match in a list of names ## The extra $e in this argument allows us to limit the innermost loop a ## little further. This improves speed as $l becomes large or $e becomes long. # ARGS: l - list to find best unique match in # e - currently best known unique match # Returns: longest unique match in the list ## proc ::tkcon::ExpandBestMatch {l {e {}}} { set ec [lindex $l 0] if {[llength $l]>1} { set e [string length $e]; incr e -1 set ei [string length $ec]; incr ei -1 foreach l $l { while {$ei>=$e && [string first $ec $l]} { set ec [string range $ec 0 [incr ei -1]] } } } return $ec } # Here is a group of functions that is only used when Tkcon is # executed in a safe interpreter. It provides safe versions of # missing functions. For example: # # - "tk appname" returns "tkcon.tcl" but cannot be set # - "toplevel" is equivalent to 'frame', only it is automatically # packed. # - The 'source', 'load', 'open', 'file' and 'exit' functions are # mapped to corresponding functions in the parent interpreter. # # Further on, Tk cannot be really loaded. Still the safe 'load' # provedes a speciall case. The Tk can be divided into 4 groups, # that each has a safe handling procedure. # # - "::tkcon::SafeItem" handles commands like 'button', 'canvas' ...... # Each of these functions has the window name as first argument. # - "::tkcon::SafeManage" handles commands like 'pack', 'place', 'grid', # 'winfo', which can have multiple window names as arguments. # - "::tkcon::SafeWindow" handles all windows, such as '.'. For every # window created, a new alias is formed which also is handled by # this function. # - Other (e.g. bind, bindtag, image), which need their own function. # ## These functions courtesy Jan Nijtmans (nijtmans@nici.kun.nl) ## if {[string compare [info command tk] tk]} { proc tk {option args} { if {![string match app* $option]} { error "wrong option \"$option\": should be appname" } return "tkcon.tcl" } } if {[string compare [info command toplevel] toplevel]} { proc toplevel {name args} { eval frame $name $args pack $name } } proc ::tkcon::SafeSource {i f} { set fd [open $f r] set r [read $fd] close $fd if {[catch {interp eval $i $r} msg]} { error $msg } } proc ::tkcon::SafeOpen {i f {m r}} { set fd [open $f $m] interp transfer {} $fd $i return $fd } proc ::tkcon::SafeLoad {i f p} { global tk_version tk_patchLevel tk_library auto_path if {[string compare $p Tk]} { load $f $p $i } else { foreach command {button canvas checkbutton entry frame label listbox message radiobutton scale scrollbar spinbox text toplevel} { $i alias $command ::tkcon::SafeItem $i $command } $i alias image ::tkcon::SafeImage $i foreach command {pack place grid destroy winfo} { $i alias $command ::tkcon::SafeManage $i $command } if {[llength [info command event]]} { $i alias event ::tkcon::SafeManage $i $command } frame .${i}_dot -width 300 -height 300 -relief raised pack .${i}_dot -side left $i alias tk tk $i alias bind ::tkcon::SafeBind $i $i alias bindtags ::tkcon::SafeBindtags $i $i alias . ::tkcon::SafeWindow $i {} foreach var {tk_version tk_patchLevel tk_library auto_path} { $i eval set $var [list [set $var]] } $i eval { package provide Tk $tk_version if {[lsearch -exact $auto_path $tk_library] < 0} { lappend auto_path $tk_library } } return "" } } proc ::tkcon::SafeSubst {i a} { set arg1 "" foreach {arg value} $a { if {![string compare $arg -textvariable] || ![string compare $arg -variable]} { set newvalue "[list $i] $value" global $newvalue if {[interp eval $i info exists $value]} { set $newvalue [interp eval $i set $value] } else { catch {unset $newvalue} } $i eval trace variable $value rwu \{[list tkcon set $newvalue $i]\} set value $newvalue } elseif {![string compare $arg -command]} { set value [list $i eval $value] } lappend arg1 $arg $value } return $arg1 } proc ::tkcon::SafeItem {i command w args} { set args [::tkcon::SafeSubst $i $args] set code [catch "$command [list .${i}_dot$w] $args" msg] $i alias $w ::tkcon::SafeWindow $i $w regsub -all .${i}_dot $msg {} msg return -code $code $msg } proc ::tkcon::SafeManage {i command args} { set args1 "" foreach arg $args { if {[string match . $arg]} { set arg .${i}_dot } elseif {[string match .* $arg]} { set arg ".${i}_dot$arg" } lappend args1 $arg } set code [catch "$command $args1" msg] regsub -all .${i}_dot $msg {} msg return -code $code $msg } # # FIX: this function doesn't work yet if the binding starts with '+'. # proc ::tkcon::SafeBind {i w args} { if {[string match . $w]} { set w .${i}_dot } elseif {[string match .* $w]} { set w ".${i}_dot$w" } if {[llength $args] > 1} { set args [list [lindex $args 0] \ "[list $i] eval [list [lindex $args 1]]"] } set code [catch "bind $w $args" msg] if {[llength $args] <2 && $code == 0} { set msg [lindex $msg 3] } return -code $code $msg } proc ::tkcon::SafeImage {i option args} { set code [catch "image $option $args" msg] if {[string match cr* $option]} { $i alias $msg $msg } return -code $code $msg } proc ::tkcon::SafeBindtags {i w {tags {}}} { if {[string match . $w]} { set w .${i}_dot } elseif {[string match .* $w]} { set w ".${i}_dot$w" } set newtags {} foreach tag $tags { if {[string match . $tag]} { lappend newtags .${i}_dot } elseif {[string match .* $tag]} { lappend newtags ".${i}_dot$tag" } else { lappend newtags $tag } } if {[string match $tags {}]} { set code [catch {bindtags $w} msg] regsub -all \\.${i}_dot $msg {} msg } else { set code [catch {bindtags $w $newtags} msg] } return -code $code $msg } proc ::tkcon::SafeWindow {i w option args} { if {[string match conf* $option] && [llength $args] > 1} { set args [::tkcon::SafeSubst $i $args] } elseif {[string match itemco* $option] && [llength $args] > 2} { set args "[list [lindex $args 0]] [::tkcon::SafeSubst $i [lrange $args 1 end]]" } elseif {[string match cr* $option]} { if {[llength $args]%2} { set args "[list [lindex $args 0]] [::tkcon::SafeSubst $i [lrange $args 1 end]]" } else { set args [::tkcon::SafeSubst $i $args] } } elseif {[string match bi* $option] && [llength $args] > 2} { set args [list [lindex $args 0] [lindex $args 1] "[list $i] eval [list [lindex $args 2]]"] } set code [catch ".${i}_dot$w $option $args" msg] if {$code} { regsub -all .${i}_dot $msg {} msg } elseif {[string match conf* $option] || [string match itemco* $option]} { if {[llength $args] == 1} { switch -- $args { -textvariable - -variable { set msg "[lrange $msg 0 3] [list [lrange [lindex $msg 4] 1 end]]" } -command - updatecommand { set msg "[lrange $msg 0 3] [list [lindex [lindex $msg 4] 2]]" } } } elseif {[llength $args] == 0} { set args1 "" foreach el $msg { switch -- [lindex $el 0] { -textvariable - -variable { set el "[lrange $el 0 3] [list [lrange [lindex $el 4] 1 end]]" } -command - updatecommand { set el "[lrange $el 0 3] [list [lindex [lindex $el 4] 2]]" } } lappend args1 $el } set msg $args1 } } elseif {[string match cg* $option] || [string match itemcg* $option]} { switch -- $args { -textvariable - -variable { set msg [lrange $msg 1 end] } -command - updatecommand { set msg [lindex $msg 2] } } } elseif {[string match bi* $option]} { if {[llength $args] == 2 && $code == 0} { set msg [lindex $msg 2] } } return -code $code $msg } proc ::tkcon::RetrieveFilter {host} { variable PRIV set result {} if {[info exists PRIV(proxy)]} { if {![regexp "^(localhost|127\.0\.0\.1)" $host]} { set result [lrange [split [lindex $PRIV(proxy) 0] :] 0 1] } } return $result } proc ::tkcon::RetrieveAuthentication {} { package require Tk if {[catch {package require base64}]} { if {[catch {package require Trf}]} { error "base64 support not available" } else { set local64 "base64 -mode enc" } } else { set local64 "base64::encode" } set dlg [toplevel .auth] wm title $dlg "Authenticating Proxy Configuration" set f1 [frame ${dlg}.f1] set f2 [frame ${dlg}.f2] button $f2.b -text "OK" -command "destroy $dlg" pack $f2.b -side right label $f1.l2 -text "Username" label $f1.l3 -text "Password" entry $f1.e2 -textvariable "[namespace current]::conf_userid" entry $f1.e3 -textvariable "[namespace current]::conf_passwd" -show * grid $f1.l2 -column 0 -row 0 -sticky e grid $f1.l3 -column 0 -row 1 -sticky e grid $f1.e2 -column 1 -row 0 -sticky news grid $f1.e3 -column 1 -row 1 -sticky news grid columnconfigure $f1 1 -weight 1 pack $f2 -side bottom -fill x pack $f1 -side top -anchor n -fill both -expand 1 tkwait window $dlg set result {} if {[info exists [namespace current]::conf_userid]} { set data [subst $[namespace current]::conf_userid] append data : [subst $[namespace current]::conf_passwd] set data [$local64 $data] set result [list "Proxy-Authorization" "Basic $data"] } unset [namespace current]::conf_passwd return $result } proc ::tkcon::Retrieve {} { # A little bit'o'magic to grab the latest tkcon from CVS and # save it locally. It doesn't support proxies though... variable PRIV set defExt "" if {[string match "windows" $::tcl_platform(platform)]} { set defExt ".tcl" } set file [tk_getSaveFile -title "Save Latest tkcon to ..." \ -defaultextension $defExt \ -initialdir [file dirname $PRIV(SCRIPT)] \ -initialfile [file tail $PRIV(SCRIPT)] \ -parent $PRIV(root) \ -filetypes {{"Tcl Files" {.tcl .tk}} {"All Files" {*.*}}}] if {[string compare $file ""]} { package require http 2 set token [::http::geturl $PRIV(HEADURL) -timeout 30000] ::http::wait $token set code [catch { if {[::http::status $token] == "ok"} { set fid [open $file w] # We don't want newline mode to change fconfigure $fid -translation binary set data [::http::data $token] puts -nonewline $fid $data close $fid regexp {Id: tkcon.tcl,v (\d+\.\d+)} $data -> rcsVersion regexp {version\s+(\d+\.\d[^\n]*)} $data -> tkconVersion } } err] ::http::cleanup $token if {$code} { return -code error $err } elseif {[tk_messageBox -type yesno -icon info -parent $PRIV(root) \ -title "Retrieved tkcon v$tkconVersion, RCS $rcsVersion" \ -message "Successfully retrieved tkcon v$tkconVersion,\ RCS $rcsVersion. Shall I resource (not restart) this\ version now?"] == "yes"} { set PRIV(SCRIPT) $file set PRIV(version) $tkconVersion.$rcsVersion ::tkcon::Resource } } } ## ::tkcon::Resource - re'source's this script into current console ## Meant primarily for my development of this program. It follows ## links until the ultimate source is found. ## set ::tkcon::PRIV(SCRIPT) [info script] if {!$::tkcon::PRIV(WWW) && [string compare $::tkcon::PRIV(SCRIPT) {}]} { # we use a catch here because some wrap apps choke on 'file type' # because TclpLstat wasn't wrappable until 8.4. catch { while {[string match link [file type $::tkcon::PRIV(SCRIPT)]]} { set link [file readlink $::tkcon::PRIV(SCRIPT)] if {[string match relative [file pathtype $link]]} { set ::tkcon::PRIV(SCRIPT) \ [file join [file dirname $::tkcon::PRIV(SCRIPT)] $link] } else { set ::tkcon::PRIV(SCRIPT) $link } } catch {unset link} if {[string match relative [file pathtype $::tkcon::PRIV(SCRIPT)]]} { set ::tkcon::PRIV(SCRIPT) [file join [pwd] $::tkcon::PRIV(SCRIPT)] } } } proc ::tkcon::Resource {} { uplevel \#0 { if {[catch {source -rsrc tkcon}]} { source $::tkcon::PRIV(SCRIPT) } } Bindings InitSlave $::tkcon::OPT(exec) } ## Initialize only if we haven't yet ## if {![info exists ::tkcon::PRIV(root)] || \ ![winfo exists $::tkcon::PRIV(root)]} { ::tkcon::Init } xcircuit-3.9.73/lib/tcl/resource.tcl0000664000175000001440000001125412775236336016065 0ustar timusers#-------------------------------- # XCircuit Resource setup for TCL #-------------------------------- option add *background #a07650 startupFile option add *borderwidth 1 startupFile option add *mainarea.corner.background brown4 startupFile option add *message.background beige startupFile option add *message1.background beige startupFile option add *message2.background beige startupFile option add *xcircuit.width 1200 startupFile option add *xcircuit.height 930 startupFile option add *xcircuit*activeBackground #a07650 startupFile option add *xcircuit*foreground #a07650 startupFile option add *xcircuit*activeForeground beige startupFile option add *xcircuit*font -*-times-medium-r-normal--12-* startupFile option add *xcircuit1.width 900 startupFile option add *xcircuit1.height 700 startupFile option add *xcircuit1*activeBackground #a07650 startupFile option add *xcircuit1*foreground #a07650 startupFile option add *xcircuit1*activeForeground beige startupFile option add *xcircuit1*font -*-times-medium-r-normal--12-* startupFile option add *xcircuit2.width 700 startupFile option add *xcircuit2.height 500 startupFile option add *xcircuit2*activeBackground #a07650 startupFile option add *xcircuit2*foreground #a07650 startupFile option add *xcircuit2*activeForeground beige startupFile option add *xcircuit2*font -*-times-medium-r-normal--12-* startupFile option add *menubar.filebutton*background beige startupFile option add *menubar.editbutton*background beige startupFile option add *menubar.textbutton*background beige startupFile option add *menubar.optionsbutton*background beige startupFile option add *menubar.windowbutton*background beige startupFile option add *menubar.netlistbutton*background beige startupFile option add *menubar*font -*-times-bold-r-normal--12-* startupFile option add *librarymenu*activeBackground #805630 startupFile option add *librarymenu*foreground #805630 startupFile option add *librarymenu*activeForeground beige startupFile option add *librarymenu*font -*-times-medium-r-normal--12-* startupFile option add *librarymenu*background beige startupFile option add *pagemenu*activeBackground #805630 startupFile option add *pagemenu*foreground #805630 startupFile option add *pagemenu*activeForeground beige startupFile option add *pagemenu*font -*-times-medium-r-normal--12-* startupFile option add *pagemenu*background beige startupFile option add *filelist*activeBackground #805630 startupFile option add *filelist*foreground #805630 startupFile option add *filelist*background white startupFile option add *filelist*activeForeground beige startupFile option add *filelist*font -*-times-medium-r-normal--12-* startupFile option add *filelist*txt*font -*-courier-medium-r-normal--12-* startupFile option add *output*activeBackground #805630 startupFile option add *output*foreground #805630 startupFile option add *output*background white startupFile option add *output*activeForeground beige startupFile option add *output*font -*-times-medium-r-normal--12-* startupFile option add *output*txt*font -*-courier-medium-r-normal--12-* startupFile option add *output.textent.butp.psmenu*background beige startupFile option add *output.textent.txtf.sizb.sizemenu*background beige startupFile option add *output.textent.buto.orientmenu*background beige startupFile option add *help*activeBackground #805630 startupFile option add *help*foreground #805630 startupFile option add *help*background white startupFile option add *help*activeForeground beige startupFile option add *help*font -*-times-medium-r-normal--12-* startupFile option add *help*txt*font -*-times-courier-r-normal--12-* startupFile option add *dialog*activeBackground #805630 startupFile option add *dialog*foreground #805630 startupFile option add *dialog*background white startupFile option add *dialog*activeForeground beige startupFile option add *dialog*font -*-times-medium-r-normal--12-* startupFile option add *dialog*txt*font -*-courier-medium-r-normal--12-* startupFile option add *makesymbol*activeBackground #805630 startupFile option add *makesymbol*foreground #805630 startupFile option add *makesymbol*background white startupFile option add *makesymbol*activeForeground beige startupFile option add *makesymbol*font -*-times-medium-r-normal--12-* startupFile option add *makesymbol*txt*font -*-courier-medium-r-normal--12-* startupFile option add *savetech*activeBackground #805630 startupFile option add *savetech*foreground #805630 startupFile option add *savetech*background white startupFile option add *savetech*activeForeground beige startupFile option add *savetech*font -*-times-medium-r-normal--12-* startupFile option add *savetech*txt*font -*-courier-medium-r-normal--12-* startupFile # End of Resource configuration file. xcircuit-3.9.73/lib/tcl/library.tcl0000664000175000001440000002252012335667423015675 0ustar timusers#---------------------------------------- # Library management for XCircuit #---------------------------------------- set XCOps(module,library) 1 #---------------------------------------- proc xcircuit::raisemanager {} { makelibmanager set midx [.xcircuit.menubar.filebutton.filemenu index *Manager*] .xcircuit.menubar.filebutton.filemenu entryconfigure \ $midx -label "Hide Library Manager" -command {xcircuit::lowermanager} } #---------------------------------------- proc xcircuit::lowermanager {} { destroy .libmgr set midx [.xcircuit.menubar.filebutton.filemenu index *Manager*] .xcircuit.menubar.filebutton.filemenu entryconfigure \ $midx -label "Library Manager" -command {xcircuit::raisemanager} } #---------------------------------------- proc xcircuit::promptadddirectory {} { .filelist.bbar.okay configure -command \ {.libmgr.search.list insert 0 [.filelist.textent.txt get];\ updatelibmanager; wm withdraw .filelist} .filelist.listwin.win configure -data "lps" .filelist.textent.title.field configure -text "Select directory to add to search:" .filelist.textent.txt delete 0 end wm deiconify .filelist focus .filelist.textent.txt } #---------------------------------------- proc xcircuit::promptnewlibrary {} { .dialog.bbar.okay configure -command \ {library make [.dialog.textent.txt get]; updatelibmanager; \ wm withdraw .dialog} .dialog.textent.title.field configure -text "Enter name for new library page:" .dialog.textent.txt delete 0 end wm deiconify .dialog focus .dialog.textent.txt } #---------------------------------------- proc xcircuit::prompttechtarget {} { .dialog.bbar.okay configure -command \ {foreach i [.libmgr.object.list curselection] \ {technology objects [.dialog.textent.txt get] \ [.libmgr.object.list get $i]}; \ updatelibmanager; wm withdraw .dialog} .dialog.textent.title.field configure -text "Enter name of target technology:" .dialog.textent.txt delete 0 end wm deiconify .dialog focus .dialog.textent.txt } #---------------------------------------- proc makelibmanager {} { global XCOps global XCIRCUIT_LIB_DIR toplevel .libmgr wm protocol .libmgr WM_DELETE_WINDOW {xcircuit::lowermanager} label .libmgr.title1 -text "Source Technology File" -foreground "blue" label .libmgr.title2 -text "Target Library Page" -foreground "blue" label .libmgr.title3 -text "Search Directories" -foreground "blue" frame .libmgr.tblock label .libmgr.tblock.title -text "Objects" -foreground "blue" menubutton .libmgr.srclib -text "" -menu .libmgr.srclib.menu -relief groove menubutton .libmgr.tgtlib -text "" -menu .libmgr.tgtlib.menu -relief groove frame .libmgr.object frame .libmgr.search listbox .libmgr.object.list -relief groove -background white \ -yscrollcommand ".libmgr.object.scroll set" -width 30 \ -selectmode extended listbox .libmgr.search.list -relief groove -background white \ -yscrollcommand ".libmgr.object.scroll set" -width 30 scrollbar .libmgr.object.scroll -orient vertical \ -command ".libmgr.object.list yview" scrollbar .libmgr.search.scroll -orient vertical \ -command ".libmgr.search.list yview" pack .libmgr.object.list -side left -fill both -expand true pack .libmgr.object.scroll -side right -fill y pack .libmgr.search.list -side left -fill both -expand true pack .libmgr.search.scroll -side right -fill y frame .libmgr.buttons button .libmgr.buttons.add -text "Add Directory" \ -command {xcircuit::promptadddirectory} button .libmgr.buttons.new -text "Add New Library Page" \ -command {xcircuit::promptnewlibrary} button .libmgr.buttons.done -text "Load Selected" \ -command {foreach i [.libmgr.object.list curselection] \ {library $XCOps(tgtlib) import $XCOps(srclib) \ [.libmgr.object.list get $i]}; updateobjects $XCOps(srclib); \ refresh} button .libmgr.buttons.all -text "Load All" \ -command {library $XCOps(tgtlib) load $XCOps(srclib); \ updateobjects $XCOps(srclib); refresh} button .libmgr.buttons.move -text "Move Selected" \ -command {xcircuit::prompttechtarget} checkbutton .libmgr.tblock.check -text "Show Loaded" \ -variable XCOps(showloaded) -onvalue 1 -offvalue 0 \ -command {updateobjects $XCOps(srclib)} set XCOps(showloaded) 0 pack .libmgr.buttons.add -side left pack .libmgr.buttons.new -side left pack .libmgr.buttons.done -side left pack .libmgr.buttons.all -side left # pack .libmgr.buttons.move -side left grid .libmgr.title1 -row 0 -column 0 -sticky news grid .libmgr.title2 -row 0 -column 1 -sticky news grid .libmgr.title3 -row 2 -column 0 -sticky news grid .libmgr.tblock -row 2 -column 1 -sticky news pack .libmgr.tblock.title -side left pack .libmgr.tblock.check -side left grid .libmgr.srclib -row 1 -column 0 -sticky news -padx 4 grid .libmgr.tgtlib -row 1 -column 1 -sticky news -padx 4 grid .libmgr.object -row 3 -column 1 -sticky news grid .libmgr.search -row 3 -column 0 -sticky news grid .libmgr.buttons -row 4 -column 0 -columnspan 2 -sticky news grid columnconfigure .libmgr 0 -weight 1 grid columnconfigure .libmgr 1 -weight 1 grid rowconfigure .libmgr 3 -weight 1 menu .libmgr.srclib.menu -tearoff 0 menu .libmgr.tgtlib.menu -tearoff 0 # Initial set of library directories to search set searchpath [config search lib] if {$searchpath == {}} { .libmgr.search.list insert end $XCIRCUIT_LIB_DIR .libmgr.search.list insert end "." } else { set searchlist [string map {: " "} $searchpath] foreach i $searchlist { .libmgr.search.list insert end $i } } # Do an update updatelibmanager } #---------------------------------------- proc updateobjects {techfile} { global XCOps # Erase the current entries .libmgr.object.list delete 0 end catch unset XObjs(objects) # Find all the objects defined in library "techfile" set objlist {} set fileId [open $techfile] foreach line [split [read $fileId] \n] { switch -glob -- $line { "/* \{" { lappend objlist [string range [lindex [split $line] 0] 1 end] } } } close $fileId set objlist [lsort -dictionary $objlist] foreach objname $objlist { if {[catch {object handle $objname}]} { .libmgr.object.list insert end $objname } elseif {$XCOps(showloaded) == 1} { .libmgr.object.list insert end $objname .libmgr.object.list itemconfigure end -fg forestgreen } } } #---------------------------------------------- # Filename sorting function---sort by root name #---------------------------------------------- proc FileCompare {a b} { set aname [file rootname [file tail $a]] set bname [file rootname [file tail $b]] set res [string compare $aname $bname] if {$res != 0} { return $res } else { # If the root matches, then order by order of search directory set dlist [.libmgr.search.list get 0 end] set aidx [lsearch $dlist [file dirname $a]] set bidx [lsearch $dlist [file dirname $b]] if {$aidx > $bidx} { return 1 } elseif {$aidx < $bidx} { return -1 } else { return 0 } } } #---------------------------------------- proc updatelibmanager {} { global XCOps # Get the list of directories in which to search for libraries set dirlist [.libmgr.search.list get 0 end] # Erase the current entries .libmgr.tgtlib.menu delete 0 end .libmgr.srclib.menu delete 0 end # Create the list of source libraries set srclist {} foreach i $dirlist { if {[file isdirectory $i]} { set srclist [concat $srclist [glob -nocomplain ${i}/*.lps]] } } set srclist [lsort -command FileCompare $srclist] foreach j $srclist { set libname [file rootname [file tail $j]] if {[.libmgr.srclib.menu entrycget end -label] != $libname} { .libmgr.srclib.menu add radio -label $libname -variable XCOps(srclib) \ -value $j -command ".libmgr.srclib configure \ -text $libname; updateobjects $j" } } # Reset "Source Technology" only if not set before, or if the name doesn't match # the menu entry. set cres [catch {set entry [.libmgr.srclib.menu index [file rootname \ [file tail $XCOps(srclib)]]]}] if {$cres == 0} { if {[.libmgr.srclib cget -text] == [.libmgr.srclib.menu entrycget $entry -label]} { set cres 1 } } if {$cres == 1} { set XCOps(srclib) [.libmgr.srclib.menu entrycget 0 -value] .libmgr.srclib configure -text [.libmgr.srclib.menu entrycget 0 -label] } # Find the number of technologies in XCircuit set numlibs [library "User Library"] # Create the list of target libraries for {set i 1} {$i <= $numlibs} {incr i} { .libmgr.tgtlib.menu add radio -label [library $i] -variable XCOps(tgtlib) \ -value $i -command ".libmgr.tgtlib configure -text {[library $i]}" } # Reset "Target Library" only if not set before, or if the name doesn't match # the menu entry. set cres [catch {set entry [.libmgr.srclib.menu index $XCOps(tgtlib)]}] if {$cres == 0} { if {[.libmgr.tgtlib cget -text] == [.libmgr.tgtlib.menu entrycget $entry -label]} { set cres 1 } } if {$cres == 1} { set XCOps(tgtlib) $numlibs .libmgr.tgtlib configure -text [library $numlibs] } # Create the object list for the first source library entry updateobjects $XCOps(srclib) } #---------------------------------------- xcircuit-3.9.73/lib/startup.script0000664000175000001440000000155112335667423015674 0ustar timusers# XCircuit startup script # Does the work previously handled by "builtins.lps". Commands # "loadlibrary" and "loadfontencoding" should no longer be used. # # Written by Tim Edwards 12/19/00 (tim@bach.ece.jhu.edu) # The Johns Hopkins University font times_roman.xfe font times_romaniso.xfe font helvetica.xfe font helveticaiso.xfe font courier.xfe font courieriso.xfe font symbol.xfe # Alternate font encodings: Uncomment these if you want them # loaded by default # # font times_romaniso2.xfe # font courieriso2.xfe # font helveticaiso2.xfe # font times_romaniso5.xfe # font courieriso5.xfe # font helveticaiso5.xfe # First library page library generic.lps 1 library analog.lps 1 library avlsi.lps 1 library digital.lps 1 # Second library page library analoglib2.lps 2 # Third library page library ic_templates.lps 3 # Fourth library page library quadparts.lps 4 xcircuit-3.9.73/files.c0000664000175000001440000066430413066774071013457 0ustar timusers/*-----------------------------------------------------------------------*/ /* files.c --- file handling routines for xcircuit */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-----------------------------------------------------------------------*/ #include #include #include #include #ifndef XC_WIN32 #include #endif #include #include #include #include #ifndef XC_WIN32 #include #include #include #else #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/TextEdit.h" /* for XwTextCopyBuffer() */ #endif #endif /*------------------------------------------------------------------------*/ /* Local includes */ /*------------------------------------------------------------------------*/ #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" #ifdef ASG extern void Route(XCWindowData *, Boolean); extern int ReadSpice(FILE *); #endif /*------------------------------------------------------------------------*/ /* Useful (local) defines */ /*------------------------------------------------------------------------*/ #define OUTPUTWIDTH 80 /* maximum text width of output */ #define S_OBLIQUE 13 /* position of Symbol-Oblique in font array */ #define VEPS 1e-3 /*------------------------------------------------------------------------*/ /* External Variable definitions */ /*------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #endif extern char _STR2[250], _STR[150]; extern Globaldata xobjs; extern XCWindowData *areawin; extern fontinfo *fonts; extern short fontcount; extern Cursor appcursors[NUM_CURSORS]; extern XtAppContext app; extern Display *dpy; extern Window win; extern short beeper; extern int number_colors; extern colorindex *colorlist; /*------------------------------------------------------*/ /* Global variable definitions */ /*------------------------------------------------------*/ Boolean load_in_progress = False; float version; /* Structure for remembering what names refer to the same object */ aliasptr aliastop; /*------------------------------------------------------*/ /* Simple utility---get rid of newline character */ /*------------------------------------------------------*/ char *ridnewline(char *sptr) { char *tstrp; for (tstrp = sptr; *tstrp != '\0' && *tstrp != '\n'; tstrp++); if (*tstrp == '\n') *tstrp = '\0'; return tstrp; } /*----------------------------------------------------------------------*/ /* Check if two filenames are equivalent. This requires separately */ /* checking any absolute or relative pathnames in front of the filename */ /* as well as the filename itself. */ /*----------------------------------------------------------------------*/ #define PATHSEP '/' int filecmp(char *filename1, char *filename2) { char *root1, *root2, *path1, *path2, *end1, *end2; int rval; struct stat statbuf; ino_t inode1; const char *cwdname = "."; if (filename1 == NULL || filename2 == NULL) return 1; if (!strcmp(filename1, filename2)) return 0; /* exact match */ root1 = strrchr(filename1, PATHSEP); root2 = strrchr(filename2, PATHSEP); if (root1 == NULL) { path1 = (char *)cwdname; end1 = NULL; root1 = filename1; } else { path1 = filename1; end1 = root1; root1++; } if (root2 == NULL) { path2 = (char *)cwdname; end2 = NULL; root2 = filename2; } else { path2 = filename2; end2 = root2; root2++; } if (strcmp(root1, root2)) return 1; /* root names don't match */ /* If we got here, one or both filenames specify a directory */ /* path, and the directory paths are different strings. */ /* However, one may be an absolute path and the other a */ /* relative path, so we check the inodes of the paths for */ /* equivalence. Note that the file itself is not assumed to */ /* exist. */ rval = 1; if (end1 != NULL) *end1 = '\0'; if (stat(path1, &statbuf) == 0 && S_ISDIR(statbuf.st_mode)) { inode1 = statbuf.st_ino; if (end2 != NULL) *end2 = '\0'; if (stat(path2, &statbuf) == 0 && S_ISDIR(statbuf.st_mode)) { if (inode1 == statbuf.st_ino) rval = 0; } if (end2 != NULL) *end2 = PATHSEP; } if (end1 != NULL) *end1 = PATHSEP; return rval; } /*--------------------------------------------------------------*/ /* Make sure that a string (object or parameter name) is a */ /* valid PostScript name. We do this by converting illegal */ /* characters to the PostScript \ooo (octal value) form. */ /* */ /* This routine does not consider whether the name might be a */ /* PostScript numeric value. This problem is taken care of by */ /* having the load/save routines prepend '@' to parameters and */ /* a technology namespace to object names. */ /* */ /* If "need_prefix" is TRUE, then prepend "@" to the result */ /* string, unless teststring is a numerical parameter name */ /* (p_...). */ /*--------------------------------------------------------------*/ char *create_valid_psname(char *teststring, Boolean need_prefix) { int i, isize, ssize; static char *optr = NULL; char *sptr, *pptr; Boolean prepend = need_prefix; char illegalchars[] = {'/', '}', '{', ']', '[', ')', '(', '<', '>', ' ', '%'}; /* Check for illegal characters which have syntactical meaning in */ /* PostScript, and the presence of nonprintable characters or */ /* whitespace. */ ssize = strlen(teststring); isize = ssize; if (need_prefix && !strncmp(teststring, "p_", 2)) prepend = FALSE; else isize++; for (sptr = teststring; *sptr != '\0'; sptr++) { if ((!isprint(*sptr)) || isspace(*sptr)) isize += 3; else { for (i = 0; i < sizeof(illegalchars); i++) { if (*sptr == illegalchars[i]) { isize += 3; break; } } } } if (isize == ssize) return teststring; isize++; if (optr == NULL) optr = (char *)malloc(isize); else optr = (char *)realloc(optr, isize); pptr = optr; if (prepend) *pptr++ = '@'; for (sptr = teststring; *sptr != '\0'; sptr++) { if ((!isprint(*sptr)) || isspace(*sptr)) { sprintf(pptr, "\\%03o", *sptr); pptr += 4; } else { for (i = 0; i < sizeof(illegalchars); i++) { if (*sptr == illegalchars[i]) { sprintf(pptr, "\\%03o", *sptr); pptr += 4; break; } } if (i == sizeof(illegalchars)) *pptr++ = *sptr; } } *pptr++ = '\0'; return optr; } /*------------------------------------------------------*/ /* Turn a PostScript string with possible backslash */ /* escapes into a normal character string. */ /* */ /* if "spacelegal" is TRUE, we are parsing a PostScript */ /* string in parentheses () where whitespace is legal. */ /* If FALSE, we are parsing a PostScript name where */ /* whitespace is illegal, and any whitespace should be */ /* considered the end of the name. */ /* */ /* "dest" is ASSUMED to be large enough to hold the */ /* result. "dest" is always equal to or smaller than */ /* "src" in length. "size" should be the maximum size */ /* of the string, or 1 less that the allocated memory, */ /* allowing for a final NULL byte to be added. */ /* */ /* The fact that "dest" is always smaller than or equal */ /* to "src" means that parse_ps_string(a, a, ...) is */ /* legal. */ /* */ /* Return 0 if the result is empty, 1 otherwise. */ /*------------------------------------------------------*/ int parse_ps_string(char *src, char *dest, int size, Boolean spacelegal, Boolean strip) { char *sptr = src; char *tptr = dest; int tmpdig, rval = 0; /* Strip leading "@", inserted by XCircuit to */ /* prevent conflicts with PostScript reserved */ /* keywords or numbers. */ if (strip && (*sptr == '@')) sptr++; for (;; sptr++) { if ((*sptr == '\0') || (isspace(*sptr) && !spacelegal)) { *tptr = '\0'; break; } else { if (*sptr == '\\') { sptr++; if (*sptr >= '0' && *sptr < '8') { sscanf(sptr, "%3o", &tmpdig); *tptr++ = (u_char)tmpdig; sptr += 2; } else *tptr++ = *sptr; } else *tptr++ = *sptr; rval = 1; } if ((int)(tptr - dest) > size) { Wprintf("Warning: Name \"%s\" in input exceeded buffer length!\n", src); *tptr = '\0'; return rval; } } return rval; } /*------------------------------------------------------*/ /* Free memory allocated to a label string */ /*------------------------------------------------------*/ void freelabel(stringpart *string) { stringpart *strptr = string, *tmpptr; while (strptr != NULL) { if (strptr->type == TEXT_STRING || strptr->type == PARAM_START) free(strptr->data.string); tmpptr = strptr->nextpart; free(strptr); strptr = tmpptr; } } /*------------------------------------------------------*/ /* Free memory for a single element */ /*------------------------------------------------------*/ void free_single(genericptr genobj) { objinstptr geninst; oparamptr ops, fops; if (IS_POLYGON(genobj)) free(((polyptr)(genobj))->points); else if (IS_LABEL(genobj)) freelabel(((labelptr)(genobj))->string); else if (IS_GRAPHIC(genobj)) freegraphic((graphicptr)(genobj)); else if (IS_PATH(genobj)) free(((pathptr)(genobj))->plist); else if (IS_OBJINST(genobj)) { geninst = (objinstptr)genobj; ops = geninst->params; while (ops != NULL) { /* Don't try to free data from indirect parameters */ /* (That's not true---all data are copied by epsubstitute) */ /* if (find_indirect_param(geninst, ops->key) == NULL) { */ switch(ops->type) { case XC_STRING: freelabel(ops->parameter.string); break; case XC_EXPR: free(ops->parameter.expr); break; } /* } */ free(ops->key); fops = ops; ops = ops->next; free(fops); } } free_all_eparams(genobj); } /*---------------------------------------------------------*/ /* Reset an object structure by freeing all alloc'd memory */ /*---------------------------------------------------------*/ void reset(objectptr localdata, short mode) { /* short i; (jdk) */ if (localdata->polygons != NULL || localdata->labels != NULL) destroynets(localdata); localdata->valid = False; if (localdata->parts > 0) { genericptr *genobj; if (mode != SAVE) { for (genobj = localdata->plist; genobj < localdata->plist + localdata->parts; genobj++) /* (*genobj == NULL) only on library pages */ /* where the instances are kept in the library */ /* definition, and are only referenced on the page. */ if (*genobj != NULL) { free_single(*genobj); free(*genobj); } } free(localdata->plist); removeparams(localdata); initmem(localdata); if (mode == DESTROY) free(localdata->plist); } } /*---------------------------------------------------------*/ void pagereset(short rpage) { /* free alloc'd filename */ if (xobjs.pagelist[rpage]->filename != NULL) free(xobjs.pagelist[rpage]->filename); xobjs.pagelist[rpage]->filename = (char *)NULL; if (xobjs.pagelist[rpage]->background.name != NULL) free(xobjs.pagelist[rpage]->background.name); xobjs.pagelist[rpage]->background.name = (char *)NULL; clearselects(); /* New pages pick up their properties from page 0, which can be changed */ /* from the .xcircuitrc file on startup (or loaded from a script). */ /* Thanks to Norman Werner (norman.werner@student.uni-magdeburg.de) for */ /* pointing out this more obvious way of doing the reset, and providing */ /* a patch. */ xobjs.pagelist[rpage]->wirewidth = xobjs.pagelist[0]->wirewidth; xobjs.pagelist[rpage]->orient = xobjs.pagelist[0]->orient; xobjs.pagelist[rpage]->pmode = xobjs.pagelist[0]->pmode; xobjs.pagelist[rpage]->outscale = xobjs.pagelist[0]->outscale; xobjs.pagelist[rpage]->drawingscale.x = xobjs.pagelist[0]->drawingscale.x; xobjs.pagelist[rpage]->drawingscale.y = xobjs.pagelist[0]->drawingscale.y; xobjs.pagelist[rpage]->gridspace = xobjs.pagelist[0]->gridspace; xobjs.pagelist[rpage]->snapspace = xobjs.pagelist[0]->snapspace; xobjs.pagelist[rpage]->coordstyle = xobjs.pagelist[0]->coordstyle; xobjs.pagelist[rpage]->margins = xobjs.pagelist[0]->margins; if (xobjs.pagelist[rpage]->coordstyle == CM) { xobjs.pagelist[rpage]->pagesize.x = 595; xobjs.pagelist[rpage]->pagesize.y = 842; /* A4 */ } else { xobjs.pagelist[rpage]->pagesize.x = 612; /* letter */ xobjs.pagelist[rpage]->pagesize.y = 792; } } /*---------------------------------------------------------*/ void initmem(objectptr localdata) { localdata->parts = 0; localdata->plist = (genericptr *)malloc(sizeof(genericptr)); localdata->hidden = False; localdata->changes = 0; localdata->params = NULL; localdata->viewscale = 0.5; /* Object should not reference the window: this needs to be rethunk! */ if (areawin != NULL) { localdata->pcorner.x = -areawin->width; localdata->pcorner.y = -areawin->height; } localdata->bbox.width = 0; localdata->bbox.height = 0; localdata->bbox.lowerleft.x = 0; localdata->bbox.lowerleft.y = 0; localdata->highlight.netlist = NULL; localdata->highlight.thisinst = NULL; localdata->schemtype = PRIMARY; localdata->symschem = NULL; localdata->netnames = NULL; localdata->polygons = NULL; localdata->labels = NULL; localdata->ports = NULL; localdata->calls = NULL; localdata->valid = False; localdata->infolabels = False; localdata->traversed = False; } /*--------------------------------------------------------------*/ /* Exhaustively compare the contents of two objects and return */ /* true if equivalent, false if not. */ /*--------------------------------------------------------------*/ Boolean elemcompare(genericptr *compgen, genericptr *gchk) { Boolean bres; switch(ELEMENTTYPE(*compgen)) { case(ARC): bres = (TOARC(compgen)->position.x == TOARC(gchk)->position.x && TOARC(compgen)->position.y == TOARC(gchk)->position.y && TOARC(compgen)->style == TOARC(gchk)->style && TOARC(compgen)->width == TOARC(gchk)->width && abs(TOARC(compgen)->radius) == abs(TOARC(gchk)->radius) && TOARC(compgen)->yaxis == TOARC(gchk)->yaxis && TOARC(compgen)->angle1 == TOARC(gchk)->angle1 && TOARC(compgen)->angle2 == TOARC(gchk)->angle2); break; case(SPLINE): bres = (TOSPLINE(compgen)->style == TOSPLINE(gchk)->style && TOSPLINE(compgen)->width == TOSPLINE(gchk)->width && TOSPLINE(compgen)->ctrl[0].x == TOSPLINE(gchk)->ctrl[0].x && TOSPLINE(compgen)->ctrl[0].y == TOSPLINE(gchk)->ctrl[0].y && TOSPLINE(compgen)->ctrl[1].x == TOSPLINE(gchk)->ctrl[1].x && TOSPLINE(compgen)->ctrl[1].y == TOSPLINE(gchk)->ctrl[1].y && TOSPLINE(compgen)->ctrl[2].x == TOSPLINE(gchk)->ctrl[2].x && TOSPLINE(compgen)->ctrl[2].y == TOSPLINE(gchk)->ctrl[2].y && TOSPLINE(compgen)->ctrl[3].x == TOSPLINE(gchk)->ctrl[3].x && TOSPLINE(compgen)->ctrl[3].y == TOSPLINE(gchk)->ctrl[3].y); break; case(POLYGON): { int i; if (TOPOLY(compgen)->style == TOPOLY(gchk)->style && TOPOLY(compgen)->width == TOPOLY(gchk)->width && TOPOLY(compgen)->number == TOPOLY(gchk)->number) { for (i = 0; i < TOPOLY(compgen)->number; i++) { if (TOPOLY(compgen)->points[i].x != TOPOLY(gchk)->points[i].x || TOPOLY(compgen)->points[i].y != TOPOLY(gchk)->points[i].y) break; } bres = (i == TOPOLY(compgen)->number); } else bres = False; }break; } return bres; } /*--------------------------------------------------------------*/ /* Compare any element with any other element. */ /*--------------------------------------------------------------*/ Boolean compare_single(genericptr *compgen, genericptr *gchk) { Boolean bres = False; if ((*gchk)->type == (*compgen)->type) { switch(ELEMENTTYPE(*compgen)) { case(OBJINST):{ objinst *newobj = TOOBJINST(compgen); objinst *oldobj = TOOBJINST(gchk); bres = (newobj->position.x == oldobj->position.x && newobj->position.y == oldobj->position.y && newobj->rotation == oldobj->rotation && newobj->scale == oldobj->scale && newobj->style == oldobj->style && newobj->thisobject == oldobj->thisobject); } break; case(LABEL): bres = (TOLABEL(compgen)->position.x == TOLABEL(gchk)->position.x && TOLABEL(compgen)->position.y == TOLABEL(gchk)->position.y && TOLABEL(compgen)->rotation == TOLABEL(gchk)->rotation && TOLABEL(compgen)->scale == TOLABEL(gchk)->scale && TOLABEL(compgen)->anchor == TOLABEL(gchk)->anchor && TOLABEL(compgen)->pin == TOLABEL(gchk)->pin && !stringcomp(TOLABEL(compgen)->string, TOLABEL(gchk)->string)); break; case(PATH): /* elements *must* be in same order for a path */ bres = (TOPATH(compgen)->parts == TOPATH(gchk)->parts && TOPATH(compgen)->style == TOPATH(gchk)->style && TOPATH(compgen)->width == TOPATH(gchk)->width); if (bres) { genericptr *pathchk, *gpath; for (pathchk = TOPATH(compgen)->plist, gpath = TOPATH(gchk)->plist; pathchk < TOPATH(compgen)->plist + TOPATH(compgen)->parts; pathchk++, gpath++) { if (!elemcompare(pathchk, gpath)) bres = False; } } break; case(ARC): case(SPLINE): case(POLYGON): bres = elemcompare(compgen, gchk); break; } } return bres; } /*--------------------------------------------------------------------*/ short objcompare(objectptr obja, objectptr objb) { genericptr *compgen, *glist, *gchk, *remg; short csize; Boolean bres; /* quick check on equivalence of number of objects */ if (obja->parts != objb->parts) return False; /* check equivalence of parameters. Parameters need not be in any */ /* order; they must only match by key and value. */ if (obja->params == NULL && objb->params != NULL) return False; else if (obja->params != NULL && objb->params == NULL) return False; else if (obja->params != NULL || objb->params != NULL) { oparamptr opsa, opsb; for (opsa = obja->params; opsa != NULL; opsa = opsa->next) { opsb = match_param(objb, opsa->key); if (opsb == NULL) return False; else if (opsa->type != opsb->type) return False; switch (opsa->type) { case XC_STRING: if (stringcomp(opsa->parameter.string, opsb->parameter.string)) return False; break; case XC_EXPR: if (strcmp(opsa->parameter.expr, opsb->parameter.expr)) return False; break; case XC_INT: case XC_FLOAT: if (opsa->parameter.ivalue != opsb->parameter.ivalue) return False; break; } } } /* For the exhaustive check we must match component for component. */ /* Best not to assume that elements are in same order for both. */ csize = obja->parts; glist = (genericptr *)malloc(csize * sizeof(genericptr)); for (compgen = objb->plist; compgen < objb->plist + csize; compgen++) (*(glist + (int)(compgen - objb->plist))) = *compgen; for (compgen = obja->plist; compgen < obja->plist + obja->parts; compgen++) { bres = False; for (gchk = glist; gchk < glist + csize; gchk++) { if ((*compgen)->color == (*gchk)->color) bres = compare_single(compgen, gchk); if (bres) { csize--; for (remg = gchk; remg < glist + csize; remg++) *remg = *(remg + 1); break; } } } free(glist); if (csize != 0) return False; /* Both objects cannot attempt to set an associated schematic/symbol to */ /* separate objects, although it is okay for one to make the association */ /* and the other not to. */ if (obja->symschem != NULL && objb->symschem != NULL) if (obja->symschem != objb->symschem) return False; return(True); } /*------------------------*/ /* scale renormalization */ /*------------------------*/ float getpsscale(float value, short page) { if (xobjs.pagelist[page]->coordstyle != CM) return (value * INCHSCALE); else return (value * CMSCALE); } /*---------------------------------------------------------------*/ /* Keep track of columns of output and split lines when too long */ /*---------------------------------------------------------------*/ void dostcount(FILE *ps, short *count, short addlength) { *count += addlength; if (*count > OUTPUTWIDTH) { *count = addlength; fprintf(ps, "\n"); } } /*----------------------------------------------------------------------*/ /* Write a numerical value as a string to _STR, making a parameter */ /* substitution if appropriate. */ /* Return 1 if a parameter substitution was made, 0 if not. */ /*----------------------------------------------------------------------*/ Boolean varpcheck(FILE *ps, short value, objectptr localdata, int pointno, short *stptr, genericptr thiselem, u_char which) { oparamptr ops; eparamptr epp; Boolean done = False; for (epp = thiselem->passed; epp != NULL; epp = epp->next) { if ((epp->pdata.pointno != -1) && (epp->pdata.pointno != pointno)) continue; ops = match_param(localdata, epp->key); if (ops != NULL && (ops->which == which)) { sprintf(_STR, "%s ", epp->key); done = True; break; } } if (!done) { if (pointno == -1) return done; sprintf(_STR, "%d ", (int)value); } else if ((epp->pdata.pointno == -1) && (pointno >= 0)) { sprintf(_STR, "%d ", (int)value - ops->parameter.ivalue); } dostcount (ps, stptr, strlen(_STR)); fputs(_STR, ps); return done; } /*----------------------------------------------------------------------*/ /* like varpcheck(), but without pointnumber */ /*----------------------------------------------------------------------*/ void varcheck(FILE *ps, short value, objectptr localdata, short *stptr, genericptr thiselem, u_char which) { varpcheck(ps, value, localdata, 0, stptr, thiselem, which); } /*----------------------------------------------------------------------*/ /* like varcheck(), but for floating-point values */ /*----------------------------------------------------------------------*/ void varfcheck(FILE *ps, float value, objectptr localdata, short *stptr, genericptr thiselem, u_char which) { oparamptr ops; eparamptr epp; Boolean done = False; for (epp = thiselem->passed; epp != NULL; epp = epp->next) { ops = match_param(localdata, epp->key); if (ops != NULL && (ops->which == which)) { sprintf(_STR, "%s ", epp->key); done = True; break; } } if (!done) sprintf(_STR, "%3.3f ", value); dostcount (ps, stptr, strlen(_STR)); fputs(_STR, ps); } /*----------------------------------------------------------------------*/ /* Like varpcheck(), for path types only. */ /*----------------------------------------------------------------------*/ Boolean varpathcheck(FILE *ps, short value, objectptr localdata, int pointno, short *stptr, genericptr *thiselem, pathptr thispath, u_char which) { oparamptr ops; eparamptr epp; Boolean done = False; for (epp = thispath->passed; epp != NULL; epp = epp->next) { if ((epp->pdata.pathpt[0] != -1) && (epp->pdata.pathpt[1] != pointno)) continue; if ((epp->pdata.pathpt[0] != -1) && (epp->pdata.pathpt[0] != (short)(thiselem - thispath->plist))) continue; ops = match_param(localdata, epp->key); if (ops != NULL && (ops->which == which)) { sprintf(_STR, "%s ", epp->key); done = True; break; } } if (!done) { if (pointno == -1) return done; sprintf(_STR, "%d ", (int)value); } else if ((epp->pdata.pathpt[0] == -1) && (pointno >= 0)) { sprintf(_STR, "%d ", (int)value - ops->parameter.ivalue); } dostcount (ps, stptr, strlen(_STR)); fputs(_STR, ps); return done; } /* Structure used to hold data specific to each load mode. See */ /* xcircuit.h for the list of load modes (enum loadmodes) */ typedef struct _loaddata { void (*func)(); /* Routine to run to load the file */ char *prompt; /* Substring name of action, for prompting */ char *filext; /* Default extention of file to load */ } loaddata; /*-------------------------------------------------------*/ /* Load a PostScript or Python (interpreter script) file */ /*-------------------------------------------------------*/ void getfile(xcWidget button, pointertype mode, caddr_t nulldata) { static loaddata loadmodes[LOAD_MODES] = { {normalloadfile, "load", "ps"}, /* mode NORMAL */ {importfile, "import", "ps"}, /* mode IMPORT */ {loadbackground, "render", "ps"}, /* mode PSBKGROUND */ #ifdef HAVE_PYTHON {execscript, "execute", "py"}, #else {execscript, "execute", ""}, /* mode SCRIPT */ #endif {crashrecover, "recover", "ps"}, /* mode RECOVER */ #ifdef ASG {importspice, "import", "spice"}, /* mode IMPORTSPICE */ #endif #ifdef HAVE_CAIRO {importgraphic, "import", "ppm"}, /* mode IMPORTGRAPHIC */ #endif }; buttonsave *savebutton = NULL; char *promptstr = NULL; /* char strext[10]; (jdk) */ int idx = (int)mode; if (is_page(topobject) == -1) { Wprintf("Can only read file into top-level page!"); return; } else if (idx >= LOAD_MODES) { Wprintf("Unknown mode passed to routine getfile()\n"); return; } #ifndef TCL_WRAPPER savebutton = getgeneric(button, getfile, (void *)mode); #endif if (idx == RECOVER) { char *cfile = getcrashfilename(); promptstr = (char *)malloc(18 + ((cfile == NULL) ? 9 : strlen(cfile))); sprintf(promptstr, "Recover file \'%s\'?", (cfile == NULL) ? "(unknown)" : cfile); popupprompt(button, promptstr, NULL, loadmodes[idx].func, savebutton, NULL); if (cfile) free(cfile); } else { promptstr = (char *)malloc(18 + strlen(loadmodes[idx].prompt)); sprintf(promptstr, "Select file to %s:", loadmodes[idx].prompt); popupprompt(button, promptstr, "\0", loadmodes[idx].func, savebutton, loadmodes[idx].filext); } free(promptstr); } /*--------------------------------------------------------------*/ /* Tilde ('~') expansion in file name. Assumes that filename */ /* is a static character array of size "nchars". */ /*--------------------------------------------------------------*/ Boolean xc_tilde_expand(char *filename, int nchars) { #ifndef _MSC_VER struct passwd *passwd; char *username = NULL, *expanded, *sptr; if (*filename == '~') { sptr = filename + 1; if (*sptr == '/' || *sptr == ' ' || *sptr == '\0') username = getenv("HOME"); else { for (; *sptr != '/' && *sptr != '\0'; sptr++); if (*sptr == '\0') *(sptr + 1) = '\0'; *sptr = '\0'; passwd = getpwnam(filename + 1); if (passwd != NULL) username = passwd->pw_dir; *sptr = '/'; } if (username != NULL) { expanded = (char *)malloc(strlen(username) + strlen(filename)); strcpy(expanded, username); strcat(expanded, sptr); strncpy(filename, expanded, nchars); free(expanded); } return True; } return False; #else return False; #endif } /*--------------------------------------------------------------*/ /* Variable ('$') expansion in file name */ /*--------------------------------------------------------------*/ Boolean xc_variable_expand(char *filename, int nchars) { char *expanded, *sptr, tmpchar, *varpos, *varsub; if ((varpos = strchr(filename, '$')) != NULL) { for (sptr = varpos; *sptr != '/' && *sptr != '\0'; sptr++); if (*sptr == '\0') *(sptr + 1) = '\0'; tmpchar = *sptr; *sptr = '\0'; #ifdef TCL_WRAPPER /* Interpret as a Tcl variable */ varsub = (char *)Tcl_GetVar(xcinterp, varpos + 1, TCL_NAMESPACE_ONLY); #else /* Interpret as an environment variable */ varsub = (char *)getenv((const char *)(varpos + 1)); #endif if (varsub != NULL) { *varpos = '\0'; expanded = (char *)malloc(strlen(varsub) + strlen(filename) + strlen(sptr + 1) + 2); strcpy(expanded, filename); strcat(expanded, varsub); *sptr = tmpchar; strcat(expanded, sptr); strncpy(filename, expanded, nchars); free(expanded); } else *sptr = tmpchar; return True; } return False; } /*--------------------------------------------------------------*/ /* Attempt to find a file and open it. */ /*--------------------------------------------------------------*/ FILE *fileopen(char *filename, char *suffix, char *name_return, int nchars) { FILE *file = NULL; char inname[250], expname[250], *sptr, *cptr, *iptr, *froot; int slen; sscanf(filename, "%249s", expname); xc_tilde_expand(expname, 249); while (xc_variable_expand(expname, 249)); sptr = xobjs.filesearchpath; while (1) { if ((xobjs.filesearchpath == NULL) || (expname[0] == '/')) { strcpy(inname, expname); iptr = inname; } else { strcpy(inname, sptr); cptr = strchr(sptr, ':'); slen = (cptr == NULL) ? strlen(sptr) : (int)(cptr - sptr); sptr += (slen + ((cptr == NULL) ? 0 : 1)); iptr = inname + slen; if (*(iptr - 1) != '/') strcpy(iptr++, "/"); strcpy(iptr, expname); } /* Attempt to open the filename with a suffix */ if ((froot = strrchr(iptr, '/')) == NULL) froot = iptr; if (strrchr(froot, '.') == NULL) { if (suffix) { if (suffix[0] != '.') strncat(inname, ".", 249); strncat(inname, suffix, 249); } file = fopen(inname, "r"); } /* Attempt to open the filename as given, without a suffix */ if (file == NULL) { strcpy(iptr, expname); file = fopen(inname, "r"); } if (file != NULL) break; else if (sptr == NULL) break; else if (*sptr == '\0') break; } if (name_return) strncpy(name_return, inname, nchars); return file; } /*---------------------------------------------------------*/ Boolean nextfilename() /* extract next filename from _STR2 into _STR */ { char *cptr, *slptr; sprintf(_STR, "%.149s", _STR2); if ((cptr = strrchr(_STR2, ',')) != NULL) { slptr = strrchr(_STR, '/'); if (slptr == NULL || ((slptr - _STR) > (cptr - _STR2))) slptr = _STR - 1; sprintf(slptr + 1, "%s", cptr + 1); *cptr = '\0'; return True; } else return False; } /*---------------------------------------------------------*/ void loadfontlib() { loadlibrary(FONTLIB); } /*------------------------------------------------------*/ /* Handle library loading and refresh current page if */ /* it is a library page that just changed. */ /*------------------------------------------------------*/ void loadglib(Boolean lflag, short ilib, short tlib) { while (nextfilename()) { if (lflag) lflag = False; else ilib = createlibrary(False); loadlibrary(ilib); /* if (ilib == tlib) zoomview(NULL, NULL, NULL); */ } if (lflag) lflag = False; else ilib = createlibrary(False); loadlibrary(ilib); /* if (ilib == tlib) zoomview(NULL, NULL, NULL); */ } /*------------------------------------------------------*/ /* Load new library: Create new library page and load */ /* to it. */ /*------------------------------------------------------*/ void loadulib() { loadglib(False, (short)0, (short)is_library(topobject) + LIBRARY); } /*-----------------------------------------------------------*/ /* Add to library: If on library page, add to that library. */ /* Otherwise, create a new library page and load to it. */ /*-----------------------------------------------------------*/ void loadblib() { short ilib, tlib; Boolean lflag = True; /* Flag whether current page is a library page or not */ if ((tlib = is_library(topobject)) < 0) { ilib = LIBRARY; lflag = False; } else ilib = tlib + LIBRARY; loadglib(lflag, ilib, tlib + LIBRARY); } /*---------------------------------------------------------*/ void getlib(xcWidget button, caddr_t clientdata, caddr_t nulldata) { buttonsave *savebutton; #ifndef TCL_WRAPPER savebutton = getgeneric(button, getlib, NULL); #endif popupprompt(button, "Enter library to load:", "\0", loadblib, savebutton, "lps"); } /*---------------------------------------------------------*/ void getuserlib(xcWidget button, caddr_t clientdata, caddr_t nulldata) { buttonsave *savebutton; #ifndef TCL_WRAPPER savebutton = getgeneric(button, getuserlib, NULL); #endif popupprompt(button, "Enter library to load:", "\0", loadulib, savebutton, "lps"); } /*------------------------------------------------------*/ /* Add a new name to the list of aliases for an object */ /*------------------------------------------------------*/ Boolean addalias(objectptr thisobj, char *newname) { aliasptr aref; slistptr sref; /* Boolean retval = False; (jdk) */ char *origname = thisobj->name; for (aref = aliastop; aref != NULL; aref = aref->next) if (aref->baseobj == thisobj) break; /* An equivalence, not an alias */ if (!strcmp(origname, newname)) return True; if (aref == NULL) { /* entry does not exist; add new baseobj */ aref = (aliasptr)malloc(sizeof(alias)); aref->baseobj = thisobj; aref->aliases = NULL; aref->next = aliastop; aliastop = aref; } for (sref = aref->aliases; sref != NULL; sref = sref->next) if (!strcmp(sref->alias, newname)) break; if (sref == NULL) { /* needs new entry */ sref = (slistptr)malloc(sizeof(stringlist)); sref->alias = strdup(newname); sref->next = aref->aliases; aref->aliases = sref; return False; } else return True; /* alias already exists! */ } /*------------------------------------------------------*/ /* Remove all object name aliases */ /*------------------------------------------------------*/ void cleanupaliases(short mode) { aliasptr aref; slistptr sref; objectptr baseobj; char *sptr; /* *basename, (jdk) */ int i, j; if (aliastop == NULL) return; for (aref = aliastop; aref != NULL; aref = aref->next) { baseobj = aref->baseobj; for (sref = aref->aliases; sref != NULL; sref = sref->next) free(sref->alias); } for (; (aref = aliastop->next); aliastop = aref) free(aliastop); free(aliastop); aliastop = NULL; /* Get rid of propagating underscores in names */ for (i = 0; i < ((mode == FONTLIB) ? 1 : xobjs.numlibs); i++) { for (j = 0; j < ((mode == FONTLIB) ? xobjs.fontlib.number : xobjs.userlibs[i].number); j++) { baseobj = (mode == FONTLIB) ? *(xobjs.fontlib.library + j) : *(xobjs.userlibs[i].library + j); sptr = baseobj->name; while (*sptr == '_') sptr++; /* need memmove to avoid overwriting? */ memmove((void *)baseobj->name, (const void *)sptr, strlen(sptr) + 1); checkname(baseobj); } } } /*------------------------------------------------------*/ /* Open a library file by name and return a pointer to */ /* the file structure, or NULL if an error occurred. */ /*------------------------------------------------------*/ FILE *libopen(char *libname, short mode, char *name_return, int nchars) { FILE *file = NULL; char inname[150], expname[150], *sptr, *cptr, *iptr; int slen; char *suffix = (mode == FONTENCODING) ? ".xfe" : ".lps"; sscanf(libname, "%149s", expname); xc_tilde_expand(expname, 149); while(xc_variable_expand(expname, 149)); sptr = xobjs.libsearchpath; while (1) { if ((xobjs.libsearchpath == NULL) || (expname[0] == '/')) { strcpy(inname, expname); iptr = inname; } else { strcpy(inname, sptr); cptr = strchr(sptr, ':'); slen = (cptr == NULL) ? strlen(sptr) : (int)(cptr - sptr); sptr += (slen + ((cptr == NULL) ? 0 : 1)); iptr = inname + slen; if (*(iptr - 1) != '/') strcpy(iptr++, "/"); strcpy(iptr, expname); } /* Try to open the filename with a suffix if it doesn't have one */ if (strrchr(iptr, '.') == NULL) { strncat(inname, suffix, 149); file = fopen(inname, "r"); } /* Try to open the filename as given, without a suffix */ if (file == NULL) { strcpy(iptr, expname); file = fopen(inname, "r"); } if (file != NULL) break; else if (sptr == NULL) break; else if (*sptr == '\0') break; } if ((file == NULL) && (xobjs.libsearchpath == NULL)) { /* if not found in cwd and there is no library search */ /* path, look for environment variable "XCIRCUIT_LIB_DIR" */ /* defined (Thanks to Ali Moini, U. Adelaide, S. Australia) */ char *tmp_s = getenv((const char *)"XCIRCUIT_LIB_DIR"); if (tmp_s != NULL) { sprintf(inname, "%s/%s", tmp_s, expname); file = fopen(inname, "r"); if (file == NULL) { sprintf(inname, "%s/%s%s", tmp_s, expname, suffix); file = fopen(inname, "r"); } } /* last resort: hard-coded directory BUILTINS_DIR */ if (file == NULL) { sprintf(inname, "%s/%s", BUILTINS_DIR, expname); file = fopen(inname, "r"); if (file == NULL) { sprintf(inname, "%s/%s%s", BUILTINS_DIR, expname, suffix); file = fopen(inname, "r"); } } } if (name_return) strncpy(name_return, inname, nchars); return file; } /*--------------------------------------------------------------*/ /* Add a record to the instlist list of the library indexed by */ /* mode, create a new instance, and add it to the record. */ /* */ /* objname is the name of the library object to be instanced, */ /* and buffer is the line containing the instance parameters */ /* of the new instance, optionally preceded by scale and */ /* rotation values. */ /* */ /*--------------------------------------------------------------*/ objinstptr new_library_instance(short mode, char *objname, char *buffer, TechPtr defaulttech) { char *lineptr; objectptr libobj, localdata; objinstptr newobjinst; int j; char *nsptr, *fullname = objname; localdata = xobjs.libtop[mode + LIBRARY]->thisobject; /* For (older) libraries that do not use technologies, give the */ /* object a technology name in the form :: */ if ((nsptr = strstr(objname, "::")) == NULL) { int deftechlen = (defaulttech == NULL) ? 0 : strlen(defaulttech->technology); fullname = (char *)malloc(deftechlen + strlen(objname) + 3); if (defaulttech == NULL) sprintf(fullname, "::%s", objname); else sprintf(fullname, "%s::%s", defaulttech->technology, objname); } for (j = 0; j < xobjs.userlibs[mode].number; j++) { libobj = *(xobjs.userlibs[mode].library + j); if (!strcmp(fullname, libobj->name)) { newobjinst = addtoinstlist(mode, libobj, TRUE); lineptr = buffer; while (isspace(*lineptr)) lineptr++; if (*lineptr != '<') { /* May declare instanced scale and rotation first */ lineptr = varfscan(localdata, lineptr, &newobjinst->scale, (genericptr)newobjinst, P_SCALE); lineptr = varfscan(localdata, lineptr, &newobjinst->rotation, (genericptr)newobjinst, P_ROTATION); } readparams(NULL, newobjinst, libobj, lineptr); if (fullname != objname) free(fullname); return newobjinst; } } if (fullname != objname) free(fullname); return NULL; /* error finding the library object */ } /*------------------------------------------------------*/ /* Import a single object from a library file. "mode" */ /* is the number of the library into which the object */ /* will be placed. This function allows new libraries */ /* to be generated by "cutting and pasting" from */ /* existing libraries. It also allows better library */ /* management when the number of objects becomes very */ /* large, such as when using "diplib" (7400 series */ /* chips, created from the PCB library). */ /*------------------------------------------------------*/ void importfromlibrary(short mode, char *libname, char *objname) { FILE *ps; char temp[150], keyword[100]; char inname[150], *tptr; objectptr *newobject; objlistptr redef; float saveversion; Boolean dependencies = False; TechPtr nsptr = NULL; ps = libopen(libname, mode, inname, 149); if (ps == NULL) { Fprintf(stderr, "Cannot open library %s for import.\n", libname); return; } version = 2.0; /* Assume version is 2.0 unless found in header */ for(;;) { if (fgets(temp, 149, ps) == NULL) { Wprintf("Error in library."); goto endload; } else if (temp[0] == '/') { int s = 1; if (temp[1] == '@') s = 2; sscanf(&temp[s], "%s", keyword); if (!strcmp(keyword, objname)) break; } else if (*temp == '%') { char *tptr = temp + 1; while (isspace(*tptr)) tptr++; if (!strncmp(tptr, "Version:", 8)) { float tmpv; tptr += 9; if (sscanf(tptr, "%f", &tmpv) > 0) version = tmpv; } else if (!strncmp(tptr, "Library", 7)) { char *techname = strstr(tptr, ":"); if (techname != NULL) { techname++; /* skip over colon */ while(isspace(*techname)) techname++; ridnewline(techname); /* Remove newline character */ if ((tptr = strrchr(techname, '/')) != NULL) techname = tptr + 1; if ((tptr = strrchr(techname, '.')) != NULL) if (!strncmp(tptr, ".lps", 4)) *tptr = '\0'; nsptr = AddNewTechnology(techname, inname); if (nsptr) { // Set the IMPORTED flag, to help prevent overwriting // the techfile with a truncated version of it, unless // the filename of the techfile has been changed, in // which case the technology should be considered to // stand on its own, and is not considered a partially // complete imported version of the original techfile. if (!strcmp(inname, nsptr->filename)) nsptr->flags |= TECH_IMPORTED; } } } else if (!strncmp(tptr, "Depend", 6)) { dependencies = TRUE; tptr += 7; sscanf(tptr, "%s", keyword); if (!strcmp(keyword, objname)) { /* Load dependencies */ while (1) { tptr += strlen(keyword) + 1; if (sscanf(tptr, "%s", keyword) != 1) break; if (keyword[0] == '\n' || keyword[0] == '\0') break; /* Recursive import */ saveversion = version; importfromlibrary(mode, libname, keyword); version = saveversion; } } } } } if ((version < 3.2) && (!dependencies)) { Fprintf(stderr, "Library does not have dependency list and cannot " "be trusted.\nLoad and rewrite library to update.\n"); goto endload; } newobject = new_library_object(mode, keyword, &redef, nsptr); load_in_progress = True; if (objectread(ps, *newobject, 0, 0, mode, temp, DEFAULTCOLOR, nsptr) == False) { if (library_object_unique(mode, *newobject, redef)) { add_object_to_library(mode, *newobject); cleanupaliases(mode); /* pull in any instances of this object that */ /* are defined in the library */ for(;;) { if (fgets(temp, 149, ps) == NULL) { Wprintf("Error in library."); goto endload; } else if (!strncmp(temp, "% EndLib", 8)) break; else if (strstr(temp, "libinst") != NULL) { if ((tptr = strstr(temp, objname)) != NULL) { if (*(tptr - 1) == '/') { char *eptr = tptr; while (!isspace(*++eptr)); *eptr = '\0'; new_library_instance(mode - LIBRARY, tptr, temp, nsptr); } } } } if (mode != FONTLIB) { composelib(mode); centerview(xobjs.libtop[mode]); } } } endload: fclose(ps); version = PROG_VERSION; load_in_progress = False; } /*------------------------------------------------------*/ /* Copy all technologies' replace flags into temp flag. */ /* Then clear the replace flags (replace none) */ /*------------------------------------------------------*/ void TechReplaceSave() { TechPtr nsp; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) { if (nsp->flags & TECH_REPLACE) nsp->flags |= TECH_REPLACE_TEMP; else nsp->flags &= ~TECH_REPLACE_TEMP; nsp->flags &= ~TECH_REPLACE; } } /*------------------------------------------------------*/ /* Restore all technologies' replace flags */ /*------------------------------------------------------*/ void TechReplaceRestore() { TechPtr nsp; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) { if (nsp->flags & TECH_REPLACE_TEMP) nsp->flags |= TECH_REPLACE; else nsp->flags &= ~TECH_REPLACE; } } /*------------------------------------------------------*/ /* Set all technologies' replace flags (replace all) */ /*------------------------------------------------------*/ void TechReplaceAll() { TechPtr nsp; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) nsp->flags |= TECH_REPLACE; } /*------------------------------------------------------*/ /* Clear all technologies' replace flags (replace none) */ /*------------------------------------------------------*/ void TechReplaceNone() { TechPtr nsp; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) nsp->flags &= ~TECH_REPLACE; } /*------------------------------------------------------*/ /* Compare an object's name with a specific technology */ /* */ /* A missing "::" prefix separator or an empty prefix */ /* both match a NULL technology or a technology name */ /* that is an empty string (""). All of these */ /* conditions indicate the default "user" technology. */ /*------------------------------------------------------*/ Boolean CompareTechnology(objectptr cobj, char *technology) { char *cptr; Boolean result = FALSE; if ((cptr = strstr(cobj->name, "::")) != NULL) { if (technology == NULL) result = (cobj->name == cptr) ? TRUE : FALSE; else { *cptr = '\0'; if (!strcmp(cobj->name, technology)) result = TRUE; *cptr = ':'; } } else if (technology == NULL) result = TRUE; return result; } /*------------------------------------------------------*/ /* Find a technology record */ /*------------------------------------------------------*/ TechPtr LookupTechnology(char *technology) { TechPtr nsp; Boolean usertech = FALSE; // A NULL technology is allowed as equivalent to a // technology name of "" (null string) if (technology == NULL) usertech = TRUE; else if (*technology == '\0') usertech = TRUE; else if (!strcmp(technology, "(user)")) usertech = TRUE; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) { if (usertech == TRUE) { if (*nsp->technology == '\0') return nsp; } if ((technology != NULL) && !strcmp(technology, nsp->technology)) return nsp; } return NULL; } /*------------------------------------------------------*/ /* Find a technology according to the filename */ /*------------------------------------------------------*/ TechPtr GetFilenameTechnology(char *filename) { TechPtr nsp; if (filename == NULL) return NULL; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) if (!filecmp(filename, nsp->filename)) return nsp; return NULL; } /*------------------------------------------------------*/ /* Find a technology record corresponding to the */ /* indicated object's technology. */ /*------------------------------------------------------*/ TechPtr GetObjectTechnology(objectptr thisobj) { TechPtr nsp; char *cptr; /* int nlen; (jdk) */ cptr = strstr(thisobj->name, "::"); if (cptr == NULL) return NULL; else *cptr = '\0'; for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) if (!strcmp(thisobj->name, nsp->technology)) break; *cptr = ':'; return nsp; } /*------------------------------------------------------*/ /* Add a new technology name to the list */ /*------------------------------------------------------*/ TechPtr AddNewTechnology(char *technology, char *filename) { TechPtr nsp; char usertech[] = ""; char *localtech = technology; // In the case where somebody has saved the contents of the user // technology to a file, create a technology->filename mapping // using a null string ("") for the technology name. If we are // only checking if a technology name exists (filename is NULL), // then ignore an reference to the user technology. if (technology == NULL) { if (filename == NULL) return NULL; else localtech = usertech; } for (nsp = xobjs.technologies; nsp != NULL; nsp = nsp->next) { if (!strcmp(localtech, nsp->technology)) { /* A namespace may be created for an object that is a dependency */ /* in a different technology. If so, it will have a NULL */ /* filename, and the filename should be replaced if we ever load */ /* the file that properly defines the technology. */ if ((nsp->filename == NULL) && (filename != NULL)) nsp->filename = strdup(filename); return nsp; /* Namespace already exists */ } } nsp = (TechPtr)malloc(sizeof(Technology)); nsp->next = xobjs.technologies; if (filename == NULL) nsp->filename = NULL; else nsp->filename = strdup(filename); nsp->technology = strdup(localtech); nsp->flags = (u_char)0; xobjs.technologies = nsp; return nsp; } /*------------------------------------------------------*/ /* Check an object's name for a technology, and add it */ /* to the list of technologies if it has one. */ /*------------------------------------------------------*/ void AddObjectTechnology(objectptr thisobj) { char *cptr; cptr = strstr(thisobj->name, "::"); if (cptr != NULL) { *cptr = '\0'; AddNewTechnology(thisobj->name, NULL); *cptr = ':'; } } /*------------------------------------------------------*/ /* Load a library page (given in parameter "mode") and */ /* rename the library page to match the library name as */ /* found in the file header. */ /*------------------------------------------------------*/ Boolean loadlibrary(short mode) { FILE *ps; objinstptr saveinst; char temp[150], keyword[30], percentc, inname[150]; TechPtr nsptr = NULL; ps = libopen(_STR, mode, inname, 149); if ((ps == NULL) && (mode == FONTLIB)) { /* We automatically try looking in all the usual places plus a */ /* subdirectory named "fonts". */ sprintf(temp, "fonts/%s", _STR); ps = libopen(temp, mode, inname, 149); } if (ps == NULL) { Wprintf("Library not found."); return False; } /* current version is PROG_VERSION; however, all libraries newer than */ /* version 2.0 require "Version" in the header. So unnumbered */ /* libraries may be assumed to be version 1.9 or earlier. */ version = 1.9; for(;;) { if (fgets(temp, 149, ps) == NULL) { Wprintf("Error in library."); fclose(ps); return False; } sscanf(temp, "%c %29s", &percentc, keyword); /* Commands in header are PostScript comments (%) */ if (percentc == '%') { /* The library name in the header corresponds to the object */ /* technology defined by the library. This no longer has */ /* anything to do with the name of the library page where we */ /* are loading this file. */ /* Save the technology, filename, and flags in the technology list. */ if ((mode != FONTLIB) && !strcmp(keyword, "Library")) { char *cptr, *nptr; cptr = strchr(temp, ':'); if (cptr != NULL) { cptr += 2; /* Don't write terminating newline to the object's name string */ ridnewline(cptr); /* The default user technology is written to the output */ /* as "(user)". If this is found, replace it with a */ /* null string. */ if (!strcmp(cptr, "(user)")) cptr += 6; /* Removing any leading pathname from the library name */ if ((nptr = strrchr(cptr, '/')) != NULL) cptr = nptr + 1; /* Remove any ".lps" extension from the library name */ nptr = strrchr(cptr, '.'); if ((nptr != NULL) && !strcmp(nptr, ".lps")) *nptr = '\0'; nsptr = AddNewTechnology(cptr, inname); if (nsptr) { // If anything was previously imported from this file // using importfromlibrary(), then the IMPORTED flag // will be set and needs to be cleared. nsptr->flags &= ~TECH_IMPORTED; } } } /* This comment gives the Xcircuit version number */ else if (!strcmp(keyword, "Version:")) { float tmpv; if (sscanf(temp, "%*c %*s %f", &tmpv) > 0) version = tmpv; } /* This PostScript comment marks the end of the file header */ else if (!strcmp(keyword, "XCircuitLib")) break; } } /* Set the current top object to the library page so that any */ /* expression parameters are computed with respect to the library, */ /* not a page. Revert back to the page after loading the library. */ saveinst = areawin->topinstance; areawin->topinstance = xobjs.libtop[mode]; load_in_progress = True; objectread(ps, topobject, 0, 0, mode, temp, DEFAULTCOLOR, nsptr); load_in_progress = False; cleanupaliases(mode); areawin->topinstance = saveinst; if (mode != FONTLIB) { composelib(mode); centerview(xobjs.libtop[mode]); if (nsptr == NULL) nsptr = GetFilenameTechnology(inname); if (nsptr != NULL) Wprintf("Loaded library file %s", inname); else Wprintf("Loaded library file %s (technology %s)", inname, nsptr->technology); } else Wprintf("Loaded font file %s", inname); version = PROG_VERSION; fclose(ps); /* Check if the library is read-only by opening for append */ if ((mode != FONTLIB) && (nsptr != NULL)) { ps = fopen(inname, "a"); if (ps == NULL) nsptr->flags |= TECH_READONLY; else fclose(ps); } return True; } /*---------------------------------------------------------*/ void startloadfile(int libnum) { int savemode; short firstpage = areawin->page; while (nextfilename()) { loadfile(0, libnum); /* find next undefined page */ while(areawin->page < xobjs.pages && xobjs.pagelist[areawin->page]->pageinst != NULL) areawin->page++; changepage(areawin->page); } loadfile(0, libnum); /* Prevent page change from being registered as an undoable action */ savemode = eventmode; eventmode = UNDO_MODE; /* Display the first page loaded */ newpage(firstpage); eventmode = savemode; setsymschem(); } /*------------------------------------------------------*/ /* normalloadfile() is a call to startloadfile(-1) */ /* meaning load symbols to the User Library */ /*------------------------------------------------------*/ void normalloadfile() { startloadfile(-1); } /*------------------------------------------------------*/ /* Import an xcircuit file onto the current page */ /*------------------------------------------------------*/ void importfile() { while (nextfilename()) loadfile(1, -1); loadfile(1, -1); } /*------------------------------------------------------*/ /* Import an PPM graphic file onto the current page */ /*------------------------------------------------------*/ #ifdef HAVE_CAIRO void importgraphic(void) { char inname[250]; FILE *spcfile; if (eventmode == CATALOG_MODE) { Wprintf("Cannot import a graphic while in the library window."); return; } if (!nextfilename()) { xc_tilde_expand(_STR, 149); sscanf(_STR, "%149s", inname); if (!new_graphic(NULL, inname, 0, 0)) { Wprintf("Error: Graphic file not found."); return; } } else { Wprintf("Error: No graphic file to read."); return; } } #endif /* HAVE_CAIRO */ /*--------------------------------------------------------------*/ /* Skip forward in the input file to the next comment line */ /*--------------------------------------------------------------*/ void skiptocomment(char *temp, int length, FILE *ps) { int pch; do { pch = getc(ps); } while (pch == '\n'); ungetc(pch, ps); if (pch == '%') fgets(temp, length, ps); } /*--------------------------------------------------------------*/ /* ASG file import functions: */ /* This function loads a SPICE deck (hspice format) */ /*--------------------------------------------------------------*/ #ifdef ASG void importspice() { char inname[250]; FILE *spcfile; if (eventmode == CATALOG_MODE) { Wprintf("Cannot import a netlist while in the library window."); return; } if (!nextfilename()) { xc_tilde_expand(_STR, 149); sscanf(_STR, "%149s", inname); spcfile = fopen(inname, "r"); if (spcfile != NULL) { ReadSpice(spcfile); Route(areawin, False); fclose(spcfile); } else { Wprintf("Error: Spice file not found."); return; } } else { Wprintf("Error: No spice file to read."); return; } } #endif /*--------------------------------------------------------------*/ /* Load an xcircuit file into xcircuit */ /* */ /* mode = 0 is a "load" function. Behavior: load on */ /* current page if empty. Otherwise, load on first empty */ /* page found. If no empty pages exist, create a new page */ /* and load there. */ /* mode = 1 is an "import" function. Behavior: add */ /* contents of file to the current page. */ /* mode = 2 is a "library load" function. Behavior: add */ /* objects in file to the user library but ignore the */ /* page contents. */ /* */ /* Return value: True if file was successfully loaded, False */ /* if not. */ /*--------------------------------------------------------------*/ typedef struct _connects *connectptr; typedef struct _connects { short page; char *master; connectptr next; } connects; Boolean loadfile(short mode, int libnum) { FILE *ps; char inname[150], temp[150], keyword[30], percentc, *pdchar; char teststr[50], teststr2[20], pagestr[100]; short offx, offy, multipage, page, temppmode = 0; float tmpfl; XPoint pagesize; connects *connlist = NULL; struct stat statbuf; int loclibnum = (libnum == -1) ? USERLIB : libnum; /* First, if we're in catalog mode, return with error */ if (eventmode == CATALOG_MODE) { Wprintf("Cannot load file from library window"); return False; } /* Do tilde/variable expansions on filename and open */ ps = fileopen(_STR, "ps", inname, 149); /* Could possibly be a library file? */ /* (Note---loadfile() has no problems loading libraries */ /* except for setting technology names and setting the */ /* library page view at the end. The loadlibrary() routine */ /* should probably be merged into this one.) */ if (ps == NULL) { ps = fileopen(_STR, "lps", NULL, 0); if (ps != NULL) { fclose(ps); loadlibrary(loclibnum); return True; } } else if (!strcmp(inname + strlen(inname) - 4, ".lps")) { fclose(ps); loadlibrary(loclibnum); return True; } #ifdef LGF /* Could possibly be an LGF file? */ if (ps == NULL) { ps = fileopen(_STR, "lgf", NULL, 0); if (ps != NULL) { fclose(ps); loadlgf(mode); return True; } } /* Could possibly be an LGF backup (.lfo) file? */ if (ps == NULL) { ps = fileopen(_STR, "lfo", NULL, 0); if (ps != NULL) { fclose(ps); loadlgf(mode); return True; } } #endif /* LGF */ /* Check for empty file---don't attempt to read empty files */ if (ps != NULL) { if (fstat(fileno(ps), &statbuf) == 0 && (statbuf.st_size == (off_t)0)) { fclose(ps); ps = NULL; } } /* What to do if no file was found. . . */ if (ps == NULL) { if (topobject->parts == 0 && (mode == 0)) { /* Check for file extension, and remove if "ps". */ if ((pdchar = strchr(_STR, '.')) != NULL) if (!strcmp(pdchar + 1, "ps")) *pdchar = '\0'; free(xobjs.pagelist[areawin->page]->filename); xobjs.pagelist[areawin->page]->filename = strdup(_STR); /* If the name has a path component, use only the root */ /* for the object name, but the full path for the filename. */ if ((pdchar = strrchr(_STR, '/')) != NULL) sprintf(topobject->name, "%s", pdchar + 1); else sprintf(topobject->name, "%s", _STR); renamepage(areawin->page); printname(topobject); Wprintf("Starting new drawing"); } else { Wprintf("Can't find file %s, won't overwrite current page", _STR); } return False; } version = 1.0; multipage = 1; pagesize.x = 612; pagesize.y = 792; for(;;) { if (fgets(temp, 149, ps) == NULL) { Wprintf("Error: EOF in or before prolog."); return False; } sscanf(temp, "%c%29s", &percentc, keyword); for (pdchar = keyword; isspace(*pdchar); pdchar++); if (percentc == '%') { if (!strcmp(pdchar, "XCircuit")) break; if (!strcmp(pdchar, "XCircuitLib")) { /* version control in libraries is post version 1.9 */ if (version == 1.0) version = 1.9; break; } if (!strcmp(pdchar, "%Page:")) break; if (strstr(pdchar, "PS-Adobe") != NULL) temppmode = (strstr(temp, "EPSF") != NULL) ? 0 : 1; else if (!strcmp(pdchar, "Version:")) sscanf(temp, "%*c%*s %f", &version); else if (!strcmp(pdchar, "%Pages:")) { pdchar = advancetoken(temp); multipage = atoi(pdchar); } /* Crash files get renamed back to their original filename */ else if (!strcmp(pdchar, "%Title:")) { if (xobjs.tempfile != NULL) if (!strcmp(inname, xobjs.tempfile)) sscanf(temp, "%*c%*s %s", inname); } else if ((temppmode == 1) && !strcmp(pdchar, "%BoundingBox:")) { short botx, boty; sscanf(temp, "%*s %hd %hd %hd %hd", &botx, &boty, &(pagesize.x), &(pagesize.y)); pagesize.x += botx; pagesize.y += boty; } } #ifdef LGF else if (percentc == '-' && !strcmp(keyword, "5")) { fclose(ps); loadlgf(mode); return True; } #endif } /* Look for old-style files (no %%Page; maximum one page in file) */ if (!strcmp(pdchar, "XCircuit")) skiptocomment(temp, 149, ps); for (page = 0; page < multipage; page++) { sprintf(pagestr, "%d", page + 1); /* read out-of-page library definitions */ if (strstr(temp, "%%Page:") == NULL && strstr(temp, "offsets") == NULL) { load_in_progress = True; objectread(ps, topobject, 0, 0, loclibnum, temp, DEFAULTCOLOR, NULL); load_in_progress = False; } if (strstr(temp, "%%Page:") != NULL) { sscanf(temp + 8, "%99s", pagestr); /* Read the next line so any keywords in the Page name don't */ /* confuse the parser. */ if (fgets(temp, 149, ps) == NULL) { Wprintf("Error: bad page header."); return False; } /* Library load mode: Ignore all pages, just load objects */ if (mode == 2) { while (strstr(temp, "showpage") == NULL) { if (fgets(temp, 149, ps) == NULL) { Wprintf("Error: bad page definition."); return False; } } skiptocomment(temp, 149, ps); continue; } } /* go to new page if necessary */ if (page > 0) { /* find next undefined page */ while(areawin->page < xobjs.pages && xobjs.pagelist[areawin->page]->pageinst != NULL) areawin->page++; changepage(areawin->page); } /* If this file was a library file then there is no page to load */ if (strstr(temp, "EndLib") != NULL) { composelib(loclibnum); centerview(xobjs.libtop[mode]); Wprintf("Loaded library."); return True; } /* good so far; let's clear out the old data structure */ if (mode == 0) { reset(topobject, NORMAL); pagereset(areawin->page); xobjs.pagelist[areawin->page]->pmode = temppmode; if (temppmode == 1) { xobjs.pagelist[areawin->page]->pagesize.x = pagesize.x; xobjs.pagelist[areawin->page]->pagesize.y = pagesize.y; } } else { invalidate_netlist(topobject); /* ensure that the netlist for topobject is destroyed */ freenetlist(topobject); } /* clear the undo record */ flush_undo_stack(); /* read to the "scale" line, picking up inch/cm type, drawing */ /* scale, and grid/snapspace along the way */ offx = offy = 0; for(;;) { if (strstr(temp, "offsets") != NULL) { /* Prior to version 3.1.28 only. . . */ sscanf(temp, "%c %hd %hd %*s", &percentc, &offx, &offy); if(percentc != '%') { Wprintf("Something wrong in offsets line."); offx = offy = 0; } } if ((temppmode == 1) && strstr(temp, "%%PageBoundingBox:") != NULL) { /* Recast the individual page size if specified per page */ sscanf(temp, "%*s %*d %*d %hd %hd", &xobjs.pagelist[areawin->page]->pagesize.x, &xobjs.pagelist[areawin->page]->pagesize.y); } else if (strstr(temp, "drawingscale") != NULL) sscanf(temp, "%*c %hd:%hd %*s", &xobjs.pagelist[areawin->page]->drawingscale.x, &xobjs.pagelist[areawin->page]->drawingscale.y); else if (strstr(temp, "hidden") != NULL) topobject->hidden = True; else if (strstr(temp, "is_symbol") != NULL) { sscanf(temp, "%*c %49s", teststr); checkschem(topobject, teststr); } else if (strstr(temp, "is_primary") != NULL) { /* objectptr master; (jdk) */ connects *newconn; /* Save information about master schematic and link at end of load */ sscanf(temp, "%*c %49s", teststr); newconn = (connects *)malloc(sizeof(connects)); newconn->next = connlist; connlist = newconn; newconn->page = areawin->page; newconn->master = strdup(teststr); } else if (strstr(temp, "gridspace")) sscanf(temp, "%*c %f %f %*s", &xobjs.pagelist[areawin->page]->gridspace, &xobjs.pagelist[areawin->page]->snapspace); else if (strstr(temp, "scale") != NULL || strstr(temp, "rotate") != NULL) { /* rotation (landscape mode) is optional; parse accordingly */ sscanf(temp, "%f %49s", &tmpfl, teststr); if (strstr(teststr, "scale") != NULL) { #ifndef TCL_WRAPPER setgridtype(teststr); #else if (strstr(teststr, "inch")) Tcl_Eval(xcinterp, "xcircuit::coordstyle inches"); else Tcl_Eval(xcinterp, "xcircuit::coordstyle centimeters"); #endif xobjs.pagelist[areawin->page]->outscale = tmpfl; } else if (!strcmp(teststr, "rotate")) { xobjs.pagelist[areawin->page]->orient = (short)tmpfl; fgets(temp, 149, ps); sscanf(temp, "%f %19s", &tmpfl, teststr2); if (strstr(teststr2, "scale") != NULL) { #ifndef TCL_WRAPPER setgridtype(teststr2); #else if (strstr(teststr2, "inch")) Tcl_Eval(xcinterp, "xcircuit::coordstyle inches"); else Tcl_Eval(xcinterp, "xcircuit::coordstyle centimeters"); #endif xobjs.pagelist[areawin->page]->outscale = tmpfl; } else { sscanf(temp, "%*f %*f %19s", teststr2); if (!strcmp(teststr2, "scale")) xobjs.pagelist[areawin->page]->outscale = tmpfl / getpsscale(1.0, areawin->page); else { Wprintf("Error in scale/rotate constructs."); return False; } } } else { /* old style scale? */ sscanf(temp, "%*f %*s %19s", teststr2); if ((teststr2 != NULL) && (!strcmp(teststr2, "scale"))) xobjs.pagelist[areawin->page]->outscale = tmpfl / getpsscale(1.0, areawin->page); else { Wprintf("Error in scale/rotate constructs."); return False; } } } else if (strstr(temp, "setlinewidth") != NULL) { sscanf(temp, "%f %*s", &xobjs.pagelist[areawin->page]->wirewidth); xobjs.pagelist[areawin->page]->wirewidth /= 1.3; break; } else if (strstr(temp, "insertion") != NULL) { /* read in an included background image */ readbackground(ps); } else if (strstr(temp, "<<") != NULL) { char *buffer = temp, *endptr; /* Make sure we have the whole dictionary before calling */ while (strstr(buffer, ">>") == NULL) { if (buffer == temp) { buffer = (char *)malloc(strlen(buffer) + 150); strcpy(buffer, temp); } else buffer = (char *)realloc(buffer, strlen(buffer) + 150); endptr = ridnewline(buffer); *endptr++ = ' '; fgets(endptr, 149, ps); } /* read top-level parameter dictionary */ readparams(NULL, NULL, topobject, buffer); if (buffer != temp) free(buffer); } if (fgets(temp, 149, ps) == NULL) { Wprintf("Error: Problems encountered in page header."); return False; } } load_in_progress = True; objectread(ps, topobject, offx, offy, LIBRARY, temp, DEFAULTCOLOR, NULL); load_in_progress = False; /* skip to next page boundary or file trailer */ if (strstr(temp, "showpage") != NULL && multipage != 1) { char *fstop; skiptocomment(temp, 149, ps); /* check for new filename if this is a crash recovery file */ if ((fstop = strstr(temp, "is_filename")) != NULL) { strncpy(inname, temp + 2, (int)(fstop - temp - 3)); *(inname + (int)(fstop - temp) - 3) = '\0'; fgets(temp, 149, ps); skiptocomment(temp, 149, ps); } } /* Finally: set the filename and pagename for this page */ if (mode == 0) { char tpstr[6], *rootptr; /* Set filename and page title. */ if (xobjs.pagelist[areawin->page]->filename != NULL) free(xobjs.pagelist[areawin->page]->filename); xobjs.pagelist[areawin->page]->filename = strdup(inname); /* Get the root name (after all path components) */ rootptr = strrchr(xobjs.pagelist[areawin->page]->filename, '/'); if (rootptr == NULL) rootptr = xobjs.pagelist[areawin->page]->filename; else rootptr++; /* If we didn't read in a page name from the %%Page: header line, then */ /* set the page name to the root name of the file. */ sprintf(tpstr, "%d", page + 1); if (!strcmp(pagestr, tpstr)) { if (rootptr == NULL) sprintf(topobject->name, "Page %d", page + 1); else sprintf(topobject->name, "%.79s", rootptr); /* Delete filename extensions ".ps" or ".eps" from the page name */ if ((pdchar = strrchr(topobject->name, '.')) != NULL) { if (!strcmp(pdchar + 1, "ps") || !strcmp(pdchar + 1, "eps")) *pdchar = '\0'; } } else sprintf(topobject->name, "%.79s", pagestr); renamepage(areawin->page); } /* set object position to fit to window separately for each page */ calcbbox(areawin->topinstance); centerview(areawin->topinstance); } /* Crash file recovery: read any out-of-page library definitions tacked */ /* onto the end of the file into the user library. */ if (strncmp(temp, "%%Trailer", 9)) { load_in_progress = True; objectread(ps, topobject, 0, 0, USERLIB, temp, DEFAULTCOLOR, NULL); load_in_progress = False; } cleanupaliases(USERLIB); /* Connect master->slave schematics */ while (connlist != NULL) { connects *thisconn = connlist; objectptr master = NameToPageObject(thisconn->master, NULL, NULL); if (master) { xobjs.pagelist[thisconn->page]->pageinst->thisobject->symschem = master; xobjs.pagelist[thisconn->page]->pageinst->thisobject->schemtype = SECONDARY; } else { Fprintf(stderr, "Error: Cannot find primary schematic for %s\n", xobjs.pagelist[thisconn->page]->pageinst->thisobject->name); } connlist = thisconn->next; free(thisconn->master); free(thisconn); } Wprintf("Loaded file: %s (%d page%s)", inname, multipage, (multipage > 1 ? "s" : "")); composelib(loclibnum); centerview(xobjs.libtop[loclibnum]); composelib(PAGELIB); if (version > PROG_VERSION + VEPS) { Wprintf("WARNING: file %s is version %2.1f vs. executable version %2.1f", inname, version, PROG_VERSION); } version = PROG_VERSION; fclose(ps); return True; } /*------------------------------------------------------*/ /* Object name comparison: True if names are equal, */ /* not counting leading underscores. */ /*------------------------------------------------------*/ int objnamecmp(char *name1, char *name2) { char *n1ptr = name1; char *n2ptr = name2; while (*n1ptr == '_') n1ptr++; while (*n2ptr == '_') n2ptr++; return (strcmp(n1ptr, n2ptr)); } /*------------------------------------------------------*/ /* Standard delimiter matching character. */ /*------------------------------------------------------*/ char standard_delimiter_end(char source) { char target; switch(source) { case '(': target = ')'; break; case '[': target = ']'; break; case '{': target = '}'; break; case '<': target = '>'; break; default: target = source; } return target; } /*------------------------------------------------------*/ /* Find matching parenthesis, bracket, brace, or tag */ /* Don't count when backslash character '\' is in front */ /*------------------------------------------------------*/ u_char *find_delimiter(u_char *fstring) { int count = 1; u_char *search = fstring; u_char source = *fstring; u_char target; target = (u_char)standard_delimiter_end((char)source); while (*++search != '\0') { if (*search == source && *(search - 1) != '\\') count++; else if (*search == target && *(search - 1) != '\\') count--; if (count == 0) break; } return search; } /*----------------------------------------------------------------------*/ /* Remove unnecessary font change information from a label */ /*----------------------------------------------------------------------*/ void cleanuplabel(stringpart **strhead) { stringpart *curpart = *strhead; int oldfont, curfont; Boolean fline = False; oldfont = curfont = -1; while (curpart != NULL) { switch (curpart->type) { case FONT_NAME: if (curfont == curpart->data.font) { /* Font change is redundant: remove it */ /* Careful! font changes remove overline/underline; if */ /* either one is in effect, replace it with "noline" */ if (fline) curpart->type = NOLINE; else curpart = deletestring(curpart, strhead, NULL); } else { curfont = curpart->data.font; } break; case FONT_SCALE: /* Old style font scale is always written absolute, not relative. */ /* Changes in scale were not allowed, so just get rid of them. */ if (version < 2.25) curpart = deletestring(curpart, strhead, areawin->topinstance); break; /* A font change may occur inside a parameter, so any font */ /* declaration after a parameter must be considered to be */ /* intentional. */ case PARAM_END: curfont = oldfont = -1; break; case OVERLINE: case UNDERLINE: fline = True; break; case NOLINE: fline = False; break; case NORMALSCRIPT: case RETURN: if (oldfont != -1) { curfont = oldfont; oldfont = -1; } break; case SUBSCRIPT: case SUPERSCRIPT: if (oldfont == -1) oldfont = curfont; break; } if (curpart != NULL) curpart = curpart->nextpart; } } /*----------------------------------------------------------------------*/ /* Read label segments */ /*----------------------------------------------------------------------*/ void readlabel(objectptr localdata, char *lineptr, stringpart **strhead) { Boolean fline = False; /* char *sptr; (jdk) */ short j; char *endptr, *segptr = lineptr; char key[100]; stringpart *newpart; oparamptr ops; while (*segptr != '\0') { /* Look through all segments */ while (isspace(*segptr) && (*segptr != '\0')) segptr++; if (*segptr == '(' || *segptr == '{') { endptr = find_delimiter(segptr); *endptr++ = '\0'; /* null string (e.g., null parameter substitution) */ if ((*segptr == '(') && (*(segptr + 1) == '\0')) { segptr = endptr; continue; } } else if (*segptr == '\0' || *segptr == '}') break; makesegment(strhead, *strhead); newpart = *strhead; /* Embedded command is in braces: {} */ if (*segptr == '{') { /* Find the command for this PostScript procedure */ char *cmdptr = endptr - 2; while (isspace(*cmdptr)) cmdptr--; while (!isspace(*cmdptr) && (cmdptr > segptr)) cmdptr--; cmdptr++; segptr++; if (!strncmp(cmdptr, "Ss", 2)) newpart->type = SUPERSCRIPT; else if (!strncmp(cmdptr, "ss", 2)) newpart->type = SUBSCRIPT; else if (!strncmp(cmdptr, "ns", 2)) newpart->type = NORMALSCRIPT; else if (!strncmp(cmdptr, "hS", 2)) newpart->type = HALFSPACE; else if (!strncmp(cmdptr, "qS", 2)) newpart->type = QTRSPACE; else if (!strncmp(cmdptr, "CR", 2)) { newpart->type = RETURN; newpart->data.flags = 0; } else if (!strcmp(cmdptr, "Ts")) /* "Tab set" command */ newpart->type = TABSTOP; else if (!strcmp(cmdptr, "Tf")) /* "Tab forward" command */ newpart->type = TABFORWARD; else if (!strcmp(cmdptr, "Tb")) /* "Tab backward" command */ newpart->type = TABBACKWARD; else if (!strncmp(cmdptr, "ol", 2)) { newpart->type = OVERLINE; fline = True; } else if (!strncmp(cmdptr, "ul", 2)) { newpart->type = UNDERLINE; fline = True; } else if (!strncmp(cmdptr, "sce", 3)) { /* revert to default color */ newpart->type = FONT_COLOR; newpart->data.color = DEFAULTCOLOR; } else if (cmdptr == segptr) { /* cancel over- or underline */ newpart->type = NOLINE; fline = False; } /* To-do: replace old-style backspace with tab stop */ else if (!strcmp(cmdptr, "bs")) { Wprintf("Warning: Obsolete backspace command ommitted in text"); } else if (!strcmp(cmdptr, "Kn")) { /* "Kern" command */ int kx, ky; sscanf(segptr, "%d %d", &kx, &ky); newpart->type = KERN; newpart->data.kern[0] = kx; newpart->data.kern[1] = ky; } else if (!strcmp(cmdptr, "MR")) { /* "Margin stop" command */ int width; sscanf(segptr, "%d", &width); newpart->type = MARGINSTOP; newpart->data.width = width; } else if (!strcmp(cmdptr, "scb")) { /* change color command */ float cr, cg, cb; int cval, cindex; sscanf(segptr, "%f %f %f", &cr, &cg, &cb); newpart->type = FONT_COLOR; cindex = rgb_alloccolor((int)(cr * 65535), (int)(cg * 65535), (int)(cb * 65535)); newpart->data.color = cindex; } else if (!strcmp(cmdptr, "cf")) { /* change font or scale command */ char *nextptr, *newptr = segptr; /* Set newptr to the fontname and nextptr to the next token. */ while (*newptr != '/' && *newptr != '\0') newptr++; if (*newptr++ == '\0') { Wprintf("Error: Bad change-font command"); newpart->type = NOLINE; /* placeholder */ } for (nextptr = newptr; !isspace(*nextptr); nextptr++); *(nextptr++) = '\0'; while (isspace(*nextptr)) nextptr++; for (j = 0; j < fontcount; j++) if (!strcmp(newptr, fonts[j].psname)) break; if (j == fontcount) /* this is a non-loaded font */ if (loadfontfile(newptr) < 0) { if (fontcount > 0) { Wprintf("Error: Font \"%s\" not found---using default.", newptr); j = 0; } else { Wprintf("Error: No fonts!"); newpart->type = NOLINE; /* placeholder */ } } if (isdigit(*nextptr)) { /* second form of "cf" command---includes scale */ float locscale; sscanf(nextptr, "%f", &locscale); newpart->type = FONT_SCALE; newpart->data.scale = locscale; makesegment(strhead, *strhead); newpart = *strhead; } newpart->type = FONT_NAME; newpart->data.font = j; } else { /* This exec isn't a known label function */ Wprintf("Error: unknown substring function"); newpart->type = NOLINE; /* placeholder */ } } /* Text substring is in parentheses: () */ else if (*segptr == '(') { if (fline == True) { newpart->type = NOLINE; makesegment(strhead, *strhead); newpart = *strhead; fline = False; } newpart->type = TEXT_STRING; newpart->data.string = (u_char *)malloc(1 + strlen(++segptr)); /* Copy string, translating octal codes into 8-bit characters */ parse_ps_string(segptr, newpart->data.string, strlen(segptr), TRUE, TRUE); } /* Parameterized substrings are denoted by parameter key. */ /* The parameter (default and/or substitution value) is */ /* assumed to exist. */ else { parse_ps_string(segptr, key, 99, FALSE, TRUE); if (strlen(key) > 0) { newpart->type = PARAM_START; newpart->data.string = (char *)malloc(1 + strlen(key)); strcpy(newpart->data.string, key); /* check for compatibility between the parameter value and */ /* the number of parameters and parameter type. */ ops = match_param(localdata, key); if (ops == NULL) { Fprintf(stderr, "readlabel() error: No such parameter %s!\n", key); deletestring(newpart, strhead, areawin->topinstance); } /* Fprintf(stdout, "Parameter %s called from object %s\n", */ /* key, localdata->name); */ } endptr = segptr + 1; while (!isspace(*endptr) && (*endptr != '\0')) endptr++; } segptr = endptr; } } /*--------------------------------------*/ /* skip over whitespace in string input */ /*--------------------------------------*/ char *skipwhitespace(char *lineptr) { char *locptr = lineptr; while (isspace(*locptr) && (*locptr != '\n') && (*locptr != '\0')) locptr++; return locptr; } /*-------------------------------------------*/ /* advance to the next token in string input */ /*-------------------------------------------*/ char *advancetoken(char *lineptr) { char *locptr = lineptr; while (!isspace(*locptr) && (*locptr != '\n') && (*locptr != '\0')) locptr++; while (isspace(*locptr) && (*locptr != '\n') && (*locptr != '\0')) locptr++; return locptr; } /*------------------------------------------------------*/ /* Read a parameter list for an object instance call. */ /* This uses the key-value dictionary method but also */ /* allows the "old style" in which each parameter */ /* was automatically assigned the key v1, v2, etc. */ /*------------------------------------------------------*/ void readparams(objectptr localdata, objinstptr newinst, objectptr libobj, char *buffer) { oparamptr newops, objops, fops; char *arrayptr, *endptr, *arraynext; int paramno = 0; char paramkey[100]; if ((arrayptr = strstr(buffer, "<<")) == NULL) if ((arrayptr = strchr(buffer, '[')) == NULL) return; endptr = find_delimiter(arrayptr); if (*arrayptr == '<') { arrayptr++; /* move to second '<' in "<<" */ endptr--; /* back up to first '>' in ">>" */ } /* move to next non-space token after opening bracket */ arrayptr++; while (isspace(*arrayptr) && *arrayptr != '\0') arrayptr++; while ((*arrayptr != '\0') && (arrayptr < endptr)) { newops = (oparamptr)malloc(sizeof(oparam)); /* Arrays contain values only. Dictionaries contain key:value pairs */ if (*endptr == '>') { /* dictionary type */ if (*arrayptr != '/') { Fprintf(stdout, "Error: Dictionary key is a literal, not a name\n"); } else arrayptr++; /* Skip PostScript name delimiter */ parse_ps_string(arrayptr, paramkey, 99, FALSE, TRUE); newops->key = (char *)malloc(1 + strlen(paramkey)); strcpy(newops->key, paramkey); arrayptr = advancetoken(arrayptr); } else { /* array type; keys are "v1", "v2", etc. */ paramno++; newops->key = (char *)malloc(6); sprintf(newops->key, "v%d", paramno); } /* Find matching parameter in object definition */ if (newinst) { objops = match_param(libobj, newops->key); if (objops == NULL) { Fprintf(stdout, "Error: parameter %s does not exist in object %s!\n", newops->key, libobj->name); free(newops->key); free(newops); return; } } /* Add to instance's parameter list */ /* If newinst is null, then the parameters are added to libobj */ newops->next = NULL; if (newinst) { /* Delete any parameters with duplicate names. This */ /* This may indicate an expression parameter that was */ /* precomputed while determining the bounding box. */ for (fops = newinst->params; fops != NULL; fops = fops->next) if (!strcmp(fops->key, newops->key)) if ((fops = free_instance_param(newinst, fops)) == NULL) break; if (newinst->params == NULL) newinst->params = newops; else { for (fops = newinst->params; fops->next != NULL; fops = fops->next); fops->next = newops; } } else { if (libobj->params == NULL) libobj->params = newops; else { for (fops = libobj->params; fops->next != NULL; fops = fops->next); fops->next = newops; } } /* Fill in "which" entry from the object default */ newops->which = (newinst) ? objops->which : 0; /* Check next token. If not either end-of-dictionary or */ /* the next parameter key, then value is an expression. */ /* Expressions are written as two strings, the first the */ /* result of evaluting the expression, and the second the */ /* expression itself, followed by "pop" to prevent the */ /* PostScript interpreter from trying to evaluate the */ /* expression (which is not in PostScript). */ if (*arrayptr == '(' || *arrayptr == '{') arraynext = find_delimiter(arrayptr); else arraynext = arrayptr; arraynext = advancetoken(arraynext); if ((*endptr == '>') && (arraynext < endptr) && (*arraynext != '/')) { char *substrend, *arraysave; if (*arraynext == '(' || *arraynext == '{') { substrend = find_delimiter(arraynext); arraysave = arraynext + 1; arraynext = advancetoken(substrend); newops->type = (u_char)XC_EXPR; newops->which = P_EXPRESSION; /* placeholder */ } if (strncmp(arraynext, "pop ", 4)) { Wprintf("Error: bad expression parameter!\n"); #ifdef TCL_WRAPPER newops->parameter.expr = strdup("expr 0"); #else newops->parameter.expr = strdup("0"); #endif arrayptr = advancetoken(arrayptr); } else { *substrend = '\0'; newops->parameter.expr = strdup(arraysave); arrayptr = advancetoken(arraynext); } } else if (*arrayptr == '(' || *arrayptr == '{') { float r, g, b; char *substrend, csave; stringpart *endpart; /* type XC_STRING */ substrend = find_delimiter(arrayptr); csave = *(++substrend); *substrend = '\0'; if (*arrayptr == '{') arrayptr++; /* A numerical value immediately following the opening */ /* brace indicates a color parameter. */ if (sscanf(arrayptr, "%f %f %f", &r, &g, &b) == 3) { newops->type = (u_char)XC_INT; newops->which = P_COLOR; newops->parameter.ivalue = rgb_alloccolor((int)(r * 65535), (int)(g * 65535), (int)(b * 65535)); *substrend = csave; } else { char *arraytmp = arrayptr; char linkdefault[5] = "(%n)"; newops->type = (u_char)XC_STRING; newops->which = P_SUBSTRING; newops->parameter.string = NULL; /* Quick check for "link" parameter: make object name into "%n" */ if (!strcmp(newops->key, "link")) if (!strncmp(arrayptr + 1, libobj->name, strlen(libobj->name)) && !strcmp(arrayptr + strlen(libobj->name) + 1, ")")) arraytmp = linkdefault; readlabel(libobj, arraytmp, &(newops->parameter.string)); *substrend = csave; /* Append a PARAM_END to the parameter string */ endpart = makesegment(&(newops->parameter.string), NULL); endpart->type = PARAM_END; endpart->data.string = (u_char *)NULL; } arrayptr = substrend; while (isspace(*arrayptr) && *arrayptr != '\0') arrayptr++; } else { /* char *token; (jdk) */ int scanned = 0; /* type XC_FLOAT or XC_INT, or an indirect reference */ newops->type = (newinst) ? objops->type : (u_char)XC_FLOAT; if (newops->type == XC_FLOAT) { scanned = sscanf(arrayptr, "%f", &(newops->parameter.fvalue)); /* Fprintf(stdout, "Object %s called with parameter " "%s value %g\n", libobj->name, newops->key, newops->parameter.fvalue); */ } else if (newops->type == XC_INT) { scanned = sscanf(arrayptr, "%d", &(newops->parameter.ivalue)); /* Fprintf(stdout, "Object %s called with parameter " "%s value %d\n", libobj->name, newops->key, newops->parameter.ivalue); */ } else if (newops->type == XC_EXPR) { /* Instance values of parameters hold the last evaluated */ /* result and will be regenerated, so we can ignore them */ /* here. By ignoring it, we don't have to deal with issues */ /* like type promotion. */ free_instance_param(newinst, newops); scanned = 1; /* avoid treating as an indirect ref */ } else if (newops->type == XC_STRING) { /* Fill string record, so we have a valid record. This will */ /* be blown away and replaced by opsubstitute(), but it must */ /* have an initial valid entry. */ stringpart *tmpptr; newops->parameter.string = NULL; tmpptr = makesegment(&newops->parameter.string, NULL); tmpptr->type = TEXT_STRING; tmpptr = makesegment(&newops->parameter.string, NULL); tmpptr->type = PARAM_END; } else { Fprintf(stderr, "Error: unknown parameter type!\n"); } if (scanned == 0) { /* Indirect reference --- create an eparam in the instance */ parse_ps_string(arrayptr, paramkey, 99, FALSE, TRUE); if (!newinst || !localdata) { /* Only object instances can use indirect references */ Fprintf(stderr, "Error: parameter default %s cannot " "be parsed!\n", paramkey); } else if (match_param(localdata, paramkey) == NULL) { /* Reference key must exist in the calling object */ Fprintf(stderr, "Error: parameter value %s cannot be parsed!\n", paramkey); } else { /* Create an eparam record in the instance */ eparamptr newepp = make_new_eparam(paramkey); newepp->flags |= P_INDIRECT; newepp->pdata.refkey = strdup(newops->key); newepp->next = newinst->passed; newinst->passed = newepp; } } arrayptr = advancetoken(arrayptr); } } /* Calculate the unique bounding box for the instance */ if (newinst && (newinst->params != NULL)) { opsubstitute(libobj, newinst); calcbboxinst(newinst); } } /*--------------------------------------------------------------*/ /* Read a value which might be a short integer or a parameter. */ /* If the value is a parameter, check the parameter list to see */ /* if it needs to be re-typecast. Return the position to the */ /* next token in "lineptr". */ /*--------------------------------------------------------------*/ char *varpscan(objectptr localdata, char *lineptr, short *hvalue, genericptr thiselem, int pointno, int offset, u_char which) { oparamptr ops = NULL; char key[100]; /* char *nexttok; (jdk) */ eparamptr newepp; if (sscanf(lineptr, "%hd", hvalue) != 1) { parse_ps_string(lineptr, key, 99, FALSE, TRUE); ops = match_param(localdata, key); newepp = make_new_eparam(key); /* Add parameter to the linked list */ newepp->next = thiselem->passed; thiselem->passed = newepp; newepp->pdata.pointno = pointno; if (ops != NULL) { /* It cannot be known whether a parameter value is a float or int */ /* until we see how the parameter is used. So we always read the */ /* parameter default as a float, and re-typecast it if necessary. */ if (ops->type == XC_FLOAT) { ops->type = XC_INT; /* (add 0.1 to avoid roundoff error in conversion to integer) */ ops->parameter.ivalue = (int)(ops->parameter.fvalue + ((ops->parameter.fvalue < 0) ? -0.1 : 0.1)); } ops->which = which; *hvalue = (short)ops->parameter.ivalue; } else { *hvalue = 0; /* okay; will get filled in later */ Fprintf(stderr, "Error: parameter %s was used but not defined!\n", key); } } *hvalue -= (short)offset; return advancetoken(skipwhitespace(lineptr)); } /*--------------------------------------------------------------*/ /* Read a value which might be a short integer or a parameter, */ /* but which is not a point in a pointlist. */ /*--------------------------------------------------------------*/ char *varscan(objectptr localdata, char *lineptr, short *hvalue, genericptr thiselem, u_char which) { return varpscan(localdata, lineptr, hvalue, thiselem, 0, 0, which); } /*--------------------------------------------------------------*/ /* Read a value which might be a float or a parameter. */ /* Return the position to the next token in "lineptr". */ /*--------------------------------------------------------------*/ char *varfscan(objectptr localdata, char *lineptr, float *fvalue, genericptr thiselem, u_char which) { oparamptr ops = NULL; eparamptr newepp; char key[100]; if (sscanf(lineptr, "%f", fvalue) != 1) { parse_ps_string(lineptr, key, 99, FALSE, TRUE); /* This bit of a hack takes care of scale-variant */ /* linewidth specifiers for object instances. */ if (!strncmp(key, "/sv", 3)) { ((objinstptr)thiselem)->style &= ~LINE_INVARIANT; return varfscan(localdata, advancetoken(skipwhitespace(lineptr)), fvalue, thiselem, which); } ops = match_param(localdata, key); newepp = make_new_eparam(key); /* Add parameter to the linked list */ newepp->next = thiselem->passed; thiselem->passed = newepp; if (ops != NULL) { ops->which = which; *fvalue = ops->parameter.fvalue; } else Fprintf(stderr, "Error: no parameter \"%s\" defined!\n", key); } /* advance to next token */ return advancetoken(skipwhitespace(lineptr)); } /*--------------------------------------------------------------*/ /* Same as varpscan(), but for path types only. */ /*--------------------------------------------------------------*/ char *varpathscan(objectptr localdata, char *lineptr, short *hvalue, genericptr *thiselem, pathptr thispath, int pointno, int offset, u_char which, eparamptr *nepptr) { oparamptr ops = NULL; char key[100]; eparamptr newepp; if (nepptr != NULL) *nepptr = NULL; if (sscanf(lineptr, "%hd", hvalue) != 1) { parse_ps_string(lineptr, key, 99, FALSE, TRUE); ops = match_param(localdata, key); newepp = make_new_eparam(key); newepp->pdata.pathpt[1] = pointno; if (thiselem == NULL) newepp->pdata.pathpt[0] = (short)0; else { short elemidx = (short)(thiselem - thispath->plist); if (elemidx >= 0 && elemidx < thispath->parts) newepp->pdata.pathpt[0] = (short)(thiselem - thispath->plist); else { Fprintf(stderr, "Error: Bad parameterized path point!\n"); free(newepp); goto pathdone; } } if (nepptr != NULL) *nepptr = newepp; /* Add parameter to the linked list. */ newepp->next = thispath->passed; thispath->passed = newepp; if (ops != NULL) { /* It cannot be known whether a parameter value is a float or int */ /* until we see how the parameter is used. So we always read the */ /* parameter default as a float, and re-typecast it if necessary. */ if (ops->type == XC_FLOAT) { ops->type = XC_INT; /* (add 0.1 to avoid roundoff error in conversion to integer) */ ops->parameter.ivalue = (int)(ops->parameter.fvalue + ((ops->parameter.fvalue < 0) ? -0.1 : 0.1)); } ops->which = which; *hvalue = (short)ops->parameter.ivalue; } else { *hvalue = 0; /* okay; will get filled in later */ Fprintf(stderr, "Error: parameter %s was used but not defined!\n", key); } } pathdone: *hvalue -= (short)offset; return advancetoken(skipwhitespace(lineptr)); } /*--------------------------------------------------------------*/ /* Create a new instance of an object in the library's list of */ /* instances. This instance will be used on the library page */ /* when doing "composelib()". */ /*--------------------------------------------------------------*/ objinstptr addtoinstlist(int libnum, objectptr libobj, Boolean virtual) { objinstptr newinst = (objinstptr) malloc(sizeof(objinst)); liblistptr spec = (liblistptr) malloc(sizeof(liblist)); liblistptr srch; newinst->type = OBJINST; instancedefaults(newinst, libobj, 0, 0); spec->virtual = (u_char)virtual; spec->thisinst = newinst; spec->next = NULL; /* Add to end, so that duplicate, parameterized instances */ /* always come after the original instance with the default */ /* parameters. */ if ((srch = xobjs.userlibs[libnum].instlist) == NULL) xobjs.userlibs[libnum].instlist = spec; else { while (srch->next != NULL) srch = srch->next; srch->next = spec; } /* Calculate the instance-specific bounding box */ calcbboxinst(newinst); return newinst; } /*--------------------------------------------------------------*/ /* Deal with object reads: Create a new object and prepare for */ /* reading. The library number is passed as "mode". */ /*--------------------------------------------------------------*/ objectptr *new_library_object(short mode, char *name, objlistptr *retlist, TechPtr defaulttech) { objlistptr newdef, redef = NULL; objectptr *newobject, *libobj; objectptr *curlib = (mode == FONTLIB) ? xobjs.fontlib.library : xobjs.userlibs[mode - LIBRARY].library; short *libobjects = (mode == FONTLIB) ? &xobjs.fontlib.number : &xobjs.userlibs[mode - LIBRARY].number; int i, j; char *nsptr, *fullname = name; curlib = (objectptr *) realloc(curlib, (*libobjects + 1) * sizeof(objectptr)); if (mode == FONTLIB) xobjs.fontlib.library = curlib; else xobjs.userlibs[mode - LIBRARY].library = curlib; /* For (older) libraries that do not use technologies, give the */ /* object a technology name in the form :: */ if ((nsptr = strstr(name, "::")) == NULL) { int deftechlen = (defaulttech == NULL) ? 0 : strlen(defaulttech->technology); fullname = (char *)malloc(deftechlen + strlen(name) + 3); if (defaulttech == NULL) sprintf(fullname, "::%s", name); else sprintf(fullname, "%s::%s", defaulttech->technology, name); } /* initial 1-pointer allocations */ newobject = curlib + (*libobjects); *newobject = (objectptr) malloc(sizeof(object)); initmem(*newobject); /* check that this object is not already in list of objects */ if (mode == FONTLIB) { for (libobj = xobjs.fontlib.library; libobj != xobjs.fontlib.library + xobjs.fontlib.number; libobj++) { /* This font character may be a redefinition of another */ if (!objnamecmp(fullname, (*libobj)->name)) { newdef = (objlistptr) malloc(sizeof(objlist)); newdef->libno = FONTLIB; newdef->thisobject = *libobj; newdef->next = redef; redef = newdef; } } } else { for (i = 0; i < xobjs.numlibs; i++) { for (j = 0; j < xobjs.userlibs[i].number; j++) { libobj = xobjs.userlibs[i].library + j; /* This object may be a redefinition of another object */ if (!objnamecmp(fullname, (*libobj)->name)) { newdef = (objlistptr) malloc(sizeof(objlist)); newdef->libno = i + LIBRARY; newdef->thisobject = *libobj; newdef->next = redef; redef = newdef; } } } } (*libobjects)++; sprintf((*newobject)->name, "%s", fullname); if (fullname != name) free(fullname); /* initmem() initialized schemtype to PRIMARY; change it. */ (*newobject)->schemtype = (mode == FONTLIB) ? GLYPH : SYMBOL; /* If the object declares a technology name that is different from the */ /* default, then add the technology name to the list of technologies, */ /* with a NULL filename. */ if (mode != FONTLIB) AddObjectTechnology(*newobject); *retlist = redef; return newobject; } /*--------------------------------------------------------------*/ /* do an exhaustive comparison between a new object and any */ /* object having the same name. If they are the same, destroy */ /* the duplicate. If different, rename the original one. */ /*--------------------------------------------------------------*/ Boolean library_object_unique(short mode, objectptr newobject, objlistptr redef) { Boolean is_unique = True; objlistptr newdef; short *libobjects = (mode == FONTLIB) ? &xobjs.fontlib.number : &xobjs.userlibs[mode - LIBRARY].number; if (redef == NULL) return is_unique; /* No name conflicts; object is okay as-is */ for (newdef = redef; newdef != NULL; newdef = newdef->next) { /* Must make sure that default parameter values are */ /* plugged into both objects! */ opsubstitute(newdef->thisobject, NULL); opsubstitute(newobject, NULL); if (objcompare(newobject, newdef->thisobject) == True) { addalias(newdef->thisobject, newobject->name); /* If the new object has declared an association to a */ /* schematic, transfer it to the original, and make */ /* sure that the page points to the object which will */ /* be left, not the one which will be destroyed. */ if (newobject->symschem != NULL) { newdef->thisobject->symschem = newobject->symschem; newdef->thisobject->symschem->symschem = newdef->thisobject; } reset(newobject, DESTROY); (*libobjects)--; is_unique = False; break; } /* Not the same object, but has the same name. This can't */ /* happen within the same input file, so the name of the */ /* original object can safely be altered. */ else if (!strcmp(newobject->name, newdef->thisobject->name)) { /* Replacement---for project management, allow the technology */ /* master version to take precedence over a local version. */ TechPtr nsptr = GetObjectTechnology(newobject); if (nsptr && (nsptr->flags & TECH_REPLACE)) { reset(newobject, DESTROY); (*libobjects)--; is_unique = False; } else checkname(newdef->thisobject); break; } } for (; (newdef = redef->next); redef = newdef) free(redef); free(redef); return is_unique; } /*--------------------------------------------------------------*/ /* Add an instance of the object to the library's instance list */ /*--------------------------------------------------------------*/ void add_object_to_library(short mode, objectptr newobject) { objinstptr libinst; if (mode == FONTLIB) return; libinst = addtoinstlist(mode - LIBRARY, newobject, False); calcbboxvalues(libinst, (genericptr *)NULL); /* Center the view of the object in its instance */ centerview(libinst); } /*--------------------------------------------------------------*/ /* Continuation Line --- add memory to "buffer" as necessary. */ /* Add a space character to the current text in "buffer" and */ /* return a pointer to the new end-of-text. */ /*--------------------------------------------------------------*/ char *continueline(char **buffer) { char *lineptr; int bufsize; for (lineptr = *buffer; (*lineptr != '\n') && (*lineptr != '\0'); lineptr++); /* Repair Windoze-mangled files */ if ((lineptr > *buffer) && (*lineptr == '\n') && (*(lineptr - 1) == '\r')) *(lineptr - 1) = ' '; if (*lineptr == '\n') *lineptr++ = ' '; bufsize = (int)(lineptr - (*buffer)) + 256; *buffer = (char *)realloc((*buffer), bufsize * sizeof(char)); return ((*buffer) + (bufsize - 256)); } /*--------------------------------------------------------------*/ /* Read image data out of the Setup block of the input */ /* We assume that width and height have been parsed from the */ /* "imagedata" line and the file pointer is at the next line. */ /*--------------------------------------------------------------*/ void readimagedata(FILE *ps, int width, int height) { char temp[150], ascbuf[6]; int x, y, p, q, r, g, b, ilen; char *pptr; Imagedata *iptr; Boolean do_flate = False, do_ascii = False; u_char *filtbuf, *flatebuf; union { u_char b[4]; u_long i; } pixel; iptr = addnewimage(NULL, width, height); /* Read the image data */ fgets(temp, 149, ps); if (strstr(temp, "ASCII85Decode") != NULL) do_ascii = TRUE; #ifdef HAVE_LIBZ if (strstr(temp, "FlateDecode") != NULL) do_flate = TRUE; #else if (strstr(temp, "FlateDecode") != NULL) Fprintf(stderr, "Error: Don't know how to Flate decode!" " Get zlib and recompile xcircuit!\n"); #endif while (strstr(temp, "ReusableStreamDecode") == NULL) fgets(temp, 149, ps); /* Additional piped filter lines */ fgets(temp, 149, ps); /* Initial data line */ q = 0; pptr = temp; ilen = 3 * width * height; filtbuf = (u_char *)malloc(ilen + 4); if (!do_ascii) { /* ASCIIHexDecode algorithm */ q = 0; for (y = 0; y < height; y++) { for (x = 0; x < width; x++) { sscanf(pptr, "%02x%02x%02x", &r, &g, &b); filtbuf[q++] = (u_char)r; filtbuf[q++] = (u_char)g; filtbuf[q++] = (u_char)b; pptr += 6; if (*pptr == '\n') { fgets(temp, 149, ps); pptr = temp; } } } } else { /* ASCII85Decode algorithm */ p = 0; while (1) { ascbuf[0] = *pptr; pptr++; if (ascbuf[0] == '~') break; else if (ascbuf[0] == 'z') { for (y = 0; y < 5; y++) ascbuf[y] = '\0'; } else { for (y = 1; y < 5; y++) { if (*pptr == '\n') { fgets(temp, 149, ps); pptr = temp; } ascbuf[y] = *pptr; if (ascbuf[y] == '~') { for (; y < 5; y++) { ascbuf[y] = '!'; p++; } break; } else pptr++; } for (y = 0; y < 5; y++) ascbuf[y] -= '!'; } if (*pptr == '\n') { fgets(temp, 149, ps); pptr = temp; } /* Decode from ASCII85 to binary */ pixel.i = ascbuf[4] + ascbuf[3] * 85 + ascbuf[2] * 7225 + ascbuf[1] * 614125 + ascbuf[0] * 52200625; /* Add in roundoff for final bytes */ if (p > 0) { switch (p) { case 3: pixel.i += 0xff0000; case 2: pixel.i += 0xff00; case 1: pixel.i += 0xff; } } for (y = 0; y < (4 - p); y++) { filtbuf[q + y] = pixel.b[3 - y]; } q += (4 - p); if (q >= ilen) break; } } /* Extra decoding goes here */ #ifdef HAVE_LIBZ if (do_flate) { flatebuf = (char *)malloc(ilen); large_inflate(filtbuf, q, &flatebuf, ilen); free(filtbuf); } else #endif flatebuf = filtbuf; q = 0; for (y = 0; y < height; y++) for (x = 0; x < width; x++) { u_char r, g, b; r = flatebuf[q++]; g = flatebuf[q++]; b = flatebuf[q++]; xcImagePutPixel(iptr->image, x, y, r, g, b); } free(flatebuf); fgets(temp, 149, ps); /* definition line */ fgets(temp, 149, ps); /* pick up name of image from here */ for (pptr = temp; !isspace(*pptr); pptr++); *pptr = '\0'; iptr->filename = strdup(temp + 1); for (x = 0; x < 5; x++) fgets(temp, 149, ps); /* skip image dictionary */ } /*--------------------------------------------------------------*/ /* Read an object (page) from a file into xcircuit */ /*--------------------------------------------------------------*/ Boolean objectread(FILE *ps, objectptr localdata, short offx, short offy, short mode, char *retstr, int ccolor, TechPtr defaulttech) { char *temp, *buffer, keyword[80]; short tmpfont = -1; float tmpscale = 0.0; objectptr *libobj; int curcolor = ccolor; char *colorkey = NULL; char *widthkey = NULL; int i, j, k; short px, py; objinstptr *newinst; eparamptr epptrx, epptry; /* used for paths only */ /* path-handling variables */ pathptr *newpath; XPoint startpoint; keyword[0] = '\0'; buffer = (char *)malloc(256 * sizeof(char)); temp = buffer; for(;;) { char *lineptr, *keyptr, *saveptr; if (fgets(temp, 255, ps) == NULL) { if (strcmp(keyword, "restore")) { Wprintf("Error: end of file."); *retstr = '\0'; } break; } temp = buffer; /* because PostScript is a stack language, we will scan from the end */ for (lineptr = buffer; (*lineptr != '\n') && (*lineptr != '\0'); lineptr++); /* Avoid CR-LF at EOL added by stupid Windoze programs */ if ((lineptr > buffer) && *(lineptr - 1) == '\r') lineptr--; if (lineptr != buffer) { /* ignore any blank lines */ for (keyptr = lineptr - 1; isspace(*keyptr) && keyptr != buffer; keyptr--); for (; !isspace(*keyptr) && keyptr != buffer; keyptr--); sscanf(keyptr, "%79s", keyword); if (!strcmp(keyword, "showpage")) { strncpy(retstr, buffer, 150); retstr[149] = '\0'; free(buffer); /* If we have just read a schematic that is attached */ /* to a symbol, check all of the pin labels in the symbol */ /* to see if they correspond to pin names in the schematic. */ /* The other way around (pin in schematic with no */ /* corresponding name in the symbol) is not an error. */ if (localdata->symschem != NULL) { genericptr *pgen, *lgen; labelptr plab, lcmp; for (pgen = localdata->symschem->plist; pgen < localdata-> symschem->plist + localdata->symschem->parts; pgen++) { if (IS_LABEL(*pgen)) { plab = TOLABEL(pgen); if (plab->pin == LOCAL) { for (lgen = localdata->plist; lgen < localdata->plist + localdata->parts; lgen++) { if (IS_LABEL(*lgen)) { lcmp = TOLABEL(lgen); if (lcmp->pin == LOCAL) if (!stringcomprelaxed(lcmp->string, plab->string, areawin->topinstance)) break; } } if (lgen == localdata->plist + localdata->parts) { char *cptr, *d1ptr, *d2ptr; char *pch = textprint(plab->string, areawin->topinstance); /* Check for likely delimiters before applying warning */ if ((cptr = strchr(pch, ':')) != NULL) { d1ptr = strchr(pch, '['); d2ptr = strchr(pch, ']'); if (d1ptr != NULL && d2ptr != NULL && d1ptr < cptr && d2ptr > cptr) { if (areawin->buschar != '[') { areawin->buschar = '['; Fprintf(stderr, "Warning: Bus character \'[\'" " apparently used but not declared.\n"); } } d1ptr = strchr(pch, '{'); d2ptr = strchr(pch, '}'); if (d1ptr != NULL && d2ptr != NULL && d1ptr < cptr && d2ptr > cptr) { if (areawin->buschar != '{') { areawin->buschar = '{'; Fprintf(stderr, "Warning: Bus character \'{\'" " apparently used in pin \"%s\"" " but not declared.\n", pch); } } d1ptr = strchr(pch, '<'); d2ptr = strchr(pch, '>'); if (d1ptr != NULL && d2ptr != NULL && d1ptr < cptr && d2ptr > cptr) { if (areawin->buschar != '<') { areawin->buschar = '<'; Fprintf(stderr, "Warning: Bus character \'<\'" " apparently used in pin \"%s\"" " but not declared.\n", pch); } } d1ptr = strchr(pch, '('); d2ptr = strchr(pch, ')'); if (d1ptr != NULL && d2ptr != NULL && d1ptr < cptr && d2ptr > cptr) { if (areawin->buschar != '(') { areawin->buschar = '('; Fprintf(stderr, "Warning: Bus character \'(\'" " apparently used in pin \"%s\"" " but not declared.\n", pch); } } } else Fprintf(stderr, "Warning: Unattached pin \"%s\" in " "symbol %s\n", pch, localdata->symschem->name); free(pch); } } } } } return False; /* end of page */ } /* make a color change, adding the color if necessary */ else if (!strcmp(keyword, "scb")) { float red, green, blue; if (sscanf(buffer, "%f %f %f", &red, &green, &blue) == 3) { curcolor = rgb_alloccolor((int)(red * 65535), (int)(green * 65535), (int)(blue * 65535)); colorkey = NULL; } else { char tmpkey[30]; oparamptr ops; parse_ps_string(buffer, tmpkey, 29, FALSE, TRUE); ops = match_param(localdata, tmpkey); if (ops != NULL) { /* Recast expression parameter, if necessary */ if (ops->which == P_EXPRESSION) ops->which = P_COLOR; if (ops->which == P_COLOR) { colorkey = ops->key; switch (ops->type) { case XC_INT: curcolor = ops->parameter.ivalue; break; default: curcolor = DEFAULTCOLOR; /* placeholder */ break; } } } } } /* end the color change, returning to default */ else if (!strcmp(keyword, "sce")) { curcolor = ccolor; colorkey = NULL; } /* begin a path constructor */ else if (!strcmp(keyword, "beginpath")) { px = py = 0; NEW_PATH(newpath, localdata); (*newpath)->plist = (genericptr *)malloc(sizeof(genericptr)); (*newpath)->parts = 0; (*newpath)->color = curcolor; (*newpath)->passed = NULL; for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* check for "addtox" and "addtoy" parameter specification */ while (!strncmp(keyptr + 1, "addto", 5)) { saveptr = keyptr + 1; for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* Get parameter and its value */ if (*(saveptr + 5) == 'x') varpscan(localdata, keyptr + 1, &px, (genericptr)*newpath, -1, offx, P_POSITION_X); else varpscan(localdata, keyptr + 1, &py, (genericptr)*newpath, -1, offy, P_POSITION_Y); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); } lineptr = varpathscan(localdata, buffer, &startpoint.x, (genericptr *)NULL, *newpath, 0, offx + px, P_POSITION_X, &epptrx); lineptr = varpathscan(localdata, lineptr, &startpoint.y, (genericptr *)NULL, *newpath, 0, offy + py, P_POSITION_Y, &epptry); std_eparam((genericptr)(*newpath), colorkey); } /* end the path constructor */ else if (!strcmp(keyword, "endpath")) { lineptr = varscan(localdata, buffer, &(*newpath)->style, (genericptr)*newpath, P_STYLE); lineptr = varfscan(localdata, lineptr, &(*newpath)->width, (genericptr)*newpath, P_LINEWIDTH); if ((*newpath)->parts <= 0) { /* in case of an empty path */ free((*newpath)->plist); free(*newpath); localdata->parts--; } newpath = NULL; } /* read path parts */ else if (!strcmp(keyword, "polyc")) { polyptr *newpoly; pointlist newpoints; short tmpnum; px = py = 0; NEW_POLY(newpoly, (*newpath)); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* check for "addtox" and "addtoy" parameter specification */ while (!strncmp(keyptr + 1, "addto", 5)) { saveptr = keyptr + 1; for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* Get parameter and its value */ if (*(saveptr + 5) == 'x') varpscan(localdata, keyptr + 1, &px, (genericptr)*newpoly, -1, offx, P_POSITION_X); else varpscan(localdata, keyptr + 1, &py, (genericptr)*newpoly, -1, offy, P_POSITION_Y); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); } sscanf(keyptr, "%hd", &tmpnum); (*newpoly)->number = tmpnum + 1; (*newpoly)->width = 1.0; (*newpoly)->style = UNCLOSED; (*newpoly)->color = curcolor; (*newpoly)->passed = NULL; (*newpoly)->cycle = NULL; (*newpoly)->points = (pointlist) malloc((*newpoly)->number * sizeof(XPoint)); /* If the last point on the last path part was parameterized, then */ /* the first point of the spline must be, too. */ if (epptrx != NULL) { eparamptr newepp = copyeparam(epptrx, (genericptr)(*newpath)); newepp->next = (*newpath)->passed; (*newpath)->passed = newepp; newepp->pdata.pathpt[1] = 0; newepp->pdata.pathpt[0] = (*newpath)->parts - 1; } if (epptry != NULL) { eparamptr newepp = copyeparam(epptry, (genericptr)(*newpath)); newepp->next = (*newpath)->passed; (*newpath)->passed = newepp; newepp->pdata.pathpt[1] = 0; newepp->pdata.pathpt[0] = (*newpath)->parts - 1; } lineptr = buffer; newpoints = (*newpoly)->points + (*newpoly)->number - 1; lineptr = varpathscan(localdata, lineptr, &newpoints->x, (genericptr *)newpoly, *newpath, newpoints - (*newpoly)->points, offx + px, P_POSITION_X, &epptrx); lineptr = varpathscan(localdata, lineptr, &newpoints->y, (genericptr *)newpoly, *newpath, newpoints - (*newpoly)->points, offy + py, P_POSITION_Y, &epptry); for (--newpoints; newpoints > (*newpoly)->points; newpoints--) { lineptr = varpathscan(localdata, lineptr, &newpoints->x, (genericptr *)newpoly, *newpath, newpoints - (*newpoly)->points, offx + px, P_POSITION_X, NULL); lineptr = varpathscan(localdata, lineptr, &newpoints->y, (genericptr *)newpoly, *newpath, newpoints - (*newpoly)->points, offy + py, P_POSITION_Y, NULL); } newpoints->x = startpoint.x; newpoints->y = startpoint.y; startpoint.x = (newpoints + (*newpoly)->number - 1)->x; startpoint.y = (newpoints + (*newpoly)->number - 1)->y; } else if (!strcmp(keyword, "arc") || !strcmp(keyword, "arcn")) { arcptr *newarc; NEW_ARC(newarc, (*newpath)); (*newarc)->width = 1.0; (*newarc)->style = UNCLOSED; (*newarc)->color = curcolor; (*newarc)->passed = NULL; (*newarc)->cycle = NULL; lineptr = varpscan(localdata, buffer, &(*newarc)->position.x, (genericptr)*newarc, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newarc)->position.y, (genericptr)*newarc, 0, offy, P_POSITION_Y); lineptr = varscan(localdata, lineptr, &(*newarc)->radius, (genericptr)*newarc, P_RADIUS); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle1, (genericptr)*newarc, P_ANGLE1); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle2, (genericptr)*newarc, P_ANGLE2); (*newarc)->yaxis = (*newarc)->radius; if (!strcmp(keyword, "arcn")) { float tmpang = (*newarc)->angle1; (*newarc)->radius = -((*newarc)->radius); (*newarc)->angle1 = (*newarc)->angle2; (*newarc)->angle2 = tmpang; } calcarc(*newarc); startpoint.x = (short)(*newarc)->points[(*newarc)->number - 1].x; startpoint.y = (short)(*newarc)->points[(*newarc)->number - 1].y; decomposearc(*newpath); } else if (!strcmp(keyword, "pellip") || !strcmp(keyword, "nellip")) { arcptr *newarc; NEW_ARC(newarc, (*newpath)); (*newarc)->width = 1.0; (*newarc)->style = UNCLOSED; (*newarc)->color = curcolor; (*newarc)->passed = NULL; (*newarc)->cycle = NULL; lineptr = varpscan(localdata, buffer, &(*newarc)->position.x, (genericptr)*newarc, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newarc)->position.y, (genericptr)*newarc, 0, offy, P_POSITION_Y); lineptr = varscan(localdata, lineptr, &(*newarc)->radius, (genericptr)*newarc, P_RADIUS); lineptr = varscan(localdata, lineptr, &(*newarc)->yaxis, (genericptr)*newarc, P_MINOR_AXIS); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle1, (genericptr)*newarc, P_ANGLE1); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle2, (genericptr)*newarc, P_ANGLE2); if (!strcmp(keyword, "nellip")) { float tmpang = (*newarc)->angle1; (*newarc)->radius = -((*newarc)->radius); (*newarc)->angle1 = (*newarc)->angle2; (*newarc)->angle2 = tmpang; } calcarc(*newarc); startpoint.x = (short)(*newarc)->points[(*newarc)->number - 1].x; startpoint.y = (short)(*newarc)->points[(*newarc)->number - 1].y; decomposearc(*newpath); } else if (!strcmp(keyword, "curveto")) { splineptr *newspline; px = py = 0; NEW_SPLINE(newspline, (*newpath)); (*newspline)->passed = NULL; (*newspline)->cycle = NULL; (*newspline)->width = 1.0; (*newspline)->style = UNCLOSED; (*newspline)->color = curcolor; /* If the last point on the last path part was parameterized, then */ /* the first point of the spline must be, too. */ if (epptrx != NULL) { eparamptr newepp = copyeparam(epptrx, (genericptr)(*newpath)); newepp->next = (*newpath)->passed; (*newpath)->passed = newepp; newepp->pdata.pathpt[1] = 0; newepp->pdata.pathpt[0] = (*newpath)->parts - 1; } if (epptry != NULL) { eparamptr newepp = copyeparam(epptry, (genericptr)(*newpath)); newepp->next = (*newpath)->passed; (*newpath)->passed = newepp; newepp->pdata.pathpt[1] = 0; newepp->pdata.pathpt[0] = (*newpath)->parts - 1; } for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* check for "addtox" and "addtoy" parameter specification */ while (!strncmp(keyptr + 1, "addto", 5)) { saveptr = keyptr + 1; for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* Get parameter and its value */ if (*(saveptr + 5) == 'x') varpscan(localdata, keyptr + 1, &px, (genericptr)*newspline, -1, offx, P_POSITION_X); else varpscan(localdata, keyptr + 1, &py, (genericptr)*newspline, -1, offy, P_POSITION_Y); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); } lineptr = varpathscan(localdata, buffer, &(*newspline)->ctrl[1].x, (genericptr *)newspline, *newpath, 1, offx + px, P_POSITION_X, NULL); lineptr = varpathscan(localdata, lineptr, &(*newspline)->ctrl[1].y, (genericptr *)newspline, *newpath, 1, offy + py, P_POSITION_Y, NULL); lineptr = varpathscan(localdata, lineptr, &(*newspline)->ctrl[2].x, (genericptr *)newspline, *newpath, 2, offx + px, P_POSITION_X, NULL); lineptr = varpathscan(localdata, lineptr, &(*newspline)->ctrl[2].y, (genericptr *)newspline, *newpath, 2, offy + py, P_POSITION_Y, NULL); lineptr = varpathscan(localdata, lineptr, &(*newspline)->ctrl[3].x, (genericptr *)newspline, *newpath, 3, offx + px, P_POSITION_X, &epptrx); lineptr = varpathscan(localdata, lineptr, &(*newspline)->ctrl[3].y, (genericptr *)newspline, *newpath, 3, offy + py, P_POSITION_Y, &epptry); (*newspline)->ctrl[0].x = startpoint.x; (*newspline)->ctrl[0].y = startpoint.y; calcspline(*newspline); startpoint.x = (*newspline)->ctrl[3].x; startpoint.y = (*newspline)->ctrl[3].y; } /* read arcs */ else if (!strcmp(keyword, "xcarc")) { arcptr *newarc; NEW_ARC(newarc, localdata); (*newarc)->color = curcolor; (*newarc)->passed = NULL; (*newarc)->cycle = NULL; /* backward compatibility */ if (version < 1.5) { sscanf(buffer, "%hd %hd %hd %f %f %f %hd", &(*newarc)->position.x, &(*newarc)->position.y, &(*newarc)->radius, &(*newarc)->angle1, &(*newarc)->angle2, &(*newarc)->width, &(*newarc)->style); (*newarc)->position.x -= offx; (*newarc)->position.y -= offy; } else { lineptr = varscan(localdata, buffer, &(*newarc)->style, (genericptr)*newarc, P_STYLE); lineptr = varfscan(localdata, lineptr, &(*newarc)->width, (genericptr)*newarc, P_LINEWIDTH); lineptr = varpscan(localdata, lineptr, &(*newarc)->position.x, (genericptr)*newarc, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newarc)->position.y, (genericptr)*newarc, 0, offy, P_POSITION_Y); lineptr = varscan(localdata, lineptr, &(*newarc)->radius, (genericptr)*newarc, P_RADIUS); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle1, (genericptr)*newarc, P_ANGLE1); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle2, (genericptr)*newarc, P_ANGLE2); } (*newarc)->yaxis = (*newarc)->radius; calcarc(*newarc); std_eparam((genericptr)(*newarc), colorkey); } /* read ellipses */ else if (!strcmp(keyword, "ellipse")) { arcptr *newarc; NEW_ARC(newarc, localdata); (*newarc)->color = curcolor; (*newarc)->passed = NULL; (*newarc)->cycle = NULL; lineptr = varscan(localdata, buffer, &(*newarc)->style, (genericptr)*newarc, P_STYLE); lineptr = varfscan(localdata, lineptr, &(*newarc)->width, (genericptr)*newarc, P_LINEWIDTH); lineptr = varpscan(localdata, lineptr, &(*newarc)->position.x, (genericptr)*newarc, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newarc)->position.y, (genericptr)*newarc, 0, offy, P_POSITION_Y); lineptr = varscan(localdata, lineptr, &(*newarc)->radius, (genericptr)*newarc, P_RADIUS); lineptr = varscan(localdata, lineptr, &(*newarc)->yaxis, (genericptr)*newarc, P_MINOR_AXIS); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle1, (genericptr)*newarc, P_ANGLE1); lineptr = varfscan(localdata, lineptr, &(*newarc)->angle2, (genericptr)*newarc, P_ANGLE2); calcarc(*newarc); std_eparam((genericptr)(*newarc), colorkey); } /* read polygons */ /* (and wires---backward compatibility for v1.5 and earlier) */ else if (!strcmp(keyword, "polygon") || !strcmp(keyword, "wire")) { polyptr *newpoly; pointlist newpoints; px = py = 0; NEW_POLY(newpoly, localdata); lineptr = buffer; (*newpoly)->passed = NULL; (*newpoly)->cycle = NULL; if (!strcmp(keyword, "wire")) { (*newpoly)->number = 2; (*newpoly)->width = 1.0; (*newpoly)->style = UNCLOSED; } else { /* backward compatibility */ if (version < 1.5) { for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); sscanf(keyptr, "%hd", &(*newpoly)->style); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); sscanf(keyptr, "%f", &(*newpoly)->width); } for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* check for "addtox" and "addtoy" parameter specification */ while (!strncmp(keyptr + 1, "addto", 5)) { saveptr = keyptr + 1; for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* Get parameter and its value */ if (*(saveptr + 5) == 'x') varpscan(localdata, keyptr + 1, &px, (genericptr)*newpoly, -1, offx, P_POSITION_X); else varpscan(localdata, keyptr + 1, &py, (genericptr)*newpoly, -1, offy, P_POSITION_Y); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); } sscanf(keyptr, "%hd", &(*newpoly)->number); if (version >= 1.5) { lineptr = varscan(localdata, lineptr, &(*newpoly)->style, (genericptr)*newpoly, P_STYLE); lineptr = varfscan(localdata, lineptr, &(*newpoly)->width, (genericptr)*newpoly, P_LINEWIDTH); } } if ((*newpoly)->style & BBOX) (*newpoly)->color = BBOXCOLOR; else (*newpoly)->color = curcolor; (*newpoly)->points = (pointlist) malloc((*newpoly)->number * sizeof(XPoint)); for (newpoints = (*newpoly)->points; newpoints < (*newpoly)->points + (*newpoly)->number; newpoints++) { lineptr = varpscan(localdata, lineptr, &newpoints->x, (genericptr)*newpoly, newpoints - (*newpoly)->points, offx + px, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &newpoints->y, (genericptr)*newpoly, newpoints - (*newpoly)->points, offy + py, P_POSITION_Y); } std_eparam((genericptr)(*newpoly), colorkey); } /* read spline curves */ else if (!strcmp(keyword, "spline")) { splineptr *newspline; px = py = 0; NEW_SPLINE(newspline, localdata); (*newspline)->color = curcolor; (*newspline)->passed = NULL; (*newspline)->cycle = NULL; /* backward compatibility */ if (version < 1.5) { sscanf(buffer, "%f %hd %hd %hd %hd %hd %hd %hd %hd %hd", &(*newspline)->width, &(*newspline)->ctrl[1].x, &(*newspline)->ctrl[1].y, &(*newspline)->ctrl[2].x, &(*newspline)->ctrl[2].y, &(*newspline)->ctrl[3].x, &(*newspline)->ctrl[3].y, &(*newspline)->ctrl[0].x, &(*newspline)->ctrl[0].y, &(*newspline)->style); (*newspline)->ctrl[1].x -= offx; (*newspline)->ctrl[2].x -= offx; (*newspline)->ctrl[0].x -= offx; (*newspline)->ctrl[3].x -= offx; (*newspline)->ctrl[1].y -= offy; (*newspline)->ctrl[2].y -= offy; (*newspline)->ctrl[3].y -= offy; (*newspline)->ctrl[0].y -= offy; } else { for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* check for "addtox" and "addtoy" parameter specification */ while (!strncmp(keyptr + 1, "addto", 5)) { saveptr = keyptr + 1; for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); /* Get parameter and its value */ if (*(saveptr + 5) == 'x') varpscan(localdata, keyptr + 1, &px, (genericptr)*newspline, -1, offx, P_POSITION_X); else varpscan(localdata, keyptr + 1, &py, (genericptr)*newspline, -1, offy, P_POSITION_Y); for (--keyptr; *keyptr == ' '; keyptr--); for (; *keyptr != ' '; keyptr--); } lineptr = varscan(localdata, buffer, &(*newspline)->style, (genericptr)*newspline, P_STYLE); lineptr = varfscan(localdata, lineptr, &(*newspline)->width, (genericptr)*newspline, P_LINEWIDTH); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[1].x, (genericptr)*newspline, 1, offx + px, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[1].y, (genericptr)*newspline, 1, offy + py, P_POSITION_Y); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[2].x, (genericptr)*newspline, 2, offx + px, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[2].y, (genericptr)*newspline, 2, offy + py, P_POSITION_Y); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[3].x, (genericptr)*newspline, 3, offx + px, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[3].y, (genericptr)*newspline, 3, offy + py, P_POSITION_Y); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[0].x, (genericptr)*newspline, 0, offx + px, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newspline)->ctrl[0].y, (genericptr)*newspline, 0, offy + py, P_POSITION_Y); /* check for "addtox" and "addtoy" parameter specification */ } calcspline(*newspline); std_eparam((genericptr)(*newspline), colorkey); } /* read graphics image instances */ else if (!strcmp(keyword, "graphic")) { graphicptr *newgp; Imagedata *img; lineptr = buffer + 1; for (i = 0; i < xobjs.images; i++) { img = xobjs.imagelist + i; if (!strncmp(img->filename, lineptr, strlen(img->filename))) { NEW_GRAPHIC(newgp, localdata); (*newgp)->color = curcolor; (*newgp)->passed = NULL; #ifndef HAVE_CAIRO (*newgp)->clipmask = (Pixmap)NULL; (*newgp)->target = NULL; (*newgp)->valid = False; #endif /* HAVE_CAIRO */ (*newgp)->source = img->image; img->refcount++; lineptr += strlen(img->filename) + 1; break; } } if (i == xobjs.images) { /* Error: Line points to a non-existant image (no data) */ /* See if we can load the image name as a filename, and */ /* if that fails, then we must throw an error and ignore */ /* the image element. */ graphicptr locgp; char *sptr = strchr(lineptr, ' '); if (sptr != NULL) *sptr = '\0'; else sptr = lineptr; locgp = new_graphic(NULL, lineptr, 0, 0); if (locgp == NULL) { Fprintf(stderr, "Error: No graphic data for \"%s\".\n", lineptr); newgp = NULL; } else { lineptr = sptr; newgp = &locgp; } } if ((newgp != NULL) && (*newgp != NULL)) { lineptr = varfscan(localdata, lineptr, &(*newgp)->scale, (genericptr)*newgp, P_SCALE); lineptr = varfscan(localdata, lineptr, &(*newgp)->rotation, (genericptr)*newgp, P_ROTATION); lineptr = varpscan(localdata, lineptr, &(*newgp)->position.x, (genericptr)*newgp, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newgp)->position.y, (genericptr)*newgp, 0, offy, P_POSITION_Y); std_eparam((genericptr)(*newgp), colorkey); } } /* read labels */ else if (!strcmp(keyword, "fontset")) { /* old style */ char tmpstring[100]; int i; sscanf(buffer, "%f %*c%99s", &tmpscale, tmpstring); for (i = 0; i < fontcount; i++) if (!strcmp(tmpstring, fonts[i].psname)) { tmpfont = i; break; } if (i == fontcount) i = 0; /* Why bother with anything fancy? */ } else if (!strcmp(keyword, "label") || !strcmp(keyword, "pinlabel") || !strcmp(keyword, "pinglobal") || !strcmp(keyword, "infolabel")) { labelptr *newlabel; stringpart *firstscale, *firstfont; NEW_LABEL(newlabel, localdata); (*newlabel)->color = curcolor; (*newlabel)->string = NULL; (*newlabel)->passed = NULL; (*newlabel)->cycle = NULL; /* scan backwards to get the number of substrings */ lineptr = keyptr - 1; for (i = 0; i < ((version < 2.25) ? 5 : 6); i++) { for (; *lineptr == ' '; lineptr--); for (; *lineptr != ' '; lineptr--); } if ((strchr(lineptr, '.') != NULL) && (version < 2.25)) { Fprintf(stderr, "Error: File version claims to be %2.1f," " but has version %2.1f labels\n", version, PROG_VERSION); Fprintf(stderr, "Attempting to resolve problem by updating version.\n"); version = PROG_VERSION; for (; *lineptr == ' '; lineptr--); for (; *lineptr != ' '; lineptr--); } /* no. segments is ignored---may be a derived quantity, anyway */ if (version < 2.25) { sscanf(lineptr, "%*s %hd %hf %hd %hd", &(*newlabel)->anchor, &(*newlabel)->rotation, &(*newlabel)->position.x, &(*newlabel)->position.y); (*newlabel)->position.x -= offx; (*newlabel)->position.y -= offy; *lineptr = '\0'; } else { *lineptr++ = '\0'; lineptr = advancetoken(lineptr); /* skip string token */ lineptr = varscan(localdata, lineptr, &(*newlabel)->anchor, (genericptr)*newlabel, P_ANCHOR); lineptr = varfscan(localdata, lineptr, &(*newlabel)->rotation, (genericptr)*newlabel, P_ROTATION); lineptr = varfscan(localdata, lineptr, &(*newlabel)->scale, (genericptr)*newlabel, P_SCALE); lineptr = varpscan(localdata, lineptr, &(*newlabel)->position.x, (genericptr)*newlabel, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newlabel)->position.y, (genericptr)*newlabel, 0, offy, P_POSITION_Y); } if (version < 2.4) (*newlabel)->rotation = -(*newlabel)->rotation; while ((*newlabel)->rotation < 0.0) (*newlabel)->rotation += 360.0; (*newlabel)->pin = False; if (strcmp(keyword, "label")) { /* all the schematic types */ /* enable schematic capture if it is not already on. */ if (!strcmp(keyword, "pinlabel")) (*newlabel)->pin = LOCAL; else if (!strcmp(keyword, "pinglobal")) (*newlabel)->pin = GLOBAL; else if (!strcmp(keyword, "infolabel")) { /* Do not turn top-level pages into symbols! */ /* Info labels on schematics are treated differently. */ if (localdata != topobject) localdata->schemtype = FUNDAMENTAL; (*newlabel)->pin = INFO; if (curcolor == DEFAULTCOLOR) (*newlabel)->color = INFOLABELCOLOR; } } lineptr = buffer; /* back to beginning of string */ if (!strncmp(lineptr, "mark", 4)) lineptr += 4; readlabel(localdata, lineptr, &(*newlabel)->string); CheckMarginStop(*newlabel, areawin->topinstance, FALSE); if (version < 2.25) { /* Switch 1st scale designator to overall font scale */ firstscale = (*newlabel)->string->nextpart; if (firstscale->type != FONT_SCALE) { if (tmpscale != 0.0) (*newlabel)->scale = 0.0; else (*newlabel)->scale = 1.0; } else { (*newlabel)->scale = firstscale->data.scale; deletestring(firstscale, &((*newlabel)->string), areawin->topinstance); } } firstfont = (*newlabel)->string; if ((firstfont == NULL) || (firstfont->type != FONT_NAME)) { if (tmpfont == -1) { Fprintf(stderr, "Error: Label with no font designator?\n"); tmpfont = 0; } firstfont = makesegment(&((*newlabel)->string), (*newlabel)->string); firstfont->type = FONT_NAME; firstfont->data.font = tmpfont; } cleanuplabel(&(*newlabel)->string); std_eparam((genericptr)(*newlabel), colorkey); } /* read symbol-to-schematic connection */ else if (!strcmp(keyword, "is_schematic")) { char tempstr[50]; for (lineptr = buffer; *lineptr == ' '; lineptr++); parse_ps_string(++lineptr, tempstr, 49, FALSE, FALSE); checksym(localdata, tempstr); } /* read bounding box (font files only) */ else if (!strcmp(keyword, "bbox")) { for (lineptr = buffer; *lineptr == ' '; lineptr++); if (*lineptr != '%') { Wprintf("Illegal bbox."); free(buffer); *retstr = '\0'; return True; } sscanf(++lineptr, "%hd %hd %hd %hd", &localdata->bbox.lowerleft.x, &localdata->bbox.lowerleft.y, &localdata->bbox.width, &localdata->bbox.height); } /* read "hidden" attribute */ else if (!strcmp(keyword, "hidden")) { localdata->hidden = True; } /* read "libinst" special instance of a library part */ else if (!strcmp(keyword, "libinst")) { /* Read backwards from keyword to find name of object instanced. */ for (lineptr = keyptr; *lineptr != '/' && lineptr > buffer; lineptr--); parse_ps_string(++lineptr, keyword, 79, FALSE, FALSE); new_library_instance(mode - LIBRARY, keyword, buffer, defaulttech); } /* read objects */ else if (!strcmp(keyword, "{")) { /* This is an object definition */ objlistptr redef; objectptr *newobject; for (lineptr = buffer; *lineptr == ' '; lineptr++); if (*lineptr++ != '/') { /* This may be part of a label. . . treat as a continuation line */ temp = continueline(&buffer); continue; } parse_ps_string(lineptr, keyword, 79, FALSE, FALSE); newobject = new_library_object(mode, keyword, &redef, defaulttech); if (objectread(ps, *newobject, 0, 0, mode, retstr, curcolor, defaulttech) == True) { strncpy(retstr, buffer, 150); retstr[149] = '\0'; free(buffer); return True; } else { if (library_object_unique(mode, *newobject, redef)) add_object_to_library(mode, *newobject); } } else if (!strcmp(keyword, "def")) { strncpy(retstr, buffer, 150); retstr[149] = '\0'; free (buffer); return False; /* end of object def or end of object library */ } else if (!strcmp(keyword, "loadfontencoding")) { /* Deprecated, but retained for backward compatibility. */ /* Load from script, .xcircuitrc, or command line instead. */ for (lineptr = buffer; *lineptr != '%'; lineptr++); sscanf (lineptr + 1, "%149s", _STR); if (*(lineptr + 1) != '%') loadfontfile(_STR); } else if (!strcmp(keyword, "loadlibrary")) { /* Deprecated, but retained for backward compatibility */ /* Load from script, .xcircuitrc, or command line instead. */ int ilib, tlib; for (lineptr = buffer; *lineptr != '%'; lineptr++); sscanf (++lineptr, "%149s", _STR); while (isspace(*lineptr)) lineptr++; while (!isspace(*++lineptr)); while (isspace(*++lineptr)); if (sscanf (lineptr, "%d", &ilib) > 0) { while ((ilib - 2 + LIBRARY) > xobjs.numlibs) { tlib = createlibrary(False); if (tlib != xobjs.numlibs - 2 + LIBRARY) { ilib = tlib; break; } } mode = ilib - 1 + LIBRARY; } loadlibrary(mode); } else if (!strcmp(keyword, "beginparm")) { /* parameterized object */ short tmpnum, i; for (--keyptr; *keyptr == ' '; keyptr--); for (; isdigit(*keyptr) && (keyptr >= buffer); keyptr--); sscanf(keyptr, "%hd", &tmpnum); lineptr = buffer; while (isspace(*lineptr)) lineptr++; if (tmpnum < 256) { /* read parameter defaults in order */ stringpart *newpart; /* oparamptr newops; (jdk) */ for (i = 0; i < tmpnum; i++) { oparamptr newops; newops = (oparamptr)malloc(sizeof(oparam)); newops->next = localdata->params; localdata->params = newops; newops->key = (char *)malloc(6); sprintf(newops->key, "v%d", i + 1); if (*lineptr == '(' || *lineptr == '{') { /* type is XC_STRING */ char *linetmp, csave; newops->parameter.string = NULL; /* get simple substring or set of substrings and commands */ linetmp = find_delimiter(lineptr); csave = *(++linetmp); *linetmp = '\0'; if (*lineptr == '{') lineptr++; readlabel(localdata, lineptr, &(newops->parameter.string)); /* Add the ending part to the parameter string */ newpart = makesegment(&(newops->parameter.string), NULL); newpart->type = PARAM_END; newpart->data.string = (u_char *)NULL; newops->type = (u_char)XC_STRING; newops->which = P_SUBSTRING; /* Fprintf(stdout, "Parameter %d to object %s defaults " "to string \"%s\"\n", i + 1, localdata->name, ops->parameter.string); */ *linetmp = csave; lineptr = linetmp; while (isspace(*lineptr)) lineptr++; } else { /* type is assumed to be XC_FLOAT */ newops->type = (u_char)XC_FLOAT; sscanf(lineptr, "%g", &newops->parameter.fvalue); /* Fprintf(stdout, "Parameter %s to object %s defaults to " "value %g\n", newops->key, localdata->name, newops->parameter.fvalue); */ lineptr = advancetoken(lineptr); } } } } else if (!strcmp(keyword, "nonetwork")) { localdata->valid = True; localdata->schemtype = NONETWORK; } else if (!strcmp(keyword, "trivial")) { localdata->schemtype = TRIVIAL; } else if (!strcmp(keyword, "begingate")) { localdata->params = NULL; /* read dictionary of parameter key:value pairs */ readparams(NULL, NULL, localdata, buffer); } else if (!strcmp(keyword, "%%Trailer")) break; else if (!strcmp(keyword, "EndLib")) break; else if (!strcmp(keyword, "restore")); /* handled at top */ else if (!strcmp(keyword, "grestore")); /* ignore */ else if (!strcmp(keyword, "endgate")); /* also ignore */ else if (!strcmp(keyword, "xyarray")); /* ignore for now */ else { char *tmpptr, *libobjname, *objnamestart; Boolean matchtech, found = False; /* First, make sure this is not a general comment line */ /* Return if we have a page boundary */ /* Read an image if this is an imagedata line. */ for (tmpptr = buffer; isspace(*tmpptr); tmpptr++); if (*tmpptr == '%') { if (strstr(buffer, "%%Page:") == tmpptr) { strncpy(retstr, buffer, 150); retstr[149] = '\0'; free (buffer); return True; } else if (strstr(buffer, "%imagedata") == tmpptr) { int width, height; sscanf(buffer, "%*s %d %d", &width, &height); readimagedata(ps, width, height); } continue; } parse_ps_string(keyword, keyword, 79, FALSE, FALSE); matchtech = (strstr(keyword, "::") == NULL) ? FALSE : TRUE; /* If the file contains a reference to a bare-word device */ /* without a technology prefix, then it is probably an */ /* older-version file. If this is the case, then the file */ /* should define an unprefixed object, which will be given */ /* a null prefix (just "::" by itself). Look for that */ /* match. */ /* (Assume that this line calls an object instance) */ /* Double loop through user libraries */ for (k = 0; k < ((mode == FONTLIB) ? 1 : xobjs.numlibs); k++) { for (j = 0; j < ((mode == FONTLIB) ? xobjs.fontlib.number : xobjs.userlibs[k].number); j++) { libobj = (mode == FONTLIB) ? xobjs.fontlib.library + j : xobjs.userlibs[k].library + j; /* Objects which have a technology ("::") */ /* must compare exactly. Objects which don't can */ /* only match an object of the same name with a null */ /* technology prefix. */ libobjname = (*libobj)->name; if (!matchtech) { objnamestart = strstr(libobjname, "::"); if (objnamestart != NULL) libobjname = objnamestart + 2; } if (!objnamecmp(keyword, libobjname)) { /* If the name is not exactly the same (appended underscores) */ /* check if the name is on the list of aliases. */ if (strcmp(keyword, libobjname)) { Boolean is_alias = False; aliasptr ckalias = aliastop; slistptr sref; for (; ckalias != NULL; ckalias = ckalias->next) { if (ckalias->baseobj == (*libobj)) { sref = ckalias->aliases; for (; sref != NULL; sref = sref->next) { if (!strcmp(keyword, sref->alias)) { is_alias = True; break; } } if (is_alias) break; } } if (!is_alias) continue; } if (!matchtech && ((*libobj)->name != objnamestart)) if (version > 3.7) continue; // no prefix in file must match // null prefix in library object. found = True; NEW_OBJINST(newinst, localdata); (*newinst)->thisobject = *libobj; (*newinst)->color = curcolor; (*newinst)->params = NULL; (*newinst)->passed = NULL; (*newinst)->bbox.lowerleft.x = (*libobj)->bbox.lowerleft.x; (*newinst)->bbox.lowerleft.y = (*libobj)->bbox.lowerleft.y; (*newinst)->bbox.width = (*libobj)->bbox.width; (*newinst)->bbox.height = (*libobj)->bbox.height; (*newinst)->schembbox = NULL; lineptr = varfscan(localdata, buffer, &(*newinst)->scale, (genericptr)*newinst, P_SCALE); /* Format prior to xcircuit 3.7 did not have scale- */ /* invariant linewidth. If scale is 1, though, keep it */ /* invariant so as not to overuse the scale-variance */ /* flag in the output file. */ if ((version < 3.7) && ((*newinst)->scale != 1.0)) (*newinst)->style = NORMAL; else (*newinst)->style = LINE_INVARIANT; lineptr = varfscan(localdata, lineptr, &(*newinst)->rotation, (genericptr)*newinst, P_ROTATION); lineptr = varpscan(localdata, lineptr, &(*newinst)->position.x, (genericptr)*newinst, 0, offx, P_POSITION_X); lineptr = varpscan(localdata, lineptr, &(*newinst)->position.y, (genericptr)*newinst, 0, offy, P_POSITION_Y); /* Negative rotations = flip in x in version 2.3.6 and */ /* earlier. Later versions don't allow negative rotation */ if (version < 2.4) { if ((*newinst)->rotation < 0.0) { (*newinst)->scale = -((*newinst)->scale); (*newinst)->rotation += 1.0; } (*newinst)->rotation = -(*newinst)->rotation; } while ((*newinst)->rotation > 360.0) (*newinst)->rotation -= 360.0; while ((*newinst)->rotation < 0.0) (*newinst)->rotation += 360.0; std_eparam((genericptr)(*newinst), colorkey); /* Does this instance contain parameters? */ readparams(localdata, *newinst, *libobj, buffer); calcbboxinst(*newinst); break; } /* if !strcmp */ } /* for j loop */ if (found) break; } /* for k loop */ if (!found) /* will assume that we have a continuation line */ temp = continueline(&buffer); } } } strncpy(retstr, buffer, 150); retstr[149] = '\0'; free(buffer); return True; } /*------------------------*/ /* Save a PostScript file */ /*------------------------*/ #ifdef TCL_WRAPPER void setfile(char *filename, int mode) { if ((filename == NULL) || (xobjs.pagelist[areawin->page]->filename == NULL)) { Wprintf("Error: No filename for schematic."); if (beeper) XBell(dpy, 100); return; } /* see if name has been changed in the buffer */ if (strcmp(xobjs.pagelist[areawin->page]->filename, filename)) { Wprintf("Changing name of edit file."); free(xobjs.pagelist[areawin->page]->filename); xobjs.pagelist[areawin->page]->filename = strdup(filename); } if (strstr(xobjs.pagelist[areawin->page]->filename, "Page ") != NULL) { Wprintf("Warning: Enter a new name."); if (beeper) XBell(dpy, 100); } else { savefile(mode); if (beeper) XBell(dpy, 100); } } #else /* !TCL_WRAPPER */ void setfile(xcWidget button, xcWidget fnamewidget, caddr_t clientdata) { /* see if name has been changed in the buffer */ sprintf(_STR2, "%.249s", (char *)XwTextCopyBuffer(fnamewidget)); if (xobjs.pagelist[areawin->page]->filename == NULL) { xobjs.pagelist[areawin->page]->filename = strdup(_STR2); } else if (strcmp(xobjs.pagelist[areawin->page]->filename, _STR2)) { Wprintf("Changing name of edit file."); free(xobjs.pagelist[areawin->page]->filename); xobjs.pagelist[areawin->page]->filename = strdup(_STR2); } if (strstr(xobjs.pagelist[areawin->page]->filename, "Page ") != NULL) { Wprintf("Warning: Enter a new name."); if (beeper) XBell(dpy, 100); } else { Arg wargs[1]; xcWidget db, di; savefile(CURRENT_PAGE); /* Change "close" button to read "done" */ di = xcParent(button); db = XtNameToWidget(di, "Close"); XtSetArg(wargs[0], XtNlabel, " Done "); XtSetValues(db, wargs, 1); if (beeper) XBell(dpy, 100); } } #endif /* TCL_WRAPPER */ /*--------------------------------------------------------------*/ /* Update number of changes for an object and initiate a temp */ /* file save if total number of unsaved changes exceeds 20. */ /*--------------------------------------------------------------*/ void incr_changes(objectptr thisobj) { /* It is assumed that empty pages are meant to be that way */ /* and are not to be saved, so changes are marked as zero. */ if (thisobj->parts == 0) { thisobj->changes = 0; return; } /* Remove any pending timeout */ if (xobjs.timeout_id != (xcIntervalId)NULL) { xcRemoveTimeOut(xobjs.timeout_id); xobjs.timeout_id = (xcIntervalId)NULL; } thisobj->changes++; /* When in "suspend" mode, we assume that we are reading commands from * a script, and therefore we should not continuously increment changes * and keep saving the backup file. */ if (xobjs.suspend < 0) xobjs.new_changes++; if (xobjs.new_changes > MAXCHANGES) { #ifdef TCL_WRAPPER savetemp(NULL); #else savetemp(NULL, NULL); #endif } /* Generate a new timeout */ xobjs.timeout_id = xcAddTimeOut(app, 60000 * xobjs.save_interval, savetemp, NULL); } /*--------------------------------------------------------------*/ /* tempfile save */ /*--------------------------------------------------------------*/ #ifdef TCL_WRAPPER void savetemp(ClientData clientdata) { #else void savetemp(XtPointer clientdata, xcIntervalId *id) { #endif /* Remove the timeout ID. If this routine is called from */ /* incr_changes() instead of from the timeout interrupt */ /* service routine, then this value will already be NULL. */ xobjs.timeout_id = (xcIntervalId)NULL; /* First see if there are any unsaved changes in the file. */ /* If not, then just reset the counter and continue. */ if (xobjs.new_changes > 0) { if (xobjs.tempfile == NULL) { int fd; char *template = (char *)malloc(20 + strlen(xobjs.tempdir)); int pid = (int)getpid(); sprintf(template, "%s/XC%d.XXXXXX", xobjs.tempdir, pid); #ifdef _MSC_VER fd = mktemp(template); #else fd = mkstemp(template); #endif if (fd == -1) { Fprintf(stderr, "Error generating file for savetemp\n"); free(template); } close(fd); xobjs.tempfile = strdup(template); free(template); } /* Show the "wristwatch" cursor, as graphic data may cause this */ /* step to be inordinately long. */ XDefineCursor(dpy, areawin->window, WAITFOR); savefile(ALL_PAGES); XDefineCursor(dpy, areawin->window, DEFAULTCURSOR); xobjs.new_changes = 0; /* reset the count */ } } /*----------------------------------------------------------------------*/ /* Set all objects in the list "wroteobjs" as having no unsaved changes */ /*----------------------------------------------------------------------*/ void setassaved(objectptr *wroteobjs, short written) { int i; for (i = 0; i < written; i++) (*(wroteobjs + i))->changes = 0; } /*---------------------------------------------------------------*/ /* Save indicated library. If libno is 0, save current page if */ /* the current page is a library. If not, save the user library */ /*---------------------------------------------------------------*/ void savelibpopup(xcWidget button, char *technology, caddr_t nulldata) { TechPtr nsptr; #ifndef TCL_WRAPPER buttonsave *savebutton; #endif nsptr = LookupTechnology(technology); if (nsptr != NULL) { if ((nsptr->flags & TECH_READONLY) != 0) { Wprintf("Library technology \"%s\" is read-only.", technology); return; } } #ifndef TCL_WRAPPER savebutton = getgeneric(button, savelibpopup, technology); popupprompt(button, "Enter technology:", "\0", savelibrary, savebutton, NULL); #endif } /*---------------------------------------------------------*/ #ifndef TCL_WRAPPER void savelibrary(xcWidget w, char *technology) { char outname[250]; sscanf(_STR2, "%249s", outname); savetechnology(technology, outname); } #endif /*---------------------------------------------------------*/ void savetechnology(char *technology, char *outname) { FILE *ps; char *outptr, *validname, outfile[150]; objectptr *wroteobjs, libobjptr, *optr, depobj; genericptr *gptr; liblistptr spec; short written; short *glist; char *uname = NULL; char *hostname = NULL; struct passwd *mypwentry = NULL; int i, j, ilib; TechPtr nsptr; char *loctechnology; // Don't use the string "(user)" as a technology name; this is just // a GUI placeholder for a null string (""). This shouldn't happen, // though, as technology should be NULL if the user technology is // selected. if (technology && (!strcmp(technology, "(user)"))) nsptr = LookupTechnology(NULL); else nsptr = LookupTechnology(technology); if ((outptr = strrchr(outname, '/')) == NULL) outptr = outname; else outptr++; strcpy(outfile, outname); if (strchr(outptr, '.') == NULL) strcat(outfile, ".lps"); xc_tilde_expand(outfile, 149); while(xc_variable_expand(outfile, 149)); if (nsptr != NULL && nsptr->filename != NULL) { // To be pedantic, we should probably check that the inodes of the // files are different, to be sure we are avoiding an unintentional // over-write. if (!strcmp(outfile, nsptr->filename)) { if ((nsptr->flags & TECH_READONLY) != 0) { Wprintf("Technology file \"%s\" is read-only.", technology); return; } if ((nsptr->flags & TECH_IMPORTED) != 0) { Wprintf("Attempt to write a truncated technology file!"); return; } } } ps = fopen(outfile, "wb"); if (ps == NULL) { Wprintf("Can't open PS file."); if (nsptr && nsptr->filename && (!strcmp(nsptr->filename, outfile))) { Wprintf("Marking technology \"%s\" as read-only.", technology); nsptr->flags |= TECH_READONLY; } return; } /* Did the technology name change? If so, register the new name. */ /* Clear any "IMPORTED" or "READONLY" flags. */ if (nsptr && nsptr->filename && strcmp(outfile, nsptr->filename)) { Wprintf("Technology filename changed from \"%s\" to \"%s\".", nsptr->filename, outfile); free(nsptr->filename); nsptr->filename = strdup(outfile); nsptr->flags &= ~(TECH_READONLY | TECH_IMPORTED); } else if (nsptr && !nsptr->filename) { nsptr->filename = strdup(outfile); nsptr->flags &= ~(TECH_READONLY | TECH_IMPORTED); } fprintf(ps, "%%! PostScript set of library objects for XCircuit\n"); fprintf(ps, "%% Version: %2.1f\n", version); fprintf(ps, "%% Library name is: %s\n", (technology == NULL) ? "(user)" : technology); #ifdef _MSC_VER uname = getenv((const char *)"USERNAME"); #else uname = getenv((const char *)"USER"); if (uname != NULL) mypwentry = getpwnam(uname); #endif /* Check for both $HOST and $HOSTNAME environment variables. Thanks */ /* to frankie liu for this fix. */ if ((hostname = getenv((const char *)"HOSTNAME")) == NULL) if ((hostname = getenv((const char *)"HOST")) == NULL) { if (gethostname(_STR, 149) != 0) hostname = uname; else hostname = _STR; } #ifndef _MSC_VER if (mypwentry != NULL) fprintf(ps, "%% Author: %s <%s@%s>\n", mypwentry->pw_gecos, uname, hostname); #endif fprintf(ps, "%%\n\n"); /* Print lists of object dependencies, where they exist. */ /* Note that objects can depend on objects in other technologies; */ /* this is allowed. */ wroteobjs = (objectptr *) malloc(sizeof(objectptr)); for (ilib = 0; ilib < xobjs.numlibs; ilib++) { for (j = 0; j < xobjs.userlibs[ilib].number; j++) { libobjptr = *(xobjs.userlibs[ilib].library + j); if (CompareTechnology(libobjptr, technology)) { written = 0; /* Search for all object definitions instantiated in this object, */ /* and add them to the dependency list (non-recursive). */ for (gptr = libobjptr->plist; gptr < libobjptr->plist + libobjptr->parts; gptr++) { if (IS_OBJINST(*gptr)) { depobj = TOOBJINST(gptr)->thisobject; /* Search among the list of objects already collected. */ /* If this object has been previously, then ignore it. */ /* Otherwise, update the list of object dependencies */ for (optr = wroteobjs; optr < wroteobjs + written; optr++) if (*optr == depobj) break; if (optr == wroteobjs + written) { wroteobjs = (objectptr *)realloc(wroteobjs, (written + 1) * sizeof(objectptr)); *(wroteobjs + written) = depobj; written++; } } } if (written > 0) { fprintf(ps, "%% Depend %s", libobjptr->name); for (i = 0; i < written; i++) { depobj = *(wroteobjs + i); fprintf(ps, " %s", depobj->name); } fprintf(ps, "\n"); } } } } fprintf(ps, "\n%% XCircuitLib library objects\n"); /* Start by looking for any graphic images in the library objects */ /* and saving the graphic image data at the top of the file. */ glist = (short *)malloc(xobjs.images * sizeof(short)); for (i = 0; i < xobjs.images; i++) glist[i] = 0; for (ilib = 0; ilib < xobjs.numlibs; ilib++) { for (spec = xobjs.userlibs[ilib].instlist; spec != NULL; spec = spec->next) { libobjptr = spec->thisinst->thisobject; if (CompareTechnology(libobjptr, technology)) count_graphics(spec->thisinst->thisobject, glist); } } output_graphic_data(ps, glist); free(glist); /* list of library objects already written */ wroteobjs = (objectptr *)realloc(wroteobjs, sizeof(objectptr)); written = 0; /* write all of the object definitions used, bottom up, with virtual */ /* instances in the correct placement. The need to find virtual */ /* instances is why we do a look through the library pages and not */ /* the libraries themselves when looking for objects matching the */ /* given technology. */ for (ilib = 0; ilib < xobjs.numlibs; ilib++) { for (spec = xobjs.userlibs[ilib].instlist; spec != NULL; spec = spec->next) { libobjptr = spec->thisinst->thisobject; if (CompareTechnology(libobjptr, technology)) { if (!spec->virtual) { printobjects(ps, spec->thisinst->thisobject, &wroteobjs, &written, DEFAULTCOLOR); } else { if ((spec->thisinst->scale != 1.0) || (spec->thisinst->rotation != 0.0)) { fprintf(ps, "%3.3f %3.3f ", spec->thisinst->scale, spec->thisinst->rotation); } printparams(ps, spec->thisinst, 0); validname = create_valid_psname(spec->thisinst->thisobject->name, FALSE); /* Names without technologies get '::' string (blank technology) */ if (technology == NULL) fprintf(ps, "/::%s libinst\n", validname); else fprintf(ps, "/%s libinst\n", validname); if ((spec->next != NULL) && (!(spec->next->virtual))) fprintf(ps, "\n"); } } } } setassaved(wroteobjs, written); if (nsptr) nsptr->flags &= (~TECH_CHANGED); xobjs.new_changes = countchanges(NULL); /* and the postlog */ fprintf(ps, "\n%% EndLib\n"); fclose(ps); if (technology != NULL) Wprintf("Library technology \"%s\" saved as file %s.",technology, outname); else Wprintf("Library technology saved as file %s.", outname); free(wroteobjs); } /*----------------------------------------------------------------------*/ /* Recursive routine to search the object hierarchy for fonts used */ /*----------------------------------------------------------------------*/ void findfonts(objectptr writepage, short *fontsused) { genericptr *dfp; stringpart *chp; int findex; for (dfp = writepage->plist; dfp < writepage->plist + writepage->parts; dfp++) { if (IS_LABEL(*dfp)) { for (chp = TOLABEL(dfp)->string; chp != NULL; chp = chp->nextpart) { if (chp->type == FONT_NAME) { findex = chp->data.font; if (fontsused[findex] == 0) { fontsused[findex] = 0x8000 | fonts[findex].flags; } } } } else if (IS_OBJINST(*dfp)) { findfonts(TOOBJINST(dfp)->thisobject, fontsused); } } } /*------------------------------------------------------*/ /* Write graphics image data to file "ps". "glist" is */ /* a pointer to a vector of short integers, each one */ /* being an index into xobjs.images for an image that */ /* is to be output. */ /*------------------------------------------------------*/ void output_graphic_data(FILE *ps, short *glist) { char *fptr, ascbuf[6]; int i, j; for (i = 0; i < xobjs.images; i++) { Imagedata *img = xobjs.imagelist + i; int ilen, flen, k, m = 0, n, q = 0; u_char *filtbuf, *flatebuf; Boolean lastpix = False; union { u_long i; u_char b[4]; } pixel; int width = xcImageGetWidth(img->image); int height = xcImageGetHeight(img->image); if (glist[i] == 0) continue; fprintf(ps, "%%imagedata %d %d\n", width, height); fprintf(ps, "currentfile /ASCII85Decode filter "); #ifdef HAVE_LIBZ fprintf(ps, "/FlateDecode filter\n"); #endif fprintf(ps, "/ReusableStreamDecode filter\n"); /* creating a stream buffer is wasteful if we're just using ASCII85 */ /* decoding but is a must for compression filters. */ ilen = 3 * width * height; filtbuf = (u_char *)malloc(ilen + 4); q = 0; for (j = 0; j < height; j++) for (k = 0; k < width; k++) { unsigned char r, g, b; xcImageGetPixel(img->image, k, j, &r, &g, &b); filtbuf[q++] = r; filtbuf[q++] = g; filtbuf[q++] = b; } /* Extra encoding goes here */ #ifdef HAVE_LIBZ flen = ilen * 2; flatebuf = (char *)malloc(flen); ilen = large_deflate(flatebuf, flen, filtbuf, ilen); free(filtbuf); #else flatebuf = filtbuf; #endif ascbuf[5] = '\0'; pixel.i = 0; for (j = 0; j < ilen; j += 4) { if ((j + 4) > ilen) lastpix = TRUE; if (!lastpix && (flatebuf[j] + flatebuf[j + 1] + flatebuf[j + 2] + flatebuf[j + 3] == 0)) { fprintf(ps, "z"); m++; } else { for (n = 0; n < 4; n++) pixel.b[3 - n] = flatebuf[j + n]; ascbuf[0] = '!' + (pixel.i / 52200625); pixel.i %= 52200625; ascbuf[1] = '!' + (pixel.i / 614125); pixel.i %= 614125; ascbuf[2] = '!' + (pixel.i / 7225); pixel.i %= 7225; ascbuf[3] = '!' + (pixel.i / 85); pixel.i %= 85; ascbuf[4] = '!' + pixel.i; if (lastpix) for (n = 0; n < ilen + 1 - j; n++) fprintf(ps, "%c", ascbuf[n]); else fprintf(ps, "%5s", ascbuf); m += 5; } if (m > 75) { fprintf(ps, "\n"); m = 0; } } fprintf(ps, "~>\n"); free(flatebuf); /* Remove any filesystem path information from the image name. */ /* Otherwise, the slashes will cause PostScript to err. */ fptr = strrchr(img->filename, '/'); if (fptr == NULL) fptr = img->filename; else fptr++; fprintf(ps, "/%sdata exch def\n", fptr); fprintf(ps, "/%s <<\n", fptr); fprintf(ps, " /ImageType 1 /Width %d /Height %d /BitsPerComponent 8\n", width, height); fprintf(ps, " /MultipleDataSources false\n"); fprintf(ps, " /Decode [0 1 0 1 0 1]\n"); fprintf(ps, " /ImageMatrix [1 0 0 -1 %d %d]\n", width >> 1, height >> 1); fprintf(ps, " /DataSource %sdata >> def\n\n", fptr); } } /*----------------------------------------------------------------------*/ /* Main file saving routine */ /*----------------------------------------------------------------------*/ /* mode description */ /*----------------------------------------------------------------------*/ /* ALL_PAGES saves a crash recovery backup file */ /* CURRENT_PAGE saves all pages associated with the same */ /* filename as the current page, and all */ /* dependent schematics (which have their */ /* filenames changed to match). */ /* NO_SUBCIRCUITS saves all pages associated with the same */ /* filename as the current page, only. */ /*----------------------------------------------------------------------*/ void savefile(short mode) { FILE *ps, *pro, *enc; char outname[150], temp[150], prologue[150], *fname, *fptr, ascbuf[6]; /* u_char decodebuf[6]; (jdk */ short written, fontsused[256], i, page, curpage, multipage; short savepage, stcount, *pagelist, *glist; objectptr *wroteobjs; objinstptr writepage; int findex, j; time_t tdate; char *tmp_s; if (mode != ALL_PAGES) { /* doubly-protected file write: protect against errors during file write */ fname = xobjs.pagelist[areawin->page]->filename; sprintf(outname, "%s~", fname); rename(fname, outname); } else { /* doubly-protected backup: protect against errors during file write */ sprintf(outname, "%sB", xobjs.tempfile); rename(xobjs.tempfile, outname); fname = xobjs.tempfile; } if ((fptr = strrchr(fname, '/')) != NULL) fptr++; else fptr = fname; if ((mode != ALL_PAGES) && (strchr(fptr, '.') == NULL)) sprintf(outname, "%s.ps", fname); else sprintf(outname, "%s", fname); xc_tilde_expand(outname, 149); while(xc_variable_expand(outname, 149)); ps = fopen(outname, "wb"); if (ps == NULL) { Wprintf("Can't open file %s for writing.", outname); return; } if ((mode != NO_SUBCIRCUITS) && (mode != ALL_PAGES)) collectsubschems(areawin->page); /* Check for multiple-page output: get the number of pages; */ /* ignore empty pages. */ multipage = 0; if (mode == NO_SUBCIRCUITS) pagelist = pagetotals(areawin->page, INDEPENDENT); else if (mode == ALL_PAGES) pagelist = pagetotals(areawin->page, ALL_PAGES); else pagelist = pagetotals(areawin->page, TOTAL_PAGES); for (page = 0; page < xobjs.pages; page++) if (pagelist[page] > 0) multipage++; if (multipage == 0) { Wprintf("Panic: could not find this page in page list!"); free (pagelist); fclose(ps); return; } /* Print the PostScript DSC Document Header */ fprintf(ps, "%%!PS-Adobe-3.0"); if (multipage == 1 && !(xobjs.pagelist[areawin->page]->pmode & 1)) fprintf(ps, " EPSF-3.0\n"); else fprintf(ps, "\n"); fprintf(ps, "%%%%Title: %s\n", fptr); fprintf(ps, "%%%%Creator: XCircuit v%2.1f rev%d\n", PROG_VERSION, PROG_REVISION); tdate = time(NULL); fprintf(ps, "%%%%CreationDate: %s", asctime(localtime(&tdate))); fprintf(ps, "%%%%Pages: %d\n", multipage); /* This is just a default value; each bounding box is declared per */ /* page by the DSC "PageBoundingBox" keyword. */ /* However, encapsulated files adjust the bounding box to center on */ /* the object, instead of centering the object on the page. */ if (multipage == 1 && !(xobjs.pagelist[areawin->page]->pmode & 1)) { objectptr thisobj = xobjs.pagelist[areawin->page]->pageinst->thisobject; float psscale = getpsscale(xobjs.pagelist[areawin->page]->outscale, areawin->page); /* The top-level bounding box determines the size of an encapsulated */ /* drawing, regardless of the PageBoundingBox numbers. Therefore, */ /* we size this to bound just the picture by closing up the 1" (72 */ /* PostScript units) margins, except for a tiny sliver of a margin */ /* (4 PostScript units) which covers a bit of sloppiness in the font */ /* measurements. */ fprintf(ps, "%%%%BoundingBox: 68 68 %d %d\n", (int)((float)thisobj->bbox.width * psscale) + xobjs.pagelist[areawin->page]->margins.x + 4, (int)((float)thisobj->bbox.height * psscale) + xobjs.pagelist[areawin->page]->margins.y + 4); } else if (xobjs.pagelist[0]->coordstyle == CM) fprintf(ps, "%%%%BoundingBox: 0 0 595 842\n"); /* A4 default (fixed by jdk) */ else fprintf(ps, "%%%%BoundingBox: 0 0 612 792\n"); /* letter default */ for (i = 0; i < fontcount; i++) fontsused[i] = 0; fprintf(ps, "%%%%DocumentNeededResources: font "); stcount = 32; /* find all of the fonts used in this document */ /* log all fonts which are native PostScript */ for (curpage = 0; curpage < xobjs.pages; curpage++) if (pagelist[curpage] > 0) { writepage = xobjs.pagelist[curpage]->pageinst; findfonts(writepage->thisobject, fontsused); } for (i = 0; i < fontcount; i++) { if (fontsused[i] & 0x8000) if ((fonts[i].flags & 0x8018) == 0x0) { stcount += strlen(fonts[i].psname) + 1; if (stcount > OUTPUTWIDTH) { stcount = strlen(fonts[i].psname) + 11; fprintf(ps, "\n%%%%+ font "); } fprintf(ps, "%s ", fonts[i].psname); } } fprintf(ps, "\n%%%%EndComments\n"); tmp_s = getenv((const char *)"XCIRCUIT_LIB_DIR"); if (tmp_s != NULL) { sprintf(prologue, "%s/%s", tmp_s, PROLOGUE_FILE); pro = fopen(prologue, "r"); } else pro = NULL; if (pro == NULL) { sprintf(prologue, "%s/%s", PROLOGUE_DIR, PROLOGUE_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { sprintf(prologue, "%s", PROLOGUE_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { Wprintf("Can't open prolog."); free(pagelist); fclose(ps); return; } } } /* write the prolog to the output */ for(;;) { if (fgets(temp, 149, pro) == NULL) break; if (!strncmp(temp, "%%EndProlog", 11)) break; fputs(temp, ps); } fclose(pro); /* Special font encodings not known to PostScript */ /* (anything other than Standard and ISOLatin-1) */ for (findex = 0; findex < fontcount; findex++) { if ((fontsused[findex] & 0xf80) == 0x400) { /* Cyrillic (ISO8859-5) */ sprintf(prologue, "%s/%s", PROLOGUE_DIR, CYRILLIC_ENC_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { sprintf(prologue, "%s", CYRILLIC_ENC_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { Wprintf("Warning: Missing font encoding vectors."); Wprintf("Output may not print properly."); } } if (pro != NULL) { for(;;) { if (fgets(temp, 149, pro) == NULL) break; fputs(temp, ps); } fclose(pro); } } else if ((fontsused[findex] & 0xf80) == 0x180) { /* Eastern European (ISOLatin2) */ sprintf(prologue, "%s/%s", PROLOGUE_DIR, ISOLATIN2_ENC_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { sprintf(prologue, "%s", ISOLATIN2_ENC_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { Wprintf("Warning: Missing font encoding vectors."); Wprintf("Output may not print properly."); } } if (pro != NULL) { for(;;) { if (fgets(temp, 149, pro) == NULL) break; fputs(temp, ps); } fclose(pro); } } else if ((fontsused[findex] & 0xf80) == 0x300) { /* Turkish (ISOLatin5) */ sprintf(prologue, "%s/%s", PROLOGUE_DIR, ISOLATIN5_ENC_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { sprintf(prologue, "%s", ISOLATIN5_ENC_FILE); pro = fopen(prologue, "r"); if (pro == NULL) { Wprintf("Warning: Missing font encoding vectors."); Wprintf("Output may not print properly."); } } if (pro != NULL) { for(;;) { if (fgets(temp, 149, pro) == NULL) break; fputs(temp, ps); } fclose(pro); } } } /* Finish off prolog */ fputs("%%EndProlog\n", ps); /* Special font handling */ for (findex = 0; findex < fontcount; findex++) { /* Derived font slant */ if ((fontsused[findex] & 0x032) == 0x032) fprintf(ps, "/%s /%s .167 fontslant\n\n", fonts[findex].psname, fonts[findex].family); /* Derived ISO-Latin1 encoding */ if ((fontsused[findex] & 0xf80) == 0x100) { char *fontorig = NULL; short i; /* find the original standard-encoded font (can be itself) */ for (i = 0; i < fontcount; i++) { if (i == findex) continue; if (!strcmp(fonts[i].family, fonts[findex].family) && ((fonts[i].flags & 0x03) == (fonts[findex].flags & 0x03))) { fontorig = fonts[i].psname; break; } } if (fontorig == NULL) fontorig = fonts[findex].psname; fprintf(ps, "/%s findfont dup length dict begin\n", fontorig); fprintf(ps, "{1 index /FID ne {def} {pop pop} ifelse} forall\n"); fprintf(ps, "/Encoding ISOLatin1Encoding def currentdict end\n"); fprintf(ps, "/%s exch definefont pop\n\n", fonts[findex].psname); } /* Derived Cyrillic (ISO8859-5) encoding */ if ((fontsused[findex] & 0xf80) == 0x400) { char *fontorig = NULL; short i; /* find the original standard-encoded font (can be itself) */ for (i = 0; i < fontcount; i++) { if (i == findex) continue; if (!strcmp(fonts[i].family, fonts[findex].family) && ((fonts[i].flags & 0x03) == (fonts[findex].flags & 0x03))) { fontorig = fonts[i].psname; break; } } if (fontorig == NULL) fontorig = fonts[findex].psname; fprintf(ps, "/%s findfont dup length dict begin\n", fontorig); fprintf(ps, "{1 index /FID ne {def} {pop pop} ifelse} forall\n"); fprintf(ps, "/Encoding ISO8859_5Encoding def currentdict end\n"); fprintf(ps, "/%s exch definefont pop\n\n", fonts[findex].psname); } /* ISO-Latin2 encoding */ if ((fontsused[findex] & 0xf80) == 0x180) { char *fontorig = NULL; short i; /* find the original standard-encoded font (can be itself) */ for (i = 0; i < fontcount; i++) { if (i == findex) continue; if (!strcmp(fonts[i].family, fonts[findex].family) && ((fonts[i].flags & 0x03) == (fonts[findex].flags & 0x03))) { fontorig = fonts[i].psname; break; } } if (fontorig == NULL) fontorig = fonts[findex].psname; fprintf(ps, "/%s findfont dup length dict begin\n", fontorig); fprintf(ps, "{1 index /FID ne {def} {pop pop} ifelse} forall\n"); fprintf(ps, "/Encoding ISOLatin2Encoding def currentdict end\n"); fprintf(ps, "/%s exch definefont pop\n\n", fonts[findex].psname); } /* ISO-Latin5 encoding */ if ((fontsused[findex] & 0xf80) == 0x300) { char *fontorig = NULL; short i; /* find the original standard-encoded font (can be itself) */ for (i = 0; i < fontcount; i++) { if (i == findex) continue; if (!strcmp(fonts[i].family, fonts[findex].family) && ((fonts[i].flags & 0x03) == (fonts[findex].flags & 0x03))) { fontorig = fonts[i].psname; break; } } if (fontorig == NULL) fontorig = fonts[findex].psname; fprintf(ps, "/%s findfont dup length dict begin\n", fontorig); fprintf(ps, "{1 index /FID ne {def} {pop pop} ifelse} forall\n"); fprintf(ps, "/Encoding ISOLatin5Encoding def currentdict end\n"); fprintf(ps, "/%s exch definefont pop\n\n", fonts[findex].psname); } /* To do: Special encoding */ if ((fontsused[findex] & 0xf80) == 0x80) { } /* To do: Vectored (drawn) font */ if (fontsused[findex] & 0x8) { } } /* List of objects already written */ wroteobjs = (objectptr *) malloc (sizeof(objectptr)); written = 0; fprintf(ps, "%% XCircuit output starts here.\n\n"); fprintf(ps, "%%%%BeginSetup\n\n"); /* Write out all of the images used */ glist = collect_graphics(pagelist); output_graphic_data(ps, glist); free(glist); for (curpage = 0; curpage < xobjs.pages; curpage++) { if (pagelist[curpage] == 0) continue; /* Write all of the object definitions used, bottom up */ printrefobjects(ps, xobjs.pagelist[curpage]->pageinst->thisobject, &wroteobjs, &written); } fprintf(ps, "\n%%%%EndSetup\n\n"); page = 0; for (curpage = 0; curpage < xobjs.pages; curpage++) { if (pagelist[curpage] == 0) continue; /* Print the page header, all elements in the page, and page trailer */ savepage = areawin->page; /* Set the current page for the duration of printing so that any */ /* page parameters will be printed correctly. */ areawin->page = curpage; printpageobject(ps, xobjs.pagelist[curpage]->pageinst->thisobject, ++page, curpage); areawin->page = savepage; /* For crash recovery, log the filename for each page */ if (mode == ALL_PAGES) { fprintf(ps, "%% %s is_filename\n", (xobjs.pagelist[curpage]->filename == NULL) ? xobjs.pagelist[curpage]->pageinst->thisobject->name : xobjs.pagelist[curpage]->filename); } fprintf(ps, "\n"); fflush(ps); } /* For crash recovery, save all objects that have been edited but are */ /* not in the list of objects already saved. */ if (mode == ALL_PAGES) { int i, j, k; objectptr thisobj; for (i = 0; i < xobjs.numlibs; i++) { for (j = 0; j < xobjs.userlibs[i].number; j++) { thisobj = *(xobjs.userlibs[i].library + j); if (thisobj->changes > 0 ) { for (k = 0; k < written; k++) if (thisobj == *(wroteobjs + k)) break; if (k == written) printobjects(ps, thisobj, &wroteobjs, &written, DEFAULTCOLOR); } } } } else { /* No unsaved changes in these objects */ setassaved(wroteobjs, written); for (i = 0; i < xobjs.pages; i++) if (pagelist[i] > 0) xobjs.pagelist[i]->pageinst->thisobject->changes = 0; xobjs.new_changes = countchanges(NULL); } /* Free allocated memory */ free((char *)pagelist); free((char *)wroteobjs); /* Done! */ fprintf(ps, "%%%%Trailer\n"); fprintf(ps, "XCIRCsave restore\n"); fprintf(ps, "%%%%EOF\n"); fclose(ps); Wprintf("File %s saved (%d page%s).", fname, multipage, (multipage > 1 ? "s" : "")); if (mode == ALL_PAGES) { /* Remove the temporary redundant backup */ sprintf(outname, "%sB", xobjs.tempfile); unlink(outname); } else if (!xobjs.retain_backup) { /* Remove the backup file */ sprintf(outname, "%s~", fname); unlink(outname); } /* Write LATEX strings, if any are present */ TopDoLatex(); } /*----------------------------------------------------------------------*/ /* Given a color index, print the R, G, B values */ /*----------------------------------------------------------------------*/ int printRGBvalues(char *tstr, int index, const char *postfix) { int i; if (index >= 0 && index < number_colors) { sprintf(tstr, "%4.3f %4.3f %4.3f %s", (float)colorlist[index].color.red / 65535, (float)colorlist[index].color.green / 65535, (float)colorlist[index].color.blue / 65535, postfix); return 0; } /* The program can reach this point for any color which is */ /* not listed in the table. This can happen when parameters */ /* printed from printobjectparams object contain the string */ /* "@p_color". Therefore print the default top-level */ /* default color, which is black. */ /* If the index is *not* DEFAULTCOLOR (-1), return an error */ /* code. */ sprintf(tstr, "0 0 0 %s", postfix); return (index == DEFAULTCOLOR) ? 0 : -1; } /*----------------------------------------------------*/ /* Write string to PostScript string, ignoring NO_OPs */ /*----------------------------------------------------*/ char *nosprint(char *baseptr, int *margin, int *extsegs) { int qtmp, slen = 100; char *sptr, *lptr = NULL, lsave, *sptr2; u_char *pptr, *qptr, *bptr; bptr = (u_char *)malloc(slen); /* initial length 100 */ qptr = bptr; while(1) { /* loop for breaking up margin-limited text into words */ if (*margin > 0) { sptr = strrchr(baseptr, ' '); if (sptr == NULL) sptr = baseptr; else { if (*(sptr + 1) == '\0') { while (*sptr == ' ') sptr--; *(sptr + 1) = '\0'; sptr2 = strrchr(baseptr, ' '); *(sptr + 1) = ' '; if (sptr2 == NULL) sptr = baseptr; else sptr = sptr2 + 1; } else sptr++; } } else sptr = baseptr; *qptr++ = '('; /* Includes extended character set (non-ASCII) */ for (pptr = sptr; pptr && *pptr != '\0'; pptr++) { /* Ensure enough space for the string, including everything */ /* following the "for" loop */ qtmp = qptr - bptr; if (qtmp + 7 >= slen) { slen += 7; bptr = (char *)realloc(bptr, slen); qptr = bptr + qtmp; } /* Deal with non-printable characters and parentheses */ if (*pptr > (char)126) { sprintf(qptr, "\\%3o", (int)(*pptr)); qptr += 4; } else { if ((*pptr == '(') || (*pptr == ')') || (*pptr == '\\')) *qptr++ = '\\'; *qptr++ = *pptr; } } if (qptr == bptr + 1) { /* Empty string gets a NULL result, not "()" */ qptr--; } else { *qptr++ = ')'; *qptr++ = ' '; } if (lptr != NULL) *lptr = lsave; if (sptr == baseptr) break; else { lptr = sptr; lsave = *lptr; *lptr = '\0'; (*extsegs)++; } } *qptr++ = '\0'; return (char *)bptr; } /*--------------------------------------------------------------*/ /* Write label segments to the output (in reverse order) */ /*--------------------------------------------------------------*/ short writelabel(FILE *ps, stringpart *chrtop, short *stcount) { short i, segs = 0; stringpart *chrptr; char **ostr = (char **)malloc(sizeof(char *)); char *tmpstr; float lastscale = 1.0; int lastfont = -1; int margin = 0; int extsegs = 0; /* Write segments into string array, in forward order */ for (chrptr = chrtop; chrptr != NULL; chrptr = chrptr->nextpart) { ostr = (char **)realloc(ostr, (segs + 1) * sizeof(char *)); if (chrtop->type == PARAM_END) { /* NULL parameter is empty string */ ostr[segs] = (char *)malloc(4); strcpy(ostr[segs], "() "); } else { tmpstr = writesegment(chrptr, &lastscale, &lastfont, &margin, &extsegs); if (tmpstr[0] != '\0') ostr[segs] = tmpstr; else segs--; } segs++; } /* Write string array to output in reverse order */ for (i = segs - 1; i >= 0; i--) { dostcount(ps, stcount, strlen(ostr[i])); fputs(ostr[i], ps); free(ostr[i]); } free(ostr); return segs + extsegs; } /*--------------------------------------------------------------*/ /* Write a single label segment to the output */ /* (Recursive, so we can write segments in the reverse order) */ /*--------------------------------------------------------------*/ char *writesegment(stringpart *chrptr, float *lastscale, int *lastfont, int *margin, int *extsegs) { int type = chrptr->type; char *retstr, *validname; switch(type) { case PARAM_START: validname = create_valid_psname(chrptr->data.string, TRUE); sprintf(_STR, "%s ", validname); break; case PARAM_END: _STR[0] = '\0'; chrptr->nextpart = NULL; break; case SUBSCRIPT: sprintf(_STR, "{ss} "); break; case SUPERSCRIPT: sprintf(_STR, "{Ss} "); break; case NORMALSCRIPT: *lastscale = 1.0; sprintf(_STR, "{ns} "); break; case UNDERLINE: sprintf(_STR, "{ul} "); break; case OVERLINE: sprintf(_STR, "{ol} "); break; case NOLINE: sprintf(_STR, "{} "); break; case HALFSPACE: sprintf(_STR, "{hS} "); break; case QTRSPACE: sprintf(_STR, "{qS} "); break; case RETURN: *lastscale = 1.0; if (chrptr->data.flags == 0) // Ignore automatically-generated line breaks sprintf(_STR, "{CR} "); else sprintf(_STR, ""); break; case TABSTOP: sprintf(_STR, "{Ts} "); break; case TABFORWARD: sprintf(_STR, "{Tf} "); break; case TABBACKWARD: sprintf(_STR, "{Tb} "); break; case FONT_NAME: /* If font specifier is followed by a scale specifier, then */ /* record the font change but defer the output. Otherwise, */ /* output the font record now. */ if ((chrptr->nextpart == NULL) || (chrptr->nextpart->type != FONT_SCALE)) { if (*lastscale == 1.0) sprintf(_STR, "{/%s cf} ", fonts[chrptr->data.font].psname); else sprintf(_STR, "{/%s %5.3f cf} ", fonts[chrptr->data.font].psname, *lastscale); } else _STR[0] = '\0'; *lastfont = chrptr->data.font; break; case FONT_SCALE: if (*lastfont == -1) { Fprintf(stderr, "Warning: Font may not be the one that was intended.\n"); *lastfont = 0; } *lastscale = chrptr->data.scale; sprintf(_STR, "{/%s %5.3f cf} ", fonts[*lastfont].psname, *lastscale); break; case FONT_COLOR: strcpy(_STR, "{"); if (chrptr->data.color == DEFAULTCOLOR) strcat(_STR, "sce} "); else if (printRGBvalues(_STR + 1, chrptr->data.color, "scb} ") < 0) strcat(_STR, "sce} "); break; case MARGINSTOP: sprintf(_STR, "{%d MR} ", chrptr->data.width); *margin = chrptr->data.width; break; case KERN: sprintf(_STR, "{%d %d Kn} ", chrptr->data.kern[0], chrptr->data.kern[1]); break; case TEXT_STRING: /* Everything except TEXT_STRING will always fit in the _STR fixed- */ /* length character array. */ return nosprint(chrptr->data.string, margin, extsegs); } retstr = (char *)malloc(1 + strlen(_STR)); strcpy(retstr, _STR); return retstr; } /*--------------------------------------------------------------*/ /* Routine to write all the label segments as stored in _STR */ /*--------------------------------------------------------------*/ int writelabelsegs(FILE *ps, short *stcount, stringpart *chrptr) { Boolean ismultipart; int segs; if (chrptr == NULL) return 0; ismultipart = ((chrptr->nextpart != NULL) && (chrptr->nextpart->type != PARAM_END)) ? True : False; /* If there is only one part, but it is not a string or the */ /* end of a parameter (empty parameter), then set multipart */ /* anyway so we get the double brace {{ }}. */ if ((!ismultipart) && (chrptr->type != TEXT_STRING) && (chrptr->type != PARAM_END)) ismultipart = True; /* nextpart is not NULL if there are multiple parts to the string */ if (ismultipart) { fprintf(ps, "{"); (*stcount)++; } segs = writelabel(ps, chrptr, stcount); if (ismultipart) { fprintf(ps, "} "); (*stcount) += 2; } return segs; } /*--------------------------------------------------------------*/ /* Write the dictionary of parameters belonging to an object */ /*--------------------------------------------------------------*/ void printobjectparams(FILE *ps, objectptr localdata) { int segs; short stcount; oparamptr ops; char *ps_expr, *validkey; float fp; /* Check for parameters and default values */ if (localdata->params == NULL) return; fprintf(ps, "<<"); stcount = 2; for (ops = localdata->params; ops != NULL; ops = ops->next) { validkey = create_valid_psname(ops->key, TRUE); fprintf(ps, "/%s ", validkey); dostcount (ps, &stcount, strlen(validkey) + 2); switch (ops->type) { case XC_EXPR: ps_expr = evaluate_expr(localdata, ops, NULL); if (ops->which == P_SUBSTRING || ops->which == P_EXPRESSION) { dostcount(ps, &stcount, 3 + strlen(ps_expr)); fputs("(", ps); fputs(ps_expr, ps); fputs(") ", ps); } else if (ops->which == P_COLOR) { int ccol; /* Write R, G, B components for PostScript */ if (sscanf(ps_expr, "%d", &ccol) == 1) { fputs("{", ps); printRGBvalues(_STR, ccol, "} "); dostcount(ps, &stcount, 1 + strlen(_STR)); fputs(_STR, ps); } else { dostcount(ps, &stcount, 8); fputs("{0 0 0} ", ps); } } else if (sscanf(ps_expr, "%g", &fp) == 1) { dostcount(ps, &stcount, 1 + strlen(ps_expr)); fputs(ps_expr, ps); fputs(" ", ps); } else { /* Expression evaluates to error in object */ dostcount(ps, &stcount, 2); fputs("0 ", ps); } dostcount(ps, &stcount, 7 + strlen(ops->parameter.expr)); fputs("(", ps); fputs(ops->parameter.expr, ps); fputs(") pop ", ps); free(ps_expr); break; case XC_STRING: segs = writelabelsegs(ps, &stcount, ops->parameter.string); if (segs == 0) { /* When writing object parameters, we cannot allow a */ /* NULL value. Instead, print an empty string (). */ dostcount(ps, &stcount, 3); fputs("() ", ps); } break; case XC_INT: sprintf(_STR, "%d ", ops->parameter.ivalue); dostcount(ps, &stcount, strlen(_STR)); fputs(_STR, ps); break; case XC_FLOAT: sprintf(_STR, "%g ", ops->parameter.fvalue); dostcount(ps, &stcount, strlen(_STR)); fputs(_STR, ps); break; } } fprintf(ps, ">> "); dostcount (ps, &stcount, 3); } /*--------------------------------------------------------------*/ /* Write the list of parameters belonging to an object instance */ /*--------------------------------------------------------------*/ short printparams(FILE *ps, objinstptr sinst, short stcount) { int segs; short loccount; oparamptr ops, objops; eparamptr epp; char *ps_expr, *validkey, *validref; short instances = 0; if (sinst->params == NULL) return stcount; for (ops = sinst->params; ops != NULL; ops = ops->next) { validref = strdup(create_valid_psname(ops->key, TRUE)); /* Check for indirect parameter references */ for (epp = sinst->passed; epp != NULL; epp = epp->next) { if ((epp->flags & P_INDIRECT) && (epp->pdata.refkey != NULL)) { if (!strcmp(epp->pdata.refkey, ops->key)) { if (instances++ == 0) { fprintf(ps, "<<"); /* begin PostScript dictionary */ loccount = stcount + 2; } dostcount(ps, &loccount, strlen(validref + 3)); fprintf(ps, "/%s ", validref); dostcount(ps, &loccount, strlen(epp->key + 1)); validkey = create_valid_psname(epp->key, TRUE); fprintf(ps, "%s ", validkey); break; } } } if (epp == NULL) { /* No indirection */ Boolean nondefault = TRUE; char *deflt_expr = NULL; /* For instance values that are expression results, ignore if */ /* the instance value is the same as the default value. */ /* Correction 9/08: We can't second-guess expression results, */ /* in particular, this doesn't work for an expression like */ /* "page", where the local and default values will evaluate to */ /* the same result, when clearly each page is intended to have */ /* its own instance value, and "page" for an object is not a */ /* well-defined concept. */ // ps_expr = NULL; // objops = match_param(sinst->thisobject, ops->key); // if (objops && (objops->type == XC_EXPR)) { // int i; // float f; // deflt_expr = evaluate_expr(sinst->thisobject, objops, NULL); // switch (ops->type) { // case XC_STRING: // if (!textcomp(ops->parameter.string, deflt_expr, sinst)) // nondefault = FALSE; // break; // case XC_EXPR: // ps_expr = evaluate_expr(sinst->thisobject, ops, sinst); // if (!strcmp(ps_expr, deflt_expr)) nondefault = FALSE; // break; // case XC_INT: // sscanf(deflt_expr, "%d", &i); // if (i == ops->parameter.ivalue) nondefault = FALSE; // break; // case XC_FLOAT: // sscanf(deflt_expr, "%g", &f); // if (f == ops->parameter.fvalue) nondefault = FALSE; // break; // } // if (deflt_expr) free(deflt_expr); // if (nondefault == FALSE) { // if (ps_expr) free(ps_expr); // continue; // } // } if (instances++ == 0) { fprintf(ps, "<<"); /* begin PostScript dictionary */ loccount = stcount + 2; } dostcount(ps, &loccount, strlen(validref) + 2); fprintf(ps, "/%s ", validref); switch (ops->type) { case XC_STRING: segs = writelabelsegs(ps, &loccount, ops->parameter.string); if (segs == 0) { /* When writing object parameters, we cannot allow a */ /* NULL value. Instead, print an empty string (). */ dostcount(ps, &stcount, 3); fputs("() ", ps); } break; case XC_EXPR: ps_expr = evaluate_expr(sinst->thisobject, ops, sinst); dostcount(ps, &loccount, 3 + strlen(ps_expr)); fputs("(", ps); fputs(ps_expr, ps); fputs(") ", ps); free(ps_expr); /* The instance parameter expression may have the */ /* same expression as the object but a different */ /* result if the expression uses another parameter. */ /* Only print the expression itself if it's different */ /* from the object's expression. */ objops = match_param(sinst->thisobject, ops->key); if (objops && strcmp(ops->parameter.expr, objops->parameter.expr)) { dostcount(ps, &loccount, 3 + strlen(ops->parameter.expr)); fputs("(", ps); fputs(ops->parameter.expr, ps); fputs(") pop ", ps); } break; case XC_INT: if (ops->which == P_COLOR) { /* Write R, G, B components */ _STR[0] = '{'; printRGBvalues(_STR + 1, ops->parameter.ivalue, "} "); } else sprintf(_STR, "%d ", ops->parameter.ivalue); dostcount(ps, &loccount, strlen(_STR)); fputs(_STR, ps); break; case XC_FLOAT: sprintf(_STR, "%g ", ops->parameter.fvalue); dostcount(ps, &loccount, strlen(_STR)); fputs(_STR, ps); break; } } free(validref); } if (instances > 0) { fprintf(ps, ">> "); /* end PostScript dictionary */ loccount += 3; } return loccount; } /*------------------------------------------------------------------*/ /* Macro for point output (calls varpcheck() on x and y components) */ /*------------------------------------------------------------------*/ #define xyvarcheck(z, n, t) \ varpcheck(ps, (z).x, localdata, n, &stcount, *(t), P_POSITION_X); \ varpcheck(ps, (z).y, localdata, n, &stcount, *(t), P_POSITION_Y) #define xypathcheck(z, n, t, p) \ varpathcheck(ps, (z).x, localdata, n, &stcount, t, TOPATH(p), P_POSITION_X); \ varpathcheck(ps, (z).y, localdata, n, &stcount, t, TOPATH(p), P_POSITION_Y) /*--------------------------------------------------------------*/ /* Main routine for writing the contents of a single object to */ /* output file "ps". */ /*--------------------------------------------------------------*/ void printOneObject(FILE *ps, objectptr localdata, int ccolor) { int i, curcolor = ccolor; genericptr *savegen, *pgen; objinstptr sobj; graphicptr sg; Imagedata *img; pointlist savept; short stcount; short segs; Boolean has_parameter; char *fptr, *validname; /* first, get a total count of all objects and give warning if large */ if ((is_page(localdata) == -1) && (localdata->parts > 255)) { Wprintf("Warning: \"%s\" may exceed printer's PS limit for definitions", localdata->name); } for (savegen = localdata->plist; savegen < localdata->plist + localdata->parts; savegen++) { /* Check if this color is parameterized */ eparamptr epp; oparamptr ops; for (epp = (*savegen)->passed; epp != NULL; epp = epp->next) { ops = match_param(localdata, epp->key); if (ops != NULL && (ops->which == P_COLOR)) { /* Ensure that the next element forces a color change */ curcolor = ERRORCOLOR; sprintf(_STR, "%s scb\n", epp->key); fputs(_STR, ps); break; } } /* Enforce the rule that clipmasks must always be DEFAULTCOLOR */ switch(ELEMENTTYPE(*savegen)) { case POLYGON: case SPLINE: case ARC: case PATH: if (TOPOLY(savegen)->style & CLIPMASK) (*savegen)->color = DEFAULTCOLOR; break; } /* change current color if different */ if ((epp == NULL) && ((*savegen)->color != curcolor)) { if ((curcolor = (*savegen)->color) == DEFAULTCOLOR) fprintf(ps, "sce\n"); else { if (printRGBvalues(_STR, (*savegen)->color, "scb\n") < 0) { fprintf(ps, "sce\n"); curcolor = DEFAULTCOLOR; } else fputs(_STR, ps); } } stcount = 0; switch(ELEMENTTYPE(*savegen)) { case(POLYGON): varcheck(ps, TOPOLY(savegen)->style, localdata, &stcount, *savegen, P_STYLE); varfcheck(ps, TOPOLY(savegen)->width, localdata, &stcount, *savegen, P_LINEWIDTH); for (savept = TOPOLY(savegen)->points; savept < TOPOLY(savegen)-> points + TOPOLY(savegen)->number; savept++) { varpcheck(ps, savept->x, localdata, savept - TOPOLY(savegen)->points, &stcount, *savegen, P_POSITION_X); varpcheck(ps, savept->y, localdata, savept - TOPOLY(savegen)->points, &stcount, *savegen, P_POSITION_Y); } sprintf(_STR, "%hd ", TOPOLY(savegen)->number); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); if (varpcheck(ps, 0, localdata, -1, &stcount, *savegen, P_POSITION_X)) { sprintf(_STR, "addtox "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } if (varpcheck(ps, 0, localdata, -1, &stcount, *savegen, P_POSITION_Y)) { sprintf(_STR, "addtoy "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } sprintf(_STR, "polygon\n"); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); break; case(PATH): pgen = TOPATH(savegen)->plist; switch(ELEMENTTYPE(*pgen)) { case POLYGON: xypathcheck(TOPOLY(pgen)->points[0], 0, pgen, savegen); break; case SPLINE: xypathcheck(TOSPLINE(pgen)->ctrl[0], 0, pgen, savegen); break; } dostcount(ps, &stcount, 9); if (varpathcheck(ps, 0, localdata, -1, &stcount, pgen, TOPATH(savegen), P_POSITION_X)) { sprintf(_STR, "addtox1 "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } if (varpathcheck(ps, 0, localdata, -1, &stcount, pgen, TOPATH(savegen), P_POSITION_Y)) { sprintf(_STR, "addtoy1 "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } fprintf(ps, "beginpath\n"); for (pgen = TOPATH(savegen)->plist; pgen < TOPATH(savegen)->plist + TOPATH(savegen)->parts; pgen++) { switch(ELEMENTTYPE(*pgen)) { case POLYGON: for (savept = TOPOLY(pgen)->points + TOPOLY(pgen)->number - 1; savept > TOPOLY(pgen)->points; savept--) { xypathcheck(*savept, savept - TOPOLY(pgen)->points, pgen, savegen); } sprintf(_STR, "%hd ", TOPOLY(pgen)->number - 1); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); if (varpathcheck(ps, 0, localdata, -1, &stcount, pgen, TOPATH(savegen), P_POSITION_X)) { sprintf(_STR, "addtox "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } if (varpathcheck(ps, 0, localdata, -1, &stcount, pgen, TOPATH(savegen), P_POSITION_Y)) { sprintf(_STR, "addtoy "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } sprintf(_STR, "polyc\n"); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); break; case SPLINE: xypathcheck(TOSPLINE(pgen)->ctrl[1], 1, pgen, savegen); xypathcheck(TOSPLINE(pgen)->ctrl[2], 2, pgen, savegen); xypathcheck(TOSPLINE(pgen)->ctrl[3], 3, pgen, savegen); if (varpathcheck(ps, 0, localdata, -1, &stcount, pgen, TOPATH(savegen), P_POSITION_X)) { sprintf(_STR, "addtox3 "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } if (varpathcheck(ps, 0, localdata, -1, &stcount, pgen, TOPATH(savegen), P_POSITION_Y)) { sprintf(_STR, "addtoy3 "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } fprintf(ps, "curveto\n"); break; } } varcheck(ps, TOPATH(savegen)->style, localdata, &stcount, *savegen, P_STYLE); varfcheck(ps, TOPATH(savegen)->width, localdata, &stcount, *savegen, P_LINEWIDTH); fprintf(ps, "endpath\n"); break; case(SPLINE): varcheck(ps, TOSPLINE(savegen)->style, localdata, &stcount, *savegen, P_STYLE); varfcheck(ps, TOSPLINE(savegen)->width, localdata, &stcount, *savegen, P_LINEWIDTH); xyvarcheck(TOSPLINE(savegen)->ctrl[1], 1, savegen); xyvarcheck(TOSPLINE(savegen)->ctrl[2], 2, savegen); xyvarcheck(TOSPLINE(savegen)->ctrl[3], 3, savegen); xyvarcheck(TOSPLINE(savegen)->ctrl[0], 0, savegen); if (varpcheck(ps, 0, localdata, -1, &stcount, *savegen, P_POSITION_X)) { sprintf(_STR, "addtox4 "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } if (varpcheck(ps, 0, localdata, -1, &stcount, *savegen, P_POSITION_Y)) { sprintf(_STR, "addtoy4 "); dostcount (ps, &stcount, strlen(_STR)); fputs(_STR, ps); } fprintf(ps, "spline\n"); break; case(ARC): varcheck(ps, TOARC(savegen)->style, localdata, &stcount, *savegen, P_STYLE); varfcheck(ps, TOARC(savegen)->width, localdata, &stcount, *savegen, P_LINEWIDTH); xyvarcheck(TOARC(savegen)->position, 0, savegen); varcheck(ps, abs(TOARC(savegen)->radius), localdata, &stcount, *savegen, P_RADIUS); if (abs(TOARC(savegen)->radius) == TOARC(savegen)->yaxis) { varfcheck(ps, TOARC(savegen)->angle1, localdata, &stcount, *savegen, P_ANGLE1); varfcheck(ps, TOARC(savegen)->angle2, localdata, &stcount, *savegen, P_ANGLE2); fprintf(ps, "xcarc\n"); } else { varcheck(ps, abs(TOARC(savegen)->yaxis), localdata, &stcount, *savegen, P_MINOR_AXIS); varfcheck(ps, TOARC(savegen)->angle1, localdata, &stcount, *savegen, P_ANGLE1); varfcheck(ps, TOARC(savegen)->angle2, localdata, &stcount, *savegen, P_ANGLE2); fprintf(ps, "ellipse\n"); } break; case(OBJINST): sobj = TOOBJINST(savegen); varfcheck(ps, sobj->scale, localdata, &stcount, *savegen, P_SCALE); if (!(sobj->style & LINE_INVARIANT)) fprintf(ps, "/sv "); varfcheck(ps, sobj->rotation, localdata, &stcount, *savegen, P_ROTATION); xyvarcheck(sobj->position, 0, savegen); opsubstitute(sobj->thisobject, sobj); stcount = printparams(ps, sobj, stcount); validname = create_valid_psname(sobj->thisobject->name, FALSE); /* Names without technologies get a leading string '::' */ /* (blank technology) */ if (strstr(validname, "::") == NULL) fprintf(ps, "::%s\n", validname); else fprintf(ps, "%s\n", validname); break; case(GRAPHIC): sg = TOGRAPHIC(savegen); for (i = 0; i < xobjs.images; i++) { img = xobjs.imagelist + i; if (img->image == sg->source) break; } fptr = strrchr(img->filename, '/'); if (fptr == NULL) fptr = img->filename; else fptr++; fprintf(ps, "/%s ", fptr); stcount += (2 + strlen(fptr)); varfcheck(ps, sg->scale, localdata, &stcount, *savegen, P_SCALE); varfcheck(ps, sg->rotation, localdata, &stcount, *savegen, P_ROTATION); xyvarcheck(sg->position, 0, savegen); fprintf(ps, "graphic\n"); break; case(LABEL): /* Don't save temporary labels from schematic capture system */ if (TOLABEL(savegen)->string->type != FONT_NAME) break; /* Check for parameter --- must use "mark" to count # segments */ has_parameter = hasparameter(TOLABEL(savegen)); if (has_parameter) { fprintf(ps, "mark "); stcount += 5; } segs = writelabel(ps, TOLABEL(savegen)->string, &stcount); if (segs > 0) { if (has_parameter) sprintf(_STR, "ctmk "); else sprintf(_STR, "%hd ", segs); dostcount(ps, &stcount, strlen(_STR)); fputs(_STR, ps); varcheck(ps, TOLABEL(savegen)->anchor, localdata, &stcount, *savegen, P_ANCHOR); varfcheck(ps, TOLABEL(savegen)->rotation, localdata, &stcount, *savegen, P_ROTATION); varfcheck(ps, TOLABEL(savegen)->scale, localdata, &stcount, *savegen, P_SCALE); xyvarcheck(TOLABEL(savegen)->position, 0, savegen); switch(TOLABEL(savegen)->pin) { case LOCAL: strcpy(_STR, "pinlabel\n"); break; case GLOBAL: strcpy(_STR, "pinglobal\n"); break; case INFO: strcpy(_STR, "infolabel\n"); break; default: strcpy(_STR, "label\n"); } dostcount(ps, &stcount, strlen(_STR)); fputs(_STR, ps); } break; } } } /*----------------------------------------------------------------------*/ /* Recursive routine to print out the library objects used in this */ /* drawing, starting at the bottom of the object hierarchy so that each */ /* object is defined before it is called. A list of objects already */ /* written is maintained so that no object is written twice. */ /* */ /* When object "localdata" is not a top-level page, call this routine */ /* with mpage=-1 (simpler than checking whether localdata is a page). */ /*----------------------------------------------------------------------*/ void printobjects(FILE *ps, objectptr localdata, objectptr **wrotelist, short *written, int ccolor) { genericptr *gptr; objectptr *optr; /* oparamptr ops; (jdk) */ char *validname; int curcolor = ccolor; /* int libno; (jdk) */ /* Search among the list of objects already written to the output */ /* If this object has been written previously, then we ignore it. */ for (optr = *wrotelist; optr < *wrotelist + *written; optr++) if (*optr == localdata) return; /* If this page is a schematic, write out the definiton of any symbol */ /* attached to it, because that symbol may not be used anywhere else. */ if (localdata->symschem && (localdata->schemtype == PRIMARY)) printobjects(ps, localdata->symschem, wrotelist, written, curcolor); /* Search for all object definitions instantiated in this object, */ /* and (recursively) print them to the output. */ for (gptr = localdata->plist; gptr < localdata->plist + localdata->parts; gptr++) if (IS_OBJINST(*gptr)) printobjects(ps, TOOBJINST(gptr)->thisobject, wrotelist, written, curcolor); /* Update the list of objects already written to the output */ *wrotelist = (objectptr *)realloc(*wrotelist, (*written + 1) * sizeof(objectptr)); *(*wrotelist + *written) = localdata; (*written)++; validname = create_valid_psname(localdata->name, FALSE); if (strstr(validname, "::") == NULL) fprintf(ps, "/::%s {\n", validname); else fprintf(ps, "/%s {\n", validname); /* No longer writes "bbox" record */ if (localdata->hidden == True) fprintf(ps, "%% hidden\n"); /* For symbols with schematics, and "trivial" schematics */ if (localdata->symschem != NULL) fprintf(ps, "%% %s is_schematic\n", localdata->symschem->name); else if (localdata->schemtype == TRIVIAL) fprintf(ps, "%% trivial\n"); else if (localdata->schemtype == NONETWORK) fprintf(ps, "%% nonetwork\n"); printobjectparams(ps, localdata); fprintf(ps, "begingate\n"); /* Write all the elements in order */ opsubstitute(localdata, NULL); printOneObject(ps, localdata, curcolor); /* Write object (gate) trailer */ fprintf(ps, "endgate\n} def\n\n"); } /*--------------------------------------------------------------*/ /* Print a page header followed by everything in the page. */ /* this routine assumes that all objects used by the page have */ /* already been handled and written to the output. */ /* */ /* "page" is the page number, counting consecutively from one. */ /* "mpage" is the page number in xcircuit's pagelist structure. */ /*--------------------------------------------------------------*/ void printpageobject(FILE *ps, objectptr localdata, short page, short mpage) { /* genericptr *gptr; (jdk) */ XPoint origin, corner; objinstptr writepage; int width, height; float psnorm, psscale; float xmargin, ymargin; char *rootptr = NULL; polyptr framebox; /* Output page header information */ if (xobjs.pagelist[mpage]->filename) rootptr = strrchr(xobjs.pagelist[mpage]->filename, '/'); if (rootptr == NULL) rootptr = xobjs.pagelist[mpage]->filename; else rootptr++; writepage = xobjs.pagelist[mpage]->pageinst; psnorm = xobjs.pagelist[mpage]->outscale; psscale = getpsscale(psnorm, mpage); /* Determine the margins (offset of drawing from page corner) */ /* If a bounding box has been declared in the drawing, it is */ /* centered on the page. Otherwise, the drawing itself is */ /* centered on the page. If encapsulated, the bounding box */ /* encompasses only the object itself. */ width = toplevelwidth(writepage, &origin.x); height = toplevelheight(writepage, &origin.y); corner.x = origin.x + width; corner.y = origin.y + height; if (xobjs.pagelist[mpage]->pmode & 1) { /* full page */ if (xobjs.pagelist[mpage]->orient == 90) { xmargin = (xobjs.pagelist[mpage]->pagesize.x - ((float)height * psscale)) / 2; ymargin = (xobjs.pagelist[mpage]->pagesize.y - ((float)width * psscale)) / 2; } else { xmargin = (xobjs.pagelist[mpage]->pagesize.x - ((float)width * psscale)) / 2; ymargin = (xobjs.pagelist[mpage]->pagesize.y - ((float)height * psscale)) / 2; } } else { /* encapsulated --- should have 1" border so that any */ /* drawing passed directly to a printer will not clip */ xmargin = xobjs.pagelist[mpage]->margins.x; ymargin = xobjs.pagelist[mpage]->margins.y; } /* If a framebox is declared, then we adjust the page to be */ /* centered on the framebox by translating through the */ /* difference between the object center and the framebox */ /* center. */ if ((framebox = checkforbbox(localdata)) != NULL) { int i, fcentx = 0, fcenty = 0; for (i = 0; i < framebox->number; i++) { fcentx += framebox->points[i].x; fcenty += framebox->points[i].y; } fcentx /= framebox->number; fcenty /= framebox->number; xmargin += psscale * (float)(origin.x + (width >> 1) - fcentx); ymargin += psscale * (float)(origin.y + (height >> 1) - fcenty); } /* If the page label is just the root name of the file, or has been left */ /* as "Page n" or "Page_n", just do the normal page numbering. Otherwise, */ /* write out the page label explicitly. */ if ((rootptr == NULL) || (!strcmp(rootptr, localdata->name)) || (strchr(localdata->name, ' ') != NULL) || (strstr(localdata->name, "Page_") != NULL)) fprintf (ps, "%%%%Page: %d %d\n", page, page); else fprintf (ps, "%%%%Page: %s %d\n", localdata->name, page); if (xobjs.pagelist[mpage]->orient == 90) fprintf (ps, "%%%%PageOrientation: Landscape\n"); else fprintf (ps, "%%%%PageOrientation: Portrait\n"); if (xobjs.pagelist[mpage]->pmode & 1) { /* full page */ fprintf(ps, "%%%%PageBoundingBox: 0 0 %d %d\n", xobjs.pagelist[mpage]->pagesize.x, xobjs.pagelist[mpage]->pagesize.y); } /* Encapsulated files do not get a PageBoundingBox line, */ /* unless the bounding box was explicitly drawn. */ else if (framebox != NULL) { fprintf(ps, "%%%%PageBoundingBox: %g %g %g %g\n", xmargin, ymargin, xmargin + psscale * (float)(width), ymargin + psscale * (float)(height)); } fprintf (ps, "/pgsave save def bop\n"); /* Top-page definitions */ if (localdata->params != NULL) { printobjectparams(ps, localdata); fprintf(ps, "begin\n"); } if (localdata->symschem != NULL) { if (is_page(localdata->symschem) == -1) fprintf(ps, "%% %s is_symbol\n", localdata->symschem->name); else if (localdata->schemtype == SECONDARY) fprintf(ps, "%% %s is_primary\n", localdata->symschem->name); else Wprintf("Something is wrong. . . schematic \"%s\" is connected to" " schematic \"%s\" but is not declared secondary.\n", localdata->name, localdata->symschem->name); } /* Extend bounding box around schematic pins */ extendschembbox(xobjs.pagelist[mpage]->pageinst, &origin, &corner); if (xobjs.pagelist[mpage]->drawingscale.x != 1 || xobjs.pagelist[mpage]->drawingscale.y != 1) fprintf(ps, "%% %hd:%hd drawingscale\n", xobjs.pagelist[mpage]->drawingscale.x, xobjs.pagelist[mpage]->drawingscale.y); if (xobjs.pagelist[mpage]->gridspace != 32 || xobjs.pagelist[mpage]->snapspace != 16) fprintf(ps, "%% %4.2f %4.2f gridspace\n", xobjs.pagelist[mpage]->gridspace, xobjs.pagelist[mpage]->snapspace); if (xobjs.pagelist[mpage]->background.name != (char *)NULL) { /* float iscale = (xobjs.pagelist[mpage]->coordstyle == CM) ? CMSCALE : INCHSCALE; (jdk) */ if (xobjs.pagelist[mpage]->orient == 90) fprintf(ps, "%5.4f %d %d 90 psinsertion\n", psnorm, (int)(ymargin - xmargin), -((int)((float)(corner.y - origin.y) * psscale) + (int)(xmargin + ymargin))); else fprintf(ps, "%5.4f %d %d 0 psinsertion\n", psnorm, (int)(xmargin / psscale) - origin.x, (int)(ymargin / psscale) - origin.y); savebackground(ps, xobjs.pagelist[mpage]->background.name); fprintf(ps, "\nend_insert\n"); } if (xobjs.pagelist[mpage]->orient == 90) fprintf(ps, "90 rotate %d %d translate\n", (int)(ymargin - xmargin), -((int)((float)(corner.y - origin.y) * psscale) + (int)(xmargin + ymargin))); fprintf(ps, "%5.4f ", psnorm); switch(xobjs.pagelist[mpage]->coordstyle) { case CM: fprintf(ps, "cmscale\n"); break; default: fprintf(ps, "inchscale\n"); break; } /* Final scale and translation */ fprintf(ps, "%5.4f setlinewidth %d %d translate\n\n", 1.3 * xobjs.pagelist[mpage]->wirewidth, (int)(xmargin / psscale) - origin.x, (int)(ymargin / psscale) - origin.y); /* Output all the elements in the page */ printOneObject(ps, localdata, DEFAULTCOLOR); /* Page trailer */ if (localdata->params != NULL) fprintf(ps, "end "); fprintf(ps, "pgsave restore showpage\n"); } /*--------------------------------------------------------------*/ /* Print objects referenced from a particular page. These get */ /* bundled together at the beginning of the output file under */ /* the DSC "Setup" section, so that the PostScript */ /* interpreter knows that these definitions may be used by any */ /* page. This prevents ghostscript from producing an error */ /* when backing up in a multi-page document. */ /*--------------------------------------------------------------*/ void printrefobjects(FILE *ps, objectptr localdata, objectptr **wrotelist, short *written) { genericptr *gptr; /* If this page is a schematic, write out the definiton of any symbol */ /* attached to it, because that symbol may not be used anywhere else. */ if (localdata->symschem && (localdata->schemtype == PRIMARY)) printobjects(ps, localdata->symschem, wrotelist, written, DEFAULTCOLOR); /* Search for all object definitions instantiated on the page and */ /* write them to the output. */ for (gptr = localdata->plist; gptr < localdata->plist + localdata->parts; gptr++) if (IS_OBJINST(*gptr)) printobjects(ps, TOOBJINST(gptr)->thisobject, wrotelist, written, DEFAULTCOLOR); } /*----------------------------------------------------------------------*/ xcircuit-3.9.73/missing0000775000175000001440000002123112335667423013572 0ustar timusers#! /bin/sh # Common stub for a few missing GNU programs while installing. # Copyright 1996, 1997, 1999, 2000 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # 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, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # 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. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi case "$1" in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case "$1" in -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file tar try tar, gnutar, gtar, then tar without non-portable flags yacc create \`y.tab.[ch]', if possible, from existing .[ch]" ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing 0.3 - GNU automake" ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; aclocal) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case "$f" in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; bison|yacc) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.h fi ;; esac fi if [ ! -f y.tab.h ]; then echo >y.tab.h fi if [ ! -f y.tab.c ]; then echo 'main() { return 0; }' >y.tab.c fi ;; lex|flex) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if [ ! -f lex.yy.c ]; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` fi if [ -f "$file" ]; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit 1 fi ;; makeinfo) if test -z "$run" && (makeinfo --version) > /dev/null 2>&1; then # We have makeinfo, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file` fi touch $file ;; tar) shift if test -n "$run"; then echo 1>&2 "ERROR: \`tar' requires --run" exit 1 fi # We have already tried tar in the generic part. # Look for gnutar/gtar before invocation to avoid ugly error # messages. if (gnutar --version > /dev/null 2>&1); then gnutar ${1+"$@"} && exit 0 fi if (gtar --version > /dev/null 2>&1); then gtar ${1+"$@"} && exit 0 fi firstarg="$1" if shift; then case "$firstarg" in *o*) firstarg=`echo "$firstarg" | sed s/o//` tar "$firstarg" ${1+"$@"} && exit 0 ;; esac case "$firstarg" in *h*) firstarg=`echo "$firstarg" | sed s/h//` tar "$firstarg" ${1+"$@"} && exit 0 ;; esac fi echo 1>&2 "\ WARNING: I can't seem to be able to run \`tar' with the given arguments. You may want to install GNU tar or Free paxutils, or check the command line arguments." exit 1 ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequirements for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 xcircuit-3.9.73/xcwrap.c0000664000175000001440000001562712335667423013657 0ustar timusers/*--------------------------------------------------------------*/ /* xcwrap.c: */ /* Tcl module generator for xcircuit */ /*--------------------------------------------------------------*/ #ifdef TCL_WRAPPER #include #include #include #include Tcl_Interp *xcinterp; Tcl_Interp *consoleinterp; /*------------------------------------------------------*/ /* Redefine all of the callback functions for Tcl/Tk */ /*------------------------------------------------------*/ extern int Tk_SimpleObjCmd(); extern int xctcl_standardaction(); extern int xctcl_action(); extern int xctcl_refresh(); extern int xctcl_library(); extern int xctcl_tech(); extern int xctcl_font(); extern int xctcl_cursor(); extern int xctcl_bind(); extern int xctcl_filerecover(); extern int xctcl_color(); extern int xctcl_dofill(); extern int xctcl_doborder(); extern int xctcl_promptquit(); extern int xctcl_quit(); extern int xctcl_promptsavepage(); extern int xctcl_eventmode(); extern int xctcl_delete(); extern int xctcl_undo(); extern int xctcl_redo(); extern int xctcl_copy(); extern int xctcl_move(); extern int xctcl_edit(); extern int xctcl_param(); extern int xctcl_select(); extern int xctcl_deselect(); extern int xctcl_push(); extern int xctcl_pop(); extern int xctcl_rotate(); extern int xctcl_flip(); extern int xctcl_config(); extern int xctcl_page(); extern int xctcl_spice(); extern int xctcl_svg(); extern int xctcl_zoom(); extern int xctcl_pan(); extern int xctcl_element(); extern int xctcl_label(); extern int xctcl_polygon(); extern int xctcl_instance(); extern int xctcl_spline(); extern int xctcl_path(); extern int xctcl_arc(); extern int xctcl_graphic(); extern int xctcl_object(); extern int xctcl_here(); extern int xctcl_start(); extern int xctcl_netlist(); extern int xctcl_symschem(); extern int xctcl_tag(); typedef struct { const char *cmdstr; void (*func)(); } cmdstruct; static cmdstruct xc_commands[] = { {"action", (void *)xctcl_action}, {"standardaction", (void *)xctcl_standardaction}, {"start", (void *)xctcl_start}, {"tag", (void *)xctcl_tag}, {"refresh", (void *)xctcl_refresh}, {"library", (void *)xctcl_library}, {"technology", (void *)xctcl_tech}, {"loadfont", (void *)xctcl_font}, {"cursor", (void *)xctcl_cursor}, {"bindkey", (void *)xctcl_bind}, {"filerecover", (void *)xctcl_filerecover}, {"color", (void *)xctcl_color}, {"fill", (void *)xctcl_dofill}, {"border", (void *)xctcl_doborder}, {"quit", (void *)xctcl_promptquit}, {"quitnocheck", (void *)xctcl_quit}, {"promptsavepage", (void *)xctcl_promptsavepage}, {"eventmode", (void *)xctcl_eventmode}, {"delete", (void *)xctcl_delete}, {"undo", (void *)xctcl_undo}, {"redo", (void *)xctcl_redo}, {"select", (void *)xctcl_select}, {"deselect", (void *)xctcl_deselect}, {"copy", (void *)xctcl_copy}, {"move", (void *)xctcl_move}, {"edit", (void *)xctcl_edit}, {"parameter", (void *)xctcl_param}, {"push", (void *)xctcl_push}, {"pop", (void *)xctcl_pop}, {"rotate", (void *)xctcl_rotate}, {"flip", (void *)xctcl_flip}, {"config", (void *)xctcl_config}, {"page", (void *)xctcl_page}, {"zoom", (void *)xctcl_zoom}, {"pan", (void *)xctcl_pan}, {"element", (void *)xctcl_element}, {"label", (void *)xctcl_label}, {"polygon", (void *)xctcl_polygon}, {"instance", (void *)xctcl_instance}, {"spline", (void *)xctcl_spline}, {"path", (void *)xctcl_path}, {"arc", (void *)xctcl_arc}, {"graphic", (void *)xctcl_graphic}, {"object", (void *)xctcl_object}, {"here", (void *)xctcl_here}, {"netlist", (void *)xctcl_netlist}, {"symbol", (void *)xctcl_symschem}, {"schematic", (void *)xctcl_symschem}, {"spice", (void *)xctcl_spice}, {"svg", (void *)xctcl_svg}, {"", NULL} /* sentinel */ }; extern Tcl_HashTable XcTagTable; /*--------------------------------------------------------------*/ /* Initialization procedure for Tcl/Tk */ /*--------------------------------------------------------------*/ #ifdef _MSC_VER __declspec(dllexport) #endif int Xcircuit_Init(Tcl_Interp *interp) { char command[256]; int cmdidx; Tk_Window tktop; char *tmp_s, *tmp_l; char *cadhome; char version_string[20]; /* Interpreter sanity checks */ if (interp == NULL) return TCL_ERROR; /* Remember the interpreter */ xcinterp = interp; if (Tcl_InitStubs(interp, "8.1", 0) == NULL) return TCL_ERROR; tmp_s = getenv("XCIRCUIT_SRC_DIR"); if (tmp_s == NULL) tmp_s = SCRIPTS_DIR; tmp_l = getenv("XCIRCUIT_LIB_DIR"); if (tmp_l == NULL) tmp_l = BUILTINS_DIR; strcpy(command, "xcircuit::"); /* Create the start command */ tktop = Tk_MainWindow(interp); /* Create all of the commands (except "simple") */ for (cmdidx = 0; xc_commands[cmdidx].func != NULL; cmdidx++) { sprintf(command + 10, "%s", xc_commands[cmdidx].cmdstr); Tcl_CreateObjCommand(interp, command, (Tcl_ObjCmdProc *)xc_commands[cmdidx].func, (ClientData)tktop, (Tcl_CmdDeleteProc *) NULL); } /* Command which creates a "simple" window (this is a top- */ /* level command, not one in the xcircuit namespace which */ /* is why I treat it separately from the other commands). */ Tcl_CreateObjCommand(interp, "simple", (Tcl_ObjCmdProc *)Tk_SimpleObjCmd, (ClientData)tktop, (Tcl_CmdDeleteProc *) NULL); sprintf(command, "lappend auto_path %s", tmp_s); Tcl_Eval(interp, command); if (!strstr(tmp_s, "tcl")) { sprintf(command, "lappend auto_path %s/tcl", tmp_s); Tcl_Eval(interp, command); } if (strcmp(tmp_s, SCRIPTS_DIR)) Tcl_Eval(interp, "lappend auto_path " SCRIPTS_DIR ); /* Set $XCIRCUIT_SRC_DIR and $XCIRCUIT_LIB_DIR as Tcl variables */ Tcl_SetVar(interp, "XCIRCUIT_SRC_DIR", tmp_s, TCL_GLOBAL_ONLY); Tcl_SetVar(interp, "XCIRCUIT_LIB_DIR", tmp_l, TCL_GLOBAL_ONLY); /* Set $CAD_ROOT as a Tcl variable */ cadhome = getenv("CAD_ROOT"); if (cadhome == NULL) cadhome = CAD_DIR; Tcl_SetVar(interp, "CAD_ROOT", cadhome, TCL_GLOBAL_ONLY); /* Set $XCIRCUIT_VERSION and $XCIRCUIT_REVISION as Tcl variables */ sprintf(version_string, "%d", PROG_REVISION); Tcl_SetVar(interp, "XCIRCUIT_REVISION", version_string, TCL_GLOBAL_ONLY); sprintf(version_string, "%g", PROG_VERSION); Tcl_SetVar(interp, "XCIRCUIT_VERSION", version_string, TCL_GLOBAL_ONLY); #ifdef ASG /* Set a variable in Tcl indicating that the ASG module is compiled in */ Tcl_SetVar(interp, "XCIRCUIT_ASG", "1", TCL_GLOBAL_ONLY); #endif /* Export the namespace commands */ Tcl_Eval(interp, "namespace eval xcircuit namespace export *"); Tcl_PkgProvide(interp, "Xcircuit", version_string); /* Initialize the console interpreter, if there is one. */ if ((consoleinterp = Tcl_GetMaster(interp)) == NULL) consoleinterp = interp; /* Initialize the command tag table */ Tcl_InitHashTable(&XcTagTable, TCL_STRING_KEYS); return TCL_OK; } #endif /* TCL_WRAPPER */ xcircuit-3.9.73/render.c0000664000175000001440000005377112703462063013624 0ustar timusers/*----------------------------------------------------------------------*/ /* render.c --- Ghostscript rendering of background PostScript files */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /* These routines work only if ghostscript is on the system. */ /*----------------------------------------------------------------------*/ #undef GS_DEBUG /* #define GS_DEBUG */ #include #include #include #ifndef XC_WIN32 #include #include #endif #include #ifndef XC_WIN32 #include /* for waitpid() */ #endif #include #include #include #ifndef XC_WIN32 #include #include #include #else #ifdef TCL_WRAPPER #include #endif #endif /*------------------------------------------------------------------------*/ /* Local includes */ /*------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER #include #endif #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*------------------------------------------------------------------------*/ /* External Variable definitions */ /*------------------------------------------------------------------------*/ extern char _STR2[250], _STR[150]; extern Globaldata xobjs; extern XCWindowData *areawin; extern Display *dpy; extern int number_colors; extern colorindex *colorlist; extern Cursor appcursors[NUM_CURSORS]; #ifdef HAVE_CAIRO cairo_surface_t *bbuf = NULL; #else /* HAVE_CAIRO */ Pixmap bbuf = (Pixmap)NULL; /* background buffer */ extern Pixmap dbuf; #endif /* HAVE_CAIRO */ #ifndef HAVE_VFORK #define vfork fork #endif gs_state_t gs_state; /* Track state of the renderer */ /*------------------------------------------------------*/ /* Global variable definitions */ /*------------------------------------------------------*/ #ifndef HAVE_CAIRO Atom gv, gvc, gvpage, gvnext, gvdone; #ifndef _MSC_VER pid_t gsproc = -1; /* ghostscript process */ #else HANDLE gsproc = INVALID_HANDLE_VALUE; #endif int fgs[2]; /* stdin pipe pair for ghostscript */ Window mwin = 0; /* "false" window hack to get gs */ /* process to capture ClientMessage */ /* events. */ #endif /* HAVE_CAIRO */ /*--------------------------------------------------------------*/ /* Preliminary in allowing generic PostScript backgrounds */ /* via the ghostscript interpreter: Set the GHOSTVIEW and */ /* GHOSTVIEW atoms, and set the GHOSTVIEW environtment */ /* variable. */ /*--------------------------------------------------------------*/ void ghostinit_local() { #ifndef HAVE_CAIRO sprintf(_STR, "%ld %d %d %d %d %d %g %g %d %d %d %d", 0L, 0, 0, 0, areawin->width * 75 / 72, areawin->height * 75 / 72, 75.0, 75.0, 0, 0, 0, 0); XChangeProperty(dpy, areawin->window, gv, XA_STRING, 8, PropModeReplace, _STR, strlen(_STR)); sprintf(_STR, "%s %d %d", "Color", (int)FOREGROUND, (int)BACKGROUND); XChangeProperty(dpy, areawin->window, gvc, XA_STRING, 8, PropModeReplace, _STR, strlen(_STR)); XSync(dpy, False); #endif /* HAVE_CAIRO */ gs_state = GS_INIT; } /*------------------------------------------------------*/ /* Client message handler. Called by either the Tk */ /* client message handler (see below) or the Xt handler */ /* (see xcircuit.c). */ /* */ /* Returns True if a client message was received from */ /* the ghostscript process, False if not. */ /*------------------------------------------------------*/ Boolean render_client(XEvent *eventPtr) { #ifndef HAVE_CAIRO if (eventPtr->xclient.message_type == gvpage) { #ifdef GS_DEBUG fprintf(stdout, "Xcircuit: Received PAGE message from ghostscript\n"); #endif mwin = eventPtr->xclient.data.l[0]; Wprintf("Background finished."); XDefineCursor(dpy, areawin->window, DEFAULTCURSOR); /* Mark this as the most recently rendered background, so we don't */ /* have to render more than necessary. */ areawin->lastbackground = xobjs.pagelist[areawin->page]->background.name; gs_state = GS_READY; drawarea(areawin->area, NULL, NULL); } else if (eventPtr->xclient.message_type == gvdone) { #ifdef GS_DEBUG fprintf(stdout, "Xcircuit: Received DONE message from ghostscript\n"); #endif mwin = 0; gs_state = GS_INIT; } else { char *atomname; atomname = XGetAtomName(dpy, eventPtr->xclient.message_type); if (atomname != NULL) { fprintf(stderr, "Received client message using atom \"%s\"\n", atomname); XFree(atomname); } return False; } #endif /* HAVE_CAIRO */ return True; } /*------------------------------------------------------*/ /* Tk client handler procedure for the above routine. */ /*------------------------------------------------------*/ #ifdef TCL_WRAPPER #ifndef HAVE_CAIRO void handle_client(ClientData clientData, XEvent *eventPtr) { if (render_client(eventPtr) == False) fprintf(stderr, "Xcircuit: Received unknown client message\n"); } #endif /* HAVE_CAIRO */ #endif /*------------------------------------------------------*/ /* Global initialization */ /*------------------------------------------------------*/ void ghostinit() { #ifndef HAVE_CAIRO gv = XInternAtom(dpy, "GHOSTVIEW", False); gvc = XInternAtom(dpy, "GHOSTVIEW_COLORS", False); gvpage = XInternAtom(dpy, "PAGE", False); gvnext = XInternAtom(dpy, "NEXT", False); gvdone = XInternAtom(dpy, "DONE", False); ghostinit_local(); #ifdef TCL_WRAPPER Tk_CreateClientMessageHandler((Tk_ClientMessageProc *)handle_client); #endif #endif /* HAVE_CAIRO */ } /*------------------------------------------------------*/ /* Send a ClientMessage event */ /*------------------------------------------------------*/ #ifndef HAVE_CAIRO void send_client(Atom msg) { XEvent event; if (mwin == 0) return; /* Have to wait for gs */ /* to give us window # */ event.xclient.type = ClientMessage; event.xclient.display = dpy; event.xclient.window = areawin->window; event.xclient.message_type = msg; event.xclient.format = 32; event.xclient.data.l[0] = mwin; event.xclient.data.l[1] = bbuf; XSendEvent(dpy, mwin, False, 0, &event); XFlush(dpy); } #endif /* HAVE_CAIRO */ /*------------------------------------------------------*/ /* Ask ghostscript to produce the next page. */ /*------------------------------------------------------*/ void ask_for_next() { #ifndef HAVE_CAIRO if (gs_state != GS_READY) { /* If we're in the middle of rendering something, halt */ /* immediately and start over. */ if (gs_state == GS_PENDING) reset_gs(); return; } XSync(dpy, False); gs_state = GS_PENDING; send_client(gvnext); #ifdef GS_DEBUG fprintf(stdout, "Xcircuit: Sent NEXT message to ghostscript\n"); #endif #endif /* HAVE_CAIRO */ } /*--------------------------------------------------------*/ /* Start a ghostscript process and arrange the I/O pipes */ /* (Commented lines cause ghostscript to relay its stderr */ /* to xcircuit's stderr) */ /*--------------------------------------------------------*/ #ifndef HAVE_CAIRO void start_gs() { int std_out[2], std_err[2], ret; #ifdef XC_WIN32 unsigned int pipe_size = 8196; int pipe_mode = _O_BINARY; #endif #ifdef HAVE_PUTENV static char env_str1[128], env_str2[64]; #endif #ifdef TCL_WRAPPER if (bbuf != (Pixmap)NULL) Tk_FreePixmap(dpy, bbuf); bbuf = Tk_GetPixmap(dpy, dbuf, areawin->width, areawin->height, Tk_Depth(areawin->area)); #else /* !TCL_WRAPPER */ if (bbuf != (Pixmap)NULL) XFreePixmap(dpy, bbuf); bbuf = XCreatePixmap(dpy, dbuf, areawin->width, areawin->height, DefaultDepthOfScreen(xcScreen(areawin->area))); #endif /* TCL_WRAPPER */ XSync(dpy, False); #ifndef XC_WIN32 ret = pipe(fgs); ret = pipe(std_out); #else ret = _pipe(fgs, pipe_size, pipe_mode); ret = _pipe(std_out, pipe_size, pipe_mode); #endif #ifndef GS_DEBUG #ifndef XC_WIN32 ret = pipe(std_err); #else ret = _pipe(std_err, pipe_size, pipe_mode); #endif /* XC_WIN32 */ #endif /* We need a complicated pipe here, with input going from xcircuit */ /* to gs to provide scale/position information, and input going from */ /* the background file to gs for rendering. */ /* Here is not the place to do it. Set up gs to take stdin as input.*/ #ifdef _MSC_VER if (gsproc == INVALID_HANDLE_VALUE) { STARTUPINFO st_info; PROCESS_INFORMATION pr_info; char cmd[4096]; #ifdef HAVE_PUTENV sprintf(env_str1, "DISPLAY=%s", XDisplayString(dpy)); putenv(env_str1); sprintf(env_str2, "GHOSTVIEW=%ld %ld", (long)areawin->window, (long)bbuf); putenv(env_str2); #else setenv("DISPLAY", XDisplayString(dpy), True); sprintf(_STR, "%ld %ld", (long)areastruct.areawin, (long)bbuf); setenv("GHOSTVIEW", _STR, True); #endif SetHandleInformation((HANDLE)_get_osfhandle(fgs[1]), HANDLE_FLAG_INHERIT, 0); SetHandleInformation((HANDLE)_get_osfhandle(std_out[0]), HANDLE_FLAG_INHERIT, 0); #ifndef GS_DEBUG SetHandleInformation((HANDLE)_get_osfhandle(std_err[0]), HANDLE_FLAG_INHERIT, 0); #endif ZeroMemory(&st_info, sizeof(STARTUPINFO)); ZeroMemory(&pr_info, sizeof(PROCESS_INFORMATION)); st_info.cb = sizeof(STARTUPINFO); st_info.dwFlags = STARTF_USESTDHANDLES; st_info.hStdOutput = (HANDLE)_get_osfhandle(std_out[1]); st_info.hStdInput = (HANDLE)_get_osfhandle(fgs[0]); #ifndef GS_DEBUG st_info.hStdError = (HANDLE)_get_osfhandle(std_err[1]); #endif snprintf(cmd, 4095, "%s -dNOPAUSE -", GS_EXEC); if (CreateProcess(NULL, cmd, NULL, NULL, TRUE, 0, NULL, NULL, &st_info, &pr_info) == 0) { Wprintf("Error: ghostscript not running"); return; } CloseHandle(pr_info.hThread); gsproc = pr_info.hProcess; } #else if (gsproc < 0) { /* Ghostscript is not running yet */ gsproc = vfork(); if (gsproc == 0) { /* child process (gs) */ #ifdef GS_DEBUG fprintf(stdout, "Calling %s\n", GS_EXEC); #endif close(std_out[0]); #ifndef GS_DEBUG close(std_err[0]); #endif dup2(fgs[0], 0); close(fgs[0]); dup2(std_out[1], 1); close(std_out[1]); #ifndef GS_DEBUG dup2(std_err[1], 2); close(std_err[1]); #endif #ifdef HAVE_PUTENV sprintf(env_str1, "DISPLAY=%s", XDisplayString(dpy)); putenv(env_str1); sprintf(env_str2, "GHOSTVIEW=%ld %ld", (long)areawin->window, (long)bbuf); putenv(env_str2); #else setenv("DISPLAY", XDisplayString(dpy), True); sprintf(_STR, "%ld %ld", (long)areawin->window, (long)bbuf); setenv("GHOSTVIEW", _STR, True); #endif Flush(stderr); execlp(GS_EXEC, "gs", "-dNOPAUSE", "-", (char *)NULL); gsproc = -1; fprintf(stderr, "Exec of gs failed\n"); return; } else if (gsproc < 0) { Wprintf("Error: ghostscript not running"); return; /* error condition */ } } #endif } #endif /* HAVE_CAIRO */ /*--------------------------------------------------------*/ /* Parse the background file for Bounding Box information */ /*--------------------------------------------------------*/ void parse_bg(FILE *fi, FILE *fbg) { char *bbptr; Boolean bflag = False; int llx, lly, urx, ury; char line_in[256]; float psscale; psscale = getpsscale(xobjs.pagelist[areawin->page]->outscale, areawin->page); for(;;) { if (fgets(line_in, 255, fi) == NULL) { Wprintf("Error: end of file before end of insert."); return; } else if (strstr(line_in, "end_insert") != NULL) break; if (!bflag) { if ((bbptr = strstr(line_in, "BoundingBox:")) != NULL) { if (strstr(line_in, "(atend)") == NULL) { bflag = True; sscanf(bbptr + 12, "%d %d %d %d", &llx, &lly, &urx, &ury); /* compute user coordinate bounds from PostScript bounds */ #ifdef GS_DEBUG fprintf(stdout, "BBox %d %d %d %d PostScript coordinates\n", llx, lly, urx, ury); #endif llx = (int)((float)llx / psscale); lly = (int)((float)lly / psscale); urx = (int)((float)urx / psscale); ury = (int)((float)ury / psscale); #ifdef GS_DEBUG fprintf(stdout, "BBox %d %d %d %d XCircuit coordinates\n", llx, lly, urx, ury); #endif xobjs.pagelist[areawin->page]->background.bbox.lowerleft.x = llx; xobjs.pagelist[areawin->page]->background.bbox.lowerleft.y = lly; xobjs.pagelist[areawin->page]->background.bbox.width = (urx - llx); xobjs.pagelist[areawin->page]->background.bbox.height = (ury - lly); if (fbg == (FILE *)NULL) break; } } } if (fbg != (FILE *)NULL) fputs(line_in, fbg); } } /*-------------------------------------------------------*/ /* Get bounding box information from the background file */ /*-------------------------------------------------------*/ void bg_get_bbox() { FILE *fi; char *fname; fname = xobjs.pagelist[areawin->page]->background.name; if ((fi = fopen(fname, "r")) == NULL) { fprintf(stderr, "Failure to open background file to get bounding box info\n"); return; } parse_bg(fi, (FILE *)NULL); fclose(fi); } /*------------------------------------------------------------*/ /* Adjust object's bounding box based on the background image */ /*------------------------------------------------------------*/ void backgroundbbox(int mpage) { int llx, lly, urx, ury, tmp; objectptr thisobj = xobjs.pagelist[mpage]->pageinst->thisobject; psbkground *thisbg = &xobjs.pagelist[mpage]->background; llx = thisobj->bbox.lowerleft.x; lly = thisobj->bbox.lowerleft.y; urx = thisobj->bbox.width + llx; ury = thisobj->bbox.height + lly; if (thisbg->bbox.lowerleft.x < llx) llx = thisbg->bbox.lowerleft.x; if (thisbg->bbox.lowerleft.y < lly) lly = thisbg->bbox.lowerleft.y; tmp = thisbg->bbox.width + thisbg->bbox.lowerleft.x; if (tmp > urx) urx = tmp; tmp = thisbg->bbox.height + thisbg->bbox.lowerleft.y; if (tmp > ury) ury = tmp; thisobj->bbox.lowerleft.x = llx; thisobj->bbox.lowerleft.y = lly; thisobj->bbox.width = urx - llx; thisobj->bbox.height = ury - lly; } /*------------------------------------------------------*/ /* Read a background PostScript image from a file and */ /* store in a temporary file, passing that filename to */ /* the background property of the page. */ /*------------------------------------------------------*/ void readbackground(FILE *fi) { FILE *fbg = (FILE *)NULL; int tfd; char *file_in = (char *)malloc(9 + strlen(xobjs.tempdir)); /* "@" denotes a temporary file */ sprintf(file_in, "@%s/XXXXXX", xobjs.tempdir); #ifdef _MSC_VER tfd = mktemp(file_in + 1); #else tfd = mkstemp(file_in + 1); #endif if (tfd == -1) fprintf(stderr, "Error generating temporary filename\n"); else { if ((fbg = fdopen(tfd, "w")) == NULL) { fprintf(stderr, "Error opening temporary file \"%s\"\n", file_in + 1); } } /* Read the file to the restore directive or end_insertion */ /* Skip restore directive and end_insertion command */ parse_bg(fi, fbg); if (fbg != (FILE *)NULL) { fclose(fbg); register_bg(file_in); } free(file_in); } /*------------------------------------------------------*/ /* Save a background PostScript image to the output */ /* file by streaming directly from the background file */ /*------------------------------------------------------*/ void savebackground(FILE *fo, char *psfilename) { FILE *psf; char *fname = psfilename; char line_in[256]; if (fname[0] == '@') fname++; if ((psf = fopen(fname, "r")) == NULL) { fprintf(stderr, "Error opening background file \"%s\" for reading.\n", fname); return; } for(;;) { if (fgets(line_in, 255, psf) == NULL) break; else fputs(line_in, fo); } fclose(psf); } /*--------------------------------------------------------------*/ /* Set up a page to render a PostScript image when redrawing. */ /* This includes starting the ghostscript process if it has */ /* not already been started. This routine does not draw the */ /* image, which is done on refresh. */ /*--------------------------------------------------------------*/ void register_bg(char *gsfile) { #ifndef HAVE_CAIRO if (gsproc < 0) start_gs(); else reset_gs(); #endif /* !HAVE_CAIRO */ xobjs.pagelist[areawin->page]->background.name = (char *) malloc(strlen(gsfile) + 1); strcpy(xobjs.pagelist[areawin->page]->background.name, gsfile); } /*------------------------------------------------------*/ /* Load a generic (non-xcircuit) postscript file as the */ /* background for the page. This function is called */ /* by the file import routine, and so it completes by */ /* running zoomview(), which redraws the image and */ /* the page. */ /*------------------------------------------------------*/ void loadbackground() { register_bg(_STR2); bg_get_bbox(); updatepagebounds(topobject); zoomview(areawin->area, NULL, NULL); } /*------------------------------------------------------*/ /* Send text to the ghostscript renderer */ /*------------------------------------------------------*/ #ifndef HAVE_CAIRO void send_to_gs(char *text) { #ifndef XC_WIN32 write(fgs[1], text, strlen(text)); tcflush(fgs[1], TCOFLUSH); #else _write(fgs[1], text, (unsigned int)strlen(text)); #endif #ifdef GS_DEBUG fprintf(stdout, "writing: %s", text); #endif } #endif /* !HAVE_CAIRO */ /*------------------------------------------------------*/ /* write scale and position to ghostscript */ /* and tell ghostscript to run the requested file */ /*------------------------------------------------------*/ #ifndef HAVE_CAIRO void write_scale_position_and_run_gs(float norm, float xpos, float ypos, const char *bgfile) { send_to_gs("/GSobj save def\n"); send_to_gs("/setpagedevice {pop} def\n"); send_to_gs("gsave\n"); sprintf(_STR, "%3.2f %3.2f translate\n", xpos, ypos); send_to_gs(_STR); sprintf(_STR, "%3.2f %3.2f scale\n", norm, norm); send_to_gs(_STR); sprintf(_STR, "(%s) run\n", bgfile); send_to_gs(_STR); send_to_gs("GSobj restore\n"); send_to_gs("grestore\n"); Wprintf("Rendering background image."); XDefineCursor(dpy, areawin->window, WAITFOR); } #endif /* !HAVE_CAIRO */ /*------------------------------------------------------*/ /* Call ghostscript to render the background into the */ /* pixmap buffer. */ /*------------------------------------------------------*/ int renderbackground() { char *bgfile; float psnorm, psxpos, psypos, defscale; float devres = 0.96; /* = 72.0 / 75.0, ps_units/in : screen_dpi */ #ifndef HAVE_CAIRO if (gsproc < 0) return -1; #endif /* !HAVE_CAIRO */ defscale = (xobjs.pagelist[areawin->page]->coordstyle == CM) ? CMSCALE : INCHSCALE; psnorm = areawin->vscale * (1.0 / defscale) * devres; psxpos = (float)(-areawin->pcorner.x) * areawin->vscale * devres; psypos = (float)(-areawin->pcorner.y) * areawin->vscale * devres; #ifndef HAVE_CAIRO psypos += areawin->height / 12.; #endif /* !HAVE_CAIRO */ /* Conditions for re-rendering: Must have a background specified */ /* and must be on the page, not a library or other object. */ if (xobjs.pagelist[areawin->page]->background.name == (char *)NULL) return -1; else if (areawin->lastbackground == xobjs.pagelist[areawin->page]->background.name) { return 0; } if (is_page(topobject) == -1) return -1; bgfile = xobjs.pagelist[areawin->page]->background.name; if (*bgfile == '@') bgfile++; /* Ask ghostscript to produce the next page */ ask_for_next(); /* Set the last background name to NULL; this will get the */ /* value when the rendering is done. */ areawin->lastbackground = NULL; #ifdef GS_DEBUG fprintf(stdout, "Rendering background from file \"%s\"\n", bgfile); #endif Wprintf("Rendering background image."); /* write scale and position to ghostscript */ /* and tell ghostscript to run the requested file */ write_scale_position_and_run_gs(psnorm, psxpos, psypos, bgfile); /* The page will be refreshed when we receive confirmation */ /* from ghostscript that the buffer has been rendered. */ return 0; } /*------------------------------------------------------*/ /* Copy the rendered background pixmap to the window. */ /*------------------------------------------------------*/ int copybackground() { /* Don't copy if the buffer is not ready to use */ if (gs_state != GS_READY) return -1; /* Only draw on a top-level page */ if (is_page(topobject) == -1) return -1; #ifdef HAVE_CAIRO cairo_set_source_surface(areawin->cr, bbuf, 0., 0.); cairo_paint(areawin->cr); #else XCopyArea(dpy, bbuf, dbuf, areawin->gc, 0, 0, areawin->width, areawin->height, 0, 0); #endif return 0; } /*------------------------------------------------------*/ /* Exit ghostscript. . . not so gently */ /*------------------------------------------------------*/ int exit_gs() { #ifndef HAVE_CAIRO #ifdef _MSC_VER if (gsproc == INVALID_HANDLE_VALUE) return -1; /* gs not running */ #else if (gsproc < 0) return -1; /* gs not running */ #endif #ifdef GS_DEBUG fprintf(stdout, "Waiting for gs to exit\n"); #endif #ifndef _MSC_VER kill(gsproc, SIGKILL); waitpid(gsproc, NULL, 0); #else TerminateProcess(gsproc, -1); #endif #ifdef GS_DEBUG fprintf(stdout, "gs has exited\n"); #endif mwin = 0; #ifdef _MSC_VER gsproc = INVALID_HANDLE_VALUE; #else gsproc = -1; #endif #endif /* !HAVE_CAIRO */ gs_state = GS_INIT; return 0; } /*------------------------------------------------------*/ /* Restart ghostscript */ /*------------------------------------------------------*/ int reset_gs() { #ifndef HAVE_CAIRO #ifdef _MSC_VER if (gsproc == INVALID_HANDLE_VALUE) return -1; #else if (gsproc < 0) return -1; #endif exit_gs(); ghostinit_local(); start_gs(); #endif /* !HAVE_CAIRO */ return 0; } /*----------------------------------------------------------------------*/ xcircuit-3.9.73/install-sh0000775000175000001440000001273612335667423014211 0ustar timusers#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5 (mit/util/scripts/install.sh). # # Copyright 1991 by the Massachusetts Institute of Technology # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that # the above copyright notice appear in all copies and that both that # copyright notice and this permission notice appear in supporting # documentation, and that the name of M.I.T. not be used in advertising or # publicity pertaining to distribution of the software without specific, # written prior permission. M.I.T. makes no representations about the # suitability of this software for any purpose. It is provided "as is" # without express or implied warranty. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" transformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: chmodcmd="" else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 xcircuit-3.9.73/flate.c0000664000175000001440000000724612335667423013444 0ustar timusers/* * flate.c * * Copyright (c) Sergei Gerasenko 2003-2004. * * This defines the prototypes of the functions used for compressing * and decompressing PDF streams. All of them utilize the zlib library * and in fact the functions themselves are slightly modified versions * of those included in an example file that came with the library. Kudos * to the authors of zlib and everybody else involved in its development. * * This file was taken from the SourceForge project "acroformtool". Files * "compression.c" and "compression.h" have been merged and modified as * needed to facilitate compilation in xcircuit. Thanks once again to the * open source community. */ #ifdef HAVE_LIBZ #include #include #include #include #include #include #ifdef TCL_WRAPPER #include #else #include "Xw/Xw.h" #endif #include "xcircuit.h" #include "prototypes.h" /* (jdk) */ /* * Substitute for original macro CHECK_ERROR * Return 1 on error, 0 on success */ int check_error(int err, char *prompt, char *msg) { if (err != Z_OK) { Fprintf(stderr, "%s error: %d", prompt, err); if (msg) Fprintf(stderr, "(%s)", msg); Fprintf(stderr, "\n"); return 1; } return 0; } /* * deflate() with large buffers */ u_long large_deflate (u_char *compr, u_long compr_len, u_char *uncompr, u_long uncompr_len) { z_stream c_stream; /* compression stream */ int err; c_stream.zalloc = (alloc_func)0; c_stream.zfree = (free_func)0; c_stream.opaque = (voidpf)0; err = deflateInit(&c_stream, Z_BEST_SPEED); if (check_error(err, "deflateInit", c_stream.msg)) return 0; c_stream.next_out = compr; c_stream.avail_out = (u_int)compr_len; c_stream.next_in = uncompr; c_stream.avail_in = (u_int)uncompr_len; err = deflate(&c_stream, Z_NO_FLUSH); if (check_error(err, "deflate", c_stream.msg)) return 0; if (c_stream.avail_in != 0) { Fprintf(stderr, "deflate not greedy"); } err = deflate(&c_stream, Z_FINISH); if (err != Z_STREAM_END) { Fprintf(stderr, "deflate should report Z_STREAM_END"); } err = deflateEnd(&c_stream); if (check_error(err, "deflateEnd", c_stream.msg)) return 0; /* Fprintf(stdout, "large_deflate(): OK\n"); */ return c_stream.total_out; } /* * inflate() with large buffers */ u_long large_inflate(u_char *compr, u_long compr_len, u_char **uncompr, u_long uncompr_len) { char *new_out_start; int err; z_stream d_stream; /* decompression stream */ d_stream.zalloc = (alloc_func)0; d_stream.zfree = (free_func)0; d_stream.opaque = (voidpf)0; d_stream.next_in = compr; d_stream.avail_in = (u_int)compr_len; err = inflateInit(&d_stream); if (check_error(err, "inflateInit", d_stream.msg)) return 0; d_stream.next_out = *uncompr; d_stream.avail_out = (u_int)uncompr_len; for (;;) { if (!d_stream.avail_out) { /* Make more memory for the decompression buffer */ *uncompr = realloc(*uncompr, uncompr_len * 2); /* Initialize new memory */ new_out_start = *uncompr + uncompr_len; memset(new_out_start, 0, uncompr_len); /* Point next_out to the next unused byte */ d_stream.next_out = new_out_start; /* Update the size of the uncompressed buffer */ d_stream.avail_out = (u_int)uncompr_len; } err = inflate(&d_stream, Z_NO_FLUSH); if (err == Z_STREAM_END) break; if (check_error(err, "large inflate", d_stream.msg)) return 0; } err = inflateEnd(&d_stream); if (check_error(err, "inflateEnd", d_stream.msg)) return 0; /* Fprintf(stdout, "large_inflate(): OK\n"); */ return d_stream.total_out; } #endif /* HAVE_LIBZ */ xcircuit-3.9.73/mkinstalldirs0000775000175000001440000000132512335667423015003 0ustar timusers#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain # $Id: mkinstalldirs,v 1.1.1.1 2011/04/10 21:15:05 tim Exp $ errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here xcircuit-3.9.73/rcfile.c0000664000175000001440000003627512337444526013620 0ustar timusers/*-------------------------------------------------------------------------*/ /* rcfile.c --- Load initialization variables from the .xcircuitrc file */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /* This file is made obsolete by the Python interpreter, if compiled in */ #if !defined(HAVE_PYTHON) && !defined(TCL_WRAPPER) /*-------------------------------------------------------------------------*/ /* written by Tim Edwards, 9/9/96 */ /*-------------------------------------------------------------------------*/ #include #include #include #include #include /* for usleep() */ #ifndef XC_WIN32 #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #endif #endif /*----------------------------------------------------------------------*/ /* Local includes */ /*----------------------------------------------------------------------*/ #include "xcircuit.h" #include "menudep.h" #include "colordefs.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*----------------------------------------------------------------------*/ /* External variable declarations */ /*----------------------------------------------------------------------*/ extern char _STR2[250], _STR[150]; extern fontinfo *fonts; extern short fontcount; extern XCWindowData *areawin; extern Globaldata xobjs; extern short beeper; extern Widget menuwidgets[]; extern Display *dpy; /*----------------------------------------------------------------------*/ #define LIBOVERRIDE 1 #define LIBLOADED 2 #define COLOROVERRIDE 4 #define FONTOVERRIDE 8 #define KEYOVERRIDE 16 /*----------------------------------------------------------------------*/ /* Execute a single command from a script or from the command line */ /*----------------------------------------------------------------------*/ short execcommand(short pflags, char *cmdptr) { short flags = pflags; Boolean a; char type[50], value[50]; char *argptr; short cpage = areawin->page; /* Note: areawin->page is set to 0 before loading the .xcircuitrc */ /*file, so .xcircuitrc file commands act on page 0 only; from the */ /* command line they act on the current page. */ for(argptr = cmdptr; isspace(*argptr); argptr++) if (*argptr == '\0') return flags; cmdptr = argptr; for(argptr = cmdptr; (!isspace(*argptr)) && (*argptr != '\0'); argptr++); *argptr++ = '\0'; while(isspace(*argptr)) argptr++; /* very liberal about comment line characters */ if (*cmdptr == '#' || *cmdptr == '%' || *cmdptr == ';'); /* startup configuration: enables/disables */ else if (!(a = strcmp(cmdptr, "enable")) || !strcmp(cmdptr, "disable")) { sscanf(argptr, "%149s", _STR); if (!strncmp(_STR, "grid", 4)) { areawin->gridon = a ? True : False; toggle(GridGridButton, (pointertype)&areawin->gridon, NULL); } else if (!strncmp(_STR, "snap", 4) || !strncmp(_STR, "snap-to", 4)) { areawin->snapto = a ? True : False; toggle(SnaptoSnaptoButton, (pointertype)&areawin->snapto, NULL); } else if (!strcmp(_STR, "axis") || !strcmp(_STR, "axes")) { areawin->axeson = a ? True : False; toggle(GridAxesButton, (pointertype)&areawin->axeson, NULL); } else if (!strcmp(_STR, "xschema") || !strcmp(_STR, "schema")) { /* Do nothing---retained for backward compatibility only */ } #ifdef HAVE_XPM else if (!strcmp(_STR, "toolbar")) { areawin->toolbar_on = a ? True : False; dotoolbar(OptionsDisableToolbarButton, NULL, NULL); } #endif } /* startup configuration: overrides */ else if (!strcmp(cmdptr, "override")) { /* "default" is now considered redundant */ if (!strncmp(argptr, "default", 7)) { argptr += 7; while (isspace(*argptr) && (*argptr != '\0')) argptr++; if (*argptr == '\0') return flags; /* bad syntax */ } sscanf(argptr, "%49s", value); if (!strcmp(value, "library") || !strcmp(value, "libraries")) { flags |= LIBOVERRIDE; } else if (!strcmp(value, "color") || !strcmp(value, "colors")) { flags |= COLOROVERRIDE; } else if (!strcmp(value, "font") || !strcmp(value, "fonts")) { flags |= FONTOVERRIDE; } else if (!strcmp(value, "key") || !strcmp(value, "keybindings")) { flags |= KEYOVERRIDE; } } /* load extra files */ else if (!strcmp(cmdptr, "load")) { int pageno = areawin->page; int savepage = areawin->page; if (sscanf(argptr, "%249s %d", _STR, &pageno) >= 1) { if (pageno != savepage) newpage(pageno); startloadfile(-1); if (pageno != savepage) newpage(savepage); } else Wprintf("Error in load statement."); } /* load builtin libraries */ else if (!strcmp(cmdptr, "library")) { int libnum; /* if loading of default libraries is not overridden, load them first */ if (!(flags & (LIBOVERRIDE | LIBLOADED))) { defaultscript(); flags |= LIBLOADED; } /* Optional third argument is the library number */ if (sscanf(argptr, "%149s %d", _STR, &libnum) == 1) libnum = LIBRARY; else { if (libnum >= xobjs.numlibs) libnum = createlibrary(FALSE); else libnum += LIBRARY - 1; } loadlibrary(libnum); } /* load extra fonts */ else if (!strncmp(cmdptr, "font", 4)) { /* if default font is not overridden, load it first */ if (!(flags & FONTOVERRIDE)) { loadfontfile("Helvetica"); flags |= FONTOVERRIDE; } if (sscanf(argptr, "%149s", _STR) == 1) loadfontfile(_STR); else Wprintf("Error in font statement."); } /* load extra colors */ else if (!strcmp(cmdptr, "color")) { sscanf(argptr, "%249s", _STR2); addnewcolorentry(xc_alloccolor(_STR2)); } /* create macro */ else if (!strcmp(cmdptr, "bind")) { int args; char *sptr; if (!(flags & KEYOVERRIDE)) { default_keybindings(); flags |= KEYOVERRIDE; } if ((args = sscanf(argptr, "%149s", _STR)) == 1) { char *binding; int func = -1, keywstate; keywstate = string_to_key(_STR); if (keywstate == 0) { /* Perhaps 1st arg is a function? */ keywstate = -1; func = string_to_func(_STR, NULL); } if (keywstate == -1) binding = function_binding_to_string(0, func); else binding = key_binding_to_string(0, keywstate); Wprintf("%s", binding); free(binding); } else if (args == 0) Wprintf("See help window for list of bindings"); else { /* Use entire line after 1st argument, so multiple words are allowed */ sptr = argptr + strlen(_STR); if (add_keybinding(areawin->area, _STR, sptr) < 0) { Wprintf("Function \"%s\" is not known\n", sptr); } } } /* destroy macro */ else if (!strcmp(cmdptr, "unbind")) { if (!(flags & KEYOVERRIDE)) { default_keybindings(); flags |= KEYOVERRIDE; } sscanf(argptr, "%149s %249s", _STR, _STR2); remove_keybinding(areawin->area, _STR, _STR2); } /* beep mode */ else if (!strcmp(cmdptr, "beep")) { sscanf(argptr, "%49s", type); beeper = (!strcmp(type, "off")) ? 0 : 1; } /* active delay */ else if (!strcmp(cmdptr, "pause")) { float dval = 0; sscanf(argptr, "%f", &dval); usleep((int)(1e6 * dval)); } /* active refresh */ else if (!strcmp(cmdptr, "refresh")) { XEvent event; refresh(NULL, NULL, NULL); while(XCheckWindowEvent(dpy, areawin->window, ~NoEventMask, &event)) XtDispatchEvent(&event); } /* set variables */ else if (!strcmp(cmdptr, "set") || !strcmp(cmdptr, "select")) { /* "default" is now considered redundant, but accepted for */ /* backward compatibility. */ if (!strncmp(argptr, "default", 7)) { argptr += 7; while (isspace(*argptr) && (*argptr != '\0')) argptr++; if (*argptr == '\0') return flags; /* bad syntax */ } if (!strncmp(argptr, "font", 4)) { short i; if (strstr(argptr + 4, "scale")) { sscanf(argptr + 4, "%*s %f", &areawin->textscale); } else { sscanf(argptr, "%*s %49s", value); for (i = 0; i < fontcount; i++) if (!strcmp(fonts[i].psname, value)) break; if (i == fontcount) { loadfontfile(value); } areawin->psfont = i; setdefaultfontmarks(); } } else if (!strncmp(argptr, "boxedit", 7)) { sscanf(argptr, "%*s %49s", value); if (!strcmp(value, "rhomboid-x")) boxedit(NULL, RHOMBOIDX, NULL); else if (!strcmp(value, "rhomboid-y")) boxedit(NULL, RHOMBOIDY, NULL); else if (!strcmp(value, "rhomboid-a")) boxedit(NULL, RHOMBOIDA, NULL); else if (!strcmp(value, "manhattan")) boxedit(NULL, MANHATTAN, NULL); else if (!strcmp(value, "normal")) boxedit(NULL, NORMAL, NULL); } else if (!strncmp(argptr, "line", 4)) { if (strstr(argptr + 4, "width")) { sscanf(argptr + 4, "%*s %f", &areawin->linewidth); } } else if (!strncmp(argptr, "colorscheme", 11)) { sscanf(argptr, "%*s %49s", value); if (!strcmp(value, "inverse") || !strcmp(value, "2")) areawin->invert = False; inversecolor(NULL, (pointertype)&areawin->invert, NULL); } else if (!strncmp(argptr, "coordstyle", 10)) { sscanf(argptr, "%*s %49s", value); if (!strcmp(value, "cm") || !strcmp(value, "centimeters")) { xobjs.pagelist[cpage]->coordstyle = CM; xobjs.pagelist[cpage]->pagesize.x = 595; /* A4 size */ xobjs.pagelist[cpage]->pagesize.y = 842; togglegrid((u_short)xobjs.pagelist[cpage]->coordstyle); } } else if (!strncmp(argptr, "orient", 6)) { /* "orient" or "orientation" */ sscanf(argptr, "%*s %49s", value); if (!strncmp(value, "land", 4)) xobjs.pagelist[cpage]->orient = 90; /* Landscape */ else xobjs.pagelist[cpage]->orient = 0; /* Portrait */ } else if (!strncmp(argptr, "page", 4)) { if (strstr(argptr + 4, "type") || strstr(argptr + 4, "style")) { sscanf(argptr + 4, "%*s %49s", value); if (!strcmp(value, "encapsulated") || !strcmp(value, "eps")) xobjs.pagelist[cpage]->pmode = 0; else xobjs.pagelist[cpage]->pmode = 1; } } else if (!strncmp(argptr, "grid", 4)) { if (strstr(argptr + 4, "space")) { sscanf(argptr + 4, "%*s %f", &xobjs.pagelist[cpage]->gridspace); } } else if (!strncmp(argptr, "snap", 4)) { if (strstr(argptr + 4, "space")) { sscanf(argptr + 4, "%*s %f", &xobjs.pagelist[cpage]->snapspace); } } } return flags; } /*-------------------------------------------------------------------------*/ #define TEMPLEN 128 short readcommand(short mode, FILE *fd) { char *temp, *tmpptr, *endptr; short templen = TEMPLEN, tempmax = TEMPLEN; short flags = (mode == 0) ? 0 : LIBOVERRIDE | LIBLOADED | FONTOVERRIDE; temp = (char *)malloc(templen); tmpptr = temp; while (fgets(tmpptr, templen, fd) != NULL) { endptr = tmpptr; while ((*endptr != '\0') && (*endptr != '\\')) { if (*endptr == '\n') { endptr = temp; templen = tempmax; flags = execcommand(flags, temp); break; } endptr++; templen--; } if (templen == 0) { templen = (int)(endptr - temp); tempmax += TEMPLEN; temp = (char *)realloc(temp, tempmax); tmpptr = temp + templen; templen = TEMPLEN; } else tmpptr = endptr; } free(temp); fclose(fd); return flags; } /*----------------------------------------------------------------------*/ /* Load the default script (like execscript() but don't allow recursive */ /* loading of the startup script) */ /*----------------------------------------------------------------------*/ void defaultscript() { FILE *fd; char *tmp_s = getenv((const char *)"XCIRCUIT_SRC_DIR"); if (!tmp_s) tmp_s = SCRIPTS_DIR; sprintf(_STR2, "%s/%s", tmp_s, STARTUP_FILE); if ((fd = fopen(_STR2, "r")) == NULL) { sprintf(_STR2, "%s/%s", SCRIPTS_DIR, STARTUP_FILE); if ((fd = fopen(_STR2, "r")) == NULL) { Wprintf("Failed to open startup script \"%s\"\n", STARTUP_FILE); return; } } readcommand(1, fd); } /*----------------------------------------------------------------------*/ /* Execute a script */ /*----------------------------------------------------------------------*/ void execscript() { FILE *fd; xc_tilde_expand(_STR2, 249); if ((fd = fopen(_STR2, "r")) != NULL) readcommand(0, fd); else { Wprintf("Failed to open script file \"%s\"\n", _STR2); } } /*----------------------------------------------------------------------*/ /* Execute the .xcircuitrc startup script */ /*----------------------------------------------------------------------*/ void loadrcfile() { char *userdir = getenv((const char *)"HOME"); FILE *fd; short i, flags = 0; sprintf(_STR2, "%s", USER_RC_FILE); /* Name imported from Makefile */ /* try first in current directory, then look in user's home directory */ xc_tilde_expand(_STR2, 249); if ((fd = fopen(_STR2, "r")) == NULL) { if (userdir != NULL) { sprintf(_STR2, "%s/%s", userdir, USER_RC_FILE); fd = fopen(_STR2, "r"); } } if (fd != NULL) flags = readcommand(0, fd); /* Add the default font if not loaded already */ if (!(flags & FONTOVERRIDE)) { loadfontfile("Helvetica"); for (i = 0; i < fontcount; i++) if (!strcmp(fonts[i].psname, "Helvetica")) areawin->psfont = i; } setdefaultfontmarks(); /* arrange the loaded libraries */ if (!(flags & (LIBOVERRIDE | LIBLOADED))) defaultscript(); /* Add the default colors */ if (!(flags & COLOROVERRIDE)) { addnewcolorentry(xc_alloccolor("Gray40")); addnewcolorentry(xc_alloccolor("Gray60")); addnewcolorentry(xc_alloccolor("Gray80")); addnewcolorentry(xc_alloccolor("Gray90")); addnewcolorentry(xc_alloccolor("Red")); addnewcolorentry(xc_alloccolor("Blue")); addnewcolorentry(xc_alloccolor("Green2")); addnewcolorentry(xc_alloccolor("Yellow")); addnewcolorentry(xc_alloccolor("Purple")); addnewcolorentry(xc_alloccolor("SteelBlue2")); addnewcolorentry(xc_alloccolor("Red3")); addnewcolorentry(xc_alloccolor("Tan")); addnewcolorentry(xc_alloccolor("Brown")); } /* These colors must be enabled whether or not colors are overridden, */ /* because they are needed by the schematic capture system. */ addnewcolorentry(xc_getlayoutcolor(LOCALPINCOLOR)); addnewcolorentry(xc_getlayoutcolor(GLOBALPINCOLOR)); addnewcolorentry(xc_getlayoutcolor(INFOLABELCOLOR)); addnewcolorentry(xc_getlayoutcolor(RATSNESTCOLOR)); addnewcolorentry(xc_getlayoutcolor(BBOXCOLOR)); /* Add the default key bindings */ if (!(flags & KEYOVERRIDE)) default_keybindings(); } #endif /* #endif for if !defined(HAVE_PYTHON) && !defined(TCL_WRAPPER) */ /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/cairo.c0000664000175000001440000013222413002017033013413 0ustar timusers/*-------------------------------------------------------------------------*/ /* cairo.c --- mainly cairo versions of the UDraw... stuff in functions.c */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/ /* originally written by Tim Edwards, 8/13/93 */ /* All cairo graphics library modifications by Erik van der Wal, May 2014 */ /*-------------------------------------------------------------------------*/ #ifdef HAVE_CAIRO #include #include #include #include #include #include #ifndef XC_WIN32 #include #endif #ifdef TCL_WRAPPER #include #endif /* TCL_WRAPPER */ #include "xcircuit.h" #include "colordefs.h" #include "prototypes.h" #ifdef CAIRO_HAS_FC_FONT #include #endif /* CAIRO_HAS_FC_FONT */ #ifdef HAVE_GS #include #include #include #endif /* HAVE_GS */ extern XCWindowData *areawin; extern Globaldata xobjs; extern int number_colors; extern colorindex *colorlist; extern short fontcount; extern fontinfo *fonts; extern Cursor appcursors[NUM_CURSORS]; extern Display *dpy; extern gs_state_t gs_state; extern cairo_surface_t *bbuf; static cairo_user_data_key_t fontinfo_key; static void xc_cairo_strokepath(short style, float width); /*----------------------------------------------------------------------------*/ void xc_cairo_set_matrix(const Matrix *xcm) { cairo_matrix_t m; m.xx = xcm->a; m.xy = xcm->b; m.x0 = xcm->c; m.yx = xcm->d; m.yy = xcm->e; m.y0 = xcm->f; cairo_set_matrix(areawin->cr, &m); } /*----------------------------------------------------------------------*/ /* Set the color, based on the given color index */ /*----------------------------------------------------------------------*/ void xc_cairo_set_color(int coloridx) { colorindex *xcc; if (coloridx >= number_colors) return; xcc = &colorlist[coloridx]; cairo_set_source_rgb(areawin->cr, (double)xcc->color.red / 65535., (double)xcc->color.green / 65535., (double)xcc->color.blue / 65535.); } /*----------------------------------------------------------------------------*/ void UDrawLine(XPoint *pt1, XPoint *pt2) { if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_save(areawin->cr); cairo_set_line_width(areawin->cr, xobjs.pagelist[areawin->page]->wirewidth); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_ROUND); cairo_set_line_join(areawin->cr, CAIRO_LINE_JOIN_BEVEL); cairo_move_to(areawin->cr, pt1->x, pt1->y); cairo_line_to(areawin->cr, pt2->x, pt2->y); cairo_stroke(areawin->cr); cairo_restore(areawin->cr); } /*----------------------------------------------------------------------*/ /* Add circle at given point to indicate that the point is a parameter. */ /* The circle is divided into quarters. For parameterized y-coordinate */ /* the top and bottom quarters are drawn. For parameterized x- */ /* coordinate, the left and right quarters are drawn. A full circle */ /* indicates either both x- and y-coordinates are parameterized, or */ /* else any other kind of parameterization (presently, not used). */ /* */ /* (note that the two angles in XDrawArc() are 1) the start angle, */ /* measured in absolute 64th degrees from 0 (3 o'clock), and 2) the */ /* path length, in relative 64th degrees (positive = counterclockwise, */ /* negative = clockwise)). */ /*----------------------------------------------------------------------*/ void UDrawCircle(XPoint *upt, u_char which) { XPoint wpt; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_save(areawin->cr); cairo_identity_matrix(areawin->cr); user_to_window(*upt, &wpt); cairo_set_line_width(areawin->cr, .75); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_BUTT); cairo_set_line_join(areawin->cr, CAIRO_LINE_JOIN_MITER); /* TODO: angles might be mirrored or turning the wrong way */ switch(which) { case P_POSITION_X: cairo_arc(areawin->cr, wpt.x, wpt.y, 4., M_PI * -.25, M_PI * .25); cairo_arc(areawin->cr, wpt.x, wpt.y, 4., M_PI * .75, M_PI * 1.25); break; case P_POSITION_Y: cairo_arc(areawin->cr, wpt.x, wpt.y, 4., M_PI * .25, M_PI * .75); cairo_arc(areawin->cr, wpt.x, wpt.y, 4., M_PI * 1.25, M_PI * 1.75); break; default: cairo_arc(areawin->cr, wpt.x, wpt.y, 4., 0., M_PI * 2.); break; } cairo_restore(areawin->cr); } /*----------------------------------------------------------------------*/ /* Add "X" at string origin */ /*----------------------------------------------------------------------*/ void UDrawXAt(XPoint *wpt) { if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_save(areawin->cr); cairo_identity_matrix(areawin->cr); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_width(areawin->cr, .75); cairo_move_to(areawin->cr, wpt->x - 3., wpt->y - 3.); cairo_line_to(areawin->cr, wpt->x + 3., wpt->y + 3.); cairo_move_to(areawin->cr, wpt->x + 3., wpt->y - 3.); cairo_line_to(areawin->cr, wpt->x - 3., wpt->y + 3.); cairo_stroke(areawin->cr); cairo_restore(areawin->cr); } void UDrawXLine(XPoint opt, XPoint cpt) { XPoint upt, vpt; double dashes[] = {4., 4.}; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_save(areawin->cr); cairo_identity_matrix(areawin->cr); xc_cairo_set_color(AUXCOLOR); cairo_set_dash(areawin->cr, dashes, sizeof(dashes) / sizeof(double), 0.); cairo_set_line_width(areawin->cr, .75); user_to_window(cpt, &upt); user_to_window(opt, &vpt); cairo_move_to(areawin->cr, vpt.x, vpt.y); cairo_line_to(areawin->cr, upt.x, upt.y); cairo_stroke(areawin->cr); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_move_to(areawin->cr, upt.x - 3., upt.y - 3.); cairo_line_to(areawin->cr, upt.x + 3., upt.y + 3.); cairo_move_to(areawin->cr, upt.x + 3., upt.y - 3.); cairo_line_to(areawin->cr, upt.x - 3., upt.y + 3.); cairo_stroke(areawin->cr); cairo_restore(areawin->cr); } /*-------------------------------------------------------------------------*/ void UDrawBox(XPoint origin, XPoint corner) { XPoint worig, wcorn; double r, g, b, a; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } user_to_window(origin, &worig); user_to_window(corner, &wcorn); cairo_save(areawin->cr); cairo_identity_matrix(areawin->cr); cairo_set_line_width(areawin->cr, 1.0); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_SQUARE); cairo_set_line_join(areawin->cr, CAIRO_LINE_JOIN_MITER); cairo_move_to(areawin->cr, worig.x + .5, worig.y + .5); cairo_line_to(areawin->cr, worig.x + .5, wcorn.y + .5); cairo_line_to(areawin->cr, wcorn.x + .5, wcorn.y + .5); cairo_line_to(areawin->cr, wcorn.x + .5, worig.y + .5); cairo_close_path(areawin->cr); xc_cairo_set_color(AUXCOLOR); cairo_pattern_get_rgba(cairo_get_source(areawin->cr), &r, &g, &b, &a); cairo_set_source_rgba(areawin->cr, r, g, b, .1 * a); cairo_fill_preserve(areawin->cr); cairo_set_source_rgba(areawin->cr, r, g, b, a); cairo_stroke(areawin->cr); cairo_restore(areawin->cr); } /*----------------------------------------------------------------------*/ /* Draw a box indicating the dimensions of the edit element that most */ /* closely reach the position "corner". */ /*----------------------------------------------------------------------*/ void UDrawRescaleBox(XPoint *corner) { XPoint newpoints[5]; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; /* No return here, since the return value might be needed? */ } if (areawin->selects == 0) return; if (areawin->redraw_ongoing) { int i; UGetRescaleBox(corner, newpoints); cairo_save(areawin->cr); xc_cairo_set_color(AUXCOLOR); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_ROUND); cairo_set_line_join(areawin->cr, CAIRO_LINE_JOIN_BEVEL); cairo_move_to(areawin->cr, newpoints[0].x, newpoints[0].y); for (i = 1; i < 4; i++) cairo_line_to(areawin->cr, newpoints[i].x, newpoints[i].y); xc_cairo_strokepath(0, 1); cairo_restore(areawin->cr); } } /*-------------------------------------------------------------------------*/ void UDrawBBox() { XPoint origin; XPoint worig, wcorn, corner; objinstptr bbinst = areawin->topinstance; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } if ((!areawin->bboxon) || (checkforbbox(topobject) != NULL)) return; origin = bbinst->bbox.lowerleft; corner.x = origin.x + bbinst->bbox.width; corner.y = origin.y + bbinst->bbox.height; /* Include any schematic labels in the bounding box. */ extendschembbox(bbinst, &origin, &corner); user_to_window(origin, &worig); user_to_window(corner, &wcorn); cairo_save(areawin->cr); cairo_identity_matrix(areawin->cr); xc_cairo_set_color(BBOXCOLOR); cairo_set_line_width(areawin->cr, 1.0); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_SQUARE); cairo_set_line_join(areawin->cr, CAIRO_LINE_JOIN_MITER); cairo_move_to(areawin->cr, worig.x + .5, worig.y + .5); cairo_line_to(areawin->cr, worig.x + .5, wcorn.y + .5); cairo_line_to(areawin->cr, wcorn.x + .5, wcorn.y + .5); cairo_line_to(areawin->cr, wcorn.x + .5, worig.y + .5); cairo_close_path(areawin->cr); cairo_stroke(areawin->cr); cairo_restore(areawin->cr); } /*----------------------------------------------------------------------*/ /* Main recursive object instance drawing routine. */ /* context is the instance information passed down from above */ /* theinstance is the object instance to be drawn */ /* level is the level of recursion */ /* passcolor is the inherited color value passed to object */ /* passwidth is the inherited linewidth value passed to the object */ /* stack contains graphics context information */ /*----------------------------------------------------------------------*/ void UDrawObject(objinstptr theinstance, short level, int passcolor, float passwidth, pushlistptr *stack) { genericptr *areagen; float tmpwidth; int defaultcolor = passcolor; int curcolor = passcolor; int thispart; short savesel; XPoint bboxin[2], bboxout[2]; u_char xm, ym; objectptr theobject = theinstance->thisobject; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } /* Save the number of selections and set it to zero while we do the */ /* object drawing. */ savesel = areawin->selects; areawin->selects = 0; /* All parts are given in the coordinate system of the object, unless */ /* this is the top-level object, in which they will be interpreted as */ /* relative to the screen. */ UPushCTM(); /* Stack is not used by cairo but *is* used by expression evaluators */ if (stack) push_stack((pushlistptr *)stack, theinstance, (char *)NULL); if (level != 0) UPreMultCTM(DCTM, theinstance->position, theinstance->scale, theinstance->rotation); if (theinstance->style & LINE_INVARIANT) passwidth /= fabs(theinstance->scale); /* do a quick test for intersection with the display window */ bboxin[0].x = theobject->bbox.lowerleft.x; bboxin[0].y = theobject->bbox.lowerleft.y; bboxin[1].x = theobject->bbox.lowerleft.x + theobject->bbox.width; bboxin[1].y = theobject->bbox.lowerleft.y + theobject->bbox.height; if (level == 0) extendschembbox(theinstance, &(bboxin[0]), &(bboxin[1])); UTransformbyCTM(DCTM, bboxin, bboxout, 2); xm = (bboxout[0].x < bboxout[1].x) ? 0 : 1; ym = (bboxout[0].y < bboxout[1].y) ? 0 : 1; if (bboxout[xm].x < areawin->width && bboxout[ym].y < areawin->height && bboxout[1 - xm].x > 0 && bboxout[1 - ym].y > 0) { /* make parameter substitutions */ psubstitute(theinstance); /* draw all of the elements */ tmpwidth = UTopTransScale(passwidth); cairo_set_line_width(areawin->cr, tmpwidth); cairo_set_dash(areawin->cr, NULL, 0, 0.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_ROUND); cairo_set_line_join(areawin->cr, CAIRO_LINE_JOIN_BEVEL); /* guard against plist being regenerated during a redraw by the */ /* expression parameter mechanism (should that be prohibited?) */ for (thispart = 0; thispart < theobject->parts; thispart++) { areagen = theobject->plist + thispart; if ((*areagen)->type & DRAW_HIDE) continue; if (defaultcolor != DOFORALL) { if ((*areagen)->color != curcolor) { if ((*areagen)->color == DEFAULTCOLOR) curcolor = defaultcolor; else curcolor = (*areagen)->color; XcTopSetForeground(curcolor); } } switch(ELEMENTTYPE(*areagen)) { case(POLYGON): if (level == 0 || !((TOPOLY(areagen))->style & BBOX)) UDrawPolygon(TOPOLY(areagen), passwidth); break; case(SPLINE): UDrawSpline(TOSPLINE(areagen), passwidth); break; case(ARC): UDrawArc(TOARC(areagen), passwidth); break; case(PATH): UDrawPath(TOPATH(areagen), passwidth); break; case(GRAPHIC): UDrawGraphic(TOGRAPHIC(areagen)); break; case(OBJINST): UDrawObject(TOOBJINST(areagen), level + 1, curcolor, passwidth, stack); break; case(LABEL): if (level == 0 || TOLABEL(areagen)->pin == False) UDrawString(TOLABEL(areagen), curcolor, theinstance); else if ((TOLABEL(areagen)->anchor & PINVISIBLE) && areawin->pinpointon) UDrawString(TOLABEL(areagen), curcolor, theinstance); else if (TOLABEL(areagen)->anchor & PINVISIBLE) UDrawStringNoX(TOLABEL(areagen), curcolor, theinstance); else if (level == 1 && TOLABEL(areagen)->pin && TOLABEL(areagen)->pin != INFO && areawin->pinpointon) UDrawXDown(TOLABEL(areagen)); break; } } /* restore the color passed to the object, if different from current color */ if ((defaultcolor != DOFORALL) && (passcolor != curcolor)) { XTopSetForeground(passcolor); } } /* restore the selection list (if any) */ areawin->selects = savesel; UPopCTM(); /* Stack is not used by cairo but *is* used by expression evaluators */ if (stack) pop_stack(stack); } /*-------------------------------------------------------------------------*/ static void xc_cairo_strokepath(short style, float width) { if (!(style & CLIPMASK) || (areawin->showclipmasks == TRUE)) { if (style & FILLED || (!(style & FILLED) && style & OPAQUE)) { if ((style & FILLSOLID) == FILLSOLID) cairo_fill_preserve(areawin->cr); else { double red, green, blue, alpha; cairo_pattern_get_rgba(cairo_get_source(areawin->cr), &red, &green, &blue, &alpha); if (!(style & FILLED)) cairo_set_source_rgba(areawin->cr, 1., 1., 1., alpha); else { double m = (1 + ((style & FILLSOLID) >> 5)) / 8.; if (style & OPAQUE) { double n = (1. - m); cairo_set_source_rgba(areawin->cr, m * red + n, m * green + n, m * blue + n, alpha); } else cairo_set_source_rgba(areawin->cr, red, green, blue, m * alpha); } cairo_fill_preserve(areawin->cr); cairo_set_source_rgba(areawin->cr, red, green, blue, alpha); } } if (!(style & NOBORDER)) { cairo_set_line_width(areawin->cr, width); cairo_set_line_join(areawin->cr, (style & SQUARECAP) ? CAIRO_LINE_JOIN_MITER : CAIRO_LINE_JOIN_BEVEL); if (style & (DASHED | DOTTED)) { double dashes[2]; dashes[0] = dashes[1] = 4.0 * width; if (style & DOTTED) dashes[0] = width; cairo_set_dash(areawin->cr, dashes, 2, 0.0); cairo_set_line_width(areawin->cr, width); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_BUTT); } else { cairo_set_dash(areawin->cr, NULL, 0, 0.0); cairo_set_line_cap(areawin->cr, (style & SQUARECAP) ? CAIRO_LINE_CAP_SQUARE : CAIRO_LINE_CAP_ROUND); } /* draw the spline and close off if so specified */ if (!(style & UNCLOSED)) cairo_close_path(areawin->cr); cairo_stroke_preserve(areawin->cr); } } if (style & CLIPMASK) cairo_clip_preserve(areawin->cr); cairo_new_path(areawin->cr); /* clear preserved paths */ } /*-------------------------------------------------------------------------*/ void UDrawPolygon(polyptr thepoly, float passwidth) { int i; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } if (thepoly->number) { cairo_move_to(areawin->cr, thepoly->points[0].x, thepoly->points[0].y); for (i = 1; i < thepoly->number; i++) cairo_line_to(areawin->cr, thepoly->points[i].x, thepoly->points[i].y); xc_cairo_strokepath(thepoly->style, thepoly->width * passwidth); } } /*-------------------------------------------------------------------------*/ void UDrawArc(arcptr thearc, float passwidth) { if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } if (abs(thearc->radius) == thearc->yaxis) cairo_arc(areawin->cr, thearc->position.x, thearc->position.y, abs(thearc->radius), thearc->angle1 * M_PI / 180.0, thearc->angle2 * M_PI / 180.0); else if (thearc->yaxis) { /* perform elliptical arc, as described in cairo manual */ cairo_save(areawin->cr); cairo_translate(areawin->cr, thearc->position.x, thearc->position.y); cairo_scale(areawin->cr, abs(thearc->radius), thearc->yaxis); cairo_arc(areawin->cr, 0.0, 0.0, 1.0, thearc->angle1 * M_PI / 180.0, thearc->angle2 * M_PI / 180.0); cairo_restore(areawin->cr); } else { /* no y-axis dimension: draw a line */ /* can we do this in a more elegant manner? */ double theta; double theta_start = thearc->angle1 * RADFAC; double theta_stop = thearc->angle2 * RADFAC; cairo_move_to(areawin->cr, thearc->position.x + fabs(thearc->radius) * cos(theta_start), thearc->position.y); for (theta = -M_PI; theta < theta_stop; theta += M_PI) { if (theta <= theta_start) continue; cairo_line_to(areawin->cr, thearc->position.x + fabs(thearc->radius) * cos(theta), thearc->position.y); } cairo_line_to(areawin->cr, thearc->position.x + fabs(thearc->radius) * cos(theta_stop), thearc->position.y); } xc_cairo_strokepath(thearc->style, thearc->width * passwidth); } /*-------------------------------------------------------------------------*/ void UDrawPath(pathptr thepath, float passwidth) { genericptr *genpath; polyptr thepoly; splineptr thespline; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } /* Draw first point */ if (thepath->parts) { genpath = thepath->plist; switch(ELEMENTTYPE(*genpath)) { case POLYGON: thepoly = TOPOLY(genpath); cairo_move_to(areawin->cr, thepoly->points[0].x, thepoly->points[0].y); break; case SPLINE: thespline = TOSPLINE(genpath); cairo_move_to(areawin->cr, thespline->ctrl[0].x, thespline->ctrl[0].y); break; } } /* Draw all other points */ for (genpath = thepath->plist; genpath < thepath->plist + thepath->parts; genpath++) { int i; switch(ELEMENTTYPE(*genpath)) { case POLYGON: thepoly = TOPOLY(genpath); for (i = 1; i < thepoly->number; i++) cairo_line_to(areawin->cr, thepoly->points[i].x, thepoly->points[i].y); break; case SPLINE: thespline = TOSPLINE(genpath); cairo_curve_to(areawin->cr, thespline->ctrl[1].x, thespline->ctrl[1].y, thespline->ctrl[2].x, thespline->ctrl[2].y, thespline->ctrl[3].x, thespline->ctrl[3].y); break; } } xc_cairo_strokepath(thepath->style, thepath->width * passwidth); } /*-------------------------------------------------------------------------*/ void UDrawSpline(splineptr thespline, float passwidth) { if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_move_to(areawin->cr, thespline->ctrl[0].x, thespline->ctrl[0].y); cairo_curve_to(areawin->cr, thespline->ctrl[1].x, thespline->ctrl[1].y, thespline->ctrl[2].x, thespline->ctrl[2].y, thespline->ctrl[3].x, thespline->ctrl[3].y); xc_cairo_strokepath(thespline->style, thespline->width * passwidth); } /*-------------------------------------------------------------------------*/ void UDrawGraphic(graphicptr gp) { double w, h; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_save(areawin->cr); cairo_translate(areawin->cr, gp->position.x, gp->position.y); cairo_rotate(areawin->cr, -gp->rotation * RADFAC); cairo_scale(areawin->cr, gp->scale, -gp->scale); w = cairo_image_surface_get_width(gp->source); h = cairo_image_surface_get_height(gp->source); cairo_set_source_surface(areawin->cr, gp->source, -w / 2., -h / 2.); cairo_rectangle(areawin->cr, -w / 2, -h / 2, w, h); cairo_clip(areawin->cr); cairo_paint(areawin->cr); cairo_restore(areawin->cr); } /*----------------------------*/ /* Draw the grids, axis, etc. */ /*----------------------------*/ void draw_grids(void) { double spc, spc2, spc3; cairo_matrix_t m = {1., 0., 0., -1., 0., 0.}; m.x0 = -areawin->pcorner.x * areawin->vscale; m.y0 = areawin->height + areawin->pcorner.y * areawin->vscale; if (!areawin->redraw_ongoing) { areawin->redraw_needed = True; return; } cairo_save(areawin->cr); /* draw lines for grid */ spc = xobjs.pagelist[areawin->page]->gridspace * areawin->vscale; if (areawin->gridon && spc > 8) { double x, y; int ix, iy; /* find bottom-right point on the grid */ double xbegin = areawin->width; double ybegin = areawin->height; cairo_set_matrix(areawin->cr, &m); cairo_scale(areawin->cr, spc, spc); cairo_device_to_user(areawin->cr, &xbegin, &ybegin); xbegin = floor(xbegin); ybegin = ceil(ybegin); ix = xbegin; iy = ybegin; cairo_user_to_device(areawin->cr, &xbegin, &ybegin); cairo_identity_matrix(areawin->cr); /* draw the grid */ xc_cairo_set_color(GRIDCOLOR); cairo_set_line_width(areawin->cr, 1.); for (x = xbegin; x >= 0.; x -= spc, ix--) { if (!ix && areawin->axeson) continue; /* do not draw main axis */ cairo_move_to(areawin->cr, floor(x) + .5, .5); cairo_line_to(areawin->cr, floor(x) + .5, areawin->height + .5); } for (y = ybegin; y >= 0.; y -= spc, iy++) { if (!iy && areawin->axeson) continue; /* do not draw main axis */ cairo_move_to(areawin->cr, .5, floor(y) + .5); cairo_line_to(areawin->cr, areawin->width + .5, floor(y) + .5); } cairo_stroke(areawin->cr); } if (areawin->axeson) { /* find main axis */ double x = 0, y = 0; cairo_set_matrix(areawin->cr, &m); cairo_user_to_device(areawin->cr, &x, &y); cairo_identity_matrix(areawin->cr); /* draw the grid */ xc_cairo_set_color(AXESCOLOR); cairo_set_line_width(areawin->cr, 1.); cairo_move_to(areawin->cr, floor(x) + .5, .5); cairo_line_to(areawin->cr, floor(x) + .5, areawin->height + .5); cairo_move_to(areawin->cr, .5, floor(y) + .5); cairo_line_to(areawin->cr, areawin->width + .5, floor(y) + .5); cairo_stroke(areawin->cr); } /* bounding box goes beneath everything except grid/axis lines */ UDrawBBox(); /* draw a little red dot at each snap-to point */ spc2 = xobjs.pagelist[areawin->page]->snapspace * areawin->vscale; if (areawin->snapto && spc2 > 8) { double x, y; /* find bottom-right point on the grid */ double xbegin = areawin->width; double ybegin = areawin->height; cairo_set_matrix(areawin->cr, &m); cairo_scale(areawin->cr, spc2, spc2); cairo_device_to_user(areawin->cr, &xbegin, &ybegin); xbegin = floor(xbegin); ybegin = ceil(ybegin); cairo_user_to_device(areawin->cr, &xbegin, &ybegin); cairo_identity_matrix(areawin->cr); /* draw the grid */ xc_cairo_set_color(SNAPCOLOR); cairo_set_line_width(areawin->cr, 1.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_ROUND); for (x = xbegin; x >= 0.; x -= spc2) { for (y = ybegin; y >= 0.; y -= spc2) { cairo_move_to(areawin->cr, floor(x) + .5, floor(y) + .5); cairo_close_path(areawin->cr); } } cairo_stroke(areawin->cr); } /* Draw major snap points */ spc3 = spc * 20.; if (spc > 4.) { double x, y; /* find bottom-right point on the grid */ double xbegin = areawin->width; double ybegin = areawin->height; cairo_set_matrix(areawin->cr, &m); cairo_scale(areawin->cr, spc3, spc3); cairo_device_to_user(areawin->cr, &xbegin, &ybegin); xbegin = floor(xbegin); ybegin = ceil(ybegin); cairo_user_to_device(areawin->cr, &xbegin, &ybegin); cairo_identity_matrix(areawin->cr); /* draw the grid */ xc_cairo_set_color(GRIDCOLOR); cairo_set_line_width(areawin->cr, 3.); cairo_set_line_cap(areawin->cr, CAIRO_LINE_CAP_ROUND); for (x = xbegin; x >= 0.; x -= spc3) { for (y = ybegin; y >= 0.; y -= spc3) { cairo_move_to(areawin->cr, floor(x) + .5, floor(y) + .5); cairo_close_path(areawin->cr); } } cairo_stroke(areawin->cr); } cairo_restore(areawin->cr); } /*---------------------------------------------------------------------*/ /* Draw a string at position offset, starting at the start index and */ /* ending before the end index. The offset is updated on return. */ /*---------------------------------------------------------------------*/ void UDrawCharString(u_char *text, int start, int end, XfPoint *offset, short styles, short ffont, int groupheight, int passcolor, float tmpscale) { int idx, nglyphs = 0; cairo_matrix_t oldm; double x, y; cairo_glyph_t *glyphs; UNUSED(passcolor); cairo_get_matrix(areawin->cr, &oldm); cairo_scale(areawin->cr, tmpscale, fabs(tmpscale)); /* under- and overlines */ if (styles & 8) y = offset->y / tmpscale - 6.; else if (styles & 16) y = offset->y / tmpscale + groupheight + 4; if (styles & 24) { /* under/overline thickness scales if bold */ float tmpthick = ((fonts[ffont].flags & 0x21) == 0x21) ? 4.0 : 2.0; cairo_set_line_width(areawin->cr, tmpthick); x = offset->x / tmpscale; } glyphs = cairo_glyph_allocate(end - start); for (idx = start; idx < end; idx++) { /* Add glyphs */ glyphs[nglyphs].index = fonts[ffont].glyph_index[text[idx]]; glyphs[nglyphs].x = offset->x / tmpscale; glyphs[nglyphs].y = offset->y / fabs(tmpscale); nglyphs++; /* Determine character width */ offset->x += fonts[ffont].glyph_advance[text[idx]] * tmpscale; } if (nglyphs) { cairo_show_glyphs(areawin->cr, glyphs, nglyphs); cairo_new_path(areawin->cr); } cairo_glyph_free(glyphs); if (styles & 24) { cairo_move_to(areawin->cr, x, y); cairo_line_to(areawin->cr, offset->x / tmpscale, y); cairo_stroke(areawin->cr); } cairo_set_matrix(areawin->cr, &oldm); } /*----------------------------------------------------------------------*/ /* A completely stripped down version of UDrawObject, used for stroke */ /* font drawing in xc_user_font_render */ /*----------------------------------------------------------------------*/ static void xc_draw_glyph_object(objinstptr inst, float passwidth) { int thispart; genericptr *areagen; objectptr obj = inst->thisobject; objinstptr ptr; for (thispart = 0; thispart < obj->parts; thispart++) { areagen = obj->plist + thispart; switch(ELEMENTTYPE(*areagen)) { case(POLYGON): UDrawPolygon(TOPOLY(areagen), passwidth); break; case(SPLINE): UDrawSpline(TOSPLINE(areagen), passwidth); break; case(ARC): UDrawArc(TOARC(areagen), passwidth); break; case(PATH): UDrawPath(TOPATH(areagen), passwidth); break; case(OBJINST): ptr = TOOBJINST(areagen); cairo_save(areawin->cr); cairo_translate(areawin->cr, ptr->position.x, ptr->position.y); cairo_rotate(areawin->cr, -ptr->rotation * RADFAC); cairo_scale(areawin->cr, ptr->scale, fabs(ptr->scale)); xc_draw_glyph_object(ptr, passwidth); cairo_restore(areawin->cr); break; } } } /*----------------------------------------------------------------------*/ /* Rendering function for a cairo_user_font_face, to draw the stroke */ /* fonts of xcircuit */ /* TODO: always this factor 40 to match with cairo. Is it BASELINE? */ /*----------------------------------------------------------------------*/ static cairo_status_t xc_user_font_render(cairo_scaled_font_t *scaled_font, unsigned long glyph, cairo_t *cr, cairo_text_extents_t *extents) { objectptr chr; objinst charinst; objinstptr theinstance; cairo_t *old_cr; float passwidth; double llx, lly, trx, try; cairo_font_face_t *ff = cairo_scaled_font_get_font_face(scaled_font); size_t fontidx = (size_t) cairo_font_face_get_user_data(ff, &fontinfo_key); fontinfo *fi = &fonts[fontidx]; chr = fi->encoding[glyph]; theinstance = &charinst; charinst.thisobject = chr; llx = chr->bbox.lowerleft.x / 40.; lly = chr->bbox.lowerleft.y / 40.; trx = (chr->bbox.lowerleft.x + chr->bbox.width) / 40.; try = (chr->bbox.lowerleft.y + chr->bbox.height) / 40.; /* temporary override areawin->cr with the font context */ old_cr = areawin->cr; areawin->cr = cr; cairo_scale(cr, 1. / 40., -1. / 40.); cairo_set_line_width(cr, 1); /* if font is derived and italic, premultiply by slanting matrix */ if ((fi->flags & 0x22) == 0x22) { cairo_matrix_t m = {1., 0., .25, 1., 0., 0.}; cairo_transform(areawin->cr, &m); llx += .25 * lly; trx += .25 * try; } /* simple boldface technique for derived fonts */ passwidth = ((fi->flags & 0x21) == 0x21) ? 4. : 2.; /* Correct extentswith line width */ llx -= passwidth / 40.; lly -= passwidth / 40.; trx += passwidth / 40.; try += passwidth / 40.; xc_draw_glyph_object(theinstance, passwidth); extents->x_bearing = llx; extents->y_bearing = -try; extents->width = trx - llx; extents->height = try - lly; extents->x_advance = (chr->bbox.lowerleft.x + chr->bbox.width) / 40.; extents->y_advance = 0.; areawin->cr = old_cr; return CAIRO_STATUS_SUCCESS; } /*----------------------------------------------------------------------*/ /* Function to translate unicode into a glyph index for the stroke font */ /*----------------------------------------------------------------------*/ static cairo_status_t xc_user_font_glyph(cairo_scaled_font_t *scaled_font, unsigned long unicode, unsigned long *glyph_index) { cairo_font_face_t *ff = cairo_scaled_font_get_font_face(scaled_font); size_t fontidx = (size_t) cairo_font_face_get_user_data(ff, &fontinfo_key); fontinfo *fi = &fonts[fontidx]; unsigned long idx; /* search all glyphs in the utf8encoding. This is allowed to be slow, */ /* as the glyph list will be buffered anyway */ for (idx = 1; idx < 255; idx++) { const char *s = fi->utf8encoding[idx]; int cidx = 0; /* Convert utf-8 to unicode */ unsigned long uc = s[0]; if (uc & 0x80) { unsigned long mask = 0x3f; while ((s[++cidx] & 0xc0) == 0x80) { uc = (uc << 6) | (s[cidx] & 0x3f); mask = (mask << 5) | 0x1f; } uc &= mask; } if (unicode == uc) { *glyph_index = idx; return CAIRO_STATUS_SUCCESS; } } /* This should not happen: replace unknown glyph with question mark */ *glyph_index = '?'; return CAIRO_STATUS_SUCCESS; } /*---------------------------------------------------------------------*/ /* find the corresponing cairo fontface for a given fontinfo structure */ /*---------------------------------------------------------------------*/ typedef struct { const char* postscript_name; const char* replacement_name; const char* foundry_name; } xc_font_replacement; static const xc_font_replacement replacement_fonts[] = { /* First try to see if 'real' postscript fonts have been installed */ {"ITC Avant Garde Gothic", "ITC Avant Garde Gothic", "adobe"}, {"ITC Bookman", "ITC Bookman", "adobe"}, {"Courier", "Courier", "adobe"}, {"Helvetica", "Helvetica", "adobe"}, {"Helvetica Narrow", "Helvetica Narrow", "adobe"}, {"New Century Schoolbook", "New Century Schoolbook", "adobe"}, {"Palatino", "Palatino", "adobe"}, {"Symbol", "Symbol", "adobe"}, {"Times", "Times", "adobe"}, {"Times-Roman", "Times-Roman", "adobe"}, {"ITC ZapfChangery", "ITC ZapfChangery", "adobe"}, {"ITC ZapfDingbats", "ITC ZapfDingbats", "adobe"}, /* Next try the URW postscript fonts (guaranteed to have same extents) */ {"ITC Avant Garde Gothic", "URW Gothic L", "urw"}, {"ITC Bookman", "URW Bookman L", "urw"}, {"Courier", "Nimbus Mono L", "urw"}, {"Helvetica", "Nimbus Sans L", "urw"}, {"Helvetica Narrow", "Nimbus Sans L Condensed", "urw"}, {"New Century Schoolbook", "Century Schoolbook L", "urw"}, {"Palatino", "URW Palladio L", "urw"}, {"Symbol", "Standard Symbols L", "urw"}, {"Times", "Nimbus Roman No9 L", "urw"}, {"Times-Roman", "Nimbus Roman No9 L", "urw"}, {"ITC ZapfChangery", "URW Changery L", "urw"}, {"ITC ZapfDingbats", "Dingbats", "urw"}, /* No success, use the 'old' stroke fonts */ {NULL, NULL, NULL} }; void xc_cairo_set_fontinfo(size_t fontidx) { /* TODO: memory leak. font_face is created here. It should also be */ /* destroyed again somewhere */ fontinfo *fi = &fonts[fontidx]; const char *family = fi->family; const xc_font_replacement *replace; int c; #ifdef CAIRO_HAS_FC_FONT int weight = FC_WEIGHT_NORMAL; int slant = FC_SLANT_ROMAN; fi->font_face = NULL; if (fi->flags & 1) weight = FC_WEIGHT_BOLD; if (fi->flags & 2) { if (!strcmp(family, "Helvetica")) slant = FC_SLANT_OBLIQUE; else slant = FC_SLANT_ITALIC; } /* Try to find a proper postscript font */ for (replace = replacement_fonts; replace->postscript_name; replace++) { if (!strcmp(replace->postscript_name, fi->family)) { FcPattern *matched; FcChar8 *matched_family, *matched_foundry; FcResult result; FcPattern *pattern = FcPatternBuild(NULL, FC_FAMILY, FcTypeString, replace->replacement_name, FC_WEIGHT, FcTypeInteger, weight, FC_SLANT, FcTypeInteger, slant, FC_FOUNDRY, FcTypeString, replace->foundry_name, NULL); FcConfigSubstitute(0, pattern, FcMatchPattern); FcDefaultSubstitute(pattern); matched = FcFontMatch(0, pattern, &result); /* Check if the matched font is actually the replacement font */ FcPatternGetString(matched, FC_FAMILY, 0, &matched_family); FcPatternGetString(matched, FC_FOUNDRY, 0, &matched_foundry); if (!strcmp(matched_family, replace->replacement_name) && !strcmp(matched_foundry, replace->foundry_name)) fi->font_face = cairo_ft_font_face_create_for_pattern(matched); FcPatternDestroy(matched); FcPatternDestroy(pattern); if (fi->font_face) break; } } #else /* CAIRO_HAS_FC_FONT */ fi->font_face = NULL; #endif /* CAIRO_HAS_FC_FONT */ /* Cache the dimensions and all glyphs of the font */ if (fi->font_face) { int num_glyphs; cairo_glyph_t *glyphs = NULL; cairo_scaled_font_t *scaled_font; cairo_text_extents_t extents; cairo_save(areawin->cr); cairo_identity_matrix(areawin->cr); cairo_set_font_face(areawin->cr, fi->font_face); cairo_set_font_size(areawin->cr, 100.); scaled_font = cairo_get_scaled_font(areawin->cr); for (c = 1; c < 256; c++) { /* skip encoding at index 0 */ cairo_scaled_font_text_to_glyphs(scaled_font, 0., 0., fi->utf8encoding[c], -1, &glyphs, &num_glyphs, NULL, NULL, NULL); fi->glyph_index[c] = glyphs[0].index; cairo_scaled_font_glyph_extents(scaled_font, glyphs, 1, &extents); fi->glyph_top[c] = -extents.y_bearing * 40. / 100.; /* fi->glyph_bottom[c] = extents.height * 40. / 100. + fi->glyph_top[c]; */ fi->glyph_bottom[c] = fi->glyph_top[c] - extents.height * 40. / 100.; fi->glyph_advance[c] = extents.x_advance * 40. / 100.; } cairo_glyph_free(glyphs); cairo_restore(areawin->cr); } else { /* No decent postscript font found. Backup using stroke fonts */ fi->font_face = cairo_user_font_face_create(); cairo_font_face_set_user_data(fi->font_face, &fontinfo_key, (void*) fontidx, (cairo_destroy_func_t) cairo_font_face_destroy); cairo_user_font_face_set_render_glyph_func(fi->font_face, xc_user_font_render); cairo_user_font_face_set_unicode_to_glyph_func(fi->font_face, xc_user_font_glyph); for (c = 0; c < 256; c++) { objectptr chr = fi->encoding[c]; fi->glyph_index[c] = c; fi->glyph_top[c] = chr->bbox.lowerleft.y + chr->bbox.height; fi->glyph_bottom[c] = chr->bbox.lowerleft.y; fi->glyph_advance[c] = chr->bbox.lowerleft.x + chr->bbox.width; } } } /*----------------------------------------------------------------------*/ /* A light wrapper around cairo_surface_t, to a generalized xcImage */ /*----------------------------------------------------------------------*/ /* caching for cairo_surface_t */ static xcImage *xcImagePixel_oldimg = NULL; static uint32_t *xcImagePixel_data; static int xcImagePixel_width; static int xcImagePixel_height; static inline void xcImageCheckCache(xcImage *img) { if (img != xcImagePixel_oldimg) { xcImagePixel_oldimg = img; xcImagePixel_data = (uint32_t*) cairo_image_surface_get_data(img); xcImagePixel_width = cairo_image_surface_get_width(img); xcImagePixel_height = cairo_image_surface_get_height(img); } } xcImage *xcImageCreate(int width, int height) { return cairo_image_surface_create(CAIRO_FORMAT_RGB24, width, height); } void xcImageDestroy(xcImage *img) { cairo_surface_destroy(img); } int xcImageGetWidth(xcImage *img) { xcImageCheckCache(img); return xcImagePixel_width; } int xcImageGetHeight(xcImage *img) { xcImageCheckCache(img); return xcImagePixel_height; } void xcImagePutPixel(xcImage *img, int x, int y, u_char r, u_char g, u_char b) { xcImageCheckCache(img); xcImagePixel_data[y * xcImagePixel_width + x] = (r << 16) | (g << 8) | b; } void xcImageGetPixel(xcImage *img, int x, int y, u_char *r, u_char *g, u_char *b) { uint32_t argb; xcImageCheckCache(img); argb = xcImagePixel_data[y * xcImagePixel_width + x]; *r = argb >> 16; *g = argb >> 8; *b = argb; } /*------------------------------------------------------------------------*/ /* Ghostscript rendering function. In contrast to X11, direct calls to */ /* ghostscriptapi are made */ /*------------------------------------------------------------------------*/ /*------------------------------------------------------------------------*/ /* gsapi I/O redirection functions */ /*------------------------------------------------------------------------*/ #ifdef HAVE_GS static int GSDLLCALL gs_stdin_fn(void *caller_handle, char *buf, int len) { UNUSED(caller_handle); UNUSED(buf); UNUSED(len); return 0; /* EOF */ } static int GSDLLCALL gs_stdout_fn(void *caller_handle, const char *str, int len) { #ifndef GS_DEBUG UNUSED(caller_handle); UNUSED(str); #else fwrite(str, 1, len, stdout); fflush(stdout); #endif return len; } static int GSDLLCALL gs_stderr_fn(void *caller_handle, const char *str, int len) { #ifndef GS_DEBUG UNUSED(caller_handle); UNUSED(str); #else fwrite(str, 1, len, stderr); fflush(stderr); #endif return len; } #endif /* HAVE_GS */ /*------------------------------------------------------------------------*/ /* gsapi displaycallback functions */ /*------------------------------------------------------------------------*/ #ifdef HAVE_GS static unsigned char *gs_pimage; static int gs_width, gs_height, gs_raster; static int gs_display_dummy(void) { return 0; } #endif /* HAVE_GS */ #ifdef HAVE_GS static int gs_display_size(void *handle, void *device, int width, int height, int raster, unsigned int format, unsigned char *pimage) { UNUSED(handle); UNUSED(device); UNUSED(format); gs_pimage = pimage; gs_width = width; gs_height = height; gs_raster = raster; return 0; } #endif /* HAVE_GS */ #ifdef HAVE_GS int gs_display_page(void *handle, void *device, int copies, int flush) { cairo_surface_t *tbuf; cairo_t *bbuf_cr; UNUSED(handle); UNUSED(device); UNUSED(copies); UNUSED(flush); if (bbuf) cairo_surface_destroy(bbuf); /* Since cairo_image_surface_create_for_data assumes the buffer to be */ /* valid until destruction, and ghostscript frees it immediately, */ /* first use a temporary buffer. Then immediately copy the buffer */ /* To the final location */ tbuf = cairo_image_surface_create_for_data(gs_pimage, CAIRO_FORMAT_RGB24, gs_width, gs_height, gs_raster); bbuf = cairo_image_surface_create(CAIRO_FORMAT_RGB24, gs_width, gs_height); bbuf_cr = cairo_create(bbuf); cairo_set_source_surface(bbuf_cr, tbuf, 0., 0.); cairo_paint(bbuf_cr); cairo_destroy(bbuf_cr); cairo_surface_destroy(tbuf); return 0; } #endif /* HAVE_GS */ #ifdef HAVE_GS display_callback gs_display = { sizeof(display_callback), DISPLAY_VERSION_MAJOR, DISPLAY_VERSION_MINOR, (int (*)(void*, void*)) gs_display_dummy, /* display_open */ (int (*)(void*, void*)) gs_display_dummy, /* display_preclose */ (int (*)(void*, void*)) gs_display_dummy, /* display_close */ (int (*)(void*, void*, int, int, int, unsigned int)) gs_display_dummy, /* display_presize */ gs_display_size, (int (*)(void*, void*)) gs_display_dummy, /* display_sync */ gs_display_page, NULL, /* display_update */ NULL, /* display_memalloc */ NULL, /* display_memfree */ NULL /* display_separation */ }; #endif /* HAVE_GS */ /*------------------------------------------------------*/ /* write scale and position to ghostscript */ /* and tell ghostscript to run the requested file */ /*------------------------------------------------------*/ #ifdef HAVE_GS const char *gs_argv[] = { "-dQUIET", /* Suppress startup messages */ "-dNOPAUSE", /* Disable pause at end of page */ "-dBATCH", /* Exit when all files done */ "-sDEVICE=display", "-sDisplayHandle=0", "-r75", /* Display resolution */ "-dGraphicsAlphaBits=4", /* Graphics anti-aliasing */ "-dTextAlphaBits=4" /* Text anti-aliasing */ }; #endif /* HAVE_GS */ void write_scale_position_and_run_gs(float norm, float xpos, float ypos, const char *bgfile) { #ifndef HAVE_GS UNUSED(norm); UNUSED(xpos); UNUSED(ypos); UNUSED(bgfile); #endif #ifdef HAVE_GS int i, code, exit_code; void *instance; char gs_cmd[256]; char display_format[] = "-dDisplayFormat=........"; char pixmap_size[] = "-g........x........"; int argc = sizeof(gs_argv) / sizeof(gs_argv[0]); const char **argv = (const char**) malloc((argc + 2) * sizeof(const char*)); for (i = 0; i < argc; i++) argv[i] = gs_argv[i]; argv[argc++] = display_format; argv[argc++] = pixmap_size; sprintf(gs_cmd, " /GSobj save def" " /setpagedevice {pop} def" " gsave" " %3.2f %3.2f translate" " %3.2f %3.2f scale" " (%s) run" " GSobj restore" " grestore", xpos, ypos, norm, norm, bgfile); sprintf(display_format, "-dDisplayFormat=%d", DISPLAY_COLORS_RGB | DISPLAY_UNUSED_LAST | DISPLAY_DEPTH_8 | DISPLAY_LITTLEENDIAN | DISPLAY_TOPFIRST | DISPLAY_ROW_ALIGN_DEFAULT); sprintf(pixmap_size, "-g%dx%d", areawin->width, areawin->height); XDefineCursor(dpy, areawin->window, WAITFOR); if ((code = gsapi_new_instance(&instance, NULL)) == 0) { gsapi_set_stdio(instance, gs_stdin_fn, gs_stdout_fn, gs_stderr_fn); gsapi_set_display_callback(instance, &gs_display); if (!(code = gsapi_init_with_args(instance, argc, (char**) argv))) gsapi_run_string(instance, gs_cmd, 0, &exit_code); gsapi_exit(instance); gsapi_delete_instance(instance); } free(argv); #ifdef GS_DEBUG fprintf(stdout, "Xcircuit: ghostscript done\n"); #endif XDefineCursor(dpy, areawin->window, DEFAULTCURSOR); areawin->lastbackground = xobjs.pagelist[areawin->page]->background.name; drawarea(areawin->area, NULL, NULL); #endif /* HAVE_GS */ gs_state = GS_READY; } #else /* HAVE_CAIRO */ typedef int no_empty_translation_unit_warning; #endif /* HAVE_CAIRO */ xcircuit-3.9.73/README.notes0000664000175000001440000004464212335667422014214 0ustar timusersXCircuit v3.8 ----------------------------------------------------------------------------- An X11 drawing program [especially for circuit schematics] Copyright (c) 2013 Tim Edwards August 1993 -- January 2013 ----------------------------------------------------------------------------- This README file contains additional notes about the program which may or may not be of interest to anyone. ----------------------------------------------------------------------------- ASG: Versions beginning with 3.2 can be compiled with the ASG package, or "Automatic Schematic Generation". The package is derived from SPAR, written by Stephen Frezza (currently at Gannon University). SPAR is based on the same "corner-stitched tile" structures used by the EDA tool "magic", modified to encompass the probabilistic nature of auto- routing. The ASG package currently supports (to a limited extent) reading of SPICE files, but will eventually support EDIF netlist output from Verilog (and possibly VHDL) for turning netlists into schematics. Also, the ASG package will handle constrained moving, re-routing networks in response to moving elements around the schematic drawing. Toolscript: Versions beginning with 3.0 are part of a methodology known as "ScriptEDA", a call to put major open-source EDA tools into a similar framework under an interpreter, where most upper-level functions can be written as scripts. My more narrowly-defined version of ScriptEDA is called "toolscript". The rationale behind "toolscript" is to allow a single interpreter to launch multiple EDA tools, such that a single script can control multiple programs, bringing together layout tools, schematic capture, simulation, and so forth, in a highly integrated manner. "Toolscript" requires that each EDA tool should be a shared-object library of routines, that each tool should have its own command namespace, that each tool should launch itself from a "start" command in its namespace, and that the "start" command should return control to the interpreter such that the interpreter is always available from the calling terminal. Applications are encouraged to rely heavily on scripts for functions which do not require fast execution. In particular, scripts should handle most input/output functions, so that users can easily change file formats to suit their needs. The GUI for toolscript applications should be written in Tk, which integrates the graphics event loop with the interpreter, greatly simplifying handling of the interaction between the two. To synchronize the GUI with commands called from the command-line, each program should have a "command tag" function which can associate a script procedure with each command. These callback procedures can then be defined within the GUI script to update the GUI in response to commands. Finally, each application should redefine "printf" output statements to call the corresponding output method for the intperpreter (e.g., "Tcl_Eval" for compatibility with the "tkcon" console). This allows error and standard output to be handled independently. Within "tkcon", stdout and stderr are printed in blue and red, respectively, making the program output easier to read. The "toolscript" concept is ideally interpreter-independent. However, due mostly to ease of implementation and syntactical issues, TCL has ended up as the only supported interpreter. TCL calls are heavily embedded in the source code, making it somewhat difficult to simply add another interpreter. While XCircuit can be compiled with the Python interpreter, it is embedded, not extended, and so does not follow the principles of "toolscript". Rationale: This program was written with a number of things in mind. The major point in writing it was that I found all of the drawing programs freely distributed at the usual X11 ftp sources (ftp.uu.net, export.lcs.mit.edu, etc.), which includes xpic and xfig, and even some other programs like idraw and commercial programs like framemaker, were lacking in some manner. Some of them, like xpic, are missing fundamental parts, while others, like xfig and framemaker, have a cumbersome user interface and require inordinately large amounts of time to create simple pictures. The really powerful programs like Adobe Illustrator are, naturally, expensive. There has been a long-standing tradition of making MacDraw lookalikes which I find particularly disturbing, since a number of features of that GUI are fundamentally screwed up, including the dependence on a black-and-white color scheme for things such as grid lines and edit points which can make the screen cluttered and difficult to work with. I have chosen to freely ignore all such standards in cases where they seem to hinder rather than help the user. Disclaimers: The above comments refer to versions of the abovementioned programs available as of 1993 and do not necessarily reflect the programs' current status. Particularly the latest (from 1995 or so) version of xfig is quite good, though it continues to have a "MacDraw" feel to it. XCircuit's schematic capture has always been secondary to its use for drawing, and users may prefer programs such as "gschem" (by Ales Hvezda, part of gEDA) that are more in keeping with "normal" standards for EDA software. Because such programs exist, XCircuit's schematic capture, like its basic drawing functions, often deviate from the norm to explore radical ideas. Among XCircuit's "radical ideas" are automatic port finding, its parameterization method, embedded output formatting directives, and (a recent addition) automatic schematic (re)generation. The principles of XCircuit are as follows: A) Structural backbone 1) There are six drawing elements which are considered "primary". These are as follows: a) polygon (multiple lines which may or may not be closed and filled) b) arc (ellipse segment which may be closed and/or filled as above) c) label (any text) d) curve (based on the PostScript "curveto" algorithm) e) graphic (graphic image, e.g., from a PPM file) f) object instance (see below) 2) There are two drawing elements which are considered "secondary", which is to say, contain instances of primary elements. These are: a) path (a connected series of polygons, arcs, and/or curves) b) object (something containing polygons, arcs, labels, curves, paths, and instances of other objects) Each object is instanced by a primary element called the "object instance", a self-contained unit which allows an object to be scaled, rotated, and translated within another object. Since objects contain object instances and object instances point to objects, there is a two-step recursion which is central to the concept of xcircuit. 3) There is one primary object instance called the TopObject, which is the program window, and its associated object, which is whatever appears on the screen. TopObject is a pointer, so that any object in memory may be the top object, allowing a push/pop edit stack. All other objects are organized in an array of pointers called the Library. The Library is filled on startup with the contents of a Library file, and is expanded whenever a new object is created. Actually, there are many different TopObjects, called "pages", which can be switched between at will by typing the number of the page, 1 through 9 and 0 for page 10, or through the "Page" menu command, which allows access to as many pages as are defined. The "load" and "save" commands act only on the present page (unless multiple pages are loaded at a time), as do all the drawing commands. 4) All elements allocate memory as they are created and release the memory as they are destroyed, so the only limit on the number of elements in a drawing is the memory of the workstation. B) Input/Output 1) All input and output is in PostScript, albeit a version of PostScript with extremely restricted syntax: xcircuit is in no sense a PS interpreter! The primary element types are defined as procedures in the PostScript prologue; all secondary elements are defined as "def" structures in PostScript, the only restriction being that no definition can be called before it is defined. 2) Output can be encapsulated or non-encapsulated ("full page"), and can have multiple pages. All pages which declare the same "filename" on the "output properties" window will be saved to the same file. 3) The current state of the program is captured from time to time (default 10 minutes or 20 "significant" changes to the drawing) in a temporary file. If XCircuit crashes, work can be recovered by running "xcircuit" without arguments (i.e., without a specific filename on the command line). This method makes the filename transparent to the user, but the file can be found (on most systems) as /tmp/XC??? where ??? is a randomly-generated number that uniquely identifies the file. 4) Text is vector-drawn, in order to best match the flexibility of PostScript, which unlike X11 allows text to be scaled to any size and rotated to any orientation (modern font renderers can do this, but are not good at fast on-the-fly rendering needed for a drawing The quality of the vector-drawn text on the screen is relatively poor; however, the end product of xcircuit is the PostScript file, which does not suffer from those limitations. Text vectors are xcircuit elements read from an xcircuit library file, with encoding information read from a separate file. 5) X11 does not have any capability for generalized curves (splines). Therefore, splines are constructed by an N-segment approximation which internally looks like a polygon. The PostScript output is a smooth curve instead of the approximation. 6) X11 does not have any capability for generalized ellipses (ellipses under any rotation). Similarly to the splines, arcs are constructed by an N-segment approximation. 7) Implementing all arcs and curves as N-segment approximation allows the possibility of general paths, or sequences of polygons, arc sections, and curves which form a path that can be bordered, closed and/or filled like an individual arc, curve, or polygon. 8) Other than the qualitative appearance of the text, the screen output of xcircuit is meant to be the closest possible match to the rendering of the PostScript output. A PostScript hack allows stipple pattern fills to be effectively "transparent" (something that PostScript does not do naturally). However, the effect is *extremely* device-dependent because it overrides the printer's halftoning operators. One effect of this is that halftoning will look abnormally large when viewed at screen resolutions, e.g., with GhostScript. C) User Interface 1) The mouse button system and the object library are based on the Caltech circuit-simulation program "log" (either "analog" or "diglog"). As is usual for most applications, mouse button 1 is used to select things or cycle between selections, button 2 usually terminates a command, and button 3 will abort a command. In addition, button 1 has a function called "hold", which occurs after the button has been continually pressed for a short length of time (about 1/5 second). As the name implies, "hold" grabs hold of an element which can then be moved around the screen. Because this program is tailored to circuit drawing, the most common functions are drawing lines and moving object instances. Therefore, these two functions are made directly available from the mouse button 1 (after a "tap" or a "hold", respectively). The next most common function is selection of elements singly or in groups. Button 2 can be used to select an item if tapped, and if pressed and held down, a box will be drawn and everything inside that box selected when the button is released. All other commands are available from the pulldown menus and/or from the keyboard as single-key macros. Keyboard macros are quicker, since they act on the present cursor position, whereas menu commands require an extra step. From version 3.4, buttons and keys are handled identically by the interface, with the "hold" function becoming a modifier like "shift" or "control". All XCircuit functions can be arbitrarily bound to any button or key. The button 1 binding corresponds to the drawing mode. If button 1 is bound to function "Wire", then it works as described above. If it is bound to "Arc", then button 1 can be used to draw arcs, while the other functions remain the same. 2) The libraries are intended to provide a convenient way to store and retrieve elements of a picture which will be used more than once. For the application of circuit drawing, a built-in library provides basic objects such as transistors, amplifiers, resistors, capacitors, arrows, circles, power and ground symbols, and the like. This file ("builtins.lps") is loaded on startup; the program first looks in the current directory, and then searches in a given global directory (something like ~cad/lib/xcircuit/) if it could not find it initially. Thus each user can add to or modify the file of builtins to reflect personal taste. Since the PostScript output contains all object definitions, these changes to the built-in functions are inherently transferrable. The program checks objects with the same name for equivalence of their contents, and changes names as necessary to avoid conflicts. An additional library, the user library, contains all of the objects which are created (using the "make object" command) during a session or objects which are loaded from a file but do not belong to the built-in library. The user library can be saved by itself and reloaded later either into the user library or into the built-in library. This is the way to create a personalized built-in library set. 3) In the non-TCL-based version of XCircuit, the special file "startup.script" can be edited to include lines such as the following: filename loadlibrary The loadlibrary command will automatically include another library file. This method makes it convenient to divide up libraries into separate files according to (for instance) function (digital, analog, clip art, etc.), and use the loadlibrary commands to choose which ones will be loaded on startup. Caveat: If the order of loading is such that an object contains an instance of another object which has not yet been loaded, xcircuit will complain. In the TCL-based version of XCircuit, the equivalent file is "xcstartup.tcl" and the syntax is: library n load filename where "filename" is the name of the library file (e.g., "digital.lps"), and "n" is the library page number. By specifying the same page as an existing library, a set of objects can be appended to that library. "n" may also refer to a library by name. By default, libraries have the extension ".lps". As they contain only macros, they cannot be displayed with any PostScript interpreter. 4) Xcircuit has a strict sense of zooming and snap-to grid. Objects scale absolutely; line widths and text sizes will increase/decrease proportionally with the zoom, as well as dot/dash spacing and all other features. Xcircuit does have a minimum integer grid in coordinate space, which translates to 0.005 inches at an output scale of 1. The maximum zoom scale gives a screen size translating to about 100 by 100 inches at an output scale of 1. The effective scale can be varied by changing the output scale (reached from the "File/Write" menu selection) in order to fit a drawing to a page or to get a grid matched to a specific dimension. A separate scale parameter changes the scale of the reported position relative to the output scale (as it will appear on a printed page). 5) The snap-to grid is an all-important feature for circuit drawing, wherein it is critical that wires line up properly with one another. In xcircuit, there is no way to get off the snap-to grid except by turning the snap function off and physically pushing elements off the grid. In any case, objects can always be returned to the snap grid with the "snap" function (key 'S'). D) Schematic Capture XCircuit implements a sophisticated schematic capture. Unlike virtually all schematic capture software currently available, xcircuit allows the designer to draw the circuit in a "natural" way, making use both of schematic hierarchies and simple hierarchies created simply by grouping elements together. If the chosen netlist format is hierarchical (like SPICE), both hierarchical forms will be retained in the output. For element grouping, input/output ports connecting into to the group will be determined automatically, from context. Individual networks can be queried (key 'Alt-W') to highlight the entire visible part of the network, with the network name printed in the message window. Any schematic can cover multiple pages. One page is marked as "primary" and the others marked as "secondary". Netlists are generated in the primary page object only, but incorporate information from all the schematic pages. All pages which have the same "page label" are considered to be part of the same schematic. ----------------------------------------------------------------------------- Xcircuit reference: Local: See the xcircuit manpage ("man xcircuit") Online: http://opencircuitdesign.com/xcircuit/features.html ----------------------------------------------------------------------------- Online tutorials: See Standard: http://opencircuitdesign.com/xcircuit/tutorial/tutorial.html Schematic capture: http://opencircuitdesign.com/xcircuit/tutorial/tutorial2.html ----------------------------------------------------------------------------- Things to do: See the file "TODO" ----------------------------------------------------------------------------- xcircuit-3.9.73/COPYRIGHT0000664000175000001440000003630712335667422013477 0ustar timusers GNU GENERAL PUBLIC LICENSE Version 2, June 1991 --------------------------------------------------------------------- Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. --------------------------------------------------------------------- Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. --------------------------------------------------------------------- GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) --------------------------------------------------------------------- These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. --------------------------------------------------------------------- 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. --------------------------------------------------------------------- 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS xcircuit-3.9.73/tkSimple.c0000664000175000001440000003653312335667423014142 0ustar timusers/* *----------------------------------------------------------------------- * tkSimple.c -- * * Implementation of a Very simple window which relies on C code for * almost all of its event handlers. * *----------------------------------------------------------------------- */ #ifdef TCL_WRAPPER #include #include #include #include /* #include #include not portable! (jdk) this trick seems very broken on my machine so: declare this thing here, and hope the linker can resolve it */ EXTERN int TkpUseWindow _ANSI_ARGS_((Tcl_Interp * interp, Tk_Window tkwin, CONST char * string)); /* Backwards compatibility to tk8.3 and earlier */ #if TK_MAJOR_VERSION == 8 #if TK_MINOR_VERSION <= 3 #define Tk_SetClassProcs(a,b,c) TkSetClassProcs(a,b,c) #endif #endif #ifndef CONST84 #define CONST84 #endif /* * A data structure of the following type is kept for each * simple that currently exists for this process: */ typedef struct { Tk_Window tkwin; /* Window that embodies the simple. NULL * means that the window has been destroyed * but the data structures haven't yet been * cleaned up. */ Display *display; /* Display containing widget. Used, among * other things, so that resources can be * freed even after tkwin has gone away. */ Tcl_Interp *interp; /* Interpreter associated with widget. Used * to delete widget command. */ Tcl_Command widgetCmd; /* Token for simple's widget command. */ char *className; /* Class name for widget (from configuration * option). Malloc-ed. */ int width; /* Width to request for window. <= 0 means * don't request any size. */ int height; /* Height to request for window. <= 0 means * don't request any size. */ XColor *background; /* background pixel used by XClearArea */ char *useThis; /* If the window is embedded, this points to * the name of the window in which it is * embedded (malloc'ed). For non-embedded * windows this is NULL. */ char *exitProc; /* Callback procedure upon window deletion. */ char *commandProc; /* Callback procedure for commands sent to the window */ char *mydata; /* This space for hire. */ int flags; /* Various flags; see below for * definitions. */ } Simple; /* * Flag bits for simples: * * GOT_FOCUS: non-zero means this widget currently has the input focus. */ #define GOT_FOCUS 1 static Tk_ConfigSpec configSpecs[] = { {TK_CONFIG_COLOR, "-background", "background", "Background", "White", Tk_Offset(Simple, background), 0}, {TK_CONFIG_SYNONYM, "-bg", "background", (char *)NULL, (char *)NULL, 0, 0}, {TK_CONFIG_PIXELS, "-height", "height", "Height", "0", Tk_Offset(Simple, height), 0}, {TK_CONFIG_PIXELS, "-width", "width", "Width", "0", Tk_Offset(Simple, width), 0}, {TK_CONFIG_STRING, "-use", "use", "Use", "", Tk_Offset(Simple, useThis), TK_CONFIG_NULL_OK}, {TK_CONFIG_STRING, "-exitproc", "exitproc", "ExitProc", "", Tk_Offset(Simple, exitProc), TK_CONFIG_NULL_OK}, {TK_CONFIG_STRING, "-commandproc", "commandproc", "CommandProc", "", Tk_Offset(Simple, commandProc), TK_CONFIG_NULL_OK}, {TK_CONFIG_STRING, "-data", "data", "Data", "", Tk_Offset(Simple, mydata), TK_CONFIG_NULL_OK}, {TK_CONFIG_END, (char *) NULL, (char *) NULL, (char *) NULL, (char *) NULL, 0, 0} }; /* * Forward declarations for procedures defined later in this file: */ static int ConfigureSimple _ANSI_ARGS_((Tcl_Interp *interp, Simple *simplePtr, int objc, Tcl_Obj *CONST objv[], int flags)); static void DestroySimple _ANSI_ARGS_((char *memPtr)); static void SimpleCmdDeletedProc _ANSI_ARGS_(( ClientData clientData)); static void SimpleEventProc _ANSI_ARGS_((ClientData clientData, XEvent *eventPtr)); static int SimpleWidgetObjCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); /* *-------------------------------------------------------------- * * Tk_SimpleObjCmd -- * * This procedure is invoked to process the "simple" * Tcl command. * * Results: * A standard Tcl result. * * Side effects: * See the user documentation. These procedures are just wrappers; * they call ButtonCreate to do all of the real work. * *-------------------------------------------------------------- */ int Tk_SimpleObjCmd(clientData, interp, objc, objv) ClientData clientData; /* Main window associated with * interpreter. */ Tcl_Interp *interp; /* Current interpreter. */ int objc; /* Number of arguments. */ Tcl_Obj *CONST objv[]; /* Argument objects. */ { Tk_Window tkwin = (Tk_Window) clientData; Simple *simplePtr; Tk_Window new; char *arg, *useOption; int i, c; /* , depth; (jdk) */ size_t length; unsigned int mask; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?"); return TCL_ERROR; } /* * Pre-process the argument list. Scan through it to find any * "-use" option, or the "-main" option. If the "-main" option * is selected, then the application will exit if this window * is deleted. */ useOption = NULL; for (i = 2; i < objc; i += 2) { arg = Tcl_GetStringFromObj(objv[i], (int *) &length); if (length < 2) { continue; } c = arg[1]; if ((c == 'u') && (strncmp(arg, "-use", length) == 0)) { useOption = Tcl_GetString(objv[i+1]); } } /* * Create the window, and deal with the special option -use. */ if (tkwin != NULL) { new = Tk_CreateWindowFromPath(interp, tkwin, Tcl_GetString(objv[1]), NULL); } if (new == NULL) { goto error; } Tk_SetClass(new, "Simple"); if (useOption == NULL) { useOption = (char *)Tk_GetOption(new, "use", "Use"); } if (useOption != NULL) { if (TkpUseWindow(interp, new, useOption) != TCL_OK) { goto error; } } /* * Create the widget record, process configuration options, and * create event handlers. Then fill in a few additional fields * in the widget record from the special options. */ simplePtr = (Simple *) ckalloc(sizeof(Simple)); simplePtr->tkwin = new; simplePtr->display = Tk_Display(new); simplePtr->interp = interp; simplePtr->widgetCmd = Tcl_CreateObjCommand(interp, Tk_PathName(new), SimpleWidgetObjCmd, (ClientData) simplePtr, SimpleCmdDeletedProc); simplePtr->className = NULL; simplePtr->width = 0; simplePtr->height = 0; simplePtr->background = NULL; simplePtr->useThis = NULL; simplePtr->exitProc = NULL; simplePtr->commandProc = NULL; simplePtr->flags = 0; simplePtr->mydata = NULL; /* * Store backreference to simple widget in window structure. */ Tk_SetClassProcs(new, NULL, (ClientData) simplePtr); /* We only handle focus and structure events, and even that might change. */ mask = StructureNotifyMask|FocusChangeMask|NoEventMask; Tk_CreateEventHandler(new, mask, SimpleEventProc, (ClientData) simplePtr); if (ConfigureSimple(interp, simplePtr, objc-2, objv+2, 0) != TCL_OK) { goto error; } Tcl_SetResult(interp, Tk_PathName(new), TCL_STATIC); return TCL_OK; error: if (new != NULL) { Tk_DestroyWindow(new); } return TCL_ERROR; } /* *-------------------------------------------------------------- * * SimpleWidgetObjCmd -- * * This procedure is invoked to process the Tcl command * that corresponds to a simple widget. See the user * documentation for details on what it does. If the * "-commandProc" option has been set for the window, * then any unknown command (neither "cget" nor "configure") * will execute the command procedure first, then attempt * to execute the remainder of the command as an independent * Tcl command. * * Results: * A standard Tcl result. * * Side effects: * See the user documentation. * *-------------------------------------------------------------- */ static int SimpleWidgetObjCmd(clientData, interp, objc, objv) ClientData clientData; /* Information about simple widget. */ Tcl_Interp *interp; /* Current interpreter. */ int objc; /* Number of arguments. */ Tcl_Obj *CONST objv[]; /* Argument objects. */ { static char *simpleOptions[] = { "cget", "configure", (char *) NULL }; enum options { SIMPLE_CGET, SIMPLE_CONFIGURE }; register Simple *simplePtr = (Simple *) clientData; int result = TCL_OK, index; size_t length; int c, i; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "option ?arg arg ...?"); return TCL_ERROR; } if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)simpleOptions, "option", 0, &index) != TCL_OK) { if (simplePtr->commandProc != NULL) { Tcl_ResetResult(simplePtr->interp); if (Tcl_EvalEx(simplePtr->interp, simplePtr->commandProc, -1, 0) != TCL_OK) return TCL_ERROR; else return Tcl_EvalObjv(simplePtr->interp, --objc, ++objv, TCL_EVAL_DIRECT); } else return TCL_ERROR; } Tcl_Preserve((ClientData) simplePtr); switch ((enum options) index) { case SIMPLE_CGET: { if (objc != 3) { Tcl_WrongNumArgs(interp, 2, objv, "option"); result = TCL_ERROR; goto done; } result = Tk_ConfigureValue(interp, simplePtr->tkwin, configSpecs, (char *) simplePtr, Tcl_GetString(objv[2]), 0); break; } case SIMPLE_CONFIGURE: { if (objc == 2) { result = Tk_ConfigureInfo(interp, simplePtr->tkwin, configSpecs, (char *) simplePtr, (char *) NULL, 0); } else if (objc == 3) { result = Tk_ConfigureInfo(interp, simplePtr->tkwin, configSpecs, (char *) simplePtr, Tcl_GetString(objv[2]), 0); } else { for (i = 2; i < objc; i++) { char *arg = Tcl_GetStringFromObj(objv[i], (int *) &length); if (length < 2) { continue; } c = arg[1]; if ((c == 'u') && (strncmp(arg, "-use", length) == 0)) { Tcl_AppendResult(interp, "can't modify ", arg, " option after widget is created", (char *) NULL); result = TCL_ERROR; goto done; } } result = ConfigureSimple(interp, simplePtr, objc-2, objv+2, TK_CONFIG_ARGV_ONLY); } break; } } done: Tcl_Release((ClientData) simplePtr); return result; } /* *---------------------------------------------------------------------- * * DestroySimple -- * * This procedure is invoked by Tcl_EventuallyFree or Tcl_Release * to clean up the internal structure of a simple at a safe time * (when no-one is using it anymore). * * Results: * None. * * Side effects: * Everything associated with the simple is freed up. * *---------------------------------------------------------------------- */ static void DestroySimple(memPtr) char *memPtr; /* Info about simple widget. */ { register Simple *simplePtr = (Simple *) memPtr; Tk_FreeOptions(configSpecs, (char *) simplePtr, simplePtr->display, TK_CONFIG_USER_BIT); if (simplePtr->exitProc != NULL) { /* Call the exit procedure */ Tcl_EvalEx(simplePtr->interp, simplePtr->exitProc, -1, 0); } ckfree((char *) simplePtr); } /* *---------------------------------------------------------------------- * * ConfigureSimple -- * * This procedure is called to process an objv/objc list, plus * the Tk option database, in order to configure (or * reconfigure) a simple widget. * * Results: * The return value is a standard Tcl result. If TCL_ERROR is * returned, then the interp's result contains an error message. * * Side effects: * Configuration information, such as text string, colors, font, * etc. get set for simplePtr; old resources get freed, if there * were any. * *---------------------------------------------------------------------- */ static int ConfigureSimple(interp, simplePtr, objc, objv, flags) Tcl_Interp *interp; /* Used for error reporting. */ register Simple *simplePtr; /* Information about widget; may or may * not already have values for some fields. */ int objc; /* Number of valid entries in objv. */ Tcl_Obj *CONST objv[]; /* Arguments. */ int flags; /* Flags to pass to Tk_ConfigureWidget. */ { /* char *oldMenuName; (jdk) */ if (Tk_ConfigureWidget(interp, simplePtr->tkwin, configSpecs, objc, (CONST84 char **) objv, (char *) simplePtr, flags | TK_CONFIG_OBJS) != TCL_OK) { return TCL_ERROR; } if ((simplePtr->width > 0) || (simplePtr->height > 0)) { Tk_GeometryRequest(simplePtr->tkwin, simplePtr->width, simplePtr->height); } if (simplePtr->background != NULL) { Tk_SetWindowBackground(simplePtr->tkwin, simplePtr->background->pixel); } return TCL_OK; } /* *-------------------------------------------------------------- * * SimpleEventProc -- * * This procedure is invoked by the Tk dispatcher on * structure changes to a simple. For simples with 3D * borders, this procedure is also invoked for exposures. * * Results: * None. * * Side effects: * When the window gets deleted, internal structures get * cleaned up. When it gets exposed, it is redisplayed. * *-------------------------------------------------------------- */ static void SimpleEventProc(clientData, eventPtr) ClientData clientData; /* Information about window. */ register XEvent *eventPtr; /* Information about event. */ { register Simple *simplePtr = (Simple *) clientData; if (eventPtr->type == DestroyNotify) { if (simplePtr->tkwin != NULL) { /* * If this window is a container, then this event could be * coming from the embedded application, in which case * Tk_DestroyWindow hasn't been called yet. When Tk_DestroyWindow * is called later, then another destroy event will be generated. * We need to be sure we ignore the second event, since the simple * could be gone by then. To do so, delete the event handler * explicitly (normally it's done implicitly by Tk_DestroyWindow). */ Tk_DeleteEventHandler(simplePtr->tkwin, StructureNotifyMask | FocusChangeMask, SimpleEventProc, (ClientData) simplePtr); simplePtr->tkwin = NULL; Tcl_DeleteCommandFromToken(simplePtr->interp, simplePtr->widgetCmd); } Tcl_EventuallyFree((ClientData) simplePtr, DestroySimple); } else if (eventPtr->type == FocusIn) { if (eventPtr->xfocus.detail != NotifyInferior) { simplePtr->flags |= GOT_FOCUS; } } else if (eventPtr->type == FocusOut) { if (eventPtr->xfocus.detail != NotifyInferior) { simplePtr->flags &= ~GOT_FOCUS; } } return; } /* *---------------------------------------------------------------------- * * SimpleCmdDeletedProc -- * * This procedure is invoked when a widget command is deleted. If * the widget isn't already in the process of being destroyed, * this command destroys it. * * Results: * None. * * Side effects: * The widget is destroyed. * *---------------------------------------------------------------------- */ static void SimpleCmdDeletedProc(clientData) ClientData clientData; /* Pointer to widget record for widget. */ { Simple *simplePtr = (Simple *) clientData; Tk_Window tkwin = simplePtr->tkwin; /* * This procedure could be invoked either because the window was * destroyed and the command was then deleted (in which case tkwin * is NULL) or because the command was deleted, and then this procedure * destroys the widget. */ if (tkwin != NULL) { simplePtr->tkwin = NULL; Tk_DestroyWindow(tkwin); } } #endif /* TCL_WRAPPER */ xcircuit-3.9.73/xcircuit.spec.in0000664000175000001440000000220612335667423015307 0ustar timusersName: xcircuit Version: %VERSION% Release: 1 Summary: Electronic circuit schematic drawing program Group: Applications/Engineering License: GPL URL: http://opencircuitdesign.com/xcircuit/index.html Source: http://opencircuitdesign.com/xcircuit/archive/%{name}-%{version}.tgz BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildRequires: libX11-devel, libXt-devel, tcl-devel, tk-devel Requires: libX11, libXt, tcl, tk %description Xcircuit is a general-purpose drawing program and also a specific-purpose CAD program for circuit schematic drawing and schematic capture. The output format is PostScript. %prep %setup -q %build %configure \ --with-tcl=%{_libdir} \ --with-tk=%{_libdir} \ --with-tclincls=%{_includedir} \ --with-tkincls=%{_includedir} \ --with-tcllibs=%{_libdir} \ --with-tklibs=%{_libdir} make %install rm -rf $RPM_BUILD_ROOT make install DESTDIR=$RPM_BUILD_ROOT %clean rm -rf $RPM_BUILD_ROOT %files %defattr(-,root,root,-) %doc CHANGES COPYRIGHT README README.* TODO VERSION %{_bindir}/xcircuit /usr/lib/xcircuit-3.7/* xcircuit-3.9.73/Makefile.mingw640000664000175000001440000003443412707035113015122 0ustar timusers# Makefile for MinGW gcc64 compiler (modified from Makefile.win32) # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Prerequisites: - mingw x64 gcc compiler # - make (often supplied with the gcc compiler) # - Tcl x64 ver 8.5 # - gs9.02x64 # - graphicsmagick-1.3.14 # # Note: This Makefile support only the tcl build. ########################### # Configuration variables # ########################### # INSTALLDIR = C:\app\xcircuit-tcl # INSTALLDIR = C:/MinGW/msys/1.0/home/TEdwards/xcircuit-tcl INSTALLDIR = C:/OpenCircuitDesign/XCircuit-3.9 # TEMPDIR = D:\Temp # TEMPDIR = C:/Temp TEMPDIR = C:/OpenCircuitDesign/Temp # CC_EXEC = C:\app\gcc64\bin\gcc.exe CC_EXEC = C:/MinGW64/bin/x86_64-w64-mingw32-gcc.exe # GSDIR = C:\gs\gs9.02x64 GSDIR = "C:\Program Files\gs\gs9.05" # GMDIR = C:\graphicsmagick-1.3.14 GMDIR = "C:/Program Files/GraphicsMagick" WINDRES = C:/MinGW64/bin/x86_64-w64-mingw32-windres.exe # Possible values: tcl, win32 BUILD_TYPE = tcl # Additional settings for win32 build USE_WIN32_COM = 0 USE_WIN32_DOTNET = 0 XCCOMDIR = xccom2 # Additional settings for tcl build # TCLDIR = C:\app\tclx64 TCLDIR = "C:/Tcl" TCLVERSION = 85 # Some defines: SIZEOF_VOID_P := 8 SIZEOF_UNSIGNED_INT := 4 SIZEOF_UNSIGNED_LONG := 4 SIZEOF_UNSIGNED_LONG_LONG := 8 #################################################################### # End of configuration. DO NOT CHANGE ANYTHING AFTER THIS POINT!!! # #################################################################### SOURCES = menudep.c $(xcircuit_SOURCES) MK = $(MAKE) -f Makefile.mingw64 srcdir = . top_srcdir = . top_builddir = . mkinstalldirs = mkdir -p menudep_SOURCES = menudep.c menudep_OBJECTS = menudep.$(OBJEXT) menudep_LDADD = $(LDADD) xcircuit_OBJECTS = elements.$(OBJEXT) events.$(OBJEXT) \ filelist.$(OBJEXT) files.$(OBJEXT) flate.$(OBJEXT) \ fontfile.$(OBJEXT) formats.$(OBJEXT) functions.$(OBJEXT) \ graphic.$(OBJEXT) help.$(OBJEXT) keybindings.$(OBJEXT) \ libraries.$(OBJEXT) menucalls.$(OBJEXT) netlist.$(OBJEXT) \ ngspice.$(OBJEXT) parameter.$(OBJEXT) python.$(OBJEXT) \ rcfile.$(OBJEXT) render.$(OBJEXT) svg.$(OBJEXT) \ schema.$(OBJEXT) selection.$(OBJEXT) text.$(OBJEXT) \ undo.$(OBJEXT) xcircuit.$(OBJEXT) $(WIN32_OBJECTS) DEFAULT_INCLUDES = -I. -I$(srcdir) COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(CPPFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(CFLAGS) $(LDFLAGS) -Fe$@ #Not in use SOURCES = menudep.c $(xcircuit_SOURCES) DIST_SOURCES = menudep.c $(xcircuit_SOURCES) man1dir = $(mandir) MANS = $(man_MANS) DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) distdir = $(PACKAGE)-$(VERSION) top_distdir = $(distdir) DIST_ARCHIVES = $(distdir).zip XC_CFLAGS = XC_LIBS = XC_OBJECT = XC_INCLUDES = ifeq ($(BUILD_TYPE),win32) WIN32_OBJECTS = xcwin32.$(OBJEXT) xtfuncs.$(OBJEXT) xtgui.$(OBJEXT) resources.res BUILTINS_DIR = WinBuiltinsDir() STARTUP_FILE = startup.script XC_CFLAGS = -DHAVE_XPM ifneq ($(USE_WIN32_COM),0) XC_CFLAGS = $(XC_CFLAGS) -DUSE_WIN32_COM XC_DEPEND = $(XCCOMDIR)\XCCom.lib XC_LIBS = $(XCCOMDIR)\XCCom.lib ole32.lib oleaut32.lib ifneq ($(USE_WIN32_DOTNET),0) XC_CFLAGS = $(XC_CFLAGS) -DUSE_WIN32_DOTNET endif endif else #!win32 WIN32_OBJECTS = tclxcircuit.$(OBJEXT) tkSimple.$(OBJEXT) w32x11.$(OBJEXT) BUILTINS_DIR = \"$(subst \,/,$(librarydir))\" SCRIPTS_DIR = \"$(subst \,/,$(scriptsdir))\" STARTUP_FILE = xcstartup.tcl XC_CFLAGS = -DTCL_WRAPPER XC_INCLUDES = -I$(TCLDIR)/include XC_LIBS = $(TCLDIR)/bin/base-tcl8.5-thread-win32-x86_64.dll \ $(TCLDIR)/bin/tcl$(TCLVERSION).dll \ $(TCLDIR)/bin/tk$(TCLVERSION).dll endif # Override standard "make" target when compiling under TCL ALL_TARGET = all-recursive INSTALL_TARGET = install CC = $(CC_EXEC) CFLAGS = -g -DSPICE_EXEC=\"$(subst \,/,$(SPICE_EXEC))\" -DHAVE_PUTENV -DGS_EXEC=\"$(subst \,/,$(GS_EXEC))\" -DGM_EXEC=\"$(subst \,/,$(GM_EXEC))\" -DXC_WIN32 -DDOUBLEBUFFER $(XC_CFLAGS) -DSIZEOF_VOID_P=$(SIZEOF_VOID_P) -DSIZEOF_UNSIGNED_INT=$(SIZEOF_UNSIGNED_INT) -DSIZEOF_UNSIGNED_LONG=$(SIZEOF_UNSIGNED_LONG) -DSIZEOF_UNSIGNED_LONG_LONG=$(SIZEOF_UNSIGNED_LONG_LONG) -D_MSC_VER CPP = _not_in_use_ CPPFLAGS = RM = rm RMDIR = rmdir # Main compiler arguments DEFS = $(PATHNAMES) ECHO_C = echo ECHO_N = echo ECHO_T = echo EGREP = egrep EXEEXT = .exe EXTRA_LIB_SPECS = GS_EXEC = $(GSDIR)\bin\gswin64c.exe GM_EXEC = $(GMDIR)\gm.exe INC_SPECS = -I. $(XC_INCLUDES) INSTALL_DATA = cp INSTALL_PROGRAM = cp INSTALL_SCRIPT = cp INSTALL_STRIP_PROGRAM = cp INTERP_PATH = tcl LD = link _not_in_use_ LDDL_FLAGS = LDFLAGS = LIBS = -lws2_32 -lgdi32 $(XC_LIBS) # LIBS = ws2_32.lib gdi32.lib user32.lib kernel32.lib comdlg32.lib comctl32.lib $(XC_LIBS) # imm32.lib shell32.lib comctl32.lib advapi32.lib LIB_SPECS = PP = pp.exe # Man page MAKEINFO = makeinfo OBJEXT = o PACKAGE = xcircuit PACKAGE_NAME = xcircuit PATH_SEPARATOR = \\ VERSION = 3.9 REVISION = 44 SHDLIB_EXT = .dll SHLIB_CFLAGS = -shared SHLIB_LIB_SPECS = SPICE_EXEC = ngspice.exe SUBDIRS = TCL_LIB_DIR = $(TCLDIR)\lib WISH_EXE = $(TCLDIR)\bin\wish$(TCLVERSION).exe WRAPPER_SCRIPT = XCIRCUIT_TARGET = $(BUILD_TYPE) X_EXTRA_LIBS = prefix = $(INSTALLDIR) bindir = $(prefix)/bin datadir = $(prefix) exec_prefix = $(prefix)/bin includedir = $(prefix)/include libdir = $(prefix)/lib libexecdir = $(prefix)/bin mandir = $(prefix)/doc mkdir_p = mkdir -p # Temporary directory (if not overridden by environment variable TMPDIR) tmpdir = $(TEMPDIR) # Directories for app-defaults file and manual page PATHNAMES = -DPROG_VERSION=$(VERSION) \ -DPROG_REVISION=$(REVISION) \ -DCAD_DIR=\"$(prefix)\" \ -DTEMP_DIR=\"$(tmpdir)\" \ -DSCRIPTS_DIR=\"$(scriptsdir)\" \ -DBUILTINS_DIR=$(BUILTINS_DIR) \ -DBUILTINS_FILE=\"$(BUILTINS_FILE)\" \ -DUSER_RC_FILE=\"$(USER_RC_FILE)\" \ -DPROLOGUE_DIR=$(BUILTINS_DIR) \ -DPROLOGUE_FILE=\"$(PROLOGUE_FILE)\" \ -DSTARTUP_FILE=\"$(STARTUP_FILE)\" \ -DLGF_LIB=\"$(LGF_LIB)\" xcircuit_SOURCES = elements.c events.c filelist.c files.c \ flate.c fontfile.c formats.c functions.c graphic.c \ help.c keybindings.c libraries.c menucalls.c \ netlist.c ngspice.c parameter.c python.c rcfile.c \ render.c schema.c selection.c svg.c \ text.c undo.c \ tclxcircuit.c tkSimple.c xcircuit.c w32x11.c xcircuit_DEPEND = $(XC_DEPEND) xcircuit_LDADD = man_MANS = lib/xcircuit.1 INCLUDES = $(INC_SPECS) # Library directory and files # librarydir = $(datadir)/$(PACKAGE)-$(VERSION) # scriptsdir = $(datadir)/$(PACKAGE)-$(VERSION) librarydir = $(datadir) scriptsdir = $(datadir) USER_RC_FILE = .xcircuitrc PROLOGUE_FILE = xcircps2.pro LGF_LIB = lgf.lps SIGNAL_LIB = signal.lps MUSIC_LIB = musiclib.lps FONTS_LPS = courier courieriso2 courieriso5 helvetica helveticaiso2 \ helveticaiso5 myfont symbol times_roman times_romaniso2 \ times_romaniso5 FONTS_XFE = courier courieriso courieriso2 courieriso5 helvetica \ helveticaiso helveticaiso2 helveticaiso5 myfont symbol \ times_roman times_romaniso times_romaniso2 times_romaniso5 SCRIPTS_PY = spice gettext pagebbox WRAPPER_INIT = xcircuit.tcl WRAPPER_OBJ = xcircuit$(SHDLIB_EXT) WRAPPER_SO = xcircuit.dll WRAPPER_SH = xcircuit.bat CONSOLE = tkcon.tcl CONSOLE_SCRIPT = console.tcl all: all-recursive .SUFFIXES: .SUFFIXES: .c .o .obj .rc .res .c.o: $(COMPILE) -c $< .c.obj: $(COMPILE) -c "$<" .rc.res: $(WINDRES) -o $@ -O coff $(XC_CFLAGS) -I $(XCCOMDIR) $< ################## # Building rules # ################## menudep$(EXEEXT): menudep.$(OBJEXT) $(CC) -o $@ menudep.$(OBJEXT) menudep.h: menudep$(EXEEXT) menus.h .\menudep$(EXEEXT) xcwrap.obj: xcwrap.c menudep.h $(CC) $(CPPFLAGS) $(CFLAGS) $(DEFS) $(PATHNAMES) $(INCLUDES) \ xcwrap.c -c -o xcwrap.$(OBJEXT) lib/tcl/xcircuit$(SHDLIB_EXT): xcwrap.$(OBJEXT) $(xcircuit_OBJECTS) $(xcircuit_DEPEND) -$(RM) lib\xcircuit$(SHDLIB_EXT) $(CC) $(CFLAGS) $(SHLIB_CFLAGS) -o $@ $(LDDL_FLAGS) xcwrap.$(OBJEXT) \ $(xcircuit_OBJECTS) $(xcircuit_LDADD) $(LDFLAGS) \ $(X_EXTRA_LIBS) $(EXTRA_LIBS) $(LIBS) $(EXTRA_LIB_SPECS) \ $(SHLIB_LIB_SPECS) xcircuit$(EXEEXT): $(xcircuit_OBJECTS) $(xcircuit_DEPEND) $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) $(INCLUDES) $(xcircuit_OBJECTS) \ -o $@ $(LDFLAGS) $(LIBS) $(LIB_SPECS) $(EXTRA_LIB_SPECS) shell32.lib \ /link /SUBSYSTEM:CONSOLE xcircexec$(EXEEXT): xcircexec.$(OBJEXT) -$(RM) .\xcircexec$(EXEEXT) $(CC) $(CFLAGS) $(CPPFLAGS) $(DEFS) $(PATHNAMES) $(INCLUDES) \ xcircexec.c -o $@ $(LDFLAGS) \ $(LIBS) $(LIB_SPECS) $(EXTRA_LIB_SPECS) xcircuit-win32$(EXEEXT): xcircuit-win32.c resources.res $(CC) $(CFLAGS) $(CPPFLAGS) \ -DWISH_EXE=L\"$(subst \,/,$(WISH_EXE))\" \ -DBUILTINS_DIR=L$(BUILTINS_DIR) \ $(INCLUDES) xcircuit-win32.c resources.res \ -o $@ $(LDFLAGS) $(LIBS) $(LIB_SPECS) $(EXTRA_LIB_SPECS) -lshell32 -ladvapi32 tcl: @echo Making tcl library object $(MK) lib/tcl/xcircuit$(SHDLIB_EXT) $(MK) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(MK) lib/$(INTERP_PATH)/$(WRAPPER_INIT) $(MK) xcircexec$(EXEEXT) $(MK) xcircuit-win32$(EXEEXT) win32: @echo Making win32 ifneq ($(USE_WIN32_COM),0) cd $(XCCOMDIR) && $(MK) && cd .. endif $(MK) xcircuit$(EXEEXT) help.c: menudep.h menucalls.c: menudep.h rcfile.c: menudep.h schema.c: menudep.h xcircuit.c: menudep.h parameter.c: menudep.h python.c: menudep.h tclxcircuit.c: menudep.h resources.rc: lib/pixmaps/xcircuit.ico $(PP): pp.c $(CC) -g -o $@ pp.c lib/$(INTERP_PATH)/$(WRAPPER_SH): $(PP) lib/$(INTERP_PATH)/$(WRAPPER_SH).in $(PP) $(PATHNAMES) -DXCLIBDIR=\"$(subst \,/,$(librarydir))\" \ -DWRAPPER_INIT=\"$(WRAPPER_INIT)\" -DCONSOLE=\"$(CONSOLE)\" \ -DCONSOLE_SCRIPT=\"$(CONSOLE_SCRIPT)\" \ -DSCRIPTSDIR=\"$(scriptsdir)\" \ -DTCLLIBDIR=\"$(subst \,/,$(TCL_LIB_DIR))\" \ -DWISH_EXE=\"$(subst \,/,$(WISH_EXE))\" \ lib/$(INTERP_PATH)/$(WRAPPER_SH).in > $@ lib/$(INTERP_PATH)/$(WRAPPER_INIT): $(PP) lib/$(INTERP_PATH)/$(WRAPPER_INIT).in $(PP) $(PATHNAMES) -DLIBDIR=\"$(subst \,/,$(librarydir))\" \ -DSCRIPTSDIR=\"$(scriptsdir)\" \ lib/$(INTERP_PATH)/$(WRAPPER_INIT).in > $@ lib/xcircuit.1: $(PP) lib/xcircuit.1.in $(PP) -DLIBDIR=\"$(libdir)\" \ -DSCRIPTSDIR=\"$(scriptsdir)\" \ -DLGF=1 -DPYTHON=0 -DTCL=1 -DNOINTERP=0 \ lib/xcircuit.1.in > $@ install-data-local: lib/xcircuit.1 @echo "Installing library files" $(mkinstalldirs) $(DESTDIR)$(librarydir) $(INSTALL_DATA) lib/$(PROLOGUE_FILE) $(DESTDIR)$(librarydir) $(INSTALL_DATA) lib/*.lps $(DESTDIR)$(librarydir) $(INSTALL_DATA) lib/$(INTERP_PATH)/$(STARTUP_FILE) $(DESTDIR)$(librarydir) @echo "Installing .lps font files" $(mkinstalldirs) $(DESTDIR)$(librarydir)/fonts $(foreach f,$(FONTS_LPS), $(INSTALL_DATA) lib/fonts/$(f).lps $(DESTDIR)$(librarydir)/fonts &) @echo "Installing .xfe font files" $(foreach f,$(FONTS_XFE), $(INSTALL_DATA) lib/fonts/$(f).xfe $(DESTDIR)$(librarydir)/fonts &) @echo "Installing scripts (if option enabled)" # Note that MacOS/Fink uses SHDLIB_EXT = .dylib but Tcl expects .so anyway. # So we make a symbolic link if SHDLIB_EXT != .so install-tcl: xcircexec$(EXEEXT) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) lib/$(INTERP_PATH)/$(WRAPPER_SH) lib/$(INTERP_PATH)/$(WRAPPER_INIT) xcircuit-win32$(EXEEXT) # if $(prefix) $(RMDIR) $(prefix) mkdir -p $(prefix) @echo "Installing standard XCircuit library files" $(MK) $(AM_MAKEFLAGS) install-data-local @echo "Installing Tcl files" $(INSTALL_DATA) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) $(DESTDIR)$(librarydir) $(INSTALL_DATA) lib/$(INTERP_PATH)/*.tcl $(DESTDIR)$(librarydir) $(INSTALL_DATA) xcircexec$(EXEEXT) $(DESTDIR)$(librarydir) @echo "Installing pixmap images" $(mkinstalldirs) $(DESTDIR)$(librarydir)\pixmaps $(INSTALL_DATA) lib/pixmaps/*.gif $(DESTDIR)$(librarydir)/pixmaps $(INSTALL_DATA) lib/pixmaps/*.xbm $(DESTDIR)$(librarydir)/pixmaps @echo "Installing shell script as xcircuit executable" $(mkinstalldirs) $(DESTDIR)$(bindir) $(INSTALL_DATA) lib/$(INTERP_PATH)/$(WRAPPER_SH) $(DESTDIR)$(bindir) $(INSTALL_DATA) xcircuit-win32$(EXEEXT) $(DESTDIR)$(bindir) install-win32: xcircuit$(EXEEXT) if exist $(prefix) $(RMDIR) $(prefix) $(MK) $(AM_MAKEFLAGS) install-data-local "librarydir=$(prefix)" $(INSTALL_DATA) xcircuit$(EXEEXT) $(DESTDIR)$(prefix) clean: -$(RM) lib/$(INTERP_PATH)/$(WRAPPER_OBJ) lib/$(INTERP_PATH)/$(WRAPPER_SH) -for %%e in (ilk exp pdb lib) do @if exist lib/$(INTERP_PATH)/xcircuit.%%e $(RM) lib/$(INTERP_PATH)/xcircuit.%%e -$(RM) lib/$(INTERP_PATH)/$(WRAPPER_INIT) -for %%f in (*.$(OBJEXT) xcircexec$(EXEEXT) lib/xcircuit.1 xcircuit$(EXEEXT) xcircuit.suo) do $(RM) %%f -for %%e in (aps res) do $(RM) resources.%%e -for %%e in (ilk exp pdb lib) do @if exist xcircexec.%%e $(RM) xcircexec.%%e -for %%e in (ilk exp pdb lib) do @if exist xcircuit.%%e $(RM) xcircuit.%%e -for %%e in (ilk exp pdb lib) do @if exist pp.%%e $(RM) pp.%%e -for %%e in (ilk exp pdb lib exe) do @if exist xcircuit-win32.%%e $(RM) xcircuit-win32.%%e -$(RM) menudep$(EXEEXT) menudep.h -$(RM) pp$(EXEEXT) -$(RM) *.pdb -$(RM) *~ ifeq ($(BUILD_TYPE),win32) ifneq ($(USE_WIN32_COM),0) cd $(XCCOMDIR) && $(MK) clean && cd .. endif endif $(ALL_TARGET): $(MK) $(XCIRCUIT_TARGET) $(INSTALL_TARGET): $(MK) install-tcl examples: all ifeq ($(BUILD_TYPE),win32) ifneq ($(USE_WIN32_COM),0) cd $(XCCOMDIR) && $(MK) examples && cd .. endif endif ifeq ($(BUILD_TYPE),win32) xcircuit.h: xcwin32.h xcwin32.c: xcircuit.h else xcircuit.h: tkwin32.h endif elements.c: xcircuit.h events.c: xcircuit.h filelist.c: xcircuit.h files.c: xcircuit.h flate.c: xcircuit.h fontfile.c: xcircuit.h formats.c: xcircuit.h functions.c: xcircuit.h graphic.c: xcircuit.h help.c: xcircuit.h keybindings.c: xcircuit.h libraries.c: xcircuit.h menucalls.c: xcircuit.h netlist.c: xcircuit.h ngspice.c: xcircuit.h parameter.c: xcircuit.h python.c: xcircuit.h rcfile.c: xcircuit.h render.c: xcircuit.h schema.c: xcircuit.h selection.c: xcircuit.h text.c: xcircuit.h undo.c: xcircuit.h xcircuit.c: xcircuit.h xtgui.c: xcircuit.h xtfuncs.c: xcircuit.h ifeq ($(BUILD_TYPE),win32) ifneq ($(USE_WIN32_COM),0) resources.rc: $(XCCOMDIR)/XCCom.tlb endif endif xcircuit-3.9.73/compile0000775000175000001440000001624512464700361013552 0ustar timusers#! /bin/sh # Wrapper for compilers which do not understand '-c -o'. scriptversion=2012-10-14.11; # UTC # Copyright (C) 1999-2013 Free Software Foundation, Inc. # Written by Tom Tromey . # # 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. # This file is maintained in Automake, please report # bugs to or send patches to # . nl=' ' # We need space, tab and new line, in precisely that order. Quoting is # there to prevent tools from complaining about whitespace usage. IFS=" "" $nl" file_conv= # func_file_conv build_file lazy # Convert a $build file to $host form and store it in $file # Currently only supports Windows hosts. If the determined conversion # type is listed in (the comma separated) LAZY, no conversion will # take place. func_file_conv () { file=$1 case $file in / | /[!/]*) # absolute file, and not a UNC file if test -z "$file_conv"; then # lazily determine how to convert abs files case `uname -s` in MINGW*) file_conv=mingw ;; CYGWIN*) file_conv=cygwin ;; *) file_conv=wine ;; esac fi case $file_conv/,$2, in *,$file_conv,*) ;; mingw/*) file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'` ;; cygwin/*) file=`cygpath -m "$file" || echo "$file"` ;; wine/*) file=`winepath -w "$file" || echo "$file"` ;; esac ;; esac } # func_cl_dashL linkdir # Make cl look for libraries in LINKDIR func_cl_dashL () { func_file_conv "$1" if test -z "$lib_path"; then lib_path=$file else lib_path="$lib_path;$file" fi linker_opts="$linker_opts -LIBPATH:$file" } # func_cl_dashl library # Do a library search-path lookup for cl func_cl_dashl () { lib=$1 found=no save_IFS=$IFS IFS=';' for dir in $lib_path $LIB do IFS=$save_IFS if $shared && test -f "$dir/$lib.dll.lib"; then found=yes lib=$dir/$lib.dll.lib break fi if test -f "$dir/$lib.lib"; then found=yes lib=$dir/$lib.lib break fi if test -f "$dir/lib$lib.a"; then found=yes lib=$dir/lib$lib.a break fi done IFS=$save_IFS if test "$found" != yes; then lib=$lib.lib fi } # func_cl_wrapper cl arg... # Adjust compile command to suit cl func_cl_wrapper () { # Assume a capable shell lib_path= shared=: linker_opts= for arg do if test -n "$eat"; then eat= else case $1 in -o) # configure might choose to run compile as 'compile cc -o foo foo.c'. eat=1 case $2 in *.o | *.[oO][bB][jJ]) func_file_conv "$2" set x "$@" -Fo"$file" shift ;; *) func_file_conv "$2" set x "$@" -Fe"$file" shift ;; esac ;; -I) eat=1 func_file_conv "$2" mingw set x "$@" -I"$file" shift ;; -I*) func_file_conv "${1#-I}" mingw set x "$@" -I"$file" shift ;; -l) eat=1 func_cl_dashl "$2" set x "$@" "$lib" shift ;; -l*) func_cl_dashl "${1#-l}" set x "$@" "$lib" shift ;; -L) eat=1 func_cl_dashL "$2" ;; -L*) func_cl_dashL "${1#-L}" ;; -static) shared=false ;; -Wl,*) arg=${1#-Wl,} save_ifs="$IFS"; IFS=',' for flag in $arg; do IFS="$save_ifs" linker_opts="$linker_opts $flag" done IFS="$save_ifs" ;; -Xlinker) eat=1 linker_opts="$linker_opts $2" ;; -*) set x "$@" "$1" shift ;; *.cc | *.CC | *.cxx | *.CXX | *.[cC]++) func_file_conv "$1" set x "$@" -Tp"$file" shift ;; *.c | *.cpp | *.CPP | *.lib | *.LIB | *.Lib | *.OBJ | *.obj | *.[oO]) func_file_conv "$1" mingw set x "$@" "$file" shift ;; *) set x "$@" "$1" shift ;; esac fi shift done if test -n "$linker_opts"; then linker_opts="-link$linker_opts" fi exec "$@" $linker_opts exit 1 } eat= case $1 in '') echo "$0: No command. Try '$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: compile [--help] [--version] PROGRAM [ARGS] Wrapper for compilers which do not understand '-c -o'. Remove '-o dest.o' from ARGS, run PROGRAM with the remaining arguments, and rename the output as expected. If you are trying to build a whole package this is not the right script to run: please start by reading the file 'INSTALL'. Report bugs to . EOF exit $? ;; -v | --v*) echo "compile $scriptversion" exit $? ;; cl | *[/\\]cl | cl.exe | *[/\\]cl.exe ) func_cl_wrapper "$@" # Doesn't return... ;; esac ofile= cfile= for arg do if test -n "$eat"; then eat= else case $1 in -o) # configure might choose to run compile as 'compile cc -o foo foo.c'. # So we strip '-o arg' only if arg is an object. eat=1 case $2 in *.o | *.obj) ofile=$2 ;; *) set x "$@" -o "$2" shift ;; esac ;; *.c) cfile=$1 set x "$@" "$1" shift ;; *) set x "$@" "$1" shift ;; esac fi shift done if test -z "$ofile" || test -z "$cfile"; then # If no '-o' option was seen then we might have been invoked from a # pattern rule where we don't need one. That is ok -- this is a # normal compilation that the losing compiler can handle. If no # '.c' file was seen then we are probably linking. That is also # ok. exec "$@" fi # Name of file we expect compiler to create. cofile=`echo "$cfile" | sed 's|^.*[\\/]||; s|^[a-zA-Z]:||; s/\.c$/.o/'` # Create the lock directory. # Note: use '[/\\:.-]' here to ensure that we don't use the same name # that we are using for the .o file. Also, base the name on the expected # object file name, since that is what matters with a parallel build. lockdir=`echo "$cofile" | sed -e 's|[/\\:.-]|_|g'`.d while true; do if mkdir "$lockdir" >/dev/null 2>&1; then break fi sleep 1 done # FIXME: race condition here if user kills between mkdir and trap. trap "rmdir '$lockdir'; exit 1" 1 2 15 # Run the compile. "$@" ret=$? if test -f "$cofile"; then test "$cofile" = "$ofile" || mv "$cofile" "$ofile" elif test -f "${cofile}bj"; then test "${cofile}bj" = "$ofile" || mv "${cofile}bj" "$ofile" fi rmdir "$lockdir" exit $ret # 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: xcircuit-3.9.73/filelist.c0000664000175000001440000006507212757405222014160 0ustar timusers/*-------------------------------------------------------------------------*/ /* filelist.c --- Xcircuit routines for the filelist widget */ /* Copyright (c) 2002 Tim Edwards, Johns Hopkins University */ /*-------------------------------------------------------------------------*/ #include #include #include #include #include #include /* For isspace() */ #ifdef HAVE_DIRENT_H #include #include #define direct dirent #elif !defined(_MSC_VER) #include #endif #include #include #include #ifndef XC_WIN32 #include #include #include #include #include #endif #ifdef TCL_WRAPPER #include #else #ifndef XC_WIN32 #include "Xw/Xw.h" #include "Xw/WorkSpace.h" #include "Xw/TextEdit.h" #include "Xw/Toggle.h" #endif #endif #if defined(XC_WIN32) && defined(TCL_WRAPPER) #include #include #include #endif /*-------------------------------------------------------------------------*/ /* Local includes */ /*-------------------------------------------------------------------------*/ #include "colordefs.h" #include "xcircuit.h" /*----------------------------------------------------------------------*/ /* Function prototype declarations */ /*----------------------------------------------------------------------*/ #include "prototypes.h" /*-------------------------------------------------------------------------*/ /* Local definitions */ /*-------------------------------------------------------------------------*/ #define INITDIRS 10 /*-------------------------------------------------------------------------*/ /* Global Variable definitions */ /*-------------------------------------------------------------------------*/ #ifdef TCL_WRAPPER extern Tcl_Interp *xcinterp; #endif extern Display *dpy; extern XCWindowData *areawin; extern ApplicationData appdata; extern colorindex *colorlist; extern short popups; /* total number of popup windows */ extern char _STR2[250]; extern char _STR[150]; extern Globaldata xobjs; Pixmap flistpix = (Pixmap)NULL; /* For file-selection widget */ short flstart, flfiles, flcurrent; int flcurwidth; GC hgc = NULL, sgc = NULL; char *cwdname = NULL; fileliststruct *files; #if !defined(XC_WIN32) || defined(TCL_WRAPPER) /*-------------------------------------------------------------------------*/ /* Compare two filenames (for use by qsort()) */ /*-------------------------------------------------------------------------*/ int fcompare(const void *a, const void *b) { return (strcmp((char *)(((fileliststruct *)a)->filename), (char *)(((fileliststruct *)b)->filename))); } /*-------------------------------------------------------------------------*/ /* Routines for drawing a box around the currently selected file */ /*-------------------------------------------------------------------------*/ void dragfilebox(xcWidget w, caddr_t clientdata, XMotionEvent *event) { short filenum; int twidth; Window lwin = xcWindow(w); filenum = (event->y - 10 + FILECHARHEIGHT) / FILECHARHEIGHT + flstart - 1; if (filenum < 0) filenum = 0; else if (filenum >= flfiles) filenum = flfiles - 1; if (filenum == flcurrent) return; if (flcurrent >= 0) /* erase previous box */ XDrawRectangle(dpy, lwin, areawin->gc, 5, 10 + FILECHARHEIGHT * (flcurrent - flstart), flcurwidth + 10, FILECHARHEIGHT); if (files == NULL) return; twidth = XTextWidth(appdata.filefont, files[filenum].filename, strlen(files[filenum].filename)); XDrawRectangle(dpy, lwin, areawin->gc, 5, 10 + FILECHARHEIGHT * (filenum - flstart), twidth + 10, FILECHARHEIGHT); flcurrent = filenum; flcurwidth = twidth; } /*-------------------------------------------------------------------------*/ /* Begin tracking the cursor position relative to the files in the list */ /*-------------------------------------------------------------------------*/ void startfiletrack(xcWidget w, caddr_t clientdata, XCrossingEvent *event) { #ifdef TCL_WRAPPER Tk_CreateEventHandler(w, PointerMotionMask, (Tk_EventProc *)xctk_dragfilebox, (ClientData)w); #else xcAddEventHandler(w, PointerMotionMask, False, (xcEventHandler)dragfilebox, NULL); #endif XSetFunction(dpy, areawin->gc, GXcopy); XSetForeground(dpy, areawin->gc, colorlist[AUXCOLOR].color.pixel); XSetLineAttributes(dpy, areawin->gc, 1, LineSolid, CapRound, JoinMiter); /* draw initial box */ flcurrent = -1; dragfilebox(w, NULL, (XMotionEvent *)event); XSetFunction(dpy, areawin->gc, GXxor); XSetForeground(dpy, areawin->gc, colorlist[AUXCOLOR].color.pixel ^ colorlist[BACKGROUND].color.pixel); } /*-------------------------------------------------------------------------*/ /* Stop tracking the cursor and return to default state */ /*-------------------------------------------------------------------------*/ void endfiletrack(xcWidget w, caddr_t clientdata, XCrossingEvent *event) { Window lwin = xcWindow(w); XDrawRectangle(dpy, lwin, areawin->gc, 5, 10 + FILECHARHEIGHT * (flcurrent - flstart), flcurwidth + 10, FILECHARHEIGHT); #ifdef TCL_WRAPPER Tk_DeleteEventHandler(w, PointerMotionMask, (Tk_EventProc *)xctk_dragfilebox, (ClientData)w); #else xcRemoveEventHandler(w, PointerMotionMask, False, (xcEventHandler)dragfilebox, NULL); #endif /* Restore graphics state values */ XSetForeground(dpy, areawin->gc, colorlist[areawin->gccolor].color.pixel); XSetFunction(dpy, areawin->gc, GXcopy); } #endif /*----------------------------------------------------------------------*/ /* Read a crash file to find the name of the original file. */ /*----------------------------------------------------------------------*/ char *getcrashfilename() { FILE *fi; char temp[256]; char *retstr = NULL, *tpos, *spos; int slen; if ((fi = fopen(_STR2, "r")) != NULL) { while (fgets(temp, 255, fi) != NULL) { if ((tpos = strstr(temp, "Title:")) != NULL) { ridnewline(temp); tpos += 7; if ((spos = strrchr(temp, '/')) != NULL) tpos = spos + 1; retstr = (char *)malloc(1 + strlen(tpos)); strcpy(retstr, tpos); } else if ((tpos = strstr(temp, "CreationDate:")) != NULL) { ridnewline(temp); tpos += 14; slen = strlen(retstr); retstr = (char *)realloc(retstr, 4 + slen + strlen(tpos)); sprintf(retstr + slen, " (%s)", tpos); break; } } fclose(fi); } return retstr; } /*----------------------------------------------------------------------*/ /* Crash recovery: load the file, and link the tempfile name to it. */ /*----------------------------------------------------------------------*/ void crashrecover() { if (xobjs.tempfile != NULL) { unlink(xobjs.tempfile); free(xobjs.tempfile); xobjs.tempfile = NULL; } if (strlen(_STR2) == 0) { Wprintf("Error: No temp file name for crash recovery!"); } else { xobjs.tempfile = strdup(_STR2); startloadfile(-1); } } /*----------------------------------------------------------------------*/ /* Look for any files left over from a crash. */ /*----------------------------------------------------------------------*/ void findcrashfiles() { DIR *cwd; struct direct *dp; struct stat sbuf; #ifndef _MSC_VER uid_t userid = getuid(); #endif time_t recent = 0; char *snptr; int pid; cwd = opendir(xobjs.tempdir); if (cwd == NULL) return; /* No tmp directory, no tmp files! */ while ((dp = readdir(cwd)) != NULL) { sprintf(_STR, "%s/%s", xobjs.tempdir, dp->d_name); snptr = _STR + strlen(xobjs.tempdir) + 1; if (!strncmp(snptr, "XC", 2)) { char *dotptr = strchr(snptr, '.'); pid = -1; if (dotptr && dotptr > snptr + 2) { *dotptr = '\0'; if (sscanf(snptr + 2, "%d", &pid) != 1) pid = -1; *dotptr = '.'; } if ((!stat(_STR, &sbuf)) #ifndef _MSC_VER && (sbuf.st_uid == userid) #endif ) { if ((recent == 0) || (sbuf.st_ctime > recent)) { /* Check if the PID belongs to an active process */ /* by sending a CONT signal and checking if */ /* there was no error result. */ #ifndef _MSC_VER if (pid != -1) if (kill((pid_t)pid, SIGCONT) == 0) continue; #endif recent = sbuf.st_ctime; strcpy(_STR2, _STR); } } } } closedir(cwd); if (recent > 0) { /* There exists at least one temporary file */ /* belonging to this user. Ask to recover */ /* the most recent one. */ /* Warn user of existing tempfile, and ask user if file */ /* should be recovered immediately. */ #ifdef TCL_WRAPPER char *cfile = getcrashfilename(); sprintf(_STR, ".query.title.field configure -text " "\"Recover file \'%s\'?\"", (cfile == NULL) ? "(unknown)" : cfile); Tcl_Eval(xcinterp, _STR); Tcl_Eval(xcinterp, ".query.bbar.okay configure -command " "{filerecover; wm withdraw .query}; wm deiconify .query"); if (cfile != NULL) free(cfile); #else getfile(NULL, (pointertype)RECOVER, NULL); /* Crash recovery mode */ #endif } } /*----------------------------------------------------------------------*/ /* Match a filename extension against the file filter list. */ /*----------------------------------------------------------------------*/ #if !defined(XC_WIN32) || defined(TCL_WRAPPER) Boolean match_filter(char *fname, char *filter) { char *dotptr = strrchr(fname, '.'); char *filtptr, *endptr; int filtlen, extlen; if (filter == NULL) return False; if (dotptr == NULL) return False; /* New 11/08: Empty string for filter is a wildcard match, the same */ /* as turning off the filter. */ if (filter[0] == '\0') return True; dotptr++; extlen = strlen(dotptr); filtptr = filter; while (*filtptr != '\0') { endptr = filtptr; while (*endptr != '\0' && !isspace(*endptr)) endptr++; filtlen = (int)(endptr - filtptr); if (filtlen == extlen) if (!strncmp(dotptr, filtptr, extlen)) return True; filtptr = endptr; while (*filtptr != '\0' && isspace(*filtptr)) filtptr++; } return False; } /*----------------------------------------------------------------------*/ /* Make a list of the files in the list widget window */ /*----------------------------------------------------------------------*/ void listfiles(xcWidget w, popupstruct *okaystruct, caddr_t calldata) { XGCValues values; #ifndef TCL_WRAPPER Arg wargs[2]; #endif DIR *cwd; char *filter; Window lwin = xcWindow(w); short allocd = INITDIRS; short n = 0; struct direct *dp; struct stat statbuf; int pixheight; Dimension textwidth, textheight; filter = okaystruct->filter; if (sgc == NULL) { values.foreground = colorlist[FOREGROUND].color.pixel; values.font = appdata.filefont->fid; values.function = GXcopy; values.graphics_exposures = False; sgc = XCreateGC(dpy, lwin, GCForeground | GCFont | GCFunction | GCGraphicsExposures, &values); } #ifdef TCL_WRAPPER textwidth = Tk_Width(w); textheight = Tk_Height(w); #else XtnSetArg(XtNwidth, &textwidth); XtnSetArg(XtNheight, &textheight); XtGetValues(w, wargs, n); #endif /* Generate a new flistpix pixmap if currently nonexistent */ if (!flistpix) { /* get list of files in the current directory (cwd) */ if (files == NULL) files = (fileliststruct *) malloc (INITDIRS * sizeof(fileliststruct)); flfiles = 0; if (cwdname == NULL) { cwdname = (char *) malloc (sizeof(char)); cwdname[0] = '\0'; } if (cwdname[0] == '\0') cwd = opendir("."); else cwd = opendir(cwdname); /* If current directory cannot be accessed for some reason, */ /* print "Invalid Directory" to the file list window. */ if (cwd == NULL) { XSetForeground(dpy, sgc, colorlist[BACKGROUND].color.pixel); XFillRectangle(dpy, lwin, sgc, 0, 0, textwidth, textheight); XSetForeground(dpy, sgc, colorlist[AUXCOLOR].color.pixel); XDrawString(dpy, lwin, sgc, 10, textheight / 2, "(Invalid Directory)", 19); return; } else { /* write the contents of the current directory into the */ /* array "filenames[]" (except for current directory ".") */ while ((dp = readdir(cwd)) != NULL) { /* don't put current directory in list */ if (!strcmp(dp->d_name, ".")) continue; /* record the type of file */ sprintf(_STR2, "%s%s", cwdname, dp->d_name); if (stat(_STR2, &statbuf)) continue; if ((statbuf.st_mode & S_IFDIR) != 0) /* is a directory */ files[flfiles].filetype = DIRECTORY; else if (match_filter(dp->d_name, filter)) files[flfiles].filetype = MATCH; else { if (xobjs.filefilter) continue; else files[flfiles].filetype = NONMATCH; } /* save the filename */ files[flfiles].filename = (char *) malloc ((strlen(dp->d_name) + ((files[flfiles].filetype == DIRECTORY) ? 2 : 1)) * sizeof(char)); strcpy(files[flfiles].filename, dp->d_name); if (files[flfiles].filetype == DIRECTORY) strcat(files[flfiles].filename, "/"); if (++flfiles == allocd) { allocd += INITDIRS; files = (fileliststruct *) realloc(files, allocd * sizeof(fileliststruct)); } } } closedir(cwd); /* sort the files[] array into alphabetical order (like "ls") */ qsort((void *)files, (size_t)flfiles, sizeof(fileliststruct), fcompare); pixheight = flfiles * FILECHARHEIGHT + 25; if (pixheight < textheight) pixheight = textheight; flistpix = XCreatePixmap(dpy, areawin->window, textwidth, pixheight, DefaultDepthOfScreen(xcScreen(w))); /* Write the filenames onto the pixmap */ XSetForeground(dpy, sgc, colorlist[BACKGROUND].color.pixel); XFillRectangle(dpy, flistpix, sgc, 0, 0, textwidth, pixheight); XSetForeground(dpy, sgc, colorlist[FOREGROUND].color.pixel); for (n = 0; n < flfiles; n++) { switch (files[n].filetype) { case DIRECTORY: XSetForeground(dpy, sgc, colorlist[SELECTCOLOR].color.pixel); break; case MATCH: XSetForeground(dpy, sgc, colorlist[FILTERCOLOR].color.pixel); break; case NONMATCH: XSetForeground(dpy, sgc, colorlist[FOREGROUND].color.pixel); break; } XDrawString(dpy, flistpix, sgc, 10, 10 + FILECHARASCENT + n * FILECHARHEIGHT, files[n].filename, strlen(files[n].filename)); } } /* Copy the pixmap of filenames into the file list window */ XSetForeground(dpy, sgc, colorlist[BACKGROUND].color.pixel); XFillRectangle(dpy, lwin, sgc, 0, 0, textwidth, textheight); XCopyArea(dpy, flistpix, lwin, sgc, 0, flstart * FILECHARHEIGHT, textwidth, textheight, 0, 0); } /*-------------------------------------------------------------------------*/ /* Generate a new pixmap for writing the filelist and set the scrollbar */ /* size accordingly. */ /*-------------------------------------------------------------------------*/ void newfilelist(xcWidget w, popupstruct *okaystruct) { short n; #ifdef TCL_WRAPPER int bval; int result; char *cstr = (char *)Tcl_GetVar2(xcinterp, "XCOps", "filter", 0); if (cstr == NULL) { Wprintf("Error: No variable $XCOps(filter) in Tcl!"); return; } result = Tcl_GetBoolean(xcinterp, cstr, &bval); if (result != TCL_OK) { Wprintf("Error: Bad variable $XCOps(filter) in Tcl!"); return; } xobjs.filefilter = bval; #else xcWidget textw = okaystruct->textw; #endif for (n = 0; n < flfiles; n++) free(files[n].filename); free(files); if (flistpix != (Pixmap)NULL) XFreePixmap(dpy, flistpix); files = NULL; flistpix = (Pixmap)NULL; flstart = 0; listfiles(w, okaystruct, NULL); #ifdef TCL_WRAPPER showlscroll(Tk_NameToWindow(xcinterp, ".filelist.listwin.sb", w), NULL, NULL); Tcl_Eval(xcinterp, ".filelist.textent.txt delete 0 end"); sprintf(_STR2, ".filelist.textent.txt insert 0 %s", cwdname); Tcl_Eval(xcinterp, _STR2); #else showlscroll(XtNameToWidget(xcParent(w), "LScroll"), NULL, NULL); XwTextClearBuffer(textw); XwTextInsert(textw, cwdname); XwTextResize(textw); #endif } /*-------------------------------------------------------------------------*/ /* Button press handler for file list window */ /*-------------------------------------------------------------------------*/ void fileselect(xcWidget w, popupstruct *okaystruct, XButtonEvent *event) { Window lwin = xcWindow(w); Dimension textwidth, textheight; short filenum; char *tbuf, *ebuf; #ifdef TCL_WRAPPER textwidth = Tk_Width(w); textheight = Tk_Height(w); #else Arg wargs[2]; short n = 0; xcWidget textw = okaystruct->textw; XtnSetArg(XtNwidth, &textwidth); XtnSetArg(XtNheight, &textheight); XtGetValues(w, wargs, n); #endif flcurrent = -1; if (files == NULL) return; /* shouldn't happen */ /* third mouse button cancels selection and reverts buffer to cwd name */ if (event->button == Button3) { newfilelist(w, okaystruct); return; } filenum = (event->y - 10 + FILECHARHEIGHT) / FILECHARHEIGHT + flstart - 1; if (filenum < 0) filenum = 0; else if (filenum >= flfiles) filenum = flfiles - 1; /* Attempt to enter invalid directory. . . treat like button 3 */ if (filenum < 0) { newfilelist(w, okaystruct); return; } /* check if this file is a directory or not */ if (strchr(files[filenum].filename, '/') == NULL) { /* highlight the entry. . . */ XSetForeground(dpy, sgc, colorlist[AUXCOLOR].color.pixel); XDrawString(dpy, flistpix, sgc, 10, 10 + FILECHARASCENT + filenum * FILECHARHEIGHT, files[filenum].filename, strlen(files[filenum].filename)); XCopyArea(dpy, flistpix, lwin, sgc, 0, flstart * FILECHARHEIGHT, textwidth, textheight, 0, 0); /* . . .and append it to the text field */ #ifdef TCL_WRAPPER Tcl_Eval(xcinterp, ".filelist.textent.txt get"); ebuf = (char *)Tcl_GetStringResult(xcinterp); tbuf = (char *)malloc((strlen(ebuf) + strlen(files[filenum].filename) + 6) * sizeof(char)); #else ebuf = (char *)XwTextCopyBuffer(textw); tbuf = (char *)malloc((XwTextGetLastPos(textw) + strlen(files[filenum].filename) + 5) * sizeof(char)); #endif strcpy(tbuf, ebuf); /* add a comma if there is already text in the destination buffer */ if (tbuf[0] != '\0') { if (tbuf[strlen(tbuf) - 1] != '/') strcat(tbuf, ","); } else { if (cwdname != NULL) { if (cwdname[0] != '\0') { tbuf = (char *)realloc(tbuf, (strlen(cwdname) + strlen(files[filenum].filename) + 5) * sizeof(char)); strcpy(tbuf, cwdname); } } } strcat(tbuf, files[filenum].filename); #ifdef TCL_WRAPPER Tcl_Eval(xcinterp, ".filelist.textent.txt delete 0 end"); sprintf(_STR2, ".filelist.textent.txt insert 0 %s", tbuf); Tcl_Eval(xcinterp, _STR2); #else XwTextClearBuffer(textw); XwTextInsert(textw, tbuf); XwTextResize(textw); #endif free(tbuf); } else { /* move to new directory */ if (!strcmp(files[filenum].filename, "../")) { char *cptr, *sptr = cwdname; if (!strcmp(cwdname, "/")) return; /* no way up from root dir. */ while(strstr(sptr, "../") != NULL) sptr += 3; if ((cptr = strrchr(sptr, '/')) != NULL) { *cptr = '\0'; if ((cptr = strrchr(sptr, '/')) != NULL) *(cptr + 1) = '\0'; else *sptr = '\0'; } else { cwdname = (char *)realloc(cwdname, (strlen(cwdname) + 4) * sizeof(char)); strcat(cwdname, "../"); } } else { cwdname = (char *)realloc(cwdname, (strlen(cwdname) + strlen(files[filenum].filename) + 1) * sizeof(char)); strcat(cwdname, files[filenum].filename); } newfilelist(w, okaystruct); } } /*-------------------------------------------------------------------------*/ /* Scrollbar handler for file list widget */ /*-------------------------------------------------------------------------*/ void showlscroll(xcWidget w, caddr_t clientdata, caddr_t calldata) { Window swin = xcWindow(w); Dimension swidth, sheight; int pstart, pheight, finscr; #ifdef TCL_WRAPPER swidth = Tk_Width(w); sheight = Tk_Height(w); #else Arg wargs[2]; short n = 0; XtnSetArg(XtNwidth, &swidth); XtnSetArg(XtNheight, &sheight); XtGetValues(w, wargs, n); #endif XClearWindow(dpy, swin); if (flfiles > 0) { /* no files, no bar */ finscr = sheight / FILECHARHEIGHT; if (finscr > flfiles) finscr = flfiles; pstart = (flstart * sheight) / flfiles; pheight = (finscr * sheight) / flfiles; XSetForeground(dpy, sgc, colorlist[BARCOLOR].color.pixel); XFillRectangle(dpy, swin, sgc, 0, pstart, swidth, pheight); } flcurrent = -1; } /*-------------------------------------------------------------------------*/ /* Button Motion handler for moving the scrollbar up and down */ /*-------------------------------------------------------------------------*/ void draglscroll(xcWidget w, popupstruct *okaystruct, XButtonEvent *event) { Dimension sheight; int phheight, finscr, flsave = flstart; xcWidget filew = okaystruct->filew; #ifdef TCL_WRAPPER sheight = Tk_Height(w); #else Arg wargs[1]; short n = 0; XtnSetArg(XtNheight, &sheight); XtGetValues(w, wargs, n); #endif finscr = sheight / FILECHARHEIGHT; if (finscr > flfiles) finscr = flfiles; /* center scrollbar on pointer vertical position */ phheight = (finscr * sheight) / (flfiles * 2); flstart = (event->y > phheight) ? ((event->y - phheight) * flfiles) / sheight : 0; if (flstart > (flfiles - finscr + 2)) flstart = (flfiles - finscr + 2); if (flstart != flsave) { showlscroll(w, NULL, NULL); listfiles(filew, okaystruct, NULL); } } /*----------------------------------------------------------------------*/ /* Set/unset the file filtering function */ /*----------------------------------------------------------------------*/ #ifndef TCL_WRAPPER void setfilefilter(xcWidget w, popupstruct *okaystruct, caddr_t calldata) { xobjs.filefilter = (xobjs.filefilter) ? False : True; /* Force regeneration of the file list */ newfilelist(okaystruct->filew, okaystruct); } #endif /*----------------------------------------------------------------------*/ /* Generate the file list window */ /*----------------------------------------------------------------------*/ #ifdef TCL_WRAPPER void genfilelist(xcWidget parent, popupstruct *okaystruct, Dimension width) { xcWidget listarea, lscroll, entertext; entertext = okaystruct->textw; listarea = Tk_NameToWindow(xcinterp, ".filelist.listwin.win", parent); xcAddEventHandler(listarea, ButtonPressMask, False, (xcEventHandler)fileselect, okaystruct); xcAddEventHandler(listarea, EnterWindowMask, False, (xcEventHandler)startfiletrack, NULL); xcAddEventHandler(listarea, LeaveWindowMask, False, (xcEventHandler)endfiletrack, NULL); flstart = 0; okaystruct->filew = listarea; lscroll = Tk_NameToWindow(xcinterp, ".filelist.listwin.sb", parent); Tk_CreateEventHandler(lscroll, Button1MotionMask | Button2MotionMask, (Tk_EventProc *)xctk_draglscroll, (ClientData)okaystruct); /* force new file list, in case the highlight filter changed */ if (flistpix != (Pixmap)NULL) XFreePixmap(dpy, flistpix); flistpix = (Pixmap)NULL; } #else void genfilelist(xcWidget parent, popupstruct *okaystruct, Dimension width) { Arg wargs[8]; xcWidget listarea, lscroll, entertext, dofilter; short n = 0; int wwidth; XtnSetArg(XtNx, 20); XtnSetArg(XtNy, FILECHARHEIGHT - 10); XtnSetArg(XtNwidth, width - SBARSIZE - 40); XtnSetArg(XtNheight, LISTHEIGHT - FILECHARHEIGHT); XtnSetArg(XtNfont, appdata.filefont); entertext = okaystruct->textw; listarea = XtCreateManagedWidget("Filelist", XwworkSpaceWidgetClass, parent, wargs, n); n = 0; XtAddCallback(listarea, XtNexpose, (XtCallbackProc)listfiles, okaystruct); xcAddEventHandler(listarea, ButtonPressMask, False, (xcEventHandler)fileselect, okaystruct); xcAddEventHandler(listarea, EnterWindowMask, False, (xcEventHandler)startfiletrack, NULL); xcAddEventHandler(listarea, LeaveWindowMask, False, (xcEventHandler)endfiletrack, NULL); flstart = 0; okaystruct->filew = listarea; XtnSetArg(XtNx, width - SBARSIZE - 20); XtnSetArg(XtNy, FILECHARHEIGHT - 10); XtnSetArg(XtNwidth, SBARSIZE); XtnSetArg(XtNheight, LISTHEIGHT - FILECHARHEIGHT); XtnSetArg(XtNfont, appdata.xcfont); lscroll = XtCreateManagedWidget("LScroll", XwworkSpaceWidgetClass, parent, wargs, n); n = 0; XtAddCallback(lscroll, XtNexpose, (XtCallbackProc)showlscroll, NULL); xcAddEventHandler(lscroll, Button1MotionMask | Button2MotionMask, False, (xcEventHandler)draglscroll, okaystruct); /* Add a toggle widget to turn file filtering on/off */ wwidth = XTextWidth(appdata.xcfont, "filter", strlen("filter")); XtnSetArg(XtNx, width - wwidth - 50); XtnSetArg(XtNy, LISTHEIGHT + 10); XtnSetArg(XtNset, xobjs.filefilter); XtnSetArg(XtNsquare, True); XtnSetArg(XtNborderWidth, 0); XtnSetArg(XtNfont, appdata.xcfont); XtnSetArg(XtNlabelLocation, XwLEFT); dofilter = XtCreateManagedWidget("Filter", XwtoggleWidgetClass, parent, wargs, n); n = 0; XtAddCallback(dofilter, XtNselect, (XtCallbackProc)setfilefilter, okaystruct); XtAddCallback(dofilter, XtNrelease, (XtCallbackProc)setfilefilter, okaystruct); /* force new file list, in case the highlight filter changed */ if (flistpix != (Pixmap)NULL) XFreePixmap(dpy, flistpix); flistpix = (Pixmap)NULL; } #endif /* TCL_WRAPPER */ #endif /*-------------------------------------------------------------------------*/ /* Look for a directory name in a string and update cwdname accordingly */ /*-------------------------------------------------------------------------*/ int lookdirectory(char *lstring, int nchars) { int slen; DIR *cwd = NULL; xc_tilde_expand(lstring, nchars); slen = strlen(lstring); if (lstring[slen - 1] == '/' || ((cwd=opendir(lstring)) != NULL)) { if (cwd) closedir(cwd); if (lstring[slen - 1] != '/') strcat(lstring, "/"); cwdname = (char *)realloc(cwdname, (slen + 2) * sizeof(char)); strcpy(cwdname, lstring); return(1); } return(0); } /*-------------------------------------------------------------------------*/ xcircuit-3.9.73/xcwin32.h0000664000175000001440000004540412335667423013651 0ustar timusers#ifndef __XCWIN32_H__ #define __XCWIN32_H__ #include #include typedef int Boolean; typedef Boolean Bool; #define True 1 #define False 0 typedef void* XtPointer; typedef short Dimension; typedef short Position; typedef HBITMAP Pixmap; typedef struct __WinWidget *Widget; typedef Widget *WidgetList; typedef HWND Window; typedef int Pixel; typedef struct { int pixel; int red, green, blue; int flags; } XColor; #define DoRed 0x1 #define DoGreen 0x2 #define DoBlue 0x4 typedef struct __GC *GC; typedef void Display; typedef void* Colormap; typedef int XtIntervalId; typedef HCURSOR Cursor; typedef void* caddr_t; typedef void(*XtCallbackProc)(); typedef void(*XtEventHandler)(); typedef void(*XtTimerCallbackProc)(); typedef void* XtAppContext; typedef struct __XrmValue *XrmValuePtr; typedef struct { short x, y; } XPoint; typedef struct { short width, height; char *data; int bits_per_pixel; int bytes_per_line; HBITMAP handle; } XImage; typedef struct { int ascent, descent; HFONT fid; } XFontStruct; typedef struct { int type; int x, y; int button; int state; } XButtonEvent; typedef struct { int type; int x, y; int keycode; int state; } XKeyEvent; typedef struct { int type; int x, y; } XMotionEvent, XPointerMovedEvent; typedef void* XCrossingEvent; typedef struct { int type; int message_type; Display* display; int format; HWND window; union { long l[5]; } data; } XClientMessageEvent; typedef union { int type; XButtonEvent button; XKeyEvent key; XMotionEvent motion; XPointerMovedEvent pointer_moved; XCrossingEvent crossing; XClientMessageEvent xclient; } XEvent; typedef unsigned int KeySym; typedef struct { int type; void *data; } Arg; typedef struct __CharStruct *XCharStruct; struct __GC { /* colors */ int foreground, background; int function; /* fill */ int fill_style; HBITMAP fill_stipple; /* line */ int line_width; int line_style; int line_cap; int line_join; int line_dash_len; char *line_dash; /* font */ HFONT font; /* misc */ Boolean graphics_exposures; HBITMAP clipMask; }; typedef struct __GC XGCValues; typedef ATOM Atom; typedef void XWMHints; typedef unsigned int Cardinal; #define XtOffset(p_type,field) \ ((Cardinal) (((char *) (&(((p_type)NULL)->field))) - ((char *) NULL))) #define GCForeground 0x01 #define GCBackground 0x02 #define GCFont 0x04 #define GCFunction 0x08 #define GCGraphicsExposures 0x10 #define GXcopy R2_COPYPEN #define GXxor R2_XORPEN /* TODO */ #define PointerMotionMask 0x0001 #define ButtonMotionMask 0x0002 #define Button1MotionMask 0x0004 #define Button2MotionMask 0x0008 #define EnterWindowMask 0x0010 #define LeaveWindowMask 0x0020 #define ButtonPressMask 0x0040 #define KeyPressMask 0x0080 #define NoEventMask 0x0000 #define ButtonPress 0x01 #define ButtonRelease 0x02 #define KeyPress 0x03 #define KeyRelease 0x04 #define ClientMessage 0x05 #define MotionNotify 0x06 #define None 0 #define Nonconvex 0 #define CoordModeOrigin 0 #define NoSymbol 0 #define Mod1Mask 0x0001 #define Mod2Mask 0x0002 #define LockMask 0x0004 #define ShiftMask 0x0008 #define ControlMask 0x0010 #define Mod5Mask 0x0080 #define Button1 0x0100 #define Button2 0x0200 #define Button3 0x0800 #define Button4 0x1000 #define Button5 0x2000 #define Button1Mask Button1 #define Button2Mask Button2 #define Button3Mask Button3 #define Button4Mask Button4 #define Button5Mask Button5 #define LineSolid PS_SOLID #define LineOnOffDash PS_DASH #define CapRound PS_ENDCAP_ROUND #define CapButt PS_ENDCAP_FLAT #define CapProjecting PS_ENDCAP_SQUARE #define JoinBevel PS_JOIN_BEVEL #define JoinMiter PS_JOIN_MITER #define FillSolid 0 #define FillStippled 1 #define FillOpaqueStippled 2 #define XtNwidth 0 #define XtNheight 1 #define XtNx 2 #define XtNy 3 #define XtNfont 4 #define XtNexpose 5 #define XtNset 6 #define XtNsquare 7 #define XtNlabelLocation 8 #define XtNborderWidth 9 #define XtNselect 10 #define XtNrelease 11 #define XtNlabel 12 #define XtNxResizable 13 #define XtNyResizable 14 #define XtNxRefWidget 15 #define XtNyRefWidget 16 #define XtNyAddHeight 17 #define XtNyAttachBottom 18 #define XtNxAttachRight 19 #define XtNyAddHeight 17 #define XtNyAttachBottom 18 #define XtNxAttachRight 19 #define XtNyAddHeight 17 #define XtNyAttachBottom 18 #define XtNxAttachRight 19 #define XtNxAddWidth 20 #define XtNforeground 21 #define XtNstring 22 #define XtNsetMark 23 #define XtNbackground 24 #define XtNborderColor 25 #define XtNrectColor 26 #define XtNresize 27 #define XtNlabelType 28 #define XtNrectStipple 29 #define XtNattachTo 30 #define XtNsensitive 31 #define XtNxOffset 32 #define XtNyOffset 33 #define XtNlayout 34 #define XtNinsertPosition 35 #define XtNgravity 36 #define XtNscroll 37 #define XtNwrap 38 #define XtNexecute 39 #define XtNkeyUp 40 #define XtNkeyDown 41 #define XtNcolormap 42 #define XtNstrip 43 #define XwLEFT 0 #define XwRECT 1 #define XwIMAGE 2 #define XwIGNORE 3 #define WestGravity 0 #define XwWrapOff 0 #define XwAutoScrollHorizontal 0 #define XwworkSpaceWidgetClass 0x01 #define XwtoggleWidgetClass 0x02 #define XwmenubuttonWidgetClass 0x03 #define XwformWidgetClass 0x04 #define XwmenuButtonWidgetClass 0x05 #define XwbulletinWidgetClass 0x06 #define XwcascadeWidgetClass 0x07 #define XwpopupmgrWidgetClass 0x08 #define XwstaticTextWidgetClass 0x09 #define XwpushButtonWidgetClass 0x0A #define XwtextEditWidgetClass 0x0B #define XC_xterm IDC_IBEAM #define XC_watch IDC_WAIT #define XtWindow(x) WinWindow(x) #define XtAppAddTimeOut(app,delay,proc,data) WinAddTimeOut(delay,proc,data) #define XtRemoveTimeOut(ID) WinRemoveTimeOut(ID) #define XWarpPointer(dpy,flag,win,x1,y1,x2,y2,x3,y3) WinWarpPointer(win,x3,y3) /*#define XCheckWindowEvent(dpy,win,mask,evt) WinCheckWindowEvent(win,mask,evt)*/ #define XCheckWindowEvent(dpy,win,mask,evt) False #define XtDispatchEvent(evt) #define XtSetArg(arg,t,d) (arg.type = t, arg.data = (void*)(d)) #define XtGetValues(win,args,n) WinGetValues(win,args,n) #define XtSetValues(win,args,n) WinSetValues(win,args,n) #define XCreatePixmap(dpy,win,w,h,depth) WinCreatePixmap(win,w,h) #define XFreePixmap(dpy,w) WinFreePixmap(w) #define XCreateImage(dpy,visual,depth,flag,offset,data,w,h,pad,bpl) WinCreateImage(w,h) #define XDestroyImage(img) WinDestroyImage(img) #define XSetLineAttributes(dpy,gc,w,style,cap,join) WinSetLineAttributes(gc,w,style,cap,join) #define XCreateGC(dpy,win,mask,gc) WinCreateGC(win,mask,gc) #define XFreeGC(gc) WinFreeGC(gc) #define XtParent(w) WinParent(w) #define XtNameToWidget(parent,name) WinNameToWindow(parent,name) #define XtCreateManagedWidget(name,cls,parent,args,n) WinCreateWidget(name,cls,parent,args,n,1) #define XtCreateWidget(name,cls,parent,args,n) WinCreateWidget(name,cls,parent,args,n,0) #define DefaultRootWindow(dpy) GetDesktopWindow() #define DefaultColormap(dpy,screen) NULL #define DefaultScreen(dpy) 0 #define XFreeColormap(dpy,cmap) #define XtDisplay(x) GetDesktopWindow() #define XtCreatePopupShell(name,cls,btn,args,n) WinCreatePopup(name,args,n) #define XtPopup(w,flag) WinPopup(w) #define XKeysymToString(ks) WinKeyToString(ks) #define XChangeProperty(dpy,win,prop,type,format,mode,data,len) #define XCreateBitmapFromData(dpy,win,bits,w,h) WinCreateBitmapFromData(win,bits,w,h) #define XCreatePixmapCursor(dpy,src,mask,fg,bg,xhot,yhot) WinCreateCursor(src,mask,xhot,yhot) #define XCreateFontCursor(dpy,type) WinCreateStandardCursor(type) #define XtOpenApplication(app,name,dummy,n,Argc,Argv,argfb,cls,arglist,narg) WinCreateTopLevel(name,Argc,Argv) #define XDefineCursor(dpy,w,cur) WinSetCursor(w,cur) #define XtMalloc malloc #define BlackPixel(dpy,screen) RGB(0,0,0) #define WhitePixel(dpy,screen) RGB(255,255,255) #define XBell(dpy,len) MessageBeep(-1) #define XSync(dpy,flag) WinDebug("Should sync\n") #define XFlush(dpy) WinDebug("Should flush\n") #define XSendEvent(dpy,win,prop,mask,evt) WinDebug("Should send an event\n") #define DisplayWidth(dpy,screen) WinDesktopWidth() #define DisplayHeight(dpy,screen) WinDesktopHeight() #define XGetPixel(img,x,y) WinGetPixel(img,x,y) #define XPutPixel(img,x,y,c) WinPutPixel(img,x,y,c) #define XDrawArc(dpy,win,gc,x,y,w,h,a1,a2) WinDrawArc(win,gc,x,y,w,h,a1,a2) #define XDrawLine(dpy,win,gc,x1,y1,x2,y2) WinDrawLine(win,gc,x1,y1,x2,y2) #define XDrawLines(dpy,win,gc,pl,n,dummy) WinDrawLines(win,gc,pl,n) #define XFillPolygon(dpy,win,gc,pl,n,x1,x2) WinFillPolygon(win,gc,pl,n) #define XClearArea(dpy,win,x,y,w,h,dummy) WinClearArea(win,x,y,w,h) #define XFillRectangle(dpy,win,gc,x,y,w,h) WinFillRectangle(win,gc,x,y,w,h) /*#define XSetLineAttributes(dpy,gc,w,s,c,j) WinSetLineAttributes(gc,w,s,c,j)*/ #define XDrawPoint(dpy,win,gc,x,y) WinDrawPoint(win,gc,x,y) #define XSetForeground(dpy,gc,c) WinSetForeground(gc,c) #define XSetFunction(dpy,gc,z) WinSetFunction(gc,z) #define XSetBackground(dpy,gc,c) WinSetBackground(gc,c) #define XCopyArea(dpy,win1,win2,gc,x,y,w,h,offx,offy) WinCopyArea(win1,win2,gc,x,y,w,h,offx,offy) #define XTextWidth(font,str,len) WinTextWidth(font,str,len) #define XtNumber(arr) ((int) (sizeof(arr) / sizeof(arr[0]))) #define XSetFillStyle(dpy,gc,fs) WinSetFillStyle(gc,fs) #define XSetDashes(dpy,gc,offset,dash,n) WinSetDashes(gc,offset,dash,n) #define XSetStipple(dpy,gc,stipple) WinSetStipple(gc,stipple) #define XQueryPointer(dpy,win,rr,cr,rx,ry,x,y,m) WinQueryPointer(win,x,y) #define XDrawRectangle(dpy,win,gc,x,y,w,h) WinDrawRectangle(win,gc,x,y,w,h) #define XtManageChild(win) WinManageChild(win) #define XtUnmanageChild(win) WinUnmanageChild(win) #define XRecolorCursor(dpy,cur,fg,bg) #define XDrawString(dpy,win,gc,x,y,str,len) WinDrawString(win,gc,x,y,str,len) #define XTextExtents(font,str,len,dum1,w,h,dum2) WinTextExtents(font,str,len,w,h) #define XDisplayString(dpy) "unknown:0.0" #define XQueryColors(dpy,cmap,cl,n) WinQueryColors(cl,n) #define XLookupColor(dpy,cmap,cname,exact,color) WinLookupColor(cname,color) #define XtAppMainLoop(app) WinAppMainLoop() #define XtIsRealized(w) True #define XPutImage(dpy,win,gc,img,srcx,srcy,destx,desty,w,h) WinPutImage(win,gc,img,srcx,srcy,destx,desty,w,h) #define XFreeColorMap(dpy,cmap) #define XtDestroyWidget(w) DeleteObject(w) #define XtTranslateCoords(win,x,y,rx,ry) WinTranslateCoords(win,x,y,rx,ry) #define XStringToKeysym(str) WinStringToKey(str) #define XInternAtom(dpy,str,flag) AddAtom(str) #define XSetClipMask(dpy,gc,pix) WinSetClipMask(gc,pix) #define XSetClipOrigin(dpy,gc,x,y) #define XtAddEventHandler(win,mask,flag,proc,data) WinAddEventHandler(win,mask,proc,data) #define XtRemoveEventHandler(win,mask,flag,proc,data) WinRemoveEventHandler(win,mask,proc,data) #define XtAddCallback(win,mask,proc,data) WinAddCallback(win,mask,proc,data) #define XtRemoveCallback(win,mask,proc,data) WinRemoveCallback(win,mask,proc,data) #define XtRemoveAllCallbacks(win,event) #define XwTextCopyBuffer(win) WinGetText(win) #define XwTextClearBuffer(win) WinClearText(win) #define XLookupString(event,str,size,keyptr,flag) WinLookupString(event,keyptr) #define XwPostPopup(shell,menu,button,dx,dy) WinPostPopup(menu,button,dx,dy) #define XtOverrideTranslations(win,table,def) void WinWarpPointer(HWND w, int x, int y); int WinAddTimeOut(int delay, void(*proc)(), void* data); void WinRemoveTimeOut(int ID); int WinCheckWindowEvent(HWND w, int mask, XEvent *event); void WinGetValues(Widget win, Arg *args, int n); void WinSetValues(Widget win, Arg *args, int n); HBITMAP WinCreatePixmap(HWND w, int width, int height); XImage* WinCreateImage(int width, int height); void WinSetLineAttributes(GC gc, int width, int style, int cap, int join); GC WinCreateGC(HWND w, int mask, XGCValues *values); void WinFreeGC(GC gc); Widget WinParent(Widget w); Widget WinNameToWindow(Widget parent, const char *name); Widget WinCreateWidget(const char *name, int cls, Widget parent, Arg *args, int n, int show); Widget WinCreatePopup(const char *name, Arg *args, int n); void WinPopup(Widget w); char* WinKeyToString(int ks); HCURSOR WinCreateCursor(HBITMAP src, HBITMAP mask, int xhot, int yhot); HBITMAP WinCreateBitmapFromData(HWND w, char *data, int width, int height); HCURSOR WinCreateStandardCursor(char *type); HWND WinCreateTopLevel(const char *name, int *argc, char **argv); void WinSetCursor(HWND w, HCURSOR cur); void WinFreePixmap(Pixmap w); int WinDesktopWidth(void); int WinDesktopHeight(void); int WinGetPixel(XImage *img, int x, int y); void WinPutPixel(XImage *img, int x, int y, int c); void WinDrawArc(HWND win, GC gc, int x, int y, int w, int h, int a1, int a2); void WinDrawLines(HWND win, GC gc, XPoint* pathlist, int number); void WinFillPolygon(HWND win, GC gc, XPoint* pathlist, int number); void WinClearArea(HWND win, int x, int y, int w, int h); void WinFillRectangle(HWND win, GC gc, int x, int y, int w, int h); void WinSetForeground(GC gc, int rgb); int WinTextWidth(XFontStruct *f, char *s, int len); void WinSetFillStyle(GC gc, int style); void WinSetStipple(GC gc, Pixmap pattern); void WinSetFunction(GC gc, int op); void WinDrawLine(HWND win, GC gc, int x1, int y1, int x2, int y2); void WinDrawPoint(HWND win, GC gc, int x, int y); void WinSetBackground(GC gc, int rgb); void WinCopyArea(Pixmap buf, HWND win, GC gc, int x, int y, int w, int h, int offx, int offy); void WinSetDashes(GC gc, int offset, char *dash, int n); void WinQueryPointer(HWND w, int *x, int *y); void WinDrawRectangle(HWND w, GC gc, int x, int y, int width, int height); void WinDrawString(HWND win, GC gc, int x, int y, const char *str, int len); void WinTextExtents(XFontStruct *fs, char *str, int len, int *width, int *height); void WinQueryColors(XColor *cl, int n); void WinAppMainLoop(void); void WinPutImage(HWND win, GC gc, XImage *img, int srcx, int srcy, int destx, int desty, int width, int height); void WinTranslateCoords(Widget win, short x, short y, short *rx, short *ry); int WinStringToKey(const char *str); void WinAddEventHandler(Widget win, int event, void(*proc)(), void *data); void WinRemoveEventHandler(Widget win, int event, void(*proc)(), void *data); void WinAddCallback(Widget win, int event, void(*proc)(), void *data); int WinFindCallback(Widget win, int event, void(**proc)(), void **data); void WinRemoveCallback(Widget win, int event, void(*proc)(), void *data); void WinRemoveAllCallbacks(Widget win, int event); char* WinGetText(Widget win); void WinClearText(Widget win); int WinNamedColor(const char *cname); int WinLookupColor(const char *cname, XColor *color); char* WinColorName(int c); HWND WinWindow(Widget w); void WinManageChild(Widget w); void WinUnmanageChild(Widget w); void WinLookupString(XKeyEvent *event, KeySym *key); void WinPostPopup(Widget menu, Widget button, int dx, int dy); const char* WinBuiltinsDir(void); Widget WinGetMenu(const char *name); const char* WinName(Widget w); int WinIsPopupMenu(Widget w); #define KPMOD 0x1000 #define VKMOD 0x2000 #define XK_Control_L (VKMOD|VK_CONTROL) #define XK_Control_R (VKMOD|VK_CONTROL) #define XK_Alt_L (VKMOD|VK_MENU) #define XK_Alt_R (VKMOD|VK_MENU) #define XK_Shift_L (VKMOD|VK_SHIFT) #define XK_Shift_R (VKMOD|VK_SHIFT) #define XK_Caps_Lock (VKMOD|VK_CAPITAL) #define XK_Num_Lock (VKMOD|VK_NUMLOCK) #define XK_a 'a' #define XK_b 'b' #define XK_c 'c' #define XK_d 'd' #define XK_e 'e' #define XK_f 'f' #define XK_g 'g' #define XK_h 'h' #define XK_i 'i' #define XK_j 'j' #define XK_k 'k' #define XK_l 'l' #define XK_m 'm' #define XK_n 'n' #define XK_o 'o' #define XK_p 'p' #define XK_q 'q' #define XK_r 'r' #define XK_s 's' #define XK_t 't' #define XK_u 'u' #define XK_v 'v' #define XK_w 'w' #define XK_x 'x' #define XK_y 'y' #define XK_z 'z' #define XK_A 'A' #define XK_B 'B' #define XK_C 'C' #define XK_D 'D' #define XK_E 'E' #define XK_F 'F' #define XK_G 'G' #define XK_H 'H' #define XK_I 'I' #define XK_J 'J' #define XK_K 'K' #define XK_L 'L' #define XK_M 'M' #define XK_N 'N' #define XK_O 'O' #define XK_P 'P' #define XK_Q 'Q' #define XK_R 'R' #define XK_S 'S' #define XK_T 'T' #define XK_U 'U' #define XK_V 'V' #define XK_W 'W' #define XK_X 'X' #define XK_Y 'Y' #define XK_Z 'Z' #define XK_Home (VKMOD|VK_HOME) #define XK_Delete (VKMOD|VK_DELETE) #define XK_Escape (VKMOD|VK_ESCAPE) #define XK_F19 (VKMOD|VK_F19) #define XK_Right (VKMOD|VK_RIGHT) #define XK_Left (VKMOD|VK_LEFT) #define XK_Down (VKMOD|VK_DOWN) #define XK_Up (VKMOD|VK_UP) #define XK_Insert (VKMOD|VK_INSERT) #define XK_End (VKMOD|VK_END) #define XK_Return (VKMOD|VK_RETURN) #define XK_BackSpace (VKMOD|VK_BACK) #define XK_Undo (VKMOD|VK_F6) #define XK_Redo (VKMOD|VK_F7) #define XK_Tab (VKMOD|VK_TAB) #define XK_percent '%' #define XK_period '.' #define XK_bar '|' #define XK_greater '>' #define XK_less '<' #define XK_question '?' #define XK_colon ':' #define XK_underscore '_' #define XK_space ' ' #define XK_plus '+' #define XK_minus '-' #define XK_slash '/' #define XK_backslash '\\' #define XK_1 '1' #define XK_2 '2' #define XK_3 '3' #define XK_4 '4' #define XK_5 '5' #define XK_6 '6' #define XK_7 '7' #define XK_8 '8' #define XK_9 '9' #define XK_0 '0' #define XK_KP_1 (KPMOD|XK_1) #define XK_KP_2 (KPMOD|XK_2) #define XK_KP_3 (KPMOD|XK_3) #define XK_KP_4 (KPMOD|XK_4) #define XK_KP_5 (KPMOD|XK_5) #define XK_KP_6 (KPMOD|XK_6) #define XK_KP_7 (KPMOD|XK_7) #define XK_KP_8 (KPMOD|XK_8) #define XK_KP_9 (KPMOD|XK_9) #define XK_KP_0 (KPMOD|XK_0) #define XK_KP_Enter (KPMOD|VKMOD|VK_RETURN) #define XK_KP_Add (KPMOD|XK_plus) #define XK_KP_Subtract (KPMOD|XK_minus) #define XK_KP_End (KPMOD|VKMOD|VK_END) #define XK_KP_Home (KPMOD|VKMOD|VK_HOME) #define XK_KP_Up (KPMOD|VKMOD|VK_UP) #define XK_KP_Down (KPMOD|VKMOD|VK_DOWN) #define XK_KP_Right (KPMOD|VKMOD|VK_RIGHT) #define XK_KP_Left (KPMOD|VKMOD|VK_LEFT) #define XK_KP_Next (KPMOD|VKMOD|VK_NEXT) #define XK_KP_Prior (KPMOD|VKMOD|VK_PRIOR) #define XK_KP_Begin (KPMOD|VKMOD|VK_CLEAR) struct direct { char *d_name; }; typedef struct { HANDLE hnd; WIN32_FIND_DATA fd; int dirty; struct direct d; } DIR; DIR* opendir(const char*); struct direct* readdir(DIR*); void closedir(DIR*); #define snprintf _snprintf #define vsnprintf _vsnprintf #define va_copy(a,b) a=b #define pipe _pipe #define strdup _strdup #define unlink _unlink #define putenv _putenv #define fdopen _fdopen #define usleep(x) if (x < 1000) WinDebug("Cannot sleep less than 1us\n"); else Sleep(x/1000); #ifdef USE_WIN32_COM extern void win32_comscript(); #ifdef USE_WIN32_DOTNET extern void win32_comdotnet(); #endif enum win32_events { ModifiedChanged, ZoomChanged }; extern void win32_fire_event(int event_type); #endif extern void win32_new_window(Widget, void*, void*); #endif xcircuit-3.9.73/tool_bar.h0000664000175000001440000000171512335667423014152 0ustar timusers/* Include all of the XPM files */ #ifdef HAVE_XPM #ifndef XC_WIN32 #include #endif #include "lib/pixmaps/a.xpm" #include "lib/pixmaps/b.xpm" #include "lib/pixmaps/bd.xpm" #include "lib/pixmaps/ccw.xpm" #include "lib/pixmaps/co.xpm" #include "lib/pixmaps/cp.xpm" #include "lib/pixmaps/cw.xpm" #include "lib/pixmaps/d2.xpm" #include "lib/pixmaps/e.xpm" #include "lib/pixmaps/fi.xpm" #include "lib/pixmaps/fx.xpm" #include "lib/pixmaps/pz.xpm" #include "lib/pixmaps/li.xpm" #include "lib/pixmaps/mk.xpm" #include "lib/pixmaps/mv.xpm" #include "lib/pixmaps/po2.xpm" #include "lib/pixmaps/pu2.xpm" #include "lib/pixmaps/i.xpm" #include "lib/pixmaps/s.xpm" #include "lib/pixmaps/t.xpm" #include "lib/pixmaps/uj.xpm" #include "lib/pixmaps/fy.xpm" #include "lib/pixmaps/yp.xpm" #include "lib/pixmaps/z4.xpm" #include "lib/pixmaps/z5.xpm" #include "lib/pixmaps/pl.xpm" #include "lib/pixmaps/pm.xpm" #include "lib/pixmaps/pn.xpm" #include "lib/pixmaps/w.xpm" #endif xcircuit-3.9.73/resource.h0000664000175000001440000000362112335667423014176 0ustar timusers#ifndef RESOURCE_H #define RESOURCE_H //{{NO_DEPENDENCIES}} // Microsoft Developer Studio generated include file. // Used by dialogs.rc // #define IDD_INPUTDIALOG 101 #define IDD_HELPDLG 103 #define IDD_OUTPUTDLG 104 #define IDC_EDIT1 1000 #define IDC_INFOTEXT 1001 #define IDC_HELPPIX 1003 #define IDC_PAGENUM 1004 #define IDC_FILENAME 1005 #define IDC_APPLY1 1006 #define IDC_PAGELABEL 1007 #define IDC_APPLY2 1008 #define IDC_SCALE 1009 #define IDC_APPLY3 1010 #define IDC_WIDTH 1011 #define IDC_APPLY4 1012 #define IDC_HEIGHT 1013 #define IDC_APPLY5 1014 #define IDC_APPLY6 1015 #define IDC_ORIENTATION 1018 #define IDC_AUTOFIT 1019 #define IDC_MODE 1020 #define IDC_FPEDIT 1021 #define IDC_PSINFO 1022 #define IDC_STATIC1 1023 #define IDC_STATIC2 1024 #define IDC_STATIC3 1025 #define IDC_STATIC4 1026 #define IDC_STATIC5 1027 #define IDC_STATIC6 1028 #define IDC_STATIC7 1029 #define IDC_FILEOPEN 1030 #define IDR_XCIRCUIT 2001 // Next default values for new objects // #ifdef APSTUDIO_INVOKED #ifndef APSTUDIO_READONLY_SYMBOLS #define _APS_NEXT_RESOURCE_VALUE 102 #define _APS_NEXT_COMMAND_VALUE 40001 #define _APS_NEXT_CONTROL_VALUE 1001 #define _APS_NEXT_SYMED_VALUE 101 #endif #endif #define IDR_A 2001 #endif /* RESOURCE_H */ xcircuit-3.9.73/tclxcircuit.c0000664000175000001440000115355713066774071014716 0ustar timusers/*--------------------------------------------------------------*/ /* tclxcircuit.c: */ /* Tcl routines for xcircuit command-line functions */ /* Copyright (c) 2003 Tim Edwards, Johns Hopkins University */ /* Copyright (c) 2004 Tim Edwards, MultiGiG, Inc. */ /*--------------------------------------------------------------*/ #if defined(TCL_WRAPPER) && !defined(HAVE_PYTHON) #include #include /* for va_copy() */ #include /* for atoi() and others */ #include #include #include #include #include #include #ifdef HAVE_CAIRO #include #endif #ifndef _MSC_VER #include #include #endif #include "xcircuit.h" #include "colordefs.h" #include "menudep.h" #include "prototypes.h" Tcl_HashTable XcTagTable; extern Tcl_Interp *xcinterp; extern Tcl_Interp *consoleinterp; extern Display *dpy; extern Colormap cmap; extern Pixmap STIPPLE[STIPPLES]; /* Polygon fill-style stipple patterns */ extern char _STR[150], _STR2[250]; extern XCWindowData *areawin; extern Globaldata xobjs; extern int number_colors; extern colorindex *colorlist; extern Cursor appcursors[NUM_CURSORS]; extern ApplicationData appdata; extern fontinfo *fonts; extern short fontcount; extern u_char param_select[]; extern keybinding *keylist; extern Boolean spice_end; extern short flstart; extern int pressmode; extern u_char undo_collect; char STIPDATA[STIPPLES][4] = { "\000\004\000\001", "\000\005\000\012", "\001\012\005\010", "\005\012\005\012", "\016\005\012\007", "\017\012\017\005", "\017\012\017\016", "\000\000\000\000" }; short flags = -1; #define LIBOVERRIDE 1 #define LIBLOADED 2 #define COLOROVERRIDE 4 #define FONTOVERRIDE 8 #define KEYOVERRIDE 16 /*-----------------------*/ /* Tcl 8.4 compatibility */ /*-----------------------*/ #ifndef CONST84 #define CONST84 #endif /*----------------------------------------------------------------------*/ /* Procedure for waiting on X to map a window */ /* This code copied from Tk sources, where it is used for the "tkwait" */ /* command. */ /*----------------------------------------------------------------------*/ static void WaitVisibilityProc(ClientData clientData, XEvent *eventPtr) { int *donePtr = (int *) clientData; if (eventPtr->type == VisibilityNotify) { *donePtr = 1; } if (eventPtr->type == DestroyNotify) { *donePtr = 2; } } /*----------------------------------------------------------------------*/ /* Deal with systems which don't define va_copy(). */ /*----------------------------------------------------------------------*/ #ifndef HAVE_VA_COPY #ifdef HAVE___VA_COPY #define va_copy(a, b) __va_copy(a, b) #else #define va_copy(a, b) a = b #endif #endif #ifdef ASG extern int SetDebugLevel(int *level); #endif /*----------------------------------------------------------------------*/ /* Reimplement strdup() to use Tcl_Alloc(). */ /* Note that "strdup" is defined as "Tcl_Strdup" in xcircuit.h. */ /*----------------------------------------------------------------------*/ char *Tcl_Strdup(const char *s) { char *snew; int slen; slen = 1 + strlen(s); snew = Tcl_Alloc(slen); if (snew != NULL) memcpy(snew, s, slen); return snew; } /*----------------------------------------------------------------------*/ /* Reimplement vfprintf() as a call to Tcl_Eval(). */ /*----------------------------------------------------------------------*/ void tcl_vprintf(FILE *f, const char *fmt, va_list args_in) { va_list args; static char outstr[128] = "puts -nonewline std"; char *outptr, *bigstr = NULL, *finalstr = NULL; int i, nchars, result, escapes = 0; /* If we are printing an error message, we want to bring attention */ /* to it by mapping the console window and raising it, as necessary. */ /* I'd rather do this internally than by Tcl_Eval(), but I can't */ /* find the right window ID to map! */ if ((f == stderr) && (consoleinterp != xcinterp)) { Tk_Window tkwind; tkwind = Tk_MainWindow(consoleinterp); if ((tkwind != NULL) && (!Tk_IsMapped(tkwind))) result = Tcl_Eval(consoleinterp, "wm deiconify .\n"); result = Tcl_Eval(consoleinterp, "raise .\n"); } strcpy (outstr + 19, (f == stderr) ? "err \"" : "out \""); outptr = outstr; /* This mess circumvents problems with systems which do not have */ /* va_copy() defined. Some define __va_copy(); otherwise we must */ /* assume that args = args_in is valid. */ va_copy(args, args_in); nchars = vsnprintf(outptr + 24, 102, fmt, args); va_end(args); if (nchars >= 102) { va_copy(args, args_in); bigstr = Tcl_Alloc(nchars + 26); strncpy(bigstr, outptr, 24); outptr = bigstr; vsnprintf(outptr + 24, nchars + 2, fmt, args); va_end(args); } else if (nchars == -1) nchars = 126; for (i = 24; *(outptr + i) != '\0'; i++) { if (*(outptr + i) == '\"' || *(outptr + i) == '[' || *(outptr + i) == ']' || *(outptr + i) == '\\') escapes++; } if (escapes > 0) { finalstr = Tcl_Alloc(nchars + escapes + 26); strncpy(finalstr, outptr, 24); escapes = 0; for (i = 24; *(outptr + i) != '\0'; i++) { if (*(outptr + i) == '\"' || *(outptr + i) == '[' || *(outptr + i) == ']' || *(outptr + i) == '\\') { *(finalstr + i + escapes) = '\\'; escapes++; } *(finalstr + i + escapes) = *(outptr + i); } outptr = finalstr; } *(outptr + 24 + nchars + escapes) = '\"'; *(outptr + 25 + nchars + escapes) = '\0'; result = Tcl_Eval(consoleinterp, outptr); if (bigstr != NULL) Tcl_Free(bigstr); if (finalstr != NULL) Tcl_Free(finalstr); } /*------------------------------------------------------*/ /* Console output flushing which goes along with the */ /* routine tcl_vprintf() above. */ /*------------------------------------------------------*/ void tcl_stdflush(FILE *f) { Tcl_SavedResult state; static char stdstr[] = "::flush stdxxx"; char *stdptr = stdstr + 11; if ((f != stderr) && (f != stdout)) { fflush(f); } else { Tcl_SaveResult(xcinterp, &state); strcpy(stdptr, (f == stderr) ? "err" : "out"); Tcl_Eval(xcinterp, stdstr); Tcl_RestoreResult(xcinterp, &state); } } /*----------------------------------------------------------------------*/ /* Reimplement fprintf() as a call to Tcl_Eval(). */ /* Make sure that files (not stdout or stderr) get treated normally. */ /*----------------------------------------------------------------------*/ void tcl_printf(FILE *f, const char *format, ...) { va_list ap; va_start(ap, format); if ((f != stderr) && (f != stdout)) vfprintf(f, format, ap); else tcl_vprintf(f, format, ap); va_end(ap); } /*----------------------------------------------------------------------*/ /* Fill in standard areas of a key event structure. This includes */ /* everything necessary except type, keycode, and state (although */ /* state defaults to zero). This is also good for button events, which */ /* share the same structure as key events (except that keycode is */ /* changed to button). */ /*----------------------------------------------------------------------*/ void make_new_event(XKeyEvent *event) { XPoint newpos, wpoint; newpos = UGetCursorPos(); user_to_window(newpos, &wpoint); event->x = wpoint.x; event->y = wpoint.y; event->same_screen = TRUE; event->send_event = TRUE; event->display = dpy; event->window = Tk_WindowId(areawin->area); event->state = 0; } /*----------------------------------------------------------------------*/ /* Implement tag callbacks on functions */ /* Find any tags associated with a command and execute them. */ /*----------------------------------------------------------------------*/ int XcTagCallback(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int objidx, result = TCL_OK; char *postcmd, *substcmd, *newcmd, *sptr, *sres; char *croot = Tcl_GetString(objv[0]); Tcl_HashEntry *entry; Tcl_SavedResult state; int reset = FALSE; int i, llen; /* Skip over technology qualifier, if any */ if (!strncmp(croot, "::", 2)) croot += 2; if (!strncmp(croot, "xcircuit::", 10)) croot += 10; entry = Tcl_FindHashEntry(&XcTagTable, croot); postcmd = (entry) ? (char *)Tcl_GetHashValue(entry) : NULL; if (postcmd) { substcmd = (char *)Tcl_Alloc(strlen(postcmd) + 1); strcpy(substcmd, postcmd); sptr = substcmd; /*--------------------------------------------------------------*/ /* Parse "postcmd" for Tk-substitution escapes */ /* Allowed escapes are: */ /* %W substitute the tk path of the calling window */ /* %r substitute the previous Tcl result string */ /* %R substitute the previous Tcl result string and */ /* reset the Tcl result. */ /* %[0-5] substitute the argument to the original command */ /* %N substitute all arguments as a list */ /* %% substitute a single percent character */ /* %# substitute the number of arguments passed */ /* %* (all others) no action: print as-is. */ /*--------------------------------------------------------------*/ while ((sptr = strchr(sptr, '%')) != NULL) { switch (*(sptr + 1)) { case 'W': { char *tkpath = NULL; Tk_Window tkwind = Tk_MainWindow(interp); if (tkwind != NULL) tkpath = Tk_PathName(tkwind); if (tkpath == NULL) newcmd = (char *)Tcl_Alloc(strlen(substcmd)); else newcmd = (char *)Tcl_Alloc(strlen(substcmd) + strlen(tkpath)); strcpy(newcmd, substcmd); if (tkpath == NULL) strcpy(newcmd + (int)(sptr - substcmd), sptr + 2); else { strcpy(newcmd + (int)(sptr - substcmd), tkpath); strcat(newcmd, sptr + 2); } Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; } break; case 'R': reset = TRUE; case 'r': sres = (char *)Tcl_GetStringResult(interp); newcmd = (char *)Tcl_Alloc(strlen(substcmd) + strlen(sres) + 1); strcpy(newcmd, substcmd); sprintf(newcmd + (int)(sptr - substcmd), "\"%s\"", sres); strcat(newcmd, sptr + 2); Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; break; case '#': if (objc < 100) { newcmd = (char *)Tcl_Alloc(strlen(substcmd) + 3); strcpy(newcmd, substcmd); sprintf(newcmd + (int)(sptr - substcmd), "%d", objc); strcat(newcmd, sptr + 2); Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; } break; case '0': case '1': case '2': case '3': case '4': case '5': objidx = (int)(*(sptr + 1) - '0'); if ((objidx >= 0) && (objidx < objc)) { newcmd = (char *)Tcl_Alloc(strlen(substcmd) + strlen(Tcl_GetString(objv[objidx])) + 1); strcpy(newcmd, substcmd); strcpy(newcmd + (int)(sptr - substcmd), Tcl_GetString(objv[objidx])); strcat(newcmd, sptr + 2); Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; } else if (objidx >= objc) { newcmd = (char *)Tcl_Alloc(strlen(substcmd) + 1); strcpy(newcmd, substcmd); strcpy(newcmd + (int)(sptr - substcmd), sptr + 2); Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; } else sptr++; break; case 'N': llen = 1; for (i = 1; i < objc; i++) llen += (1 + strlen(Tcl_GetString(objv[i]))); newcmd = (char *)Tcl_Alloc(strlen(substcmd) + llen); strcpy(newcmd, substcmd); strcpy(newcmd + (int)(sptr - substcmd), "{"); for (i = 1; i < objc; i++) { strcat(newcmd, Tcl_GetString(objv[i])); if (i < (objc - 1)) strcat(newcmd, " "); } strcat(newcmd, "}"); strcat(newcmd, sptr + 2); Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; break; case '%': newcmd = (char *)Tcl_Alloc(strlen(substcmd) + 1); strcpy(newcmd, substcmd); strcpy(newcmd + (int)(sptr - substcmd), sptr + 1); Tcl_Free(substcmd); substcmd = newcmd; sptr = substcmd; break; default: sptr++; break; } } /* Fprintf(stderr, "Substituted tag callback is \"%s\"\n", substcmd); */ /* Flush(stderr); */ Tcl_SaveResult(interp, &state); result = Tcl_Eval(interp, substcmd); if ((result == TCL_OK) && (reset == FALSE)) Tcl_RestoreResult(interp, &state); else Tcl_DiscardResult(&state); Tcl_Free(substcmd); } return result; } /*--------------------------------------------------------------*/ /* XcInternalTagCall --- */ /* */ /* Execute the tag callback for a command without actually */ /* evaluating the command itself. The command and arguments */ /* are passed as a variable number or char * arguments, since */ /* usually this routine will called with constant arguments */ /* (e.g., XcInternalTagCall(interp, 2, "set", "color");) */ /* */ /* objv declared static because this routine is used a lot */ /* (e.g., during select/unselect operations). */ /*--------------------------------------------------------------*/ int XcInternalTagCall(Tcl_Interp *interp, int argc, ...) { int i; static Tcl_Obj **objv = NULL; char *aptr; va_list ap; if (objv == (Tcl_Obj **)NULL) objv = (Tcl_Obj **)malloc(argc * sizeof(Tcl_Obj *)); else objv = (Tcl_Obj **)realloc(objv, argc * sizeof(Tcl_Obj *)); va_start(ap, argc); for (i = 0; i < argc; i++) { aptr = va_arg(ap, char *); /* We are depending on Tcl's heap allocation of objects */ /* so that we do not have to manage memory for these */ /* string representations. . . */ objv[i] = Tcl_NewStringObj(aptr, -1); } va_end(ap); return XcTagCallback(interp, argc, objv); } /*--------------------------------------------------------------*/ /* Return the event mode */ /* Event mode can be set in specific cases. */ /*--------------------------------------------------------------*/ int xctcl_eventmode(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { static char *modeNames[] = { "normal", "undo", "move", "copy", "pan", "selarea", "rescale", "catalog", "cattext", "fontcat", "efontcat", "text", "wire", "box", "arc", "spline", "etext", "epoly", "earc", "espline", "epath", "einst", "assoc", "catmove", NULL }; /* This routine is diagnostic only */ if (objc != 1) return TCL_ERROR; Tcl_SetResult(interp, modeNames[eventmode], NULL); return TCL_OK; } /*--------------------------------------------------------------*/ /* Add a command tag callback */ /*--------------------------------------------------------------*/ int xctcl_tag(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { Tcl_HashEntry *entry; char *hstring; int new; if (objc != 2 && objc != 3) return TCL_ERROR; entry = Tcl_CreateHashEntry(&XcTagTable, Tcl_GetString(objv[1]), &new); if (entry == NULL) return TCL_ERROR; hstring = (char *)Tcl_GetHashValue(entry); if (objc == 2) { Tcl_SetResult(interp, hstring, NULL); return TCL_OK; } if (strlen(Tcl_GetString(objv[2])) == 0) { Tcl_DeleteHashEntry(entry); } else { hstring = strdup(Tcl_GetString(objv[2])); Tcl_SetHashValue(entry, hstring); } return TCL_OK; } /*----------------------------------------------------------------------*/ /* Turn a selection list into a Tcl List object (may be empty list) */ /*----------------------------------------------------------------------*/ Tcl_Obj *SelectToTclList(Tcl_Interp *interp, short *slist, int snum) { int i; Tcl_Obj *objPtr, *listPtr; if (snum == 1) { objPtr = Tcl_NewHandleObj(SELTOGENERIC(slist)); return objPtr; } listPtr = Tcl_NewListObj(0, NULL); for (i = 0; i < snum; i++) { objPtr = Tcl_NewHandleObj(SELTOGENERIC(slist + i)); Tcl_ListObjAppendElement(interp, listPtr, objPtr); } return listPtr; } /*----------------------------------------------------------------------*/ /* Get an x,y position (as an XPoint structure) from a list of size 2 */ /*----------------------------------------------------------------------*/ int GetPositionFromList(Tcl_Interp *interp, Tcl_Obj *list, XPoint *rpoint) { int result, numobjs; Tcl_Obj *lobj, *tobj; int pos; if (!strcmp(Tcl_GetString(list), "here")) { if (rpoint) *rpoint = UGetCursorPos(); return TCL_OK; } result = Tcl_ListObjLength(interp, list, &numobjs); if (result != TCL_OK) return result; if (numobjs == 1) { /* Try decomposing the object into a list */ result = Tcl_ListObjIndex(interp, list, 0, &tobj); if (result == TCL_OK) { result = Tcl_ListObjLength(interp, tobj, &numobjs); if (numobjs == 2) list = tobj; } if (result != TCL_OK) Tcl_ResetResult(interp); } if (numobjs != 2) { Tcl_SetResult(interp, "list must contain x y positions", NULL); return TCL_ERROR; } result = Tcl_ListObjIndex(interp, list, 0, &lobj); if (result != TCL_OK) return result; result = Tcl_GetIntFromObj(interp, lobj, &pos); if (result != TCL_OK) return result; if (rpoint) rpoint->x = pos; result = Tcl_ListObjIndex(interp, list, 1, &lobj); if (result != TCL_OK) return result; result = Tcl_GetIntFromObj(interp, lobj, &pos); if (result != TCL_OK) return result; if (rpoint) rpoint->y = pos; return TCL_OK; } /*--------------------------------------------------------------*/ /* Convert color index to a list of 3 elements */ /* We assume that this color exists in the color table. */ /*--------------------------------------------------------------*/ Tcl_Obj *TclIndexToRGB(int cidx) { Tcl_Obj *RGBTuple; if (cidx < 0) { /* Handle "default color" */ return Tcl_NewStringObj("Default", 7); } else if (cidx >= number_colors) { Tcl_SetResult(xcinterp, "Bad color index", NULL); return NULL; } RGBTuple = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, RGBTuple, Tcl_NewIntObj((int)(colorlist[cidx].color.red / 256))); Tcl_ListObjAppendElement(xcinterp, RGBTuple, Tcl_NewIntObj((int)(colorlist[cidx].color.green / 256))); Tcl_ListObjAppendElement(xcinterp, RGBTuple, Tcl_NewIntObj((int)(colorlist[cidx].color.blue / 256))); return RGBTuple; } /*--------------------------------------------------------------*/ /* Convert a stringpart* to a Tcl list object */ /*--------------------------------------------------------------*/ Tcl_Obj *TclGetStringParts(stringpart *thisstring) { Tcl_Obj *lstr, *sdict, *stup; int i; stringpart *strptr; lstr = Tcl_NewListObj(0, NULL); for (strptr = thisstring, i = 0; strptr != NULL; strptr = strptr->nextpart, i++) { switch(strptr->type) { case TEXT_STRING: sdict = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Text", 4)); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj(strptr->data.string, strlen(strptr->data.string))); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); break; case PARAM_START: sdict = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Parameter", 9)); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj(strptr->data.string, strlen(strptr->data.string))); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); break; case PARAM_END: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("End Parameter", 13)); break; case FONT_NAME: sdict = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Font", 4)); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj(fonts[strptr->data.font].psname, strlen(fonts[strptr->data.font].psname))); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); break; case FONT_SCALE: sdict = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Font Scale", 10)); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewDoubleObj((double)strptr->data.scale)); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); break; case KERN: sdict = Tcl_NewListObj(0, NULL); stup = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, stup, Tcl_NewIntObj((int)strptr->data.kern[0])); Tcl_ListObjAppendElement(xcinterp, stup, Tcl_NewIntObj((int)strptr->data.kern[1])); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Kern", 4)); Tcl_ListObjAppendElement(xcinterp, sdict, stup); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); break; case FONT_COLOR: stup = TclIndexToRGB(strptr->data.color); if (stup != NULL) { sdict = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Color", 5)); Tcl_ListObjAppendElement(xcinterp, sdict, stup); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); } break; case MARGINSTOP: sdict = Tcl_NewListObj(0, NULL); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewStringObj("Margin Stop", 11)); Tcl_ListObjAppendElement(xcinterp, sdict, Tcl_NewIntObj((int)strptr->data.width)); Tcl_ListObjAppendElement(xcinterp, lstr, sdict); break; case TABSTOP: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Tab Stop", 8)); break; case TABFORWARD: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Tab Forward", 11)); break; case TABBACKWARD: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Tab Backward", 12)); break; case RETURN: // Don't show automatically interted line breaks if (strptr->data.flags == 0) Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Return", 6)); break; case SUBSCRIPT: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Subscript", 9)); break; case SUPERSCRIPT: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Superscript", 11)); break; case NORMALSCRIPT: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Normalscript", 12)); break; case UNDERLINE: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Underline", 9)); break; case OVERLINE: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Overline", 8)); break; case NOLINE: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("No Line", 7)); break; case HALFSPACE: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Half Space", 10)); break; case QTRSPACE: Tcl_ListObjAppendElement(xcinterp, lstr, Tcl_NewStringObj("Quarter Space", 13)); break; } } return lstr; } /*----------------------------------------------------------------------*/ /* Get a stringpart linked list from a Tcl list */ /*----------------------------------------------------------------------*/ int GetXCStringFromList(Tcl_Interp *interp, Tcl_Obj *list, stringpart **rstring) { int result, j, k, numobjs, idx, numparts, ptype, ival; Tcl_Obj *lobj, *pobj, *tobj, *t2obj; stringpart *newpart; char *fname; double fscale; static char *partTypes[] = {"Text", "Subscript", "Superscript", "Normalscript", "Underline", "Overline", "No Line", "Tab Stop", "Tab Forward", "Tab Backward", "Half Space", "Quarter Space", "Return", "Font", "Font Scale", "Color", "Margin Stop", "Kern", "Parameter", "End Parameter", "Special", NULL}; static int partTypesIdx[] = {TEXT_STRING, SUBSCRIPT, SUPERSCRIPT, NORMALSCRIPT, UNDERLINE, OVERLINE, NOLINE, TABSTOP, TABFORWARD, TABBACKWARD, HALFSPACE, QTRSPACE, RETURN, FONT_NAME, FONT_SCALE, FONT_COLOR, MARGINSTOP, KERN, PARAM_START, PARAM_END, SPECIAL}; /* No place to put result! */ if (rstring == NULL) return TCL_ERROR; result = Tcl_ListObjLength(interp, list, &numobjs); if (result != TCL_OK) return result; newpart = NULL; for (j = 0; j < numobjs; j++) { result = Tcl_ListObjIndex(interp, list, j, &lobj); if (result != TCL_OK) return result; result = Tcl_ListObjLength(interp, lobj, &numparts); if (result != TCL_OK) return result; result = Tcl_ListObjIndex(interp, lobj, 0, &pobj); if (result != TCL_OK) return result; /* Must define TCL_EXACT in flags, or else, for instance, "u" gets */ /* interpreted as "underline", which is usually not intended. */ if (pobj == NULL) return TCL_ERROR; else if (Tcl_GetIndexFromObj(interp, pobj, (CONST84 char **)partTypes, "string part types", TCL_EXACT, &idx) != TCL_OK) { Tcl_ResetResult(interp); idx = -1; // If there's only one object and the first item doesn't match // a stringpart itentifying word, then assume that "list" is a // single text string. if (numobjs == 1) tobj = list; else result = Tcl_ListObjIndex(interp, lobj, 0, &tobj); } else { result = Tcl_ListObjIndex(interp, lobj, (numparts > 1) ? 1 : 0, &tobj); } if (result != TCL_OK) return result; if (idx < 0) { if ((newpart == NULL) || (newpart->type != TEXT_STRING)) idx = 0; else { /* We have an implicit text string which should be appended */ /* to the previous text string with a space character. */ newpart->data.string = (char *)realloc(newpart->data.string, strlen(newpart->data.string) + strlen(Tcl_GetString(tobj)) + 2); strcat(newpart->data.string, " "); strcat(newpart->data.string, Tcl_GetString(tobj)); continue; } } ptype = partTypesIdx[idx]; newpart = makesegment(rstring, NULL); newpart->nextpart = NULL; newpart->type = ptype; switch(ptype) { case TEXT_STRING: case PARAM_START: newpart->data.string = strdup(Tcl_GetString(tobj)); break; case FONT_NAME: fname = Tcl_GetString(tobj); for (k = 0; k < fontcount; k++) { if (!strcmp(fonts[k].psname, fname)) { newpart->data.font = k; break; } } if (k == fontcount) { Tcl_SetResult(interp, "Bad font name", NULL); return TCL_ERROR; } break; case FONT_SCALE: result = Tcl_GetDoubleFromObj(interp, tobj, &fscale); if (result != TCL_OK) return result; newpart->data.scale = (float)fscale; break; case MARGINSTOP: result = Tcl_GetIntFromObj(interp, tobj, &ival); if (result != TCL_OK) return result; newpart->data.width = ival; break; case KERN: result = Tcl_ListObjLength(interp, tobj, &numparts); if (result != TCL_OK) return result; if (numparts != 2) { Tcl_SetResult(interp, "Bad kern list: need 2 values", NULL); return TCL_ERROR; } result = Tcl_ListObjIndex(interp, tobj, 0, &t2obj); if (result != TCL_OK) return result; result = Tcl_GetIntFromObj(interp, t2obj, &ival); if (result != TCL_OK) return result; newpart->data.kern[0] = (short)ival; result = Tcl_ListObjIndex(interp, tobj, 1, &t2obj); if (result != TCL_OK) return result; result = Tcl_GetIntFromObj(interp, t2obj, &ival); if (result != TCL_OK) return result; newpart->data.kern[1] = (short)ival; break; case FONT_COLOR: /* Not implemented: Need TclRGBToIndex() function */ break; /* All other types have no arguments */ } } return TCL_OK; } /*----------------------------------------------------------------------*/ /* Handle (integer representation of internal xcircuit object) checking */ /* if "checkobject" is NULL, then */ /*----------------------------------------------------------------------*/ genericptr *CheckHandle(pointertype eaddr, objectptr checkobject) { genericptr *gelem; int i, j; objectptr thisobj; Library *thislib; if (checkobject != NULL) { for (gelem = checkobject->plist; gelem < checkobject->plist + checkobject->parts; gelem++) if ((pointertype)(*gelem) == eaddr) goto exists; return NULL; } /* Look through all the pages. */ for (i = 0; i < xobjs.pages; i++) { if (xobjs.pagelist[i]->pageinst == NULL) continue; thisobj = xobjs.pagelist[i]->pageinst->thisobject; for (gelem = thisobj->plist; gelem < thisobj->plist + thisobj->parts; gelem++) if ((pointertype)(*gelem) == eaddr) goto exists; } /* Not found? Maybe in a library */ for (i = 0; i < xobjs.numlibs; i++) { thislib = xobjs.userlibs + i; for (j = 0; j < thislib->number; j++) { thisobj = thislib->library[j]; for (gelem = thisobj->plist; gelem < thisobj->plist + thisobj->parts; gelem++) if ((pointertype)(*gelem) == eaddr) goto exists; } } /* Either in the delete list (where we don't want to go) or */ /* is an invalid number. */ return NULL; exists: return gelem; } /*----------------------------------------------------------------------*/ /* Find the index into the "plist" list of elements */ /* Part number must be of a type in "mask" or no selection occurs. */ /* return values: -1 = no object found, -2 = found, but wrong type */ /*----------------------------------------------------------------------*/ short GetPartNumber(genericptr egen, objectptr checkobject, int mask) { genericptr *gelem; objectptr thisobject = checkobject; int i; if (checkobject == NULL) thisobject = topobject; for (i = 0, gelem = thisobject->plist; gelem < thisobject->plist + thisobject->parts; gelem++, i++) { if ((*gelem) == egen) { if ((*gelem)->type & mask) return i; else return -2; } } return -1; } /*----------------------------------------------------------------------*/ /* This routine is used by a number of menu functions. It looks for */ /* the arguments "selected" or an integer (object handle). If the */ /* argument is a valid object handle, it is added to the select list. */ /* The argument can be a list of handles, of which each is checked and */ /* added to the select list. */ /* "extra" indicates the number of required arguments beyond 2. */ /* "next" returns the integer of the argument after the handle, or the */ /* argument after the command, if there is no handle. If the handle is */ /* specified as a hierarchical list of element handles then */ /* areawin->hierstack contains the hierarchy of object instances. */ /*----------------------------------------------------------------------*/ int ParseElementArguments(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int *next, int mask) { short *newselect; char *argstr; int i, j, result, numobjs; pointertype ehandle; Tcl_Obj *lobj; int extra = 0, goodobjs = 0; if (next != NULL) { extra = *next; *next = 1; } if ((objc > (2 + extra)) || (objc == 1)) { Tcl_WrongNumArgs(interp, 1, objv, "[selected | ]